Definition FreelistEffect
m (L: list (Values.block * Z * Z)) (b:Values.block) (ofs:Z): bool :=
List.fold_right (fun X E b z => match X with (bb,lo,hi) =>
E b z || FreeEffect m lo hi bb b z
end)
EmptyEffect L b ofs.

Lemma FreeEffect_validblock: forall m lo hi sp b ofs
(EFF: FreeEffect m lo hi sp b ofs = true),
Mem.valid_block m b.