
theorem Th7:
  for T being non empty RelStr, p being Element of T, k being
  Nat st T is filled holds U_FT(p,k) c= U_FT(p,k+1)
proof
  let T be non empty RelStr, p be Element of T, k be Nat;
A1: U_FT(p,k+1) = (U_FT(p,k))^f by FINTOPO3:48;
  assume T is filled;
  hence thesis by A1,FINTOPO3:1;
end;
