theorem
  X is bounded_below iff --X is bounded_above
proof
  X = -- --X;
  hence thesis by Th41;
end;
