Section INITIAL.
Variable prog: program.
Let ge := Genv.globalenv prog.

Lemma initial_block_classification:
forall m,
Genv.init_mem prog = Some m ->
exists bc,
genv_match bc ge
/\ bc_below bc (Mem.nextblock m)
/\ bc_nostack bc
/\ (forall b id, bc b = BCglob id -> Genv.find_symbol ge id = Some b)
/\ (forall b, Mem.valid_block m b -> bc b <> BCinvalid).