(** Preservation of stores *)

Theorem storebytes_empty_inject:
forall f m1 b1 ofs1 m1' m2 b2 ofs2 m2',
inject f m1 m2 ->
storebytes m1 b1 ofs1 nil = Some m1' ->
storebytes m2 b2 ofs2 nil = Some m2' ->
inject f m1' m2'.