Module R := R0.
Hint Resolve (@subp_sepcon _ Join_rmap Perm_rmap Sep_rmap): contractive.

Lemma YES_overlap:
forall sh0 rsh0 sh1 rsh1 (phi0 phi1: rmap) loc k k' p p',
joins phi0 phi1 ->
phi1@loc = R.YES sh1 rsh1 k p ->
writable0_share sh1 ->
phi0@loc = R.YES sh0 rsh0 k' p' ->
False.