Commit 4c6881ab 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 5c1d2472
...@@ -66,7 +66,7 @@ Ltac done := ...@@ -66,7 +66,7 @@ Ltac done :=
| discriminate | discriminate
| contradiction | contradiction
| split | 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) := 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