theorem Th33:
  w = v implies z * w = z * v
proof
  reconsider z as Element of COMPLEX by XCMPLX_0:def 2;
  z * w = ((the Mult of V) | [:COMPLEX, the carrier of W:]).[z,w] by Def8;
  hence thesis by FUNCT_1:49;
end;
