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_Eexternal_correct: forall le id sg al b ef vl v, Genv.find_symbol ge id = Some b -> Genv.find_funct_ptr ge b = Some (External ef) -> ef_sig ef = sg -> eval_exprlist ge sp e m le al vl -> transl_exprlist_prop le al vl -> external_call ef ge vl m E0 v m -> transl_expr_prop le (Eexternal id sg al) v.