fact: Fixpoint iterateN_succ (z:Z) (n:positive) : list Z := match n with | xI p => z :: app (iterateN_succ (Z.succ z) p) (iterateN_succ (Z.succ z + Zpos p) p) | xO p => app (iterateN_succ z p) (iterateN_succ (z + Zpos p) p) | xH => z :: nil end.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity CoRN.model.totalorder.QposMinMax CoRN.metric2.Compact CoRN.metric2.LocatedSubset CoRN.reals.fast.CRArith CoRN.reals.fast.CRabs CoRN.model.metric2.Qmetric Coq.QArith.Qround Coq.QArith.Qabs CoRN.model.totalorder.QMinMax CoRN.logic.Classic