fact: Definition CReal_from_cauchy_seq (xn : nat -> CReal) (xcau : Un_cauchy_mod xn) (n : Z) : Q := let p := CReal_from_cauchy_cm n in let (q, _) := xcau (4 * 2^p)%positive in seq (xn q) (Z.neg p - 2)%Z.
imports: QArith_base Qabs ConstructiveReals ConstructiveCauchyRealsMult Logic.ConstructiveEpsilon ConstructiveCauchyAbs Lia Lqa Qpower QExtra PosExtra ConstructiveExtra