Sum[D[Sum[f[p[b + c]], {b, 0, Infinity}, {c, 0, Infinity}],
p[1 + a]], {a, 0, Infinity}]
results in
Sum[Sum[KroneckerDelta[1, b]*KroneckerDelta[a, c]*Derivative[1][f][p[b + c]], {b, 0, Infinity}, {c, 0, Infinity}], {a, 0, Infinity}]
where one can expect
Sum[Sum[KroneckerDelta[1 + a, b + c]*Derivative[1][f][p[b + c]], {b, 0, Infinity}, {c, 0, Infinity}], {a, 0, Infinity}]
What can one do to obtain correct behaviour?