reserve i for Integer,
  a, b, r, s for Real;

theorem
  a <= b & a <= r implies ].r,b.] is open Subset of Closed-Interval-TSpace(a,b)
proof
  set T = Closed-Interval-TSpace(a,b);
  assume that
A1: a <= b and
A2: a <= r;
A3: the carrier of T = [.a,b.] by A1,TOPMETR:18;
  then reconsider A = ].r,b.] as Subset of T by A2,XXREAL_1:36;
  reconsider C = ].r,b+1.[ as Subset of R^1 by TOPMETR:17;
A4: C /\ [#]T c= A
  proof
    let x be object;
    assume
A5: x in C /\ [#]T;
    then
A6: x in C by XBOOLE_0:def 4;
    then reconsider x as Real;
A7: r < x by A6,XXREAL_1:4;
    x <= b by A3,A5,XXREAL_1:1;
    hence thesis by A7;
  end;
  b+0 < b+1 by XREAL_1:6;
  then A c= C by XXREAL_1:49;
  then A c= C /\ [#]T by XBOOLE_1:19;
  then C is open & C /\ [#]T = A by A4,JORDAN6:35;
  hence thesis by TOPS_2:24;
end;
