Definition rfullshare : rshare := mk_rshare _ pure_readable_Rsh.

(* Specifications: *)
Lemma readable_join: forall phi1 phi2 phi3 loc, join phi1 phi2 phi3 -> readable loc phi1 -> readable loc phi3.
Lemma readable_writable_join: forall phi1 phi2 l, readable l phi1 -> writable l phi2 -> joins phi1 phi2 -> False.
Lemma writable0_join_sub: forall sh sh', join_sub sh sh' -> writable0_share sh -> writable0_share sh'.
Lemma writable_join: forall loc phi1 phi2, join_sub phi1 phi2 -> writable loc phi1 -> writable loc phi2.
Lemma writable_readable: forall loc m, writable loc m -> readable loc m.