From 4c68a0443f5fe016e0072fca1baab6369d43a50b Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Sat, 5 Mar 2016 10:44:33 +0100
Subject: [PATCH] try to speed up set_solver a little

---
 theories/collections.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/theories/collections.v b/theories/collections.v
index e0d70b8d..ada7f6b8 100644
--- a/theories/collections.v
+++ b/theories/collections.v
@@ -265,7 +265,7 @@ Ltac set_unfold :=
 [set_solver] already. We use the [naive_solver] tactic as a substitute.
 This tactic either fails or proves the goal. *)
 Tactic Notation "set_solver" "by" tactic3(tac) :=
-  try done;
+  try (reflexivity || eassumption);
   intros; setoid_subst;
   set_unfold;
   intros; setoid_subst;
-- 
GitLab