Remark store_init_data_list_padding:
  forall frm to b ofs m,
  Genv.store_init_data_list ge m b ofs (tr_padding frm to) = Some m.

Theorem transl_init_sound: forall p m b ty i m' data, exec_init (globalenv p) m b 0 ty i m' -> transl_init (prog_comp_env p) ty i = OK data -> Genv.store_init_data_list (globalenv p) m b 0 data = Some m'.