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 store_init_data_list_access:
forall  {F V} (ge: Genv.t F V) m b z dl m',
Genv.store_init_data_list ge m b z dl = Some m' ->
access_at m = access_at m'.