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;
