Hint Extern 1 (not (@eq ident _ _)) => (let Hx := fresh in intro Hx; inversion Hx) : closed.

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).