fact: Fixpoint apply_stack h (s : list frame) (e :exp) : exp := match s with | nil => e | n_app2 e' :: s' => apply_stack h s' (app e (apply_heap h (nom_to_exp e'))) end.
imports: String Metalib.Metatheory Stlc.Nominal Stlc.Lemmas