Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Contribute to GitLab
Sign in
Toggle navigation
C
cpdt
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
research
cpdt
Commits
4dc048e9
Commit
4dc048e9
authored
Apr 19, 2010
by
Adam Chlipala
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Some bug fixes while working on JFR version
parent
4831f766
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
2 deletions
+2
-2
Equality.v
src/Equality.v
+1
-1
Subset.v
src/Subset.v
+1
-1
No files found.
src/Equality.v
View file @
4dc048e9
...
@@ -574,7 +574,7 @@ Definition UIP_refl' (A : Type) (x : A) (pf : x = x) : pf == refl_equal x :=
...
@@ -574,7 +574,7 @@ Definition UIP_refl' (A : Type) (x : A) (pf : x = x) : pf == refl_equal x :=
(
**
There
is
no
quick
way
to
write
such
a
proof
by
tactics
,
but
the
underlying
proof
term
that
we
want
is
trivial
.
(
**
There
is
no
quick
way
to
write
such
a
proof
by
tactics
,
but
the
underlying
proof
term
that
we
want
is
trivial
.
Suppose
that
we
want
to
use
[
UIP_refl
'
]
to
establish
another
lemma
of
the
kind
of
we
have
run
into
several
times
so
far
.
*
)
Suppose
that
we
want
to
use
[
UIP_refl
'
]
to
establish
another
lemma
of
the
kind
we
have
run
into
several
times
so
far
.
*
)
Lemma
lemma4
:
forall
(
A
:
Type
)
(
x
:
A
)
(
pf
:
x
=
x
)
,
Lemma
lemma4
:
forall
(
A
:
Type
)
(
x
:
A
)
(
pf
:
x
=
x
)
,
O
=
match
pf
with
refl_equal
=>
O
end
.
O
=
match
pf
with
refl_equal
=>
O
end
.
...
...
src/Subset.v
View file @
4dc048e9
...
@@ -71,7 +71,7 @@ Definition pred_strong1 (n : nat) : n > 0 -> nat :=
...
@@ -71,7 +71,7 @@ Definition pred_strong1 (n : nat) : n > 0 -> nat :=
(
**
We
expand
the
type
of
[
pred
]
to
include
a
%
\
textit
{%
#
<
i
>
#
proof
#
</
i
>
#
%}%
that
its
argument
[
n
]
is
greater
than
0.
When
[
n
]
is
0
,
we
use
the
proof
to
derive
a
contradiction
,
which
we
can
use
to
build
a
value
of
any
type
via
a
vacuous
pattern
match
.
When
[
n
]
is
a
successor
,
we
have
no
need
for
the
proof
and
just
return
the
answer
.
The
proof
argument
can
be
said
to
have
a
%
\
textit
{%
#
<
i
>
#
dependent
#
</
i
>
#
%}%
type
,
because
its
type
depends
on
the
%
\
textit
{%
#
<
i
>
#
value
#
</
i
>
#
%}%
of
the
argument
[
n
]
.
(
**
We
expand
the
type
of
[
pred
]
to
include
a
%
\
textit
{%
#
<
i
>
#
proof
#
</
i
>
#
%}%
that
its
argument
[
n
]
is
greater
than
0.
When
[
n
]
is
0
,
we
use
the
proof
to
derive
a
contradiction
,
which
we
can
use
to
build
a
value
of
any
type
via
a
vacuous
pattern
match
.
When
[
n
]
is
a
successor
,
we
have
no
need
for
the
proof
and
just
return
the
answer
.
The
proof
argument
can
be
said
to
have
a
%
\
textit
{%
#
<
i
>
#
dependent
#
</
i
>
#
%}%
type
,
because
its
type
depends
on
the
%
\
textit
{%
#
<
i
>
#
value
#
</
i
>
#
%}%
of
the
argument
[
n
]
.
One
aspect
s
in
particular
of
the
definition
of
[
pred_strong1
]
that
may
be
surprising
.
We
took
advantage
of
[
Definition
]
'
s
syntactic
sugar
for
defining
function
arguments
in
the
case
of
[
n
]
,
but
we
bound
the
proofs
later
with
explicit
[
fun
]
expressions
.
Let
us
see
what
happens
if
we
write
this
function
in
the
way
that
at
first
seems
most
natural
.
One
aspect
in
particular
of
the
definition
of
[
pred_strong1
]
may
be
surprising
.
We
took
advantage
of
[
Definition
]
'
s
syntactic
sugar
for
defining
function
arguments
in
the
case
of
[
n
]
,
but
we
bound
the
proofs
later
with
explicit
[
fun
]
expressions
.
Let
us
see
what
happens
if
we
write
this
function
in
the
way
that
at
first
seems
most
natural
.
[[
[[
Definition
pred_strong1
'
(
n
:
nat
)
(
pf
:
n
>
0
)
:
nat
:=
Definition
pred_strong1
'
(
n
:
nat
)
(
pf
:
n
>
0
)
:
nat
:=
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment