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

theorem :: REAL_2'35_2
  a * b = 1 implies a = b"
proof
  assume
A1: a*b=1;
  then b<>0;
  hence thesis by A1,XCMPLX_0:def 7;
end;
