Section INITMEM_INJ.
Variable ge: t.
Variable thr: block.
Hypothesis symb_inject: forall id b, find_symbol ge id = Some b -> Plt b thr.
Remark advance_next_le: forall gl x, Ple x (advance_next gl x).

Lemma alloc_globals_neutral:
forall gl m m',
alloc_globals ge m gl = Some m' ->
Mem.inject_neutral thr m ->
Ple (Mem.nextblock m') thr ->
Mem.inject_neutral thr m'.