"subst s (App f ts) = App f (map (subst s) ts)"
