Quit[]

$LoadAddOns={"FeynHelpers"};
<<FeynCalc`

Do(0,p^2,0,p^2,p^2,p^2,0,0,0,0)

int1=FAD[q,q,q-p,q-p]

a1=ToPaVe[int1,q]

tmp1=FIREBurn[int1,{q},{p}]

b1=tmp1//ToPaVe[#,q]&

Solve[a1==b1,{D0[0,Pair[Momentum[p,D],Momentum[p,D]],0,Pair[Momentum[p,D],Momentum[p,D]],Pair[Momentum[p,D],Momentum[p,D]],Pair[Momentum[p,D],Momentum[p,D]],0,0,0,0]}]

Do(0,0,p^2,p^2,0,p^2,0,0,0,0)

int2=FAD[q,q,q,q-p]

a2=ToPaVe[int2,q]

tmp2=FIREBurn[int2,{q},{p}]

b2=tmp2//ToPaVe[#,q]&

Solve[a2==b2,{D0[0,0,Pair[Momentum[p,D],Momentum[p,D]],Pair[Momentum[p,D],Momentum[p,D]],0,Pair[Momentum[p,D],Momentum[p,D]],0,0,0,0]}]