DifferenceDelta[-PolyGamma[1,x],x]