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
da4a8431
Commit
da4a8431
authored
Aug 05, 2015
by
Adam Chlipala
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
...and back to working in 8.4 again
parent
7bb7e8bc
Changes
3
Show whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
7 additions
and
5 deletions
+7
-5
Intro.v
src/Intro.v
+3
-3
Large.v
src/Large.v
+2
-2
ProgLang.v
src/ProgLang.v
+2
-0
No files found.
src/Intro.v
View file @
da4a8431
...
...
@@ -203,7 +203,7 @@ At the start of the next chapter, I assume that you have installed Coq and Proof
<<
(
custom
-
set
-
variables
...
'
(
coq
-
prog
-
args
'
(
"-
I"
"DIR/src
"
))
'
(
coq
-
prog
-
args
'
(
"-
R"
"DIR/src"
"Cpdt
"
))
...
)
>>
...
...
@@ -211,13 +211,13 @@ The extra arguments demonstrated here are the proper choices for working with th
Alternatively
,
Proof
General
configuration
can
be
set
on
a
per
-
directory
basis
,
using
a
%
\
index
{.
dir
-
locals
.
el
file
@
\
texttt
{.
dir
-
locals
.
el
}
file
}%<<.
dir
-
locals
.
el
>>
file
in
the
directory
of
the
source
files
for
which
you
want
the
settings
to
apply
.
Here
is
an
example
that
could
be
written
in
such
a
file
to
enable
use
of
the
book
source
.
Note
the
need
to
include
an
argument
that
starts
Coq
in
Emacs
support
mode
.
<<
((
coq
-
mode
.
((
coq
-
prog
-
args
.
(
"-emacs-U"
"-
I"
"DIR/src
"
)))))
((
coq
-
mode
.
((
coq
-
prog
-
args
.
(
"-emacs-U"
"-
R"
"DIR/src"
"Cpdt
"
)))))
>>
#
</
li
>
#
#
</
ol
>
#
%
\
end
{
enumerate
}%
Every
chapter
of
this
book
is
generated
from
a
commented
Coq
source
file
.
You
can
load
these
files
and
run
through
them
step
-
by
-
step
in
Proof
General
.
Be
sure
to
run
the
Coq
binary
<<
coqtop
>>
with
the
command
-
line
argument
<<-
I
DIR
/
src
>>.
If
you
have
installed
Proof
General
properly
,
the
Coq
mode
should
start
automatically
when
you
visit
a
<<.
v
>>
buffer
in
Emacs
,
and
the
above
advice
on
<<.
emacs
>>
settings
should
ensure
that
the
proper
arguments
are
passed
to
<<
coqtop
>>
by
Emacs
.
Every
chapter
of
this
book
is
generated
from
a
commented
Coq
source
file
.
You
can
load
these
files
and
run
through
them
step
-
by
-
step
in
Proof
General
.
Be
sure
to
run
the
Coq
binary
<<
coqtop
>>
with
the
command
-
line
argument
<<-
R
DIR
/
src
Cpdt
>>.
If
you
have
installed
Proof
General
properly
,
the
Coq
mode
should
start
automatically
when
you
visit
a
<<.
v
>>
buffer
in
Emacs
,
and
the
above
advice
on
<<.
emacs
>>
settings
should
ensure
that
the
proper
arguments
are
passed
to
<<
coqtop
>>
by
Emacs
.
With
Proof
General
,
the
portion
of
a
buffer
that
Coq
has
processed
is
highlighted
in
some
way
,
like
being
given
a
blue
background
.
You
step
through
Coq
source
files
by
positioning
the
point
at
the
position
you
want
Coq
to
run
to
and
pressing
C
-
C
C
-
RET
.
This
can
be
used
both
for
normal
step
-
by
-
step
coding
,
by
placing
the
point
inside
some
command
past
the
end
of
the
highlighted
region
;
and
for
undoing
,
by
placing
the
point
inside
the
highlighted
region
.
%
\
index
{
Proof
General
|
)
}%
*
)
...
...
src/Large.v
View file @
da4a8431
...
...
@@ -852,7 +852,7 @@ Require Import Lib.
<<
(
custom
-
set
-
variables
...
'
(
coq
-
prog
-
args
'
(
"-
I"
"/path/to/cpdt/src
"
))
'
(
coq
-
prog
-
args
'
(
"-
R"
"/path/to/cpdt/src"
"Cpdt
"
))
...
)
>>
...
...
@@ -862,7 +862,7 @@ Require Import Lib.
<<
(
custom
-
set
-
variables
...
;
'
(
coq
-
prog
-
args
'
(
"-
I"
"/path/to/cpdt/src
"
))
;
'
(
coq
-
prog
-
args
'
(
"-
R"
"/path/to/cpdt/src"
"Cpdt
"
))
'
(
coq
-
prog
-
args
'
(
"-R"
"LIB"
"Lib"
"-R"
"CLIENT"
"Client"
))
...
)
...
...
src/ProgLang.v
View file @
da4a8431
...
...
@@ -30,6 +30,8 @@ Ltac ext := let x := fresh "x" in extensionality x.
Ltac
pl
:=
crush
;
repeat
(
match
goal
with
|
[
|-
(
fun
x
=>
_
)
=
(
fun
y
=>
_
)
]
=>
ext
|
[
|-
_
_
_
?
E
_
=
_
_
_
?
E
_
]
=>
f_equal
|
[
|-
?
E
:::
_
=
?
E
:::
_
]
=>
f_equal
|
[
|-
hmap
_
?
E
=
hmap
_
?
E
]
=>
f_equal
end
;
crush
)
.
(
**
At
this
point
in
the
book
source
,
some
auxiliary
proofs
also
appear
.
*
)
...
...
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