diff options
Diffstat (limited to 'src/Util/Decidable.v')
| -rw-r--r-- | src/Util/Decidable.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Util/Decidable.v b/src/Util/Decidable.v index a6954663b..b01fe3627 100644 --- a/src/Util/Decidable.v +++ b/src/Util/Decidable.v @@ -111,6 +111,11 @@ Global Instance dec_le_Z : DecidableRel BinInt.Z.le := ZArith_dec.Z_le_dec. Global Instance dec_gt_Z : DecidableRel BinInt.Z.gt := ZArith_dec.Z_gt_dec. Global Instance dec_ge_Z : DecidableRel BinInt.Z.ge := ZArith_dec.Z_ge_dec. +Global Instance dec_match_pair {A B} {P : A -> B -> Prop} {x : A * B} + {HD : Decidable (P (fst x) (snd x))} + : Decidable (let '(a, b) := x in P a b) | 1. +Proof. destruct x; assumption. Defined. + Lemma not_not P {d:Decidable P} : not (not P) <-> P. Proof. destruct (dec P); intuition. Qed. |