diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-03-17 19:47:24 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-03-17 19:47:24 -0400 |
| commit | b3f96bfa1fe67b41840d79b3377fc02b5b749d85 (patch) | |
| tree | 422a69bd67f3b5d9d8d8c6c03591a664f7026819 /src/Util/Decidable.v | |
| parent | b7e578276e8a7546108cf18026c308a82b21932c (diff) | |
Add dec_eq_positive
Diffstat (limited to 'src/Util/Decidable.v')
| -rw-r--r-- | src/Util/Decidable.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Util/Decidable.v b/src/Util/Decidable.v index 5801a1c57..e3f4a5930 100644 --- a/src/Util/Decidable.v +++ b/src/Util/Decidable.v @@ -111,6 +111,8 @@ 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_eq_positive : DecidableRel (@eq BinNums.positive) | 10 := BinPos.Pos.eq_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. |