theorem
  x in dom p & PP_imp(p,q).x = FALSE implies p.x = TRUE by Th3,Th33;
