reserve FT for non empty RelStr;
reserve A for Subset of FT;

theorem
  for x be Element of FT, A be Subset of FT holds P_A(x,A)=TRUE iff x in
  A by Def4;
