fact: Fixpoint DiagTruncateRect {R : ConstructiveReals} (u : nat -> nat -> CRcarrier R) (sumCol : nat -> CRcarrier R) (eps : CRcarrier R) (n : nat) : 0 < eps -> (forall n:nat, series_cv (u n) (sumCol n)) -> { p : nat & forall q k:nat, le k n -> le p q -> CRabs _ (CRsum (u k) q - sumCol k) < eps * CRpow (CR_of_Q _ (1#2)) k }.
imports: QArith PeanoNat ArithRing ConstructiveReals ConstructiveAbs ConstructiveSum ConstructivePower ConstructiveLimits