diff options
author | Jason Gross <jgross@mit.edu> | 2016-11-01 15:57:11 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2016-11-01 15:57:11 -0400 |
commit | 0a9d86b63f93254271f4ff9ca41df5c04af2cdef (patch) | |
tree | ea5a8c82d0612e84fd6976459f1a8dfbc61b9b7b /src/Util/Tuple.v | |
parent | a9b7259090b0b3781ea45101ab887ee6a66dee3a (diff) |
Fix a typo in the previous commit
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 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. |