Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
stdpp
Commits
9eb8cd13
Commit
9eb8cd13
authored
Jul 13, 2019
by
Ralf Jung
Browse files
fix build for Coq 8.10
parent
ec592463
Pipeline
#18388
passed with stage
in 8 minutes and 37 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
theories/decidable.v
theories/decidable.v
+3
-0
theories/list.v
theories/list.v
+3
-1
No files found.
theories/decidable.v
View file @
9eb8cd13
...
...
@@ -94,6 +94,9 @@ Proof. unfold bool_decide. destruct dec; [left|right]; assumption. Qed.
Lemma
bool_decide_decide
P
`
{!
Decision
P
}
:
bool_decide
P
=
if
decide
P
then
true
else
false
.
Proof
.
reflexivity
.
Qed
.
Lemma
decide_bool_decide
P
{
Hdec
:
Decision
P
}
{
X
:
Type
}
(
x1
x2
:
X
)
:
(
if
decide
P
then
x1
else
x2
)
=
(
if
bool_decide
P
then
x1
else
x2
).
Proof
.
unfold
bool_decide
,
decide
.
destruct
Hdec
;
reflexivity
.
Qed
.
Tactic
Notation
"case_bool_decide"
"as"
ident
(
Hd
)
:
=
match
goal
with
...
...
theories/list.v
View file @
9eb8cd13
...
...
@@ -921,7 +921,9 @@ Section find.
list_find P l = list_find Q l.
Proof.
intros HPQ. induction l as [|x l IH]; [done|]. simpl.
erewrite decide_iff by done. by rewrite IH.
rewrite !decide_bool_decide.
rewrite (bool_decide_iff _ (Q x)) by done.
rewrite IH. done.
Qed.
End find.
...
...
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