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