Commit 3e1c355f authored by Ralf Jung's avatar Ralf Jung

try to speed up set_solver a little

parent c82719b9
Pipeline #250 passed with stage
...@@ -265,7 +265,7 @@ Ltac set_unfold := ...@@ -265,7 +265,7 @@ Ltac set_unfold :=
[set_solver] already. We use the [naive_solver] tactic as a substitute. [set_solver] already. We use the [naive_solver] tactic as a substitute.
This tactic either fails or proves the goal. *) This tactic either fails or proves the goal. *)
Tactic Notation "set_solver" "by" tactic3(tac) := Tactic Notation "set_solver" "by" tactic3(tac) :=
try done; try (reflexivity || eassumption);
intros; setoid_subst; intros; setoid_subst;
set_unfold; set_unfold;
intros; setoid_subst; intros; setoid_subst;
......
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