derive wp_load

cc1191b9 · Ralf Jung · 680ab4e9 · cc1191b9
Commit cc1191b9 authored Feb 13, 2016 by Ralf Jung
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

heap_lang/heap.v heap_lang/heap.v +9 -0

No files found.
--- a/heap_lang/heap.v
+++ b/heap_lang/heap.v
@@ -95,4 +95,13 @@ Section heap.
  { eexists. eauto. }
  Qed.

+  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.
+  Proof.
+    intros HN. rewrite /heap_mapsto. apply wp_load_heap; first done.
+    by simplify_map_equality.
+  Qed.
 End heap.