Definition all_initializers_aligned (prog: program) :=
forallb (fun idv => andb (initializers_aligned 0 (gvar_init (snd idv)))
(Zlt_bool (init_data_list_size (gvar_init (snd idv))) Ptrofs.modulus))
(prog_vars prog) = true.

Lemma alloc_global_inflate_same:
forall n i v gev m G m0,
Genv.alloc_global gev m0 (i, Gvar v) = Some m ->
(forall z : Z, initial_core gev G n @ (nextblock m0, z) = NO Share.bot bot_unreadable) ->
inflate_initial_mem m0 (initial_core gev G n) =
upto_block (nextblock m0) (inflate_initial_mem m (initial_core gev G n)).