aboutsummaryrefslogtreecommitdiff
path: root/src/Util/Tuple.v
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2016-11-01 15:57:11 -0400
committerGravatar Jason Gross <jgross@mit.edu>2016-11-01 15:57:11 -0400
commit0a9d86b63f93254271f4ff9ca41df5c04af2cdef (patch)
treeea5a8c82d0612e84fd6976459f1a8dfbc61b9b7b /src/Util/Tuple.v
parenta9b7259090b0b3781ea45101ab887ee6a66dee3a (diff)
Fix a typo in the previous commit
Diffstat (limited to 'src/Util/Tuple.v')
-rw-r--r--src/Util/Tuple.v4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Util/Tuple.v b/src/Util/Tuple.v
index 770549c64..65f1f868e 100644
--- a/src/Util/Tuple.v
+++ b/src/Util/Tuple.v
@@ -18,14 +18,14 @@ Definition tuple T n : Type :=
end.
Fixpoint hlist' T n (f : T -> Type) : tuple' T n -> Type :=
- match n return tuple' Type n -> Type with
+ match n return tuple' _ n -> Type with
| 0 => fun T => f T
| S n' => fun Ts => (hlist' T n' f (fst Ts) * f (snd Ts))%type
end.
Global Arguments hlist' {T n} f _.
Definition hlist {T n} (f : T -> Type) : forall (Ts : tuple T n), Type :=
- match n return tuple Type n -> Type with
+ match n return tuple _ n -> Type with
| 0 => fun _ => unit
| S n' => @hlist' T n' f
end.