Instance EqDec_calling_convention: EqDec calling_convention.Instance EqDec_kind: EqDec kind.Module R := Rmaps (CompCert_AV).Module RML := Rmaps_Lemmas(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.

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