Section STOREBYTES.
Variable m1: mem.
Variable b: block.
Variable ofs: Z.
Variable bytes: list memval.
Variable m2: mem.
Hypothesis STORE: storebytes m1 b ofs bytes = Some m2.
Local Hint Resolve perm_storebytes_1 perm_storebytes_2: mem.
Local Hint Resolve storebytes_valid_access_1 storebytes_valid_access_2: mem.
Local Hint Resolve storebytes_valid_block_1 storebytes_valid_block_2: mem.

Theorem loadbytes_storebytes_disjoint:
forall b' ofs' len,
len >= 0 ->
b' <> b \/ Intv.disjoint (ofs', ofs' + len) (ofs, ofs + Z.of_nat (length bytes)) ->
loadbytes m2 b' ofs' len = loadbytes m1 b' ofs' len.