fact: Definition is_lub {R : ConstructiveReals} (E:CRcarrier R -> Prop) (m:CRcarrier R) := is_upper_bound E m /\ (forall b:CRcarrier R, is_upper_bound E b -> m <= b).
imports: QArith_base Qabs ConstructiveReals ConstructiveAbs ConstructiveLimits Logic.ConstructiveEpsilon