fact: Definition refineFun_AbsR {oldRep newRep} (AbsR : oldRep -> newRep -> Prop) {fDom : list Type} {fCod : Type} (fDef : funType (oldRep :: fDom) (oldRep * fCod)) (fDef' : funType (newRep :: fDom) (newRep * fCod)) : Prop := forall r_o r_n, AbsR r_o r_n -> refineFun_AbsR' fDom fCod AbsR (fDef r_o) (fDef' r_n).
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