USmallSqExp[μ, x] /. $Substitutions /. MM[x_] -> NM[SMM[x], SMM[x]] // NMExpand // Expand // UReduce[#, FullReduce -> False] &

∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] + 1/2 (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) - 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) - 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) + 1/2 (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ)) - 1/2 (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^†) + 1/2 (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) - 1/2 i (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) + 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) + 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) - 1/2 i (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 i (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ) + 1/2 i (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) - 1/2 i (∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 i (öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(Overscript[ξ^( ), ->]) · Overscript[σ, ->]) + 1/4 (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^†) + 1/2 (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 (∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 (∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ) + 1/4 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ)) + 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^†) + 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^† '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ) + 1/4 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^†) + 1/4 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ)) + 1/4 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^†) + 1/4 (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ) + 1/4 (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 i (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) - 1/2 i (öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/4 i (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/4 i (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 i (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^†) - 1/2 i (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 i (∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/4 i (∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) - 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ) - 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ)) - 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^†) + 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^† '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ) - 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ) '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) - 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ) - 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) + 1/2 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ) - 1/4 i (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ)) - 1/4 i (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 i (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ) - 1/4 i (öÆ '6 ∂ _ μ(öÆ)^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/4 i (öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/4 i (öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 ∂ _ μ(öÆ) '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 i (öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 ∂ _ μ(öÆ)^† '6 öÆ) + 1/2 (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) - 1/2 (öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^†) + 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) - 1/2 (Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ) - 1/2 (öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ '6 Overscript[ξ^( ), ->] · Overscript[σ, ->]) + 1/2 (öÆ '6 L^( ) _ μ '6 öÆ^† '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 Overscript[ξ^( ), ->] · Overscript[σ, ->] '6 öÆ^† '6 R^( ) _ μ '6 öÆ)


Converted by Mathematica  (July 10, 2003)