Inductive match_function: function -> function -> Prop :=
| match_function_intro: forall f c,
match_code f.(fn_code) c ->
match_function f (mkfunction f.(fn_sig) f.(fn_stacksize) c).

(* Specifications: *)
Lemma transf_function_match:
forall f tf, transf_function f = OK tf -> match_function f tf.