q3 = -q2 - q1; t =
Pair[LorentzIndex[k],
Momentum[q3]] - (-Pair[LorentzIndex[k], Momentum[q2]] -
Pair[LorentzIndex[k], Momentum[q1]]);
By
Calc[t]
or
ExpandScalarProduct[t]
you will get 0, as desired.
Rolf
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST