fact: Fixpoint Lift_cMethodP RepType (dom : list Type) (cod : option Type) (P : forall cod, cMethodType' RepType [] (Some cod) -> Prop) (P' : cMethodType' RepType [] None -> Prop) : cMethodType' RepType dom cod -> Prop := match dom with | nil => match cod with | Some cod' => fun c => P cod' c | None => fun c => P' c end | d :: dom' => fun c => forall (t : d), Lift_cMethodP dom' cod P P' (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