fact: Definition FillSubSeqWithZeros {R : ConstructiveReals} (un : nat -> CRcarrier R) (sub : SubSeq) (n : nat) : CRcarrier R := if Nat.eq_dec (SubSeqInv sub n n) (S n) then 0 else un n.
imports: QArith PeanoNat ArithRing ConstructiveReals ConstructiveAbs ConstructiveSum ConstructivePower ConstructiveLimits