theorem Th34:
  x in dom q & q.x = TRUE implies PP_imp(p,q).x = TRUE by Def4;
