From 59d38e35dcac862305678a1010511ae676d68ddc Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 13 Jun 2017 15:21:31 -0400 Subject: Add dec_eq_comparison --- src/Util/Decidable.v | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Util/Decidable.v') diff --git a/src/Util/Decidable.v b/src/Util/Decidable.v index e5f9cf0bd..014af738f 100644 --- a/src/Util/Decidable.v +++ b/src/Util/Decidable.v @@ -93,6 +93,7 @@ Global Instance dec_eq_list {A} `{DecidableRel (@eq A)} : DecidableRel (@eq (lis Global Instance dec_eq_sum {A B} `{DecidableRel (@eq A), DecidableRel (@eq B)} : DecidableRel (@eq (A + B)) | 10. exact _. Defined. Global Instance dec_eq_sigT_hprop {A P} `{DecidableRel (@eq A), forall a : A, IsHProp (P a)} : DecidableRel (@eq (@sigT A P)) | 10. exact _. Defined. Global Instance dec_eq_sig_hprop {A} {P : A -> Prop} `{DecidableRel (@eq A), forall a : A, IsHProp (P a)} : DecidableRel (@eq (@sig A P)) | 10. exact _. Defined. +Global Instance dec_eq_comparison : DecidableRel (@eq comparison) | 10. exact _. Defined. Global Instance dec_eq_nat : DecidableRel (@eq nat) | 10. exact _. Defined. Global Instance dec_le_nat : DecidableRel le := Compare_dec.le_dec. -- cgit v1.2.3