Commit db4424f2 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Accept spec pattern ASTs in `with` syntax.

As requested by @jtassaro.
parent 9b0ac0fc
...@@ -455,9 +455,9 @@ Local Tactic Notation "iIntro" := ...@@ -455,9 +455,9 @@ Local Tactic Notation "iIntro" :=
end. end.
(** * Specialize *) (** * Specialize *)
Record iTrm {X As} := Record iTrm {X As S} :=
ITrm { itrm : X ; itrm_vars : hlist As ; itrm_hyps : string }. ITrm { itrm : X ; itrm_vars : hlist As ; itrm_hyps : S }.
Arguments ITrm {_ _} _ _ _. Arguments ITrm {_ _ _} _ _ _.
Notation "( H $! x1 .. xn )" := Notation "( H $! x1 .. xn )" :=
(ITrm H (hcons x1 .. (hcons xn hnil) ..) "") (at level 0, x1, xn at level 9). (ITrm H (hcons x1 .. (hcons xn hnil) ..) "") (at level 0, x1, xn at level 9).
......
...@@ -362,4 +362,11 @@ Proof. iIntros "H". iFrame "H". auto. Qed. ...@@ -362,4 +362,11 @@ Proof. iIntros "H". iFrame "H". auto. Qed.
Lemma test_iFrame_later_2 P Q : P Q - ( P Q). Lemma test_iFrame_later_2 P Q : P Q - ( P Q).
Proof. iIntros "H". iFrame "H". auto. Qed. Proof. iIntros "H". iFrame "H". auto. Qed.
Lemma test_with_ident P Q R : P - Q - (P - Q - R) - R.
Proof.
iIntros "? HQ H".
iMatchHyp (fun H _ =>
iApply ("H" with [spec_patterns.SIdent H; spec_patterns.SIdent "HQ"])).
Qed.
End tests. End tests.
Markdown is supported
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