End SOUNDNESS.

(* Specifications: *)
Theorem transf_program_correct:
forall p tp, match_prog p tp -> forward_simulation (semantics p) (semantics tp).
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'.