reserve a,b,c,d for Real;
reserve r,s for Real;

theorem Th25:
  a <= -b implies b <= -a
proof
  assume a <= -b;
  then --b <= -a by Lm14;
  hence thesis;
end;
