Instance EqDec_pshare : EqDec pshare := pshare_eq_dec.Definition pfullshare : pshare :=
  mk_lifted fullshare top_share_nonunit.

Lemma pshare_pjoin_full_false3: forall (p1: pshare) pp sh3, join p1 (mk_lifted Share.top pp) sh3 -> False.