SU(2) Cayley-Hamilton rules *** all this should be abstracted and automatized
***

clr = CayleyHamiltonRules[{{UChiPlus[x], USmall[μ][x], USmall[μ][x]}}, UDimension -> 2]

{< χ _ + '6 u _ μ '6 u _ μ > -> -1/2 < χ _ + > < u _ μ >^2 + < χ _ + '6 u _ μ > < u _ μ > + 1/2 < u _ μ '6 u _ μ > < χ _ + >}

su2chicalham = List @@ (2 (clr[[1, 1]] - clr[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) // Expand)

{-< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 χ >, -< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < χ^† '6 ÷„ >, 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 χ^† '6 ÷„ >, -2 < ÷„ '6 ÷s _ μ(÷„)^† '6 χ '6 ÷s _ μ(÷„)^† >}

su2chicalhamRule = (-su2chicalham[[1]] /. {μ -> μ_, x -> x_}) -> Plus @@ Drop[su2chicalham, {1}]

< ÷s _ μ_(÷„)^† '6 ÷s _ μ_(÷„) > < ÷„^† '6 χ > -> -< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < χ^† '6 ÷„ > + 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 χ^† '6 ÷„ > - 2 < ÷„ '6 ÷s _ μ(÷„)^† '6 χ '6 ÷s _ μ(÷„)^† >

clr1 = CayleyHamiltonRules[{{HLeft[x], HLeft[x], UChiPlus[x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< χ _ + '6 H _ L '6 H _ L > -> 1/2 < H _ L '6 H _ L > < χ _ + >}

su2chicalham = (clr1[[1, 1]] - (clr1[[1, 2]]) /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-1/2 < ÷„^† '6 χ > < Q _ L '6 Q _ L > - 1/2 < χ^† '6 ÷„ > < Q _ L '6 Q _ L > - 1/2 < ÷„^† '6 χ > < Q _ R '6 Q _ R > - 1/2 < χ^† '6 ÷„ > < Q _ R '6 Q _ R > + < ÷„^† '6 χ '6 Q _ L '6 Q _ L > + < ÷„^† '6 χ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + < χ^† '6 ÷„ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - < ÷„^† '6 Q _ R '6 χ '6 Q _ L > + < ÷„^† '6 Q _ R '6 Q _ R '6 χ > + < χ^† '6 ÷„ '6 Q _ L '6 Q _ L > - < χ^† '6 Q _ R '6 ÷„ '6 Q _ L > + < χ^† '6 Q _ R '6 Q _ R '6 ÷„ > - < ÷„^† '6 Q _ R '6 ÷„ '6 χ^† '6 ÷„ '6 Q _ L > - < ÷„ '6 Q _ L '6 ÷„^† '6 χ '6 ÷„^† '6 Q _ R >

List @@ su2chicalham

{-1/2 < ÷„^† '6 χ > < Q _ L '6 Q _ L >, -1/2 < χ^† '6 ÷„ > < Q _ L '6 Q _ L >, -1/2 < ÷„^† '6 χ > < Q _ R '6 Q _ R >, -1/2 < χ^† '6 ÷„ > < Q _ R '6 Q _ R >, < ÷„^† '6 χ '6 Q _ L '6 Q _ L >, < ÷„^† '6 χ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, < χ^† '6 ÷„ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, -< ÷„^† '6 Q _ R '6 χ '6 Q _ L >, < ÷„^† '6 Q _ R '6 Q _ R '6 χ >, < χ^† '6 ÷„ '6 Q _ L '6 Q _ L >, -< χ^† '6 Q _ R '6 ÷„ '6 Q _ L >, < χ^† '6 Q _ R '6 Q _ R '6 ÷„ >, -< ÷„^† '6 Q _ R '6 ÷„ '6 χ^† '6 ÷„ '6 Q _ L >, -< ÷„ '6 Q _ L '6 ÷„^† '6 χ '6 ÷„^† '6 Q _ R >}

su2chicalhamRule1 = (su2chicalham[[5]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2chicalham, {5}]

< ÷„^† '6 χ '6 Q _ L '6 Q _ L > -> 1/2 < ÷„^† '6 χ > < Q _ L '6 Q _ L > + 1/2 < χ^† '6 ÷„ > < Q _ L '6 Q _ L > + 1/2 < ÷„^† '6 χ > < Q _ R '6 Q _ R > + 1/2 < χ^† '6 ÷„ > < Q _ R '6 Q _ R > - < ÷„^† '6 χ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - < χ^† '6 ÷„ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + < ÷„^† '6 Q _ R '6 χ '6 Q _ L > - < ÷„^† '6 Q _ R '6 Q _ R '6 χ > - < χ^† '6 ÷„ '6 Q _ L '6 Q _ L > + < χ^† '6 Q _ R '6 ÷„ '6 Q _ L > - < χ^† '6 Q _ R '6 Q _ R '6 ÷„ > + < ÷„^† '6 Q _ R '6 ÷„ '6 χ^† '6 ÷„ '6 Q _ L > + < ÷„ '6 Q _ L '6 ÷„^† '6 χ '6 ÷„^† '6 Q _ R >

clr1 = CayleyHamiltonRules[{{HRight[x], HRight[x], UChiPlus[x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< χ _ + '6 H _ R '6 H _ R > -> -1/2 < χ _ + > < H _ R >^2 + < H _ R '6 χ _ + > < H _ R > + 1/2 < H _ R '6 H _ R > < χ _ + >}

su2qcalham = (clr1[[1, 1]] - (clr1[[1, 2]]) /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

2 < ÷„^† '6 χ > < Q >^2 + 2 < χ^† '6 ÷„ > < Q >^2 - 2 < ÷„^† '6 χ '6 Q _ L > < Q > - 2 < ÷„^† '6 Q _ R '6 χ > < Q > - 2 < χ^† '6 ÷„ '6 Q _ L > < Q > - 2 < χ^† '6 Q _ R '6 ÷„ > < Q > - 1/2 < ÷„^† '6 χ > < Q _ L '6 Q _ L > - 1/2 < χ^† '6 ÷„ > < Q _ L '6 Q _ L > - 1/2 < ÷„^† '6 χ > < Q _ R '6 Q _ R > - 1/2 < χ^† '6 ÷„ > < Q _ R '6 Q _ R > + < ÷„^† '6 χ '6 Q _ L '6 Q _ L > - < ÷„^† '6 χ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - < χ^† '6 ÷„ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + < ÷„^† '6 Q _ R '6 χ '6 Q _ L > + < ÷„^† '6 Q _ R '6 Q _ R '6 χ > + < χ^† '6 ÷„ '6 Q _ L '6 Q _ L > + < χ^† '6 Q _ R '6 ÷„ '6 Q _ L > + < χ^† '6 Q _ R '6 Q _ R '6 ÷„ > + < ÷„^† '6 Q _ R '6 ÷„ '6 χ^† '6 ÷„ '6 Q _ L > + < ÷„ '6 Q _ L '6 ÷„^† '6 χ '6 ÷„^† '6 Q _ R >

List @@ su2qcalham

{-1/2 < ÷„^† '6 χ > < Q _ L '6 Q _ L >, -1/2 < χ^† '6 ÷„ > < Q _ L '6 Q _ L >, -1/2 < ÷„^† '6 χ > < Q _ R '6 Q _ R >, -1/2 < χ^† '6 ÷„ > < Q _ R '6 Q _ R >, < ÷„^† '6 χ '6 Q _ L '6 Q _ L >, -< ÷„^† '6 χ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, -< χ^† '6 ÷„ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, < ÷„^† '6 Q _ R '6 χ '6 Q _ L >, < ÷„^† '6 Q _ R '6 Q _ R '6 χ >, < χ^† '6 ÷„ '6 Q _ L '6 Q _ L >, < χ^† '6 Q _ R '6 ÷„ '6 Q _ L >, < χ^† '6 Q _ R '6 Q _ R '6 ÷„ >, < ÷„^† '6 Q _ R '6 ÷„ '6 χ^† '6 ÷„ '6 Q _ L >, < ÷„ '6 Q _ L '6 ÷„^† '6 χ '6 ÷„^† '6 Q _ R >, -2 < ÷„^† '6 χ '6 Q _ L > < Q >, -2 < ÷„^† '6 Q _ R '6 χ > < Q >, -2 < χ^† '6 ÷„ '6 Q _ L > < Q >, -2 < χ^† '6 Q _ R '6 ÷„ > < Q >, 2 < ÷„^† '6 χ > < Q >^2, 2 < χ^† '6 ÷„ > < Q >^2}

su2chicalhamRule2 = (-1/2 su2qcalham[[-3]] /. {μ -> μ_, x -> x_}) -> 1/2 Plus @@ Drop[su2qcalham, {-3}]

< χ^† '6 Q _ R '6 ÷„ > < Q > -> 1/2 (2 < ÷„^† '6 χ > < Q >^2 + 2 < χ^† '6 ÷„ > < Q >^2 - 2 < ÷„^† '6 χ '6 Q _ L > < Q > - 2 < ÷„^† '6 Q _ R '6 χ > < Q > - 2 < χ^† '6 ÷„ '6 Q _ L > < Q > - 1/2 < ÷„^† '6 χ > < Q _ L '6 Q _ L > - 1/2 < χ^† '6 ÷„ > < Q _ L '6 Q _ L > - 1/2 < ÷„^† '6 χ > < Q _ R '6 Q _ R > - 1/2 < χ^† '6 ÷„ > < Q _ R '6 Q _ R > + < ÷„^† '6 χ '6 Q _ L '6 Q _ L > - < ÷„^† '6 χ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - < χ^† '6 ÷„ > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + < ÷„^† '6 Q _ R '6 χ '6 Q _ L > + < ÷„^† '6 Q _ R '6 Q _ R '6 χ > + < χ^† '6 ÷„ '6 Q _ L '6 Q _ L > + < χ^† '6 Q _ R '6 ÷„ '6 Q _ L > + < χ^† '6 Q _ R '6 Q _ R '6 ÷„ > + < ÷„^† '6 Q _ R '6 ÷„ '6 χ^† '6 ÷„ '6 Q _ L > + < ÷„ '6 Q _ L '6 ÷„^† '6 χ '6 ÷„^† '6 Q _ R >)

clr1 = CayleyHamiltonRules[{{HLeft[x], USmall[μ][x], NM[USmall[μ][x], HLeft[x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 u _ μ '6 H _ L '6 u _ μ > -> < H _ L '6 u _ μ >^2 - < H _ L '6 H _ L '6 u _ μ '6 u _ μ >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2 - 2 < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2 + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > - 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > + < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ > + < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > + < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

List @@ su2qchalham

{< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2, -2 < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >, < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2, < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L >, -2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) >, < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ >, < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >, < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >}

su2qchalhamrule1 = (su2qchalham[[7]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2qchalham, {7}]

< ÷s _ μ_(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ_(÷„) '6 Q _ L > -> -< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2 + 2 < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > - < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2 - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > + 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > - < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > - < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ > - < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > - < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

clr1 = CayleyHamiltonRules[{{HLeft[x], HLeft[x], NM[HRight[x], HRight[x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 H _ L '6 H _ R '6 H _ R > -> 1/2 < H _ L '6 H _ L > < H _ R '6 H _ R >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-1/2 < Q _ L '6 Q _ L >^2 - < Q _ R '6 Q _ R > < Q _ L '6 Q _ L > - 1/2 < Q _ R '6 Q _ R >^2 + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >^2 + < Q _ L '6 Q _ L '6 Q _ L '6 Q _ L > + < Q _ R '6 Q _ R '6 Q _ R '6 Q _ R > - 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >

List @@ su2qchalham

{-1/2 < Q _ L '6 Q _ L >^2, -< Q _ L '6 Q _ L > < Q _ R '6 Q _ R >, -1/2 < Q _ R '6 Q _ R >^2, 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >^2, < Q _ L '6 Q _ L '6 Q _ L '6 Q _ L >, < Q _ R '6 Q _ R '6 Q _ R '6 Q _ R >, -2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >}

su2calhb = CayleyHamiltonRules[{{UMatrix[a], UMatrix[a], UMatrix[b]}}, UDimension -> 2] // ExpandAll

{< b '6 a '6 a > -> -1/2 < b > < a >^2 + < a '6 b > < a > + 1/2 < a '6 a > < b >}

su2calhamrule2 = (su2calhb[[1, 1]] /. {UMatrix[a] -> a_, UMatrix[b] -> b_}) -> (su2calhb[[1, 2]] /. {UMatrix[a] -> a, UMatrix[b] -> b})

< b_ '6 a_ '6 a_ > -> -1/2  < b > < a >^2 + < a '6 b >  < a > + 1/2 < b > < a '6 a >

su2calhamrule2 = UTrace1[NM[b___, a_, a_, c___]] :> -1/2 UTrace1[a]^2 UTrace1[NM[c, b]] + 1/2 UTrace1[NM[c, b]] UTrace1[NM[a, a]] + UTrace1[a] UTrace1[NM[a, c, b]] /; Length[{b, c}] > 0

< b___ '6 a_ '6 a_ '6 c___ > :> -1/2  < c '6 b > < a >^2 + < a '6 c '6 b >  < a > + 1/2 < a '6 a > < c '6 b > /; Length[{b, c}] > 0

su2calha = CayleyHamiltonRules[{{UMatrix[a], UMatrix[a], UMatrix[a]}}, UDimension -> 2] // ExpandAll

{< a '6 a '6 a > -> 3/2 < a '6 a > < a > - < a >^3/2}

su2calhamrule3 = (su2calha[[1, 1]] /. UMatrix[a] -> a_) -> (su2calha[[1, 2]] /. UMatrix[a] -> a)

< a_ '6 a_ '6 a_ > -> 3/2 < a > < a '6 a > - < a >^3/2

su2calha = CayleyHamiltonRules[{{UMatrix[a], UMatrix[a], NM[UMatrix[a], UMatrix[a]]}}, UDimension -> 2] /. CayleyHamiltonRules[{{UMatrix[a], UMatrix[a], UMatrix[a]}}, UDimension -> 2] // ExpandAll

{< a '6 a '6 a '6 a > -> -< a >^4/2 + < a '6 a > < a >^2 + 1/2 < a '6 a >^2}

su2calhamrule4 = (su2calha[[1, 1]] /. UMatrix[a] -> a_) -> (su2calha[[1, 2]] /. UMatrix[a] -> a)

< a_ '6 a_ '6 a_ '6 a_ > -> -< a >^4/2 + < a '6 a >  < a >^2 + 1/2 < a '6 a >^2

su2qchalhamrule2 = (-1/2 * su2qchalham[[-1]] /. {μ -> μ_, x -> x_}) -> 1/2 (Plus @@ Drop[su2qchalham, {-1}]) /. su2calhamrule4

< ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > -> 1/2 (-1/2 < Q _ L >^4 + < Q _ L '6 Q _ L > < Q _ L >^2 - < Q _ R >^4/2 + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >^2 + < Q _ R '6 Q _ R > < Q _ R >^2 - < Q _ L '6 Q _ L > < Q _ R '6 Q _ R >)

clr1 = CayleyHamiltonRules[{{HLeft[x], HRight[x], NM[HLeft[x], HRight[x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 H _ R '6 H _ L '6 H _ R > -> < H _ L '6 H _ R >^2 + < H _ R > < H _ R '6 H _ L '6 H _ L > - < H _ L '6 H _ L '6 H _ R '6 H _ R >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. su2calhamrule4 /. su2calhamrule3 /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-< Q _ L '6 Q _ L > < Q >^2 - < Q _ R '6 Q _ R > < Q >^2 + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > < Q > + 2 < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L > < Q > + 2 < Q _ L '6 Q _ L > < Q _ R '6 Q _ R > - 4 < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L >

List @@ su2qchalham

{2 < Q _ L '6 Q _ L > < Q _ R '6 Q _ R >, -4 < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L >, 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > < Q >, 2 < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L > < Q >, -< Q _ L '6 Q _ L > < Q >^2, -< Q _ R '6 Q _ R > < Q >^2}

su2qchalhamrule3 = (-1/4 su2qchalham[[2]] /. {μ -> μ_, x -> x_}) -> 1/4 (Plus @@ Drop[su2qchalham, {2}])

< ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > -> 1/4 (-< Q _ L '6 Q _ L > < Q >^2 - < Q _ R '6 Q _ R > < Q >^2 + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > < Q > + 2 < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L > < Q > + 2 < Q _ L '6 Q _ L > < Q _ R '6 Q _ R >)

clr1 = CayleyHamiltonRules[{{HLeft[x], HLeft[x], HRight[x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ R '6 H _ L '6 H _ L > -> 1/2 < H _ R > < H _ L '6 H _ L >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. su2calhamrule3 /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-< Q >^3 + 1/2 < Q _ L '6 Q _ L > < Q > + 1/2 < Q _ R '6 Q _ R > < Q > + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > < Q > - < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > - < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L >

List @@ su2qchalham

{-< ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L >, -< ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L >, 1/2 < Q _ L '6 Q _ L > < Q >, 1/2 < Q _ R '6 Q _ R > < Q >, 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > < Q >, -< Q >^3}

su2qchalhamrule4 = (-su2qchalham[[1]] /. {μ -> μ_, x -> x_}) -> (Plus @@ Drop[su2qchalham, {1}])

< ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > -> -< Q >^3 + 1/2 < Q _ L '6 Q _ L > < Q > + 1/2 < Q _ R '6 Q _ R > < Q > + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > < Q > - < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L >

clr1 = CayleyHamiltonRules[{{HLeft[x], HLeft[x], HRight[x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ R '6 H _ L '6 H _ L > -> 1/2 < H _ R > < H _ L '6 H _ L >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. su2calhamrule3 /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-< Q >^3 + 1/2 < Q _ L '6 Q _ L > < Q > + 1/2 < Q _ R '6 Q _ R > < Q > + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > < Q > - < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > - < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L >

List @@ su2qchalham

{-< ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L >, -< ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L >, 1/2 < Q _ L '6 Q _ L > < Q >, 1/2 < Q _ R '6 Q _ R > < Q >, 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > < Q >, -< Q >^3}

su2qchalhamrule5 = (-su2qchalham[[1]] /. {μ -> μ_, x -> x_}) -> Plus @@ Drop[su2qchalham, {1}]

< ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L '6 Q _ L > -> -< Q >^3 + 1/2 < Q _ L '6 Q _ L > < Q > + 1/2 < Q _ R '6 Q _ R > < Q > + 2 < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > < Q > - < ÷„^† '6 Q _ R '6 Q _ R '6 ÷„ '6 Q _ L >

clr1 = CayleyHamiltonRules[{{HLeft[x], USmall[μ][x], NM[HLeft[x], USmall[μ][x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 u _ μ '6 H _ L '6 u _ μ > -> < H _ L '6 u _ μ >^2 - < H _ L '6 H _ L '6 u _ μ '6 u _ μ >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2 - 2 < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2 + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > - 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > + < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ > + < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > + < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

List @@ su2qchalham

{< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2, -2 < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >, < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2, < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L >, -2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) >, < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ >, < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >, < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >}

su2qchalhamrule1 = (su2qchalham[[-4]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2qchalham, {-4}]

< ÷s _ μ_(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ_(÷„) '6 Q _ L > -> -< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2 + 2 < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > - < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2 - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > + 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > - < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > - < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ > - < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > - < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

clr1 = CayleyHamiltonRules[{{USmall[μ][x], USmall[μ][x], NM[HLeft[x], HLeft[x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 H _ L '6 u _ μ '6 u _ μ > -> 1/2 < H _ L '6 H _ L > < u _ μ '6 u _ μ >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand // UReduce

-1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L > - 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R > + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > + < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

List @@ su2qchalham

{-1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L >, -1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R >, < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) >, < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >, < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >}

su2qchalhamrule1a = (su2qchalham[[-2]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2qchalham, {-2}]

< Q _ L '6 ÷s _ μ_(÷„)^† '6 ÷„ '6 ÷s _ μ_(÷„)^† '6 Q _ R '6 ÷„ > -> 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L > + 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R > - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > - < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

clr1 = CayleyHamiltonRules[{{HLeft[x], USmall[μ][x], NM[USmall[μ][x], HRight[x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 u _ μ '6 u _ μ '6 H _ R > -> < H _ L '6 u _ μ > < H _ R '6 u _ μ > - < H _ L '6 u _ μ '6 H _ R '6 u _ μ >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. su2calhamrule3 /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2 + < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2 - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) > + < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > - < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > + < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > - < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

List @@ su2qchalham

{-< ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2, < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2, -< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) >, < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >, -< ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >, < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >, -< Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >}

su2qchalhamrule6 = (su2qchalham[[4]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2qchalham, {4}]

< ÷s _ μ_(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ_(÷„) > -> < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >^2 - < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >^2 + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > - < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > - < Q _ L '6 ÷s _ μ(÷„)^† '6 ÷„ '6 ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > + < Q _ L '6 ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 ÷s _ μ(÷„) >

clr1 = CayleyHamiltonRules[{{HLeft[x], USmall[μ][x], NM[HLeft[x], USmall[μ][x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 u _ μ '6 H _ L '6 u _ μ > -> < H _ L '6 u _ μ >^2 - < H _ L '6 H _ L '6 u _ μ '6 u _ μ >}

clr2 = CayleyHamiltonRules[{{HLeft[x], HLeft[x], NM[USmall[μ][x], USmall[μ][x]]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 H _ L '6 u _ μ '6 u _ μ > -> 1/2 < H _ L '6 H _ L > < u _ μ '6 u _ μ >}

clr3 = {clr1[[1, 1]] -> clr1[[1, 2]] /. clr2} /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 u _ μ '6 H _ L '6 u _ μ > -> < H _ L '6 u _ μ >^2 - 1/2 < H _ L '6 H _ L > < u _ μ '6 u _ μ >}

su2qchalham = (clr3[[1, 1]] - clr3[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. su2calhamrule3 /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

< ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L >^2 - 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >^2 + 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L > + 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R > - 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ >

List @@ su2qchalham

{1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L >, 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R >, < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L >^2, -2 < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L > < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >, < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >^2, -2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L >, -< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ >}

su2qchalhamrule7 = (su2qchalham[[-2]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2qchalham, {-2}]

< ÷s _ μ_(÷„)^† '6 ÷„ '6 Q _ L '6 ÷„^† '6 ÷s _ μ_(÷„) '6 Q _ L > -> -< ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L >^2 + 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ > < ÷s _ μ(÷„)^† '6 ÷„ '6 Q _ L > - < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷„ >^2 - 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L > - 1/2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R > + 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 ÷„^† '6 Q _ R '6 ÷„ >

clr1 = CayleyHamiltonRules[{{NM[HLeft[x], HLeft[x]] + NM[HRight[x], HRight[x]], USmall[μ][x], USmall[μ][x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ R '6 H _ R '6 u _ μ '6 u _ μ > -> 1/2 < H _ L '6 H _ L > < u _ μ '6 u _ μ > + 1/2 < H _ R '6 H _ R > < u _ μ '6 u _ μ > - < H _ L '6 H _ L '6 u _ μ '6 u _ μ >}

su2qchalham = (clr1[[1, 1]] - clr1[[1, 2]] /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

-< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L > - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R > + 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L > + 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) >

List @@ su2qchalham

{-< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L >, -< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R >, 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L >, 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ(÷„) >}

su2qchalhamrule8 = (1/2 su2qchalham[[-1]] /. {μ -> μ_, x -> x_}) -> -1/2 Plus @@ Drop[su2qchalham, {-1}]

< ÷s _ μ_(÷„)^† '6 Q _ R '6 Q _ R '6 ÷s _ μ_(÷„) > -> 1/2 (< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ L '6 Q _ L > + < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q _ R '6 Q _ R > - 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L '6 Q _ L >)

clr1 = CayleyHamiltonRules[{{NM[HRight[x], HRight[x]], USmall[μ][x], USmall[μ][x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ R '6 H _ R '6 u _ μ '6 u _ μ > -> 1/2 < H _ R '6 H _ R > < u _ μ '6 u _ μ >}

clr2 = CayleyHamiltonRules[{{NM[HRight[x], USmall[μ][x]], HRight[x], USmall[μ][x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0 /. clr1

{< H _ R '6 u _ μ '6 H _ R '6 u _ μ > -> < H _ R '6 u _ μ >^2 - 1/2 < H _ R '6 H _ R > < u _ μ '6 u _ μ > + < H _ R > < H _ R '6 u _ μ '6 u _ μ >}

clr1a = CayleyHamiltonRules[{{NM[HLeft[x], HLeft[x]], USmall[μ][x], USmall[μ][x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ L '6 H _ L '6 u _ μ '6 u _ μ > -> 1/2 < H _ L '6 H _ L > < u _ μ '6 u _ μ >}

clr2a = CayleyHamiltonRules[{{NM[HLeft[x], USmall[μ][x]], HLeft[x], USmall[μ][x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0 /. clr1a

{< H _ L '6 u _ μ '6 H _ L '6 u _ μ > -> < H _ L '6 u _ μ >^2 - 1/2 < H _ L '6 H _ L > < u _ μ '6 u _ μ >}

su2qchalham = (clr2[[1, 1]] - clr2a[[1, 1]] - (clr2[[1, 2]] - clr2a[[1, 2]]) /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

4 < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > + 4 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L > + 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > - 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L > < Q > - 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) > < Q >

List @@ su2qchalham

{4 < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) >, 4 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) '6 Q _ L >, 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L >, -2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L > < Q >, -2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) > < Q >}

su2qchalhamrule9 = (1/4 * su2qchalham[[2]] /. {μ -> μ_, x -> x_}) -> -1/4 * Plus @@ Drop[su2qchalham, {2}]

< ÷s _ μ_(÷„)^† '6 Q _ R '6 ÷s _ μ_(÷„) '6 Q _ L > -> 1/4 (-4 < ÷„^† '6 ÷s _ μ(÷„) '6 Q _ L > < ÷„^† '6 Q _ R '6 ÷s _ μ(÷„) > - 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < ÷„^† '6 Q _ R '6 ÷„ '6 Q _ L > + 2 < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L > < Q > + 2 < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) > < Q >)

clr1 = CayleyHamiltonRules[{{HRight[x], USmall[μ][x], USmall[μ][x]}}, UDimension -> 2] /. UTrace1[(HLeft | USmall[_])[_]] -> 0

{< H _ R '6 u _ μ '6 u _ μ > -> 1/2 < H _ R > < u _ μ '6 u _ μ >}

su2qchalham = (clr1[[1, 1]] - (clr1[[1, 2]]) /. $Substitutions // UReduce[#, SMMToMM -> True] &) /. UTrace1[UMatrix[(UChiralSpurionRight | UChiralSpurionLeft)[]][x]] -> UTrace1[UMatrix[(UChiralSpurion)[]][x]] // NMExpand // Expand

< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L > + < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) > - < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q >

List @@ su2qchalham

{< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) '6 Q _ L >, < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) >, -< ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q >}

su2qchalhamrule10 = (su2qchalham[[1]] /. {μ -> μ_, x -> x_}) -> -Plus @@ Drop[su2qchalham, {1}]

< ÷s _ μ_(÷„)^† '6 ÷s _ μ_(÷„) '6 Q _ L > -> < ÷s _ μ(÷„)^† '6 ÷s _ μ(÷„) > < Q > - < ÷s _ μ(÷„)^† '6 Q _ R '6 ÷s _ μ(÷„) >


Converted by Mathematica  (July 10, 2003)