Proof (Genv.senv_transf TRANSL).

(* Specifications: *)
Lemma sig_preserved:
forall f, funsig (transf_fundef f) = funsig f.
Lemma find_function_translated:
forall ros rs fd,
find_function ge ros rs = Some fd ->
find_function tge ros rs = Some (transf_fundef fd).
Lemma sig_preserved:
forall f, funsig (transf_fundef f) = funsig f.
Lemma stacksize_preserved:
forall f, fn_stacksize (transf_function f) = fn_stacksize f.
Lemma find_function_translated:
forall ros rs rs' f,
find_function ge ros rs = Some f ->
regs_lessdef rs rs' ->
find_function tge ros rs' = Some (transf_fundef f).
Lemma sig_preserved:
forall f, funsig (tunnel_fundef f) = funsig f.
Lemma functions_translated:
forall v f,
Genv.find_funct ge v = Some f ->
Genv.find_funct tge v = Some (transf_fundef f).