reserve a, b, c, d, e for Complex;

theorem :: REAL_2'30_2
  a * b" = 1 implies a = b
proof
  assume a*b"=1;
  then a/b = 1 by XCMPLX_0:def 9;
  hence thesis by Th58;
end;
