Simplify[D[-(x^2 - 1) (x - Sqrt[1 - x^2] ArcSin[x])/ Sqrt[-(x^2 - 1)^3], x]]