theorem
  [z1,z1*z] in multRel(COMPLEX,z)
proof
  z1 in COMPLEX & z1*z in COMPLEX by XCMPLX_0:def 2;
  hence thesis by Th42;
end;
