Transparent  Mem.storebytes.

Lemma storebytes_wd_domain:
forall (m m' : mem) mv b ofs f
(Hdomain: domain_memren f m)
(Hmval_wd: valid_memval_list f mv)
(Hstore: Mem.storebytes m b ofs mv = Some m')
(Hmem_wd: valid_mem m),
valid_mem m' /\ domain_memren f m'.