Instance Cross_rmap_aux: Cross_alg (AV.address -> option (rshare * AV.kind)).Instance Trip_resource: Trip_alg resource.

(* Specifications: *)
Lemma pure_readable_share_i: forall sh, readable_share sh -> (pure_readable_share (Share.glb Share.Rsh sh)).
Lemma pure_readable_Rsh: pure_readable_share Share.Rsh.