theorem
  Sum(<*r*>^F) = r + Sum F
proof
  reconsider s=r as Element of REAL by XREAL_0:def 1;
  thus Sum(<*r*>^F) = Sum <*s*> + Sum F by Th75
    .= r + Sum F by FINSOP_1:11;
end;
