(** Load-free properties *)

(* Specifications: *)
Axiom load_free:
forall m1 bf lo hi m2, free m1 bf lo hi = Some m2 ->
forall chunk b ofs,
b <> bf \/ lo >= hi \/ ofs + size_chunk chunk <= lo \/ hi <= ofs ->
load chunk m2 b ofs = load chunk m1 b ofs.
Axiom load_free:
forall m1 bf lo hi m2, free m1 bf lo hi = Some m2 ->
forall chunk b ofs,
b <> bf \/ lo >= hi \/ ofs + size_chunk chunk <= lo \/ hi <= ofs ->
load chunk m2 b ofs = load chunk m1 b ofs.