•Preliminaries

deltaReduce = {SU2Delta[ExplicitSUNIndex[1], SUNIndex[i2_]] SU2Delta[ExplicitSUNIndex[1], SUNIndex[i3_]] -> SU2Delta[SUNIndex[i2], SUNIndex[i3]] - SU2Delta[ExplicitSUNIndex[2], SUNIndex[i2]] SU2Delta[ExplicitSUNIndex[2], SUNIndex[i3]] - SU2Delta[ExplicitSUNIndex[3], SUNIndex[i2]] SU2Delta[ExplicitSUNIndex[3], SUNIndex[i3]]} ;

WFFactor1[Propagator[Incoming | Outgoing][__, (Scalar2 | PseudoScalar0)[__]]] := 0 ;

Converted by Mathematica  (July 10, 2003)