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).
End INITMEM_INJ.

Theorem initmem_inject:
forall p m,
init_mem p = Some m ->
Mem.inject (Mem.flat_inj (Mem.nextblock m)) m m.