Module RML := Rmaps_Lemmas(R).
Export RML.
Export R.
Definition mk_rshare: forall p: Share.t, pure_readable_share p -> rshare := exist pure_readable_share.
Definition rshare_sh (p: rshare) : Share.t := proj1_sig p.
(* Definition mk_pshare : forall p: Share.t, nonunit p -> pshare := exist nonunit. *)

Lemma mk_rshare_sh: forall (p:rshare) (H: pure_readable_share (rshare_sh p)),
mk_rshare (rshare_sh p) H = p.