Definition match_prog (prog tprog: RTL.program) :=
  match_program (fun cu f tf => transf_fundef (romem_for cu) f = OK tf) eq prog tprog.

(* Specifications: *)
Lemma transf_program_match: forall prog tprog, transf_program prog = OK tprog -> match_prog prog tprog.
Lemma transf_program_match: forall prog tprog, transf_program prog = OK tprog -> match_prog prog tprog.