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

fix ltac parsing

parent d3556db2
No related branches found
No related tags found
No related merge requests found
...@@ -408,7 +408,7 @@ End heap. ...@@ -408,7 +408,7 @@ End heap.
[wp_bind K; tac H] for every possible evaluation context. [tac] can do [wp_bind K; tac H] for every possible evaluation context. [tac] can do
[iApplyHyp H] to actually apply the hypothesis. TC resolution of [lem] premises [iApplyHyp H] to actually apply the hypothesis. TC resolution of [lem] premises
happens *after* [tac H] got executed. *) happens *after* [tac H] got executed. *)
Tactic Notation "wp_apply_core" open_constr(lem) tactic(tac) := Tactic Notation "wp_apply_core" open_constr(lem) tactic3(tac) :=
wp_pures; wp_pures;
iPoseProofCore lem as false (fun H => iPoseProofCore lem as false (fun H =>
lazymatch goal with lazymatch goal with
...@@ -435,10 +435,10 @@ the context, which is intended to be the non-laterable assertions that iAuIntro ...@@ -435,10 +435,10 @@ the context, which is intended to be the non-laterable assertions that iAuIntro
would choke on. You get them all back in the continuation of the atomic would choke on. You get them all back in the continuation of the atomic
operation. *) operation. *)
Tactic Notation "awp_apply" open_constr(lem) := Tactic Notation "awp_apply" open_constr(lem) :=
(wp_apply_core lem (fun H => iApplyHyp H)); wp_apply_core lem (fun H => iApplyHyp H);
last iAuIntro. last iAuIntro.
Tactic Notation "awp_apply" open_constr(lem) "without" constr(Hs) := Tactic Notation "awp_apply" open_constr(lem) "without" constr(Hs) :=
(wp_apply_core lem (fun H => iApply wp_frame_wand_l; iSplitL Hs; [iAccu|iApplyHyp H])); wp_apply_core lem (fun H => iApply wp_frame_wand_l; iSplitL Hs; [iAccu|iApplyHyp H]);
last iAuIntro. last iAuIntro.
Tactic Notation "wp_alloc" ident(l) "as" constr(H) := Tactic Notation "wp_alloc" ident(l) "as" constr(H) :=
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment