Hint Resolve subst_exp_open_exp_wrt_exp_rec : lngen.
(* end hide *)

(* Specifications: *)
Lemma subst_exp_open_exp_wrt_exp :
forall e3 e1 e2 x1,
lc_exp e1 ->
subst_exp e1 x1 (open_exp_wrt_exp e3 e2) = open_exp_wrt_exp (subst_exp e1 x1 e3) (subst_exp e1 x1 e2).
Lemma subst_exp_open_exp_wrt_exp :
forall e3 e1 e2 x1,
lc_exp e1 ->
subst_exp e1 x1 (open_exp_wrt_exp e3 e2) = open_exp_wrt_exp (subst_exp e1 x1 e3) (subst_exp e1 x1 e2).