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

theorem
  for x,y be Element of FT, A be Subset of FT holds P_1(x,y,A) = TRUE
  iff y in U_FT x & y in A by Def1;
