From 3e1c355f4fa535dde5c3fe5ad724adceeac21425 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

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

diff --git a/prelude/collections.v b/prelude/collections.v
index cf4669c0a..41610062c 100644
--- a/prelude/collections.v
+++ b/prelude/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