Section LABELS.
Remark find_label_save_callee_save:
forall lbl l ofs k,
Mach.find_label lbl (save_callee_save_rec l ofs k) = Mach.find_label lbl k.
Remark find_label_restore_callee_save:
forall lbl l ofs k,
Mach.find_label lbl (restore_callee_save_rec l ofs k) = Mach.find_label lbl k.
End LABELS.
(** Code tail property for Linear executions. *)
(** Code tail property for translations *)
(** * Semantic preservation *)
(** Preservation / translation of global symbols and functions. *)
Proof (Genv.find_symbol_match TRANSF).
Proof (Genv.senv_match TRANSF).
Proof (Genv.find_funct_transf_partial TRANSF).
Proof (Genv.find_funct_ptr_transf_partial TRANSF).

Lemma find_function_translated:
forall j ls rs m ros f,
agree_regs j ls rs ->
m |= globalenv_inject ge j ->
Linear.find_function ge ros ls = Some f ->
exists bf, exists tf,
find_function_ptr tge ros rs = Some bf
/\ Genv.find_funct_ptr tge bf = Some tf
/\ transf_fundef f = OK tf.