(*  NOT TRUE, because readable doesn't constraint NoneP ... Lemma readable_VAL: forall w l, readable l (w_m w) <-> exists sh, (VALspec sh l * TT) w.  *)

Lemma VALspec_range_bytes_writable:
forall n sh loc m, writable_share sh -> VALspec_range n sh loc m -> bytes_writable loc n m.