-D[x/Sqrt[x^2 + 1], x]/Sqrt[1 - (x/Sqrt[x^2 + 1])^2], D[ArcCos[x/Sqrt[x^2 + 1]]]