fact: Definition domcod_new_to_old {newRep oldRep fDom fCod} (AbsR : oldRep -> newRep -> Prop) : funType (newRep :: fDom) (newRep * fCod) -> funType (oldRep :: fDom) (oldRep * fCod) := fun k => dom_new_to_old AbsR (cod_new_to_old AbsR k).
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