Definition branch_target (f: function) (pc: node) : node :=
  U.repr (record_gotos f) pc.Definition count_gotos (f: function) (pc: node) : nat :=
  snd (record_gotos' f) pc.

(* Specifications: *)
Lemma functions_translated: forall v f, Genv.find_funct ge v = Some f -> Genv.find_funct tge v = Some (tunnel_fundef f).
Lemma function_ptr_translated: forall v f, Genv.find_funct_ptr ge v = Some f -> Genv.find_funct_ptr tge v = Some (tunnel_fundef f).
Lemma symbols_preserved: forall id, Genv.find_symbol tge id = Genv.find_symbol ge id.
Lemma senv_preserved: Senv.equiv ge tge.
Lemma sig_preserved: forall f, funsig (tunnel_fundef f) = funsig f.