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 Th41:
  X is bounded_above iff --X is bounded_below
proof
  X = -- --X;
  hence thesis by Lm2,Lm3;
end;
