Hint Resolve expr_closed_field expr_closedl_field : closed.

Lemma expr_closed_binop: forall {cs: compspecs} S op e1 e2 t,
expr_closed_wrt_vars S e1 ->
expr_closed_wrt_vars S e2 ->
expr_closed_wrt_vars S (Ebinop op e1 e2 t).