Fixpoint bytes_of_init_data_list (il: list init_data): list memval :=
  match il with
  | nil => nil
  | i :: il => bytes_of_init_data i ++ bytes_of_init_data_list il
  end.

Lemma store_init_data_list_loadbytes: forall b il m p m', store_init_data_list m b p il = Some m' -> readbytes_as_zero m b p (init_data_list_size il) -> Mem.loadbytes m' b p (init_data_list_size il) = Some (bytes_of_init_data_list il).