D[Log[Sqrt[x^2+y^2]],{y, 1}] == -D[ArcTan[y/x],{x, 1}]