Transparent  Mem.storebytes.

(* Specifications: *)
Lemma valid_val_storebytes:
forall v m m' b ofs mv
(Hmem: mem_wd.val_valid v m)
(Hstore: Mem.storebytes m b ofs mv = Some m'),
mem_wd.val_valid v m'.
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'.