theorem Th41:
  X is bounded_above iff --X is bounded_below
proof
  X = -- --X;
  hence thesis by Lm2,Lm3;
end;
