
theorem Th2:
  for p being Point of Sierpinski_Space st p = 1 holds {p} is non closed
proof
  set S = Sierpinski_Space;
  let p be Point of S;
A1: the carrier of S = {0,1} by WAYBEL18:def 9;
  assume
A2: p = 1;
A3: [#]S \ {p} = {0}
  proof
    thus [#]S \ {p} c= {0}
    proof
      let a be object;
      assume
A4:   a in [#]S \ {p};
      then not a in {p} by XBOOLE_0:def 5;
      then a <> 1 by A2,TARSKI:def 1;
      then a = 0 by A1,A4,TARSKI:def 2;
      hence thesis by TARSKI:def 1;
    end;
    let a be object;
    assume a in {0};
    then
A5: a = 0 by TARSKI:def 1;
    then
A6: not a in {p} by A2,TARSKI:def 1;
    a in [#]S by A1,A5,TARSKI:def 2;
    hence thesis by A6,XBOOLE_0:def 5;
  end;
A7: {0} <> {1} by ZFMISC_1:3;
A8: {0} <> {0,1} by ZFMISC_1:5;
  the topology of S = {{}, {1}, {0,1}} by WAYBEL18:def 9;
  hence not [#]S \ {p} in the topology of S by A7,A8,A3,ENUMSET1:def 1;
end;
