Clean up vcg wp store case

4827236a · Dan Frumin · 9865cb46 · 4827236a
Commit 4827236a authored Jul 01, 2018 by Dan Frumin
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

theories/vcgen/vcgen.v theories/vcgen/vcgen.v +2 -2

No files found.
--- a/theories/vcgen/vcgen.v
+++ b/theories/vcgen/vcgen.v
@@ -122,8 +122,8 @@ Section vcg.
    | _ =>
       mapsto_wand_list E m (∃ (l : loc) (v : val),
         ⌜dval_interp E dv1 = #l⌝ ∧
-         dloc_interp E (dLocUnknown l) ↦C v ∗
-         (dloc_interp E (dLocUnknown l) ↦C[LLvl] dval_interp E dv2 -∗
+         l ↦C v ∗
+         (l ↦C[LLvl] dval_interp E dv2 -∗
          vcg_wp_continuation E Φ (dval_interp E dv2)))%I
    end%I.