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

theorem Th106: :: REAL_1'34
  a <> 0 implies a * (1 / a) = 1
proof
  assume
A1: a<>0;
  thus a*(1/a)=a*a" by Lm4
    .=1 by A1,XCMPLX_0:def 7;
end;
