Name: Vladyslav Shtabovenko Date: 06/29/15-12:33:39 PM Z


> Contract[fAmp // ChangeDimension[#, D] \&] // DiracSimplify //
> SPC[#, q1, q2] &`//ReplaceAll[#,q1->-q2]// ToTFI[#, q1, q2, p] &
>

should of course be

Contract[fAmp // ChangeDimension[#, D] \&] // DiracSimplify //> SPC[#,
q1, q2] &`//ReplaceAll[#,q1->-q1]&// ToTFI[#, q1, q2, p] &

Cheers,
Vladyslav