theorem
  [q1,q1*q] in multRel(RAT,q)
proof
  q1 in RAT & q1*q in RAT by RAT_1:def 2;
  hence thesis by Th42;
end;
