fact: Fixpoint Lift_cfunType (fDom : list Type) (fCod : Type) (fDef : cfunType fDom fCod) {struct fDom} : funType fDom fCod := match fDom return cfunType fDom fCod -> funType fDom fCod with | nil => fun f => ret f | cons T fDom' => fun f' (t : T) => Lift_cfunType fDom' fCod (f' t) end fDef.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Sets.Ensembles Coq.ZArith.ZArith Coq.Classes.Morphisms Coq.Classes.SetoidTactics Fiat.Computation Fiat.Computation.SetoidMorphisms Coq.Logic.FunctionalExtensionality