Proof (proj2 transl_expr_lvalue_correct).

(* Specifications: *)
(* Lemma transl_lvalue_correct: forall a b ofs, Clight.eval_lvalue ge e le m a b ofs -> forall ta, transl_lvalue a = OK ta -> Csharpminor.eval_expr tge te le m ta (Vptr b ofs). Proof (proj2 transl_expr_lvalue_correct). *)
Lemma transl_arglist_correct:
forall al tyl vl,
Clight.eval_exprlist ge e le m al tyl vl ->
forall tal, transl_arglist al tyl = OK tal ->
exists tvl, val_list_inject j vl tvl /\
Csharpminor.eval_exprlist tge te tle tm tal tvl.