Hint Resolve closed_wrt_tc_nobinover : closed.

(* Specifications: *)
Lemma closed_wrt_tc_expr:
forall {cs: compspecs} Delta j e, closed_eval_expr j e = true ->
closed_wrt_vars (eq j) (tc_expr Delta e)
with closed_wrt_tc_lvalue:
forall {cs: compspecs} Delta j e, closed_eval_lvalue j e = true ->
closed_wrt_vars (eq j) (tc_lvalue Delta e).