681
681
(*e.g. <2|p1p3|2> not <2|p1p4|2>*)
682
682
(*Very specific to 4-point amplitudes (p1+p2+p3+p4=0).*)
683
683
SpinorChainReduced[Spinor[sh4_,sq_,p4_],Mom[p5_],Mom[p6_],Spinor[sh4_,sq_,p4_]]/;(p6-p5>1&&(p6-p4>1||p6-p4<0)):>SpinorChainReduced[Spinor[sh4,sq,p4],Mom[p5],Mom[p6]-Sum[Mom[momenta[[ii]]],{ii,1,Length[momenta]}],Spinor[sh4,sq,p4]],
686
SpinorChainReduced[Spinor[sh1_,sa_,p1_],Spinor[sh2_,sa_,p2_]]SpinorChainReduced[Spinor[sh3_,sq_,p3_],Mom[p5_],Spinor[sh4_,an_,p4_]]^2:>SpinorChainReduced[Spinor[sh1,sa,p1],Spinor[sh2,sa,p2]]SpinorChainReduced[Spinor[sh3,sq,p3],Mom[p5],Spinor[sh4,an,p4]]SpinorChainReduced[Spinor[sh3,sq,p3],Mom[p5]-Sum[Mom[momenta[[ii]]],{ii,1,Length[momenta]}],Spinor[sh4,an,p4]],
686
689
SpinorChainReduced[Spinor["Helicity","Square",pN_],a___,Spinor["Helicity","Angle",pN_]]:>SpinorTraceReduced[Mom[pN],a],