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

theorem :: REAL_2'45_3
  a <> 0 implies a / (- a) = -1
proof
  assume
A1: a<>0;
  thus a/(-a)=-a/a by Th188
    .=-1 by A1,Lm5;
end;
