proposition: Lemma apply_stack_cong : forall s h e e', step e e' -> step (apply_stack h s e) (apply_stack h s e').
proof: Proof. induction s; intros; try destruct a; default_simp. Qed.
imports: String Metalib.Metatheory Stlc.Nominal Stlc.Lemmas