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 p & PP_and(p,q).x = TRUE implies p.x = TRUE by Th3,Th19;
