theorem Th47:
  for x being Point of T holds
  x in lim_filter(s,<. Frechet_Filter(NAT),Frechet_Filter(NAT).)) iff
  for A being a_neighborhood of x holds ex n being Nat st
    square-uparrow n c= s"(A)
  proof
    let x be Point of T;
    set F = filter_image(s,<. Frechet_Filter(NAT),Frechet_Filter(NAT).));
A1: F is_filter-finer_than NeighborhoodSystem x iff
    for A be a_neighborhood of x holds ex n be Nat st square-uparrow n c= s"(A)
    proof
      hereby
        assume F is_filter-finer_than NeighborhoodSystem x;
        then NeighborhoodSystem x c= {M where
          M is Subset of the carrier of T:
          ex n being Nat st square-uparrow n c= s"(M)} by Th44; then
A2:       the set of all A where A is a_neighborhood of x c=
          {M where M is Subset of the carrier of T:
           ex n being Nat st square-uparrow n c= s"(M)} by YELLOW19:def 1;
        thus for A be a_neighborhood of x holds ex n be Nat st
          square-uparrow n c= s"(A)
        proof
          let A be a_neighborhood of x;
          A in the set of all A where A is a_neighborhood of x;
          then A in {M where M is Subset of the carrier of T:
            ex n being Nat st square-uparrow n c= s"(M)} by A2;
          then ex M be Subset of the carrier of T st A = M & ex n be Nat st
            square-uparrow n c= s"(M);
          hence thesis;
        end;
      end;
      assume
A3:   for A be a_neighborhood of x holds ex n be Nat st
        square-uparrow n c= s"(A);
      NeighborhoodSystem x c= F
      proof
        let y be object;
        assume y in NeighborhoodSystem x;
        then y in the set of all A where A is a_neighborhood of x
          by YELLOW19:def 1;
        then consider A be a_neighborhood of x such that
A4:     y = A;
        ex n be Nat st square-uparrow n c= s"(A) by A3;
        then A in {M where M is Subset of the carrier of T: ex n be Nat st
          square-uparrow n c= s"(M)};
        hence thesis by A4,Th44;
      end;
      hence F is_filter-finer_than NeighborhoodSystem x;
    end;
    F is_filter-finer_than NeighborhoodSystem x iff x in lim_filter F
    proof
      thus F is_filter-finer_than NeighborhoodSystem x implies
        x in lim_filter F;
      assume x in lim_filter F;
      then ex y be Point of T st x = y &
        F is_filter-finer_than NeighborhoodSystem y;
      hence F is_filter-finer_than NeighborhoodSystem x;
    end;
    hence thesis by A1;
  end;
