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'.
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'.