(* not useful? *)

Lemma data_at_share_join_W {cs: compspecs}:
forall sh1 sh2 sh t v1 v2 p,
sepalg.join sh1 sh2 sh ->
writable_share sh1 ->
data_at sh1 t v1 p * data_at sh2 t v2 p |-- data_at sh t v1 p.