•πPS

ll = ArgumentsSupply[Lagrangian[ChPT2[2]], x, RenormalizationState[0], ExpansionOrder -> 1, DropOrder -> 1] ;

lll = DiscardTerms[ll, Retain -> {Particle[PseudoScalar[0] , RenormalizationState[0]] -> 1, Particle[Pion , RenormalizationState[0]] -> 1, Particle[Scalar[2] , RenormalizationState[0]] -> 1}, CommutatorReduce -> True] ;

llle = ExpandU[lll]

0

$IsoIndicesCounter = 0 ;

llll = IsoIndicesSupply[llle] // SUNReduce[#, FullReduce -> True] & // CommutatorReduce[#, FullReduce -> True] & // IndicesCleanup // Simplify

0

fields = {QuantumField[Particle[PseudoScalar[0], RenormalizationState[0]], SUNIndex[I1]][p1], QuantumField[Particle[Pion, RenormalizationState[0]], SUNIndex[I2]][p2], QuantumField[Particle[Scalar[2], RenormalizationState[0]], SUNIndex[I3]][p3]}

{p^( )^I _ 1, π^( )^I _ 2, s^( )^I _ 3}

melsimplified = 0

0

Converted by Mathematica  (July 10, 2003)