From 6699a08a64470c8145324e6ff392fcb3453ade38 Mon Sep 17 00:00:00 2001
From: Chantal Keller <Chantal.Keller@lri.fr>
Date: Thu, 21 Oct 2021 15:50:04 +0200
Subject: Better use of the typeclass mechanism

---
 src/PropToBool.v | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/PropToBool.v')

diff --git a/src/PropToBool.v b/src/PropToBool.v
index cad6dae..cab5b50 100644
--- a/src/PropToBool.v
+++ b/src/PropToBool.v
@@ -59,7 +59,7 @@ Ltac prop2bool :=
         | _ =>
           let p := fresh "p" in
           assert (p:CompDec t);
-          [ auto with typeclass_instances
+          [ try (exact _)       (* Use the typeclass machinery *)
           | rewrite (@compdec_eq_eqb _ p)
           ]
         end
@@ -172,7 +172,7 @@ Ltac prop2bool_hyp H :=
     | _ =>
       let Hcompdec := fresh "Hcompdec" in
       assert (Hcompdec: CompDec A);
-      [ auto with typeclass_instances | ]
+      [ try (exact _) | ]
     end
   | false => idtac
   end;
@@ -223,7 +223,7 @@ Ltac remove_compdec_hyp H :=
     | _ =>
       let c := fresh "c" in
       assert (c : CompDec A);
-      [ auto with typeclass_instances
+      [ try (exact _)
       | let H1 := fresh in
         assert (H1 := H c); clear H; assert (H := H1); clear H1;
         remove_compdec_hyp H ]
-- 
cgit