From 3a494ebb0d6ba4fa7952be40203ca4b573e37904 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 16 May 2017 22:53:10 -0400 Subject: Add dec_eq_positive --- src/Util/Decidable.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Util/Decidable.v') diff --git a/src/Util/Decidable.v b/src/Util/Decidable.v index cc144f062..e7c47e7d7 100644 --- a/src/Util/Decidable.v +++ b/src/Util/Decidable.v @@ -108,6 +108,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 positive) | 10 := 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. -- cgit v1.2.3