fact: Definition approximateQ (x:Q) (p:positive) := let (n,d) := x in (Z.div (n*Zpos p) (Zpos d)#p).
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.model.metric2.CRmetric CoRN.model.metric2.Qmetric Coq.ZArith.Zdiv