In[]:=
Convolve[f[z],DiracDelta[r-rc],r,z]==Sqrt[rc^2-z^2]*DiracDelta[r-Sqrt[rc^2-z^2]]
Out[]=
f[z]
2
rc
-
2
z
DiracDeltar-
2
rc
-
2
z

​