reserve x for object;
reserve D for set;
reserve p for PartialPredicate of D;
reserve D for non empty set;
reserve p,q,r for PartialPredicate of D;

theorem
  x in dom q & PP_and(p,q).x = TRUE implies q.x = TRUE by Th3,Th19;
