•Cayley-Hamilton rules

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 >


Converted by Mathematica  (July 10, 2003)