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

theorem :: REAL_2'46_2
  a <> 0 & a = 1 / a implies a = 1 or a = -1
proof
  assume a<>0;
  then a=a" implies a=1 or a=-1 by Lm18;
  hence thesis by Lm4;
end;
