fact: Definition domcod_new_to_old' {newRep oldRep fDom fCod} (AbsR : oldRep -> newRep -> Prop) (fDef' : funType (newRep :: fDom) (newRep * fCod)) : funType (oldRep :: fDom) (oldRep * fCod) := cl_sup (fun a : funType (oldRep :: fDom) (oldRep * fCod) => refineFun (domcod_old_to_new AbsR a) fDef').
imports: Fiat.Common.Coq__8_4__8_5__Compat Fiat.ADT Fiat.ADTNotation Fiat.Computation.FixComp Coq.ZArith.ZArith Coq.Arith.PeanoNat Fiat.Common.Frame Fiat.ADTRefinement Fiat.ADTRefinement.BuildADTRefinements