fact: Definition InfiniteGeometricSum_raw series (e:QposInf) : Q := match e with | QposInfinity => 0 | Qpos2QposInf err => InfiniteSum_raw_N (Pos.to_nat (Pos.size (InfiniteGeometricSum_maxIter series err))) (err_prop (proj1_sig err)) (fun _ r => r) series 0%Q end.
imports: CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.reals.fast.CRAlternatingSum CoRN.reals.fast.CRstreams CoRN.model.totalorder.QposMinMax CoRN.model.totalorder.QMinMax Coq.QArith.Qpower Coq.QArith.Qabs Coq.ZArith.Zdiv