Proof (Genv.find_funct_ptr_match TRANSF).

(* Specifications: *)
Lemma sig_function_translated:
forall rm f tf,
transf_fundef rm f = OK tf ->
funsig tf = funsig f.
Lemma stacksize_translated:
forall rm f tf,
transf_function rm f = OK tf -> tf.(fn_stacksize) = f.(fn_stacksize).
Lemma functions_translated:
forall (v v': val) (f: Cminor.fundef),
Genv.find_funct ge v = Some f ->
Val.lessdef v v' ->
exists cu tf, Genv.find_funct tge v' = Some tf /\ match_fundef cu f tf /\ linkorder cu prog.
Lemma sig_function_translated:
forall cu f tf, match_fundef cu f tf -> funsig tf = Cminor.funsig f.
Lemma stackspace_function_translated:
forall dm hf f tf, sel_function dm hf f = OK tf -> fn_stackspace tf = Cminor.fn_stackspace f.
Lemma helper_functions_preserved:
forall hf, helper_functions_declared prog hf -> helper_functions_declared tprog hf.
Lemma sig_function_translated:
forall cu f f', transf_fundef (funenv_program cu) f = OK f' -> funsig f' = funsig f.
Lemma sig_preserved:
forall rm f tf, transf_fundef rm f = OK tf -> funsig tf = funsig f.