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

theorem :: REAL_2'62_3
  b <> 0 implies a = a * b * (1 / b)
proof
A1: a=a*1;
  assume b<>0;
  then a=a*(b/b) by A1,Lm5;
  then a=a*(b*b") by XCMPLX_0:def 9
    .=a*(b*(1/b)) by Lm4;
  hence thesis;
end;
