Hint Extern 1 (not (@eq ident _ _)) => (let Hx := fresh in intro Hx; inversion Hx) : 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).