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

Lemma access_at_writable : forall m b o sh (Hsh : writable_share sh),
access_at m (b, o) Cur = perm_of_sh sh ->
Mem.perm m b o Cur Writable.