fact: Definition QsubMS (a b : Q) := SubMS Q_as_MetricSpace (fun x : Q_as_MetricSpace => (a <= x)%Q and (x <= b)%Q).
imports: ssreflect CSetoids CSetoidFun CFields CPolynomials Program Omega Equivalence Morphisms Wf Morphisms CRings CRing_Homomorphisms Rational Setoid CPoly_NthCoeff CPoly_Degree CReals Intervals CauchySeq IntervalFunct MoreIntervals MoreFunctions Composition seq bigopsClass Structures ProductMetric CRIR Integration Qmetric QposMinMax QMinMax iso_CReals