Proof
(Genv.find_funct_transf_partial TRANSL).

(* Specifications: *)
Lemma sig_transl_function:
forall (f: CminorSel.fundef) (tf: RTL.fundef),
transl_fundef f = OK tf ->
RTL.funsig tf = CminorSel.funsig f.
Lemma senv_preserved:
Senv.equiv (Genv.to_senv ge) (Genv.to_senv tge).