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

use Coq-variable-syntax

parent 1f53f0a4
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 4 deletions
heap_lang/lifting.v
+ 1
− 4
View file @ 0e8c732f
...@@ -39,10 +39,7 @@ Proof. ...@@ -39,10 +39,7 @@ Proof.
destruct H0 as (l & -> & ? & -> & ?). destruct H0 as (l & -> & ? & -> & ?).
rewrite -(of_to_val (Loc l) (LocV l)) // in H0. rewrite -(of_to_val (Loc l) (LocV l)) // in H0.
apply of_val_inj in H0 as ->. apply of_val_inj in H0 as ->.
simpl. iSplitL; last done. simpl. iSplitL; last done. iApply "HΦ" {l}. iSplit; 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.
Qed. Qed.
Lemma wp_load_pst E σ l v Φ : Lemma wp_load_pst E σ l v Φ :
......
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