theorem Th13:
  for P being Subset of TOP-REAL 2,s1 st P={ |[r,s]| : s1 <= s }
  holds P is closed
proof
  let P be Subset of TOP-REAL 2, s1;
  reconsider P1= { |[r,s]| : s1 > s } as Subset of TOP-REAL 2 by Lm6;
  assume P= { |[r,s]| : s1 <= s };
  then
A1: P=P1` by Th9;
  P1 is open by JORDAN1:23;
  hence thesis by A1,TOPS_1:4;
end;
