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

(* Specifications: *)
Lemma closed_wrt_subst_eval_expr:
forall {cs: compspecs} j v e,
closed_wrt_vars (eq j) (eval_expr e) ->
subst_eval_expr j v e = eval_expr e.
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.