fact: Definition InfiniteGeometricSum_shift (s : Stream Q) (n : nat) (a : Q) (Gs : GeometricSeries a (Str_nth_tl n s)) (apos : 0 <= a) (aone : a < 1) : CR := Build_RegularFunction (InfiniteGeometricSum_raw_shift_prf s n Gs apos aone).
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