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.
Opaque Mem.alloc.

Lemma perm_freelist:
forall fbl m m' b ofs k p,
Mem.free_list m fbl = Some m' ->
Mem.perm m' b ofs k p ->
Mem.perm m b ofs k p.