diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-10-21 15:50:04 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-10-21 15:50:04 +0200 |
commit | 6699a08a64470c8145324e6ff392fcb3453ade38 (patch) | |
tree | ce3e7f9971a1c74fc85f77d4c4596be06bdfb966 /src/PropToBool.v | |
parent | a7edf4fa3b102c206017eb90b323767d7af653df (diff) | |
download | smtcoq-6699a08a64470c8145324e6ff392fcb3453ade38.tar.gz smtcoq-6699a08a64470c8145324e6ff392fcb3453ade38.zip |
Better use of the typeclass mechanism
Diffstat (limited to 'src/PropToBool.v')
-rw-r--r-- | src/PropToBool.v | 6 |
1 files changed, 3 insertions, 3 deletions
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 ] |