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

Lemma memory_block_writable_perm : forall sh n b ofs r jm, writable_share sh ->
(0 <= ofs)%Z -> (Z.of_nat n + ofs < Ptrofs.modulus)%Z ->
app_pred (mapsto_memory_block.memory_block' sh n b ofs) r -> sepalg.join_sub r (m_phi jm) ->
Mem.range_perm (m_dry jm) b ofs (ofs + Z.of_nat n) Memtype.Cur Memtype.Writable.