fact: Fixpoint nom_envsubst (ne:nom_env) : exp -> exp := match ne with | nom_nil => fun e => e | nom_cons x e' r' rho => fun e => nom_envsubst rho ([ x ~> nom_envsubst r' (nom_to_exp e')] e) end.
imports: Metalib.Metatheory Stlc.Definitions Stlc.Lemmas