fact: Definition InfiniteGeometricSum_fat series (e:QposInf) : Q := match e with | QposInfinity => 0 | Qpos2QposInf err => InfiniteSum_fat (err_prop (proj1_sig err)) series 0%Q (Pos.to_nat (InfiniteGeometricSum_maxIter series err)) 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