Transparent Mem.alloc.

Theorem alloc_access_other:
forall m1 lo hi m2 b, Mem.alloc m1 lo hi = (m2, b) ->
forall b' ofs k,
b'<>b \/ (ofs < lo \/ ofs >= hi) ->
access_at m1 (b', ofs) k = access_at m2 (b', ofs) k.