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

derive wp_load

parent 680ab4e9
......@@ -95,4 +95,13 @@ Section heap.
{ eexists. eauto. }
Lemma wp_load E γ l v P Q :
nclose N E
P heap_ctx γ
P (heap_mapsto γ l v (heap_mapsto γ l v - Q v))
P wp E (Load (Loc l)) Q.
intros HN. rewrite /heap_mapsto. apply wp_load_heap; first done.
by simplify_map_equality.
End heap.
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