Proof (proj1 transl_expr_lvalue_correct).
(* Lemma transl_expr_correct: forall a v, Clight.eval_expr ge e le m a v -> forall ta, transl_expr a = OK ta -> Csharpminor.eval_expr tge te le m ta v. Proof (proj1 transl_expr_lvalue_correct). *)

Lemma transl_lvalue_correct:
forall a b ofs,
eval_lvalue ge e le m a b ofs ->
forall ta, transl_lvalue a = OK ta ->
exists tv, val_inject j (Vptr b ofs) tv /\
eval_expr tge te tle tm ta tv.