Commit 2aa6cd0c authored by Robbert Krebbers's avatar Robbert Krebbers

Make (e)auto enter proofmode when we are not already in it.

parent 0eac7a8c
...@@ -1407,9 +1407,12 @@ Tactic Notation "iMod" open_constr(lem) "as" "%" simple_intropattern(pat) := ...@@ -1407,9 +1407,12 @@ Tactic Notation "iMod" open_constr(lem) "as" "%" simple_intropattern(pat) :=
(* Make sure that by and done solve trivial things in proof mode *) (* Make sure that by and done solve trivial things in proof mode *)
Hint Extern 0 (of_envs _ _) => by iPureIntro. Hint Extern 0 (of_envs _ _) => by iPureIntro.
Hint Extern 0 (of_envs _ _) => iAssumption. Hint Extern 0 (of_envs _ _) => iAssumption.
Hint Extern 0 (of_envs _ _) => progress iIntros.
Hint Resolve uPred.internal_eq_refl'. (* Maybe make an [iReflexivity] tactic *) Hint Resolve uPred.internal_eq_refl'. (* Maybe make an [iReflexivity] tactic *)
(* For iIntros we do not check whether we are in proof mode because we actually
want it to enter proof mode when we are not already in it. *)
Hint Extern 0 (_ _) => progress iIntros.
Hint Extern 1 (of_envs _ _ _) => iSplit. Hint Extern 1 (of_envs _ _ _) => iSplit.
Hint Extern 1 (of_envs _ _ _) => iSplit. Hint Extern 1 (of_envs _ _ _) => iSplit.
Hint Extern 1 (of_envs _ _) => iNext. Hint Extern 1 (of_envs _ _) => iNext.
...@@ -1420,4 +1423,4 @@ Hint Extern 1 (of_envs _ ⊢ ◇ _) => iModIntro. ...@@ -1420,4 +1423,4 @@ Hint Extern 1 (of_envs _ ⊢ ◇ _) => iModIntro.
Hint Extern 1 (of_envs _ _ _) => iLeft. Hint Extern 1 (of_envs _ _ _) => iLeft.
Hint Extern 1 (of_envs _ _ _) => iRight. Hint Extern 1 (of_envs _ _ _) => iRight.
Hint Extern 2 (coq_tactics.of_envs _ _ _) => progress iFrame : iFrame. Hint Extern 2 (of_envs _ _ _) => progress iFrame : iFrame.
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