Hint Resolve expr_closed_field expr_closedl_field : closed.

(* Specifications: *)
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).
Lemma expr_closedl_binop: forall S op e1 e2 t,
expr_closed_wrt_lvars S e1 ->
expr_closed_wrt_lvars S e2 ->
expr_closed_wrt_lvars S (Ebinop op e1 e2 t).