Definition writable0_share (sh: share) :=
    join_sub Share.Rsh sh.

Lemma glb_split_lemma2: forall a b, Share.glb Share.Rsh a = Share.glb Share.Rsh b -> Share.glb Share.Rsh (snd (Share.split a)) = Share.glb Share.Rsh (snd (Share.split b)).