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

theorem :: REAL_2'34
  a / b = - 1 implies a = - b & b = - a
proof
  assume
A1: a/b=-1;
  then b <> 0 by Th49;
  then a=(-1)*b by A1,Lm3;
  hence thesis;
end;
