Definition no_preds (r: resource) :=
   match r with NO => True | YES _ _ pp => pp=NoneP | PURE _ pp => pp=NoneP end.

Lemma join_YES_pfullshare2: forall pp k p x y, join x (YES (mk_lifted Share.top pp) k p) y -> (NO, YES pfullshare k p) = (x,y).