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

Merge branch 'gen_proofmode' of https://gitlab.mpi-sws.org/FP/iris-coq into gen_proofmode

parents 020ad55d 753de83e
Branches
Tags
No related merge requests found
...@@ -969,8 +969,8 @@ Tactic Notation "iModCore" constr(H) := ...@@ -969,8 +969,8 @@ Tactic Notation "iModCore" constr(H) :=
eapply tac_modal_elim with _ H _ _ _ _ _; eapply tac_modal_elim with _ H _ _ _ _ _;
[env_reflexivity || fail "iMod:" H "not found" [env_reflexivity || fail "iMod:" H "not found"
|apply _ || |apply _ ||
let P := match goal with |- ElimModal ?P _ _ _ => P end in let P := match goal with |- ElimModal _ ?P _ _ _ => P end in
let Q := match goal with |- ElimModal _ _ ?Q _ => Q end in let Q := match goal with |- ElimModal _ _ _ ?Q _ => Q end in
fail "iMod: cannot eliminate modality " P "in" Q fail "iMod: cannot eliminate modality " P "in" Q
|try fast_done (* optional side-condition *) |try fast_done (* optional side-condition *)
|env_reflexivity|]. |env_reflexivity|].
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment