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