•PP

IsoVector[QuantumField[___, Particle[AxialVector[0], ___], ___], ___][_] := 0 ;  QuantumField[___, Particle[AxialVector[0], ___], ___][_] := 0 ;

The evaluated leading order Lagrangian:

ll = ArgumentsSupply[Lagrangian[ChPTW3[2]], x, RenormalizationState[0], ExpansionOrder -> 0, DropOrder -> 0, DiagonalToU -> True] ;

Redundant terms are discarded:

lll = DiscardTerms[ll, Retain -> {Particle[PhiMeson , RenormalizationState[0]] -> 1, Particle[PseudoScalar[0] , RenormalizationState[0]] -> 1}, CommutatorReduce -> True, Method -> Expand] // Simplify

0


Converted by Mathematica  (July 10, 2003)