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_expr_Eop_correct: forall (le : letenv) (op : operation) (args : exprlist) (vargs : list val) (v : val), eval_exprlist ge sp e m le args vargs -> transl_exprlist_prop le args vargs -> eval_operation ge sp op vargs m = Some v -> transl_expr_prop le (Eop op args) v.