Hint Resolve fv_exp_open_exp_wrt_exp_upper : lngen.
(* begin hide *)

(* Specifications: *)
Lemma fv_exp_subst_exp_fresh_mutual :
(forall e1 e2 x1,
x1 `notin` fv_exp e1 ->
fv_exp (subst_exp e2 x1 e1) [=] fv_exp e1).
Lemma fv_exp_subst_exp_fresh_mutual :
(forall e1 e2 x1,
x1 `notin` fv_exp e1 ->
fv_exp (subst_exp e2 x1 e1) [=] fv_exp e1).