(* *)

Lemma transl_exprlist_Econs_correct:
forall (le : letenv) (a1 : expr) (al : exprlist) (v1 : val)
(vl : list val),
eval_expr ge sp e m le a1 v1 ->
transl_expr_prop le a1 v1 ->
eval_exprlist ge sp e m le al vl ->
transl_exprlist_prop le al vl ->
transl_exprlist_prop le (Econs a1 al) (v1 :: vl).