Definition match_prog (p: Csharpminor.program) (tp: Cminor.program) :=
  match_program (fun cu f tf => transl_fundef f = OK tf) eq p tp.

Lemma match_temps_assign: forall f le te id v tv, match_temps f le te -> Val.inject f v tv -> match_temps f (PTree.set id v le) (PTree.set id tv te).