theorem
  [r1,r1+r] in addRel(REAL,r)
proof
  r1 in REAL & r1+r in REAL by XREAL_0:def 1;
  hence thesis by Th11;
end;
