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

Lemma YES_join_full:
forall sh rsh n P r2 r3,
join (R.YES sh rsh n P) r2 r3 ->
writable0_share sh ->
exists sh2 rsh2, r2 = NO sh2 rsh2.