•N _ (5 - 13)

cts1 = I * Collect[1/I * end4old /. Pair[_LorentzIndex, ___] -> Sequence[] /. _LeutwylerLambda -> 0 /. toEtaRules /. _RenormalizationState -> Sequence[] // Expand, {CouplingConstant[ChPTW3[2], ___], Pi, _DecayConstant, MandelstamS, _ParticleMass, _Pair}] /. (a : (MandelstamS | ParticleMass[___]^_)) * b_ :> a * Collect[b, {_ParticleMass, _Pair, _CouplingConstant}]

1/(f _ ϕ^(ó  ))^4 (i c _ 2^( ) ((8 N _ 5^( ) + 16 N _ 7^( ) + 4 N _ 8^( ) - 8 N _ 10^( ) - (56 N _ 11^( ))/3 - 8 N _ 12^( )) (m _ π^(ó  ))^4 + ((-16 N _ 7^( ) + 7 N _ 8^( ) + 6 N _ 9^( ) + (8 N _ 10^( ))/3 + (40 N _ 11^( ))/3 + 8 N _ 12^( )) (m _ K^(ó  ))^2 + (N _ 8^( ) + 2 N _ 9^( )) p _ 2^2) (m _ π^(ó  ))^2 + (-2 N _ 5^( ) - 2 N _ 8^( ) + (16 N _ 10^( ))/3 + (16 N _ 11^( ))/3) (m _ K^(ó  ))^4 + (2 N _ 5^( ) + 2 N _ 8^( )) p _ 2^2 (m _ K^(ó  ))^2 + s ((-4 N _ 5^( ) - 8 N _ 7^( ) - 3 N _ 8^( ) - 2 N _ 9^( )) (m _ π^(ó  ))^2 + (-2 N _ 5^( ) + 8 N _ 7^( ) - 6 N _ 8^( ) - 4 N _ 9^( )) (m _ K^(ó  ))^2)))

Converted by Mathematica  (July 10, 2003)