Commit fd364b7e authored by Robbert Krebbers's avatar Robbert Krebbers

Avoid exponential blowup in [done] as caused by a7e91677.

Example:

Goal
  ¬False → ¬False → ¬False → ¬False → ¬False → ¬False → ¬False →
  False.
Proof.
  intros. done. (* takes very long *)
parent 5eba6f8a
......@@ -66,7 +66,7 @@ Ltac done :=
| discriminate
| contradiction
| split
| match goal with H : ¬_ |- _ => case H; clear H; done end
| match goal with H : ¬_ |- _ => case H; clear H; fast_done end
]
].
Tactic Notation "by" tactic(tac) :=
......
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