Section ALLOC.
Variable m1: mem.
Variables lo hi: Z.
Variable m2: mem.
Variable b: Values.block.
Hypothesis ALLOC: Mem.alloc m1 lo hi = (m2, b).
Transparent Mem.alloc.

Lemma AllocContentsOther: forall b', b' <> b ->
(Mem.mem_contents m2) !! b' = (Mem.mem_contents m1) !! b'.