Program Definition getYES (phi : rmap) := proj1_sig (make_rmap (getYES_aux phi) (ghost_of phi) (level phi) _ _).Program Definition getNO (phi : rmap) := proj1_sig (make_rmap (getNO_aux phi) (core (ghost_of phi)) (level phi) _ _).

Lemma writable0_glb_Rsh: forall sh, writable0_share sh -> Share.glb Share.Rsh sh = Share.Rsh.