Definition store_byte_list m b ofs lv :=
Mem.storebytes m b ofs (concat (map (encode_val Mint8unsigned) lv)).

Lemma data_at__VALspec_range: forall {cs : compspecs} sh z b o (Hsh: readable_share sh),
@data_at_ cs sh (tarray tuchar z) (Vptr b o) |--
res_predicates.VALspec_range z sh (b, Ptrofs.unsigned o).