fact: Fixpoint iterate_stop (p : positive) (x : X) : X := match p with | xI q => let g := f x in if stop g then g else let h := iterate_stop q g in if stop h then h else iterate_stop q h | xO q => let g := iterate_stop q x in if stop g then g else iterate_stop q g | xH => f x end.
imports: CoRN.algebra.RSetoid CoRN.model.totalorder.QposMinMax CoRN.model.metric2.Qmetric CoRN.metric2.Limit Coq.QArith.Qabs Coq.Arith.Arith Coq.QArith.Qpower CoRN.reals.fast.LazyNat Coq.setoid_ring.Ring MathClasses.interfaces.abstract_algebra MathClasses.theory.streams MathClasses.theory.series MathClasses.interfaces.abstract_algebra MathClasses.theory.streams