reserve v,x for object;
reserve D,V,A for set;
reserve n for Nat;
reserve p,q for PartialPredicate of D;
reserve f,g for BinominativeFunction of D;
reserve D for non empty set;
reserve d for Element of D;
reserve f,g for BinominativeFunction of D;
reserve p,q,r,s for PartialPredicate of D;

theorem Th12:
  <*{},f,p*> in SFHTs(D)
  proof
A1: {} is PartialPredicate of D by RELSET_1:12;
    for d holds d in dom {} & {}.d = TRUE & d in dom f & f.d in dom p
     implies p.(f.d) = TRUE;
    hence thesis by A1;
end;
