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 transl_exprlist_Econs_correct: forall (le : letenv) (a1 : expr) (al : exprlist) (v1 : val) (vl : list val), eval_expr ge sp e m le a1 v1 -> transl_expr_prop le a1 v1 -> eval_exprlist ge sp e m le al vl -> transl_exprlist_prop le al vl -> transl_exprlist_prop le (Econs a1 al) (v1 :: vl).