fact: Definition LiftcADT (Sig : ADTSig) (A : cADT Sig) : ADT Sig := {| Rep := cRep A; Constructors idx := LiftcConstructor _ _ (cConstructors A idx); Methods idx := LiftcMethod (cMethods A idx) |}.
imports: Fiat.Common Fiat.Computation Fiat.ADT.ADTSig Fiat.ADT Coq.Sets.Ensembles