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

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