fact: Definition flat_raw (a b : Q) (Hab : (a < b)%Q) (f : (QsubMS a b) -> CR) (Hf : Bcont 1 CR f) := (fun x : Q_as_MetricSpace => match (Qlt_le_dec_fast a x) with | left _ => match (Qlt_le_dec_fast x b) with | left _ => f (CRasCRpow1 (IRasCR (inj_Q IR x))) | right _ => f (CRasCRpow1 (IRasCR (inj_Q IR b))) end | right _ => f (CRasCRpow1 (IRasCR (inj_Q IR a))) end ).
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