Skip to content
Snippets Groups Projects
Commit f238c358 authored by Ralf Jung's avatar Ralf Jung
Browse files

fix compatibility with Coq 8.7

parent e16140cf
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/heap_lang/proph_map.v
+ 4
− 3
View file @ f238c358
...@@ -72,9 +72,10 @@ Section first_resolve. ...@@ -72,9 +72,10 @@ Section first_resolve.
first_resolve_in_list (<[p := first_resolve pvs p]> R) pvs. first_resolve_in_list (<[p := first_resolve pvs p]> R) pvs.
Proof. Proof.
intros Hf Hnotin p' v' Hp'. rewrite (dom_insert_L R p) in Hp'. intros Hf Hnotin p' v' Hp'. rewrite (dom_insert_L R p) in Hp'.
erewrite elem_of_union in Hp'. destruct Hp' as [->%elem_of_singleton | Hin] => [->]. erewrite elem_of_union in Hp'. destruct Hp' as [->%elem_of_singleton | Hin].
- by rewrite lookup_insert. - intros ->. by rewrite lookup_insert.
- rewrite lookup_insert_ne; first auto. by intros ->. - intros <-%Hf; last done. rewrite lookup_insert_ne; first done.
intros ?. subst. done.
Qed. Qed.
Lemma first_resolve_delete pvs p v R : Lemma first_resolve_delete pvs p v R :
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment