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
83fd5496
Commit
83fd5496
authored
Oct 07, 2008
by
Adam Chlipala
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove -impredicative-set
parent
8bb63778
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
5 additions
and
5 deletions
+5
-5
Makefile
Makefile
+2
-2
MoreDep.v
src/MoreDep.v
+1
-1
MoreSpecif.v
src/MoreSpecif.v
+1
-1
Subset.v
src/Subset.v
+1
-1
No files found.
Makefile
View file @
83fd5496
...
...
@@ -15,8 +15,8 @@ coq: Makefile.coq
Makefile.coq
:
Makefile $(VS)
coq_makefile
$(VS)
\
COQC
=
"coqc -I src -
impredicative-set
\
-dump-glob
$(GLOBALS)
"
\
COQC
=
"coqc -I src -
dump-glob
$(GLOBALS)
"
\
COQDEP
=
"coqdep -I src
"
\
-o
Makefile.coq
clean
::
Makefile.coq
...
...
src/MoreDep.v
View file @
83fd5496
...
...
@@ -349,7 +349,7 @@ Qed.
Require
Import
Ascii
String
.
Open
Scope
string_scope
.
Inductive
regexp
:
(
string
->
Prop
)
->
Set
:=
Inductive
regexp
:
(
string
->
Prop
)
->
Type
:=
|
Char
:
forall
ch
:
ascii
,
regexp
(
fun
s
=>
s
=
String
ch
""
)
|
Concat
:
forall
P1
P2
(
r1
:
regexp
P1
)
(
r2
:
regexp
P2
)
,
...
...
src/MoreSpecif.v
View file @
83fd5496
...
...
@@ -45,7 +45,7 @@ End sumbool_and.
Infix
"&&"
:=
sumbool_and
(
at
level
40
,
left
associativity
)
:
specif_scope
.
Inductive
maybe
(
A
:
Type
)
(
P
:
A
->
Prop
)
:
Set
:=
Inductive
maybe
(
A
:
Set
)
(
P
:
A
->
Prop
)
:
Set
:=
|
Unknown
:
maybe
P
|
Found
:
forall
x
:
A
,
P
x
->
maybe
P
.
...
...
src/Subset.v
View file @
83fd5496
...
...
@@ -428,7 +428,7 @@ let rec in_dec a_eq_dec x = function
(
**
Our
final
implementation
of
dependent
predecessor
used
a
very
specific
argument
type
to
ensure
that
execution
could
always
complete
normally
.
Sometimes
we
want
to
allow
execution
to
fail
,
and
we
want
a
more
principled
way
of
signaling
that
than
returning
a
default
value
,
as
[
pred
]
does
for
[
0
]
.
One
approach
is
to
define
this
type
family
[
maybe
]
,
which
is
a
version
of
[
sig
]
that
allows
obligation
-
free
failure
.
*
)
Inductive
maybe
(
A
:
Type
)
(
P
:
A
->
Prop
)
:
Set
:=
Inductive
maybe
(
A
:
Set
)
(
P
:
A
->
Prop
)
:
Set
:=
|
Unknown
:
maybe
P
|
Found
:
forall
x
:
A
,
P
x
->
maybe
P
.
...
...
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