fact: Fixpoint Lift_Constructor2P RepType RepType' (dom : list Type) (P : constructorType RepType [] -> cConstructorType RepType' [] -> Prop) : constructorType RepType dom -> cConstructorType RepType' dom -> Prop := match dom with | nil => fun c c' => P c c' | d :: dom' => fun c c' => forall (t : d), Lift_Constructor2P dom' P (c t) (c' t) end.
imports: Coq.Lists.List Coq.Strings.String Fiat.Common Fiat.Common.ilist Fiat.Common.BoundedLookup Fiat.ADT.Core Fiat.ADT.ComputationalADT Fiat.ADTRefinement.Core Fiat.ADTRefinement.SetoidMorphisms