fact: Definition Qscale_modulus (a:Q) (e:Qpos) : QposInf := match a with | 0 # _ => QposInfinity | (Zpos an) # ad => Qpos2QposInf ((ad # an) * e) | (Zneg an) # ad => Qpos2QposInf ((ad # an) * e) end.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.lattice.CRlattice CoRN.model.totalorder.QMinMax Coq.QArith.Qabs CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric MathClasses.interfaces.canonical_names