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 REACH_closed_freelist: forall X l m m'
(FL : Mem.free_list m l = Some m')
(RC : REACH_closed m X),
REACH_closed m' X.