D[Piecewise[{{Sin[x]^2/x,x!=0},{x,x==0}}],x] where x=0