
theorem
for f be nonnegative Function of [:NAT,NAT:],ExtREAL, n,m be Nat
  st (for i be Nat st i <= n holds f.(i,m) is Real)
 holds (Partial_Sums_in_cod1 f).(n,m) < +infty
proof
   let f be nonnegative Function of [:NAT,NAT:],ExtREAL, n,m be Nat;
   assume
A2: for i be Nat st i<=n holds f.(i,m) is Real;
   defpred P[Nat] means $1<=n implies
     (Partial_Sums_in_cod1 f).($1,m) < +infty;
   (Partial_Sums_in_cod1 f).(0,m) = f.(0,m) by DefRSM; then
   (Partial_Sums_in_cod1 f).(0,m) is Real by A2; then
A4:P[0] by XXREAL_0:9,XREAL_0:def 1;
A5:for k be Nat st P[k] holds P[k+1]
   proof
    let k be Nat;
    assume A6: P[k];
    now assume A7: k+1<=n; then
A8:  f.(k+1,m) is Real & f.(k+1,m) >= 0 by A2,SUPINF_2:51;
     (Partial_Sums_in_cod1 f).(k+1,m)
      = (Partial_Sums_in_cod1 f).(k,m) + f.(k+1,m) by DefRSM;
     hence (Partial_Sums_in_cod1 f).(k+1,m) < +infty
       by A6,A7,A8,NAT_1:13,XXREAL_3:16,XXREAL_0:4;
    end;
    hence P[k+1];
   end;
   for k be Nat holds P[k] from NAT_1:sch 2(A4,A5);
   hence thesis;
end;
