diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-11-09 22:06:29 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-11-09 22:06:29 -0500 |
| commit | 03bdfb8cf43f61facc4fac77dad4bc7b4937c818 (patch) | |
| tree | e5adac8e5ab494a7a1085ae0d87d0862a4a7d1bf /src/Util/Tuple.v | |
| parent | 55e4267912401456dc762d7987d4e5914b3bdde4 (diff) | |
Generalize Tuple.dec_fieldwise
Diffstat (limited to 'src/Util/Tuple.v')
| -rw-r--r-- | src/Util/Tuple.v | 4 |
1 files changed, 2 insertions, 2 deletions
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. |