Commit f238c358 authored by Ralf Jung's avatar Ralf Jung
Browse files

fix compatibility with Coq 8.7

parent e16140cf
......@@ -72,9 +72,10 @@ Section first_resolve.
first_resolve_in_list (<[p := first_resolve pvs p]> R) pvs.
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] => [->].
- by rewrite lookup_insert.
- rewrite lookup_insert_ne; first auto. by intros ->.
erewrite elem_of_union in Hp'. destruct Hp' as [->%elem_of_singleton | Hin].
- intros ->. by rewrite lookup_insert.
- intros <-%Hf; last done. rewrite lookup_insert_ne; first done.
intros ?. subst. done.
Lemma first_resolve_delete pvs p v R :
Supports Markdown
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