Proof (Genv.find_symbol_transf TRANSL).

(* Specifications: *)
Lemma senv_preserved:
Senv.equiv ge tge.
Lemma functions_translated:
forall (v: val) (f: RTL.fundef),
Genv.find_funct ge v = Some f ->
Genv.find_funct tge v = Some (transf_fundef f).
Lemma senv_preserved:
Senv.equiv ge tge.
Lemma senv_preserved:
Senv.equiv ge tge.