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 closed iff --X is closed
proof
  ----X = X;
  hence thesis by Lm4;
end;
