Definition match_prog (p: CminorSel.program) (tp: RTL.program) :=
  match_program (fun cu f tf => transl_fundef f = Errors.OK tf) eq p tp.

Lemma sig_transl_function: forall (f: CminorSel.fundef) (tf: RTL.fundef), transl_fundef f = OK tf -> RTL.funsig tf = CminorSel.funsig f.