fact: Definition CRstandard_modulus (xn : nat -> CR) (xncau : CRcauchy_sequence xn) (e : QposInf) : CR := match e with | Qpos2QposInf q => xn (proj1_sig (xncau (proj1_sig (Qarchimedean_le (/ proj1_sig q))))) | QposInfinity => 0%CR end.
imports: Coq.Reals.Abstract.ConstructiveReals CoRN.model.metric2.Qmetric CoRN.model.metric2.CRmetric CoRN.reals.fast.CRFieldOps CoRN.reals.fast.CRArith CoRN.reals.fast.CRabs CoRN.model.totalorder.QposMinMax Coq.Logic.ConstructiveEpsilon