reserve r, s, t for Real;
reserve seq for Real_Sequence,
  X, Y for Subset of REAL;
reserve r3, r1, q3, p3 for Real;

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