theorem
  [r1,r1*r] in multRel(REAL,r)
proof
  r1 in REAL & r1*r in REAL by XREAL_0:def 1;
  hence thesis by Th42;
end;
