(*Hint Rewrite @closed_wrt_map_subst' using safe_auto_with_closed : norm.*)
Hint Rewrite @closed_wrt_map_subst' using safe_auto_with_closed : subst.

Lemma closed_wrt_subst_eval_lvalue:
forall {cs: compspecs} j v e,
closed_wrt_vars (eq j) (eval_lvalue e) ->
subst_eval_lvalue j v e = eval_lvalue e.