Error message for iAccu.

7999c5b1 · Jacques-Henri Jourdan · ec42e1d0 · 7999c5b1
Commit 7999c5b1 authored Mar 04, 2018 by Jacques-Henri Jourdan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

theories/proofmode/tactics.v theories/proofmode/tactics.v +1 -1

No files found.
--- a/theories/proofmode/tactics.v
+++ b/theories/proofmode/tactics.v
@@ -1937,7 +1937,7 @@ Tactic Notation "iInv" constr(N) "with" constr(Hs) "as" "(" simple_intropattern(
   iInvCore N with Hs as (fun H => iDestructHyp H as (x1 x2 x3 x4) pat) Hclose.

 Tactic Notation "iAccu" :=
-  eapply tac_accu; env_reflexivity.
+  eapply tac_accu; [env_reflexivity || fail "iAccu: not an evar."].

 Hint Extern 0 (_ ⊢ _) => iStartProof.