theorem Th2:
  for ra,rb st ra<=rb holds [#](Closed-Interval-TSpace(ra,rb)) is connected
proof
  let ra,rb;
  assume ra<=rb;
  then Closed-Interval-TSpace(ra,rb) is connected by TREAL_1:20;
  hence thesis by CONNSP_1:27;
end;
