(** ** 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 store_init_data_neutral:
forall m b p id m',
Mem.inject_neutral thr m ->
Plt b thr ->
store_init_data ge m b p id = Some m' ->
Mem.inject_neutral thr m'.