(* 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_free m1 bf lo hi m2:
Mem.free m1 bf lo hi = Some m2 ->
forall n (b : block) (ofs : Z),
b <> bf \/ lo >= hi \/ ofs + n <= lo \/ hi <= ofs ->
Mem.loadbytes m2 b ofs n = Mem.loadbytes m1 b ofs n.