reserve T for non empty RelStr,
  A,B for Subset of T,
  x,x2,y,z for Element of T;

theorem
  T is filled implies for n being Nat holds Fcl(A,n) c= Fcl(A ,n+1)
proof
  assume
A1: T is filled;
  let n be Nat;
   reconsider n as Element of NAT by ORDINAL1:def 12;
  ((Fcl A).n)^b = Fcl(A,n+1) by Def2;
  hence thesis by A1,FIN_TOPO:13;
end;
