From 03bdfb8cf43f61facc4fac77dad4bc7b4937c818 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 9 Nov 2017 22:06:29 -0500 Subject: Generalize Tuple.dec_fieldwise --- src/Util/Tuple.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Util/Tuple.v') diff --git a/src/Util/Tuple.v b/src/Util/Tuple.v index 9cca20013..cf7732a4c 100644 --- a/src/Util/Tuple.v +++ b/src/Util/Tuple.v @@ -514,7 +514,7 @@ End Equivalence. Arguments fieldwise' {A B n} _ _ _. Arguments fieldwise {A B n} _ _ _. -Global Instance dec_fieldwise' {A RA} {HA : DecidableRel RA} : forall {n}, DecidableRel (@fieldwise' A A n RA) | 10. +Global Instance dec_fieldwise' {A B R} {H : forall a b, Decidable (R a b)} : forall {n}, DecidableRel (@fieldwise' A B n R) | 10. Proof. induction n; simpl @fieldwise'. { exact _. } @@ -522,7 +522,7 @@ Proof. exact _. } Defined. -Global Instance dec_fieldwise {A RA} {HA : DecidableRel RA} : forall {n}, DecidableRel (@fieldwise A A n RA) | 10. +Global Instance dec_fieldwise {A B R} {H : forall a b, Decidable (R a b)} : forall {n}, DecidableRel (@fieldwise A B n R) | 10. Proof. destruct n; unfold fieldwise; exact _. Defined. -- cgit v1.2.3