theorem
  Sum <*r*> = r
proof
  reconsider r as Element of REAL by XREAL_0:def 1;
  Sum <*r*> = r by FINSOP_1:11;
  hence thesis;
end;
