Scheme expr_ind2 := Induction for Csyntax.expr Sort Prop
  with exprlist_ind2 := Induction for Csyntax.exprlist Sort Prop.Combined Scheme expr_exprlist_ind from expr_ind2, exprlist_ind2.

Lemma transl_expr_stmt_meets_spec: forall r g s g' I, transl_expr_stmt r g = Res s g' I -> tr_expr_stmt r s.