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

theorem
  a <= b implies for x being Point of Closed-Interval-TSpace(a,b), C
  being Loop of x holds the carrier of pi_1(Closed-Interval-TSpace(a,b),x) = {
  Class(EqRel(Closed-Interval-TSpace(a,b),x),C) }
proof
  assume
A1: a <= b;
  let x be Point of Closed-Interval-TSpace(a,b), C be Loop of x;
  Closed-Interval-TSpace(a,b) is interval by A1,Th9;
  hence thesis by Th13;
end;
