reserve x,y,z,w for ExtReal,
  r for Real;
reserve f,g for ExtReal;

theorem Th38:
  x <= y iff - y <= - x
proof
  thus x <= y implies - y <= - x by Lm15;
  - y <= - x implies --x <= --y by Lm15;
  hence thesis;
end;
