Commit 0eac7a8c authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add a missing iStartProof.

parent ba714f5a
......@@ -158,6 +158,7 @@ Local Tactic Notation "iPure" constr(H) "as" simple_intropattern(pat) :=
|intros pat].
Tactic Notation "iPureIntro" :=
iStartProof;
eapply tac_pure_intro;
[let P := match goal with |- FromPure ?P _ => P end in
apply _ || fail "iPureIntro:" P "not pure"|].
......
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