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/versions/standard/Tactics_standard.v | |
| parent | a7edf4fa3b102c206017eb90b323767d7af653df (diff) | |
| download | smtcoq-6699a08a64470c8145324e6ff392fcb3453ade38.tar.gz smtcoq-6699a08a64470c8145324e6ff392fcb3453ade38.zip | |
Better use of the typeclass mechanism
Diffstat (limited to 'src/versions/standard/Tactics_standard.v')
| -rw-r--r-- | src/versions/standard/Tactics_standard.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/versions/standard/Tactics_standard.v b/src/versions/standard/Tactics_standard.v index edf2f19..5be62cc 100644 --- a/src/versions/standard/Tactics_standard.v +++ b/src/versions/standard/Tactics_standard.v @@ -69,8 +69,8 @@ Ltac get_hyps := (** Tactics in bool *) -Tactic Notation "verit_bool_base_auto" constr(h) := verit_bool_base h; auto with typeclass_instances. -Tactic Notation "verit_bool_no_check_base_auto" constr(h) := verit_bool_no_check_base h; auto with typeclass_instances. +Tactic Notation "verit_bool_base_auto" constr(h) := verit_bool_base h; try (exact _). +Tactic Notation "verit_bool_no_check_base_auto" constr(h) := verit_bool_no_check_base h; try (exact _). Tactic Notation "verit_bool" constr(h) := let Hs := get_hyps in |