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

Lemma mem_equiv_contents : forall m m' b o (Heq : mem_equiv m m')
(Hreadable : Mem.perm m b o Cur Readable),
contents_at m (b, o) = contents_at m' (b, o).