fact: Fixpoint LiftcConstructor (rep : Type) (dom : list Type) : cConstructorType rep dom -> constructorType rep dom := match dom return cConstructorType rep dom -> constructorType rep dom with | nil => fun cConstructor => ret cConstructor | cons d dom' => fun cConstructor t => LiftcConstructor rep dom' (cConstructor t) end.
imports: Fiat.Common Fiat.Computation Fiat.ADT.ADTSig Fiat.ADT Coq.Sets.Ensembles