Definition pure_readable_share (sh: Share.t) :=
  Share.glb Share.Lsh sh = Share.bot /\ readable_share sh.Definition rshare := sig pure_readable_share.Definition readable_part: forall (sh: Share.t) (rsh: readable_share sh), rshare.

Lemma comp_parts: forall L R : Share.t, Share.comp L = R -> forall sh: Share.t, sh = Share.lub (Share.glb L sh) (Share.glb R sh).