 reserve X, Y for set, A for Ordinal;
 reserve z,z1,z2 for Complex;
 reserve r,r1,r2 for Real;
 reserve q,q1,q2 for Rational;
 reserve i,i1,i2 for Integer;
 reserve n,n1,n2 for Nat;

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;
