(*  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 address_mapsto_VALspec_range:
forall ch v sh l,
address_mapsto ch v sh l |-- VALspec_range (size_chunk ch) sh l.