(** ** Compatibility with memory injections *)
Section INITMEM_INJ.
Variable ge: t.
Variable thr: block.
Hypothesis symb_inject: forall id b, find_symbol ge id = Some b -> Plt b thr.

Lemma alloc_global_neutral:
forall idg m m',
alloc_global ge m idg = Some m' ->
Mem.inject_neutral thr m ->
Plt (Mem.nextblock m) thr ->
Mem.inject_neutral thr m'.