reserve p, q, x, y for Real,
  n for Nat;

theorem Th2:
  for X being Subset of I[01], a being Point of I[01] st X = ]. a, 1 .]
  holds X` = [. 0, a .]
proof
  set I = the carrier of I[01];
  let X be Subset of I[01], a be Point of I[01] such that
A1: X = ]. a, 1 .];
  set Y = [. 0,a .];
A2: X` = I \ X by SUBSET_1:def 4;
  hereby
    let x be object;
    assume
A3: x in X`;
    then reconsider y = x as Point of I[01];
    not x in X by A2,A3,XBOOLE_0:def 5;
    then
A4: y <= a or y > 1 by A1,XXREAL_1:2;
    0 <= y by BORSUK_1:43;
    hence x in Y by A4,BORSUK_1:43,XXREAL_1:1;
  end;
  let x be object;
  assume
A5: x in Y;
  then reconsider y = x as Real;
A6: 0 <= y by A5,XXREAL_1:1;
A7: y <= a by A5,XXREAL_1:1;
  a <= 1 by BORSUK_1:43;
  then y <= 1 by A7,XXREAL_0:2;
  then
A8: y in I by A6,BORSUK_1:43;
  not y in X by A1,A7,XXREAL_1:2;
  hence thesis by A2,A8,XBOOLE_0:def 5;
end;
