D[Ln[Sin[x^2]],x]