reserve n for Element of NAT,
  a, b for Real;

theorem
  a <= b implies Closed-Interval-TSpace(a,b) is pathwise_connected
proof
  assume a <= b;
  then reconsider
  X = Closed-Interval-TSpace(a,b) as non empty interval SubSpace of
  R^1 by Th9;
  X is pathwise_connected;
  hence thesis;
end;
