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_condexpr_CElet_correct: forall le a b v1 v2, eval_expr ge sp e m le a v1 -> transl_expr_prop le a v1 -> eval_condexpr ge sp e m (v1 :: le) b v2 -> transl_condexpr_prop (v1 :: le) b v2 -> transl_condexpr_prop le (CElet a b) v2.