proposition: Lemma open_exp_wrt_exp_inj : forall e2 e1 x1, x1 `notin` fv_exp e2 -> x1 `notin` fv_exp e1 -> open_exp_wrt_exp e2 (var_f x1) = open_exp_wrt_exp e1 (var_f x1) -> e2 = e1.
proof: Proof. unfold open_exp_wrt_exp; eauto with lngen. Qed.
imports: Coq.Logic.FunctionalExtensionality Coq.Program.Equality Metalib.Metatheory Metalib.LibLNgen Stlc