fact: Definition F (a b : Qpos) (Hab : (a < b)%Q) (f : (XpowM CR 1) -> CR) (Hf : Bcont 1 CR f) := (fun x : Q_as_MetricSpace => match (Qlt_le_dec_fast x (1%Q)) with | left _ => IRasCR Zero | right _ => (Integrate01 (flat a b Hab f Hf)) 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