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