fact: Record ConstructiveRealsMorphism {R1 R2 : ConstructiveReals} : Set := { CRmorph : CRcarrier R1 -> CRcarrier R2; CRmorph_rat : forall q : Q, CRmorph (CR_of_Q R1 q) == CR_of_Q R2 q; CRmorph_increasing : forall x y : CRcarrier R1, CRlt R1 x y -> CRlt R2 (CRmorph x) (CRmorph y); }.
imports: QArith Qabs ConstructiveReals ConstructiveLimits ConstructiveAbs