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_Eload_correct: forall (le : letenv) (chunk : memory_chunk) (addr : Op.addressing) (args : exprlist) (vargs : list val) (vaddr v : val), eval_exprlist ge sp e m le args vargs -> transl_exprlist_prop le args vargs -> Op.eval_addressing ge sp addr vargs = Some vaddr -> Mem.loadv chunk m vaddr = Some v -> transl_expr_prop le (Eload chunk addr args) v.