diff options
Diffstat (limited to 'src/PropToBool.v')
-rw-r--r-- | src/PropToBool.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/PropToBool.v b/src/PropToBool.v index e06b336..5a7bf53 100644 --- a/src/PropToBool.v +++ b/src/PropToBool.v @@ -1,7 +1,7 @@ (**************************************************************************) (* *) (* SMTCoq *) -(* Copyright (C) 2011 - 2021 *) +(* Copyright (C) 2011 - 2022 *) (* *) (* See file "AUTHORS" for the list of authors *) (* *) @@ -50,7 +50,7 @@ Ltac prop2bool := | bool => lazymatch y with | true => fail - | _ => rewrite <- eqb_true_iff + | _ => rewrite <- (eqb_true_iff x y) end | _ => lazymatch goal with @@ -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 ] |