(* Lemma unchanged_on_sym P m m' b: Mem.unchanged_on P m m' -> Mem.valid_block m b -> Mem.unchanged_on (fun bb z => P bb z /\ bb=b) m' m. *)

Lemma loadbytes_alloc_unchanged m1 lo hi m2 b :
Mem.alloc m1 lo hi = (m2, b) ->
forall n (b' : block) (ofs : Z),
Mem.valid_block m1 b' ->
Mem.loadbytes m2 b' ofs n = Mem.loadbytes m1 b' ofs n.