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

fix heap

parent 0cbaab2f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 1 deletion
heap_lang/heap.v
+ 3
− 1
View file @ 73959011
...@@ -86,12 +86,14 @@ Section heap. ...@@ -86,12 +86,14 @@ Section heap.
apply to_heap_valid. } apply to_heap_valid. }
apply pvs_mono, exist_elim=> γ. apply pvs_mono, exist_elim=> γ.
rewrite -(exist_intro (HeapG _ _ γ)); apply and_mono_r. rewrite -(exist_intro (HeapG _ _ γ)); apply and_mono_r.
rewrite /heap_mapsto_def /heap_name.
induction σ as [|l v σ Hl IH] using map_ind. induction σ as [|l v σ Hl IH] using map_ind.
{ rewrite big_sepM_empty; apply True_intro. } { rewrite big_sepM_empty; apply True_intro. }
rewrite to_heap_insert big_sepM_insert //. rewrite to_heap_insert big_sepM_insert //.
rewrite (map_insert_singleton_op (to_heap σ)); rewrite (map_insert_singleton_op (to_heap σ));
last rewrite lookup_fmap Hl; auto. last rewrite lookup_fmap Hl; auto.
by rewrite auth_own_op IH. (* FIXME: investigate why we have to unfold auth_own here. *)
by rewrite auth_own_op IH auth_own_eq.
Qed. Qed.
Context `{heapG Σ}. Context `{heapG Σ}.
......
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