diff options
| author |  Jason Gross <jagro@google.com> | 2016-06-27 11:44:39 -0700 |
|---|---|---|
| committer | Jason Gross <jagro@google.com> | 2016-06-27 11:44:39 -0700 |
| commit | 27aa3a1e358ca9281721e3a3f4137979d16aab7e (patch) | |
| tree | 045ecc481cf07b67f52d2de00d2dfbf4e720566e /src/Util/Decidable.v | |
| parent | c5626e9e937246b9163067dc4a88ee09c4164136 (diff) | |
Add decidable instances for sumwise and fieldwise
Diffstat (limited to 'src/Util/Decidable.v')
| -rw-r--r-- | src/Util/Decidable.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Util/Decidable.v b/src/Util/Decidable.v index 9ab05699a..c2094c765 100644 --- a/src/Util/Decidable.v +++ b/src/Util/Decidable.v @@ -14,7 +14,7 @@ Ltac destruct_decidable_step := end. Ltac destruct_decidable := repeat destruct_decidable_step. -Local Ltac pre_decide := +Ltac pre_decide := repeat (intros || destruct_decidable || subst @@ -22,13 +22,13 @@ Local Ltac pre_decide := || unfold Decidable in * || hnf ). -Local Ltac solve_decidable_transparent_with tac := +Ltac solve_decidable_transparent_with tac := pre_decide; try solve [ left; abstract tac | right; abstract tac | decide equality; eauto with nocore ]. -Local Ltac solve_decidable_transparent := solve_decidable_transparent_with firstorder. +Ltac solve_decidable_transparent := solve_decidable_transparent_with firstorder. Local Hint Extern 0 => solve [ solve_decidable_transparent ] : typeclass_instances. |