Remark advance_next_le: forall gl x, Ple x (advance_next gl x).

(* Specifications: *)
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'.
Theorem initmem_inject: forall p m, init_mem p = Some m -> Mem.inject (Mem.flat_inj (Mem.nextblock m)) m m.
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'.
Theorem initmem_inject: forall p m, init_mem p = Some m -> Mem.inject (Mem.flat_inj (Mem.nextblock m)) m m.