Proof with auto.
intros z e1 e2 He1 He2.
induction He1; simpl; auto;
try solve [
econstructor;
try instantiate (1 := L `union` singleton z);
intros;
try rewrite subst_ee_open_ee_var;
try rewrite subst_ee_open_te_var;
instantiate;
auto
].
Case "expr_var".
destruct (x == z)...
Qed.
(* *********************************************************************** *)
(** * #<a name="body"></a># Properties of [body_e] *)
(** The two kinds of facts we need about [body_e] are the following: - How to use it to derive that terms are locally closed. - How to derive it from the facts that terms are locally closed.  Since we use it only in the context of [exp_let] and [exp_sum] (see the definition of reduction), those two constructors are the only ones we consider below. *)

Lemma expr_case_from_body : forall e1 e2 e3,
expr e1 ->
body_e e2 ->
body_e e3 ->
expr (exp_case e1 e2 e3).