fact: Definition CSUCTrapeze_IS_CSUC {R : ConstructiveReals} (a b eta : CRcarrier R) (etaPos : 0 < eta) : a <= b -> Is_CSUC_func (PartializeFunc (CRcarrier R) (CSUCUnitTrapeze a b eta etaPos)) := fun leab => Build_Is_CSUC_func R (PartializeFunc (CRcarrier R) (CSUCUnitTrapeze a b eta etaPos)) (fun x:CRcarrier R => Logic.I) (a-eta) (b+eta) (TrapezeLe a b eta etaPos leab) (fun eps epsPos => eps * CR_of_Q R (1#2) * eta) (CSUCTrapeze_CSUC a b eta etaPos leab).
imports: QArith Qminmax Qpower Qabs ConstructiveReals ConstructiveAbs ConstructiveMinMax ConstructiveSum ConstructivePower ConstructiveLimits ConstructiveDiagonal ConstructivePartialFunctions ConstructiveUniformCont ConstructiveCauchyIntegral CMTbase CMTPositivity CMTIntegrableFunctions CMTFullSets CMTIntegrableSets