Commit 0e8c732f authored by Ralf Jung's avatar Ralf Jung
Browse files

use Coq-variable-syntax

parent 1f53f0a4
......@@ -39,10 +39,7 @@ Proof.
destruct H0 as (l & -> & ? & -> & ?).
rewrite -(of_to_val (Loc l) (LocV l)) // in H0.
apply of_val_inj in H0 as ->.
simpl. iSplitL; last done.
(* FIXME: I should be able to do [iSpecialize "HΦ" l]. *)
(* FIXME: I should be able to do [iApply "HΦ" l]. *)
iApply "HΦ". iSplit; done.
simpl. iSplitL; last done. iApply "HΦ" {l}. iSplit; done.
Lemma wp_load_pst E σ l v Φ :
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