fps = Reduce[ArcCoth[x] == x, x, Reals]
Plot[{ArcCoth[x], x}, {x, -3, 3}, Epilog -> {Red, PointSize[0.025], Point[{x, x}] /. {ToRules[fps]}}]