Commit a3775658 authored by Robbert Krebbers's avatar Robbert Krebbers

Less hacky fix than d1b836c8.

parent d1b836c8
Pipeline #7123 passed with stage
in 11 minutes and 7 seconds
......@@ -964,8 +964,7 @@ Local Tactic Notation "iExistDestruct" constr(H)
(** * Modality introduction *)
Tactic Notation "iModIntro" open_constr(M) :=
iStartProof;
let bi := lazymatch goal with |- @envs_entails ?bi _ _ => bi end in
eapply (tac_modal_intro (PROP2 := bi)) with M _ _ _ _;
notypeclasses refine (tac_modal_intro M _ _ _ _ _ _ _ _ _ _ _ _);
[apply _ ||
fail "iModIntro: the goal is not a modality"
|apply _ ||
......
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