diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-07-07 18:43:15 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-07-07 18:43:15 +0200 |
commit | 24a08b236f6334f5c01e423fb564892e070b4bff (patch) | |
tree | 68d830efe6b331a25a95fc6c502a97d072d45afa | |
parent | ef92c55cf1f023ec43058eaaf2b176e16fe41fcf (diff) | |
parent | 3ad38a3dfdd9714feca358b02a42e8d8b55c7c77 (diff) | |
download | compcert-24a08b236f6334f5c01e423fb564892e070b4bff.tar.gz compcert-24a08b236f6334f5c01e423fb564892e070b4bff.zip |
Merge github.com:AbsInt/CompCert
-rw-r--r-- | cparser/validator/Tuples.v | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/cparser/validator/Tuples.v b/cparser/validator/Tuples.v index 88dc46e9..3fd2ec03 100644 --- a/cparser/validator/Tuples.v +++ b/cparser/validator/Tuples.v @@ -26,8 +26,11 @@ Definition arrows_right: Type -> list Type -> Type := fold_right (fun A B => A -> B). (** A tuple is a heterogeneous list. For convenience, we use pairs. **) -Definition tuple (types:list Type) : Type := - fold_right prod unit types. +Fixpoint tuple (types : list Type) : Type := + match types with + | nil => unit + | t::q => prod t (tuple q) + end. Fixpoint uncurry {args:list Type} {res:Type}: arrows_left args res -> tuple args -> res := |