reserve x,y,X for set;

theorem
  for T being non empty TopSpace, A being Subset of T holds A is closed
iff for F being proper Filter of BoolePoset [#]T st A in F for x being Point of
  T st x is_a_cluster_point_of F,T holds x in A
proof
  let T be non empty TopSpace, A be Subset of T;
  A is closed iff Cl A = A by PRE_TOPC:22;
  hence A is closed implies for F being proper Filter of BoolePoset [#]T st A
  in F for x being Point of T st x is_a_cluster_point_of F,T holds x in A by
Th25;
  assume
A1: for F being proper Filter of BoolePoset [#]T st A in F for x being
  Point of T st x is_a_cluster_point_of F,T holds x in A;
  A = Cl A
  proof
    thus A c= Cl A by PRE_TOPC:18;
    let x be object;
    assume
A2: x in Cl A;
    then reconsider y = x as Element of T;
    ex F being proper Filter of BoolePoset [#]T st A in F & y
    is_a_cluster_point_of F, T by A2,Th25;
    hence thesis by A1;
  end;
  hence thesis;
end;
