Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Herbelin
stdpp
Commits
d9536025
Commit
d9536025
authored
Aug 30, 2020
by
Ralf Jung
Browse files
add FIXMEs for Coq bug work-arounds
parent
abbd8d0e
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/hashset.v
View file @
d9536025
...
...
@@ -104,6 +104,7 @@ Proof.
intros
(
l
&?&?).
exists
(
hash
x
,
l
)
;
simpl
.
by
rewrite
elem_of_map_to_list
.
-
unfold
elements
,
hashset_elements
.
intros
[
m
Hm
]
;
simpl
.
rewrite
map_Forall_to_list
in
Hm
.
generalize
(
NoDup_fst_map_to_list
m
).
(* FIXME: trailing [?] works around Coq bug #12944. *)
induction
Hm
as
[|[
n
l
]
m'
[??]
Hm
?]
;
csimpl
;
inversion_clear
1
as
[|??
Hn
]
;
[
constructor
|].
apply
NoDup_app
;
split_and
?
;
eauto
.
...
...
theories/sorting.v
View file @
d9536025
...
...
@@ -180,6 +180,7 @@ Section merge_sort_correct.
Sorted
R
l1
→
Sorted
R
l2
→
Sorted
R
(
list_merge
R
l1
l2
).
Proof
.
intros
Hl1
.
revert
l2
.
induction
Hl1
as
[|
x1
l1
IH1
]
;
(* FIXME: trailing [?] works around Coq bug #12944. *)
induction
1
as
[|
x2
l2
IH2
?]
;
rewrite
?list_merge_cons
;
simpl
;
repeat
case_decide
;
repeat
match
goal
with
H
:
¬
R
_
_
|-
_
=>
apply
total_not
in
H
end
;
...
...
Write
Preview
Supports
Markdown
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