FunctionalD
FunctionalD[exp, {QuantumField[name, LorentzIndex[mu], ..., SUNIndex[a]][p], ...}]
calculates the functional derivative of exp with respect to the
QuantumField list (with incoming momenta p \text{p} p , etc.) and does the Fourier
transform.
FunctionalD[expr, {QuantumField[name, LorentzIndex[mu], ... SUNIndex[a]], ...}]
calculates the functional derivative and does partial integration but
omits the x \text{x} x -space delta
functions.
FunctionalD
is a low level function used in
FeynRule
.
See also
Overview , FeynRule , QuantumField .
Examples
Instead of the usual δ ϕ ( x ) / δ ϕ ( y ) = δ ( D ) ( x − y ) \delta \phi (x)/
\delta \phi (y)= \delta ^{(D)}(x-y) δ ϕ ( x ) / δ ϕ ( y ) = δ ( D ) ( x − y ) the arguments and the δ \delta δ function are omitted, i.e. for the
program for simplicity: δ ϕ / δ ϕ = 1 \delta \phi / \delta
\phi =1 δ ϕ / δ ϕ = 1 .
FunctionalD[ QuantumField[ \ [ Phi]], QuantumField[ \ [ Phi]]]
1 1 1
FunctionalD[ QuantumField[ \ [ Phi]] ^ 2 , QuantumField[ \ [ Phi]]]
2 ϕ 2 \phi 2 ϕ
Instead of the usual ( δ ∂ μ ϕ ( x ) ) / δ ϕ ( y ) = ∂ μ δ ( D ) ( x − y ) (\delta \partial
_{\mu} \phi (x) )/ \delta \phi (y)= \partial _{\mu}
\delta^{(D)}(x-y) ( δ ∂ μ ϕ ( x )) / δ ϕ ( y ) = ∂ μ δ ( D ) ( x − y ) the arguments are omitted, and the ∂ μ \partial_\mu ∂ μ operator is specified by default
to be an integration by parts operator, i.e. the right hand side will be
just Null
or, more precisely, (by default) − ∂ m u -\partial _{mu } − ∂ m u .
FunctionalD[ QuantumField[ FCPartialD[ LorentzIndex[ \ [ Mu]]], \ [ Phi]], QuantumField[ \ [ Phi]]]
− ∂ ⃗ μ -\vec{\partial }_{\mu } − ∂ μ
(QuantumField[ FCPartialD[ LorentzIndex[ \ [ Mu]]], \ [ Phi]] . QuantumField[ FCPartialD[ LorentzIndex[ \ [ Mu]]]
, \ [ Phi]] - m ^ 2 QuantumField[ \ [ Phi]] . QuantumField[ \ [ Phi]] )/ 2
FunctionalD[ % , QuantumField[ \ [ Phi]]]
1 2 ( ( ( ∂ μ ϕ ) ) . ( ( ∂ μ ϕ ) ) − m 2 ϕ . ϕ ) \frac{1}{2} \left(\left(\left.(\partial
_{\mu }\phi \right)\right).\left(\left.(\partial _{\mu }\phi
\right)\right)-m^2 \phi .\phi \right) 2 1 ( ( ( ∂ μ ϕ ) ) . ( ( ∂ μ ϕ ) ) − m 2 ϕ . ϕ )
m 2 ( − ϕ ) − ( ∂ μ ∂ μ ϕ ) m^2 (-\phi )-\left(\partial _{\mu
}\partial _{\mu }\phi \right) m 2 ( − ϕ ) − ( ∂ μ ∂ μ ϕ )
Consider S [ A ] = − ∫ d D x 1 4 F a μ ν ( x ) F μ ν ( x ) S[A] = -\int d^D x \frac{1}{4}
F_a^{\mu \nu }(x) F_{\mu \nu }(x) S [ A ] = − ∫ d D x 4 1 F a μν ( x ) F μν ( x )
First approach:
F1 = FieldStrength[ \ [ Mu], \ [ Nu], a , { A , b , c }, 1 , Explicit -> True ]
F2 = FieldStrength[ \ [ Mu], \ [ Nu], a , { A , d , e }, 1 , Explicit -> True ]
S [ A ] = - 1 / 4 F1 . F2
f a b c A μ b . A ν c + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) f^{abc} A_{\mu }^b.A_{\nu
}^c+\left.(\partial _{\mu }A_{\nu }^a\right)-\left.(\partial _{\nu
}A_{\mu }^a\right) f ab c A μ b . A ν c + ( ∂ μ A ν a ) − ( ∂ ν A μ a )
f a d e A μ d . A ν e + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) f^{ade} A_{\mu }^d.A_{\nu
}^e+\left.(\partial _{\mu }A_{\nu }^a\right)-\left.(\partial _{\nu
}A_{\mu }^a\right) f a d e A μ d . A ν e + ( ∂ μ A ν a ) − ( ∂ ν A μ a )
− 1 4 ( f a b c A μ b . A ν c + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) ) . ( f a d e A μ d . A ν e + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) ) -\frac{1}{4} \left(f^{abc} A_{\mu
}^b.A_{\nu }^c+\left.(\partial _{\mu }A_{\nu }^a\right)-\left.(\partial
_{\nu }A_{\mu }^a\right)\right).\left(f^{ade} A_{\mu }^d.A_{\nu
}^e+\left.(\partial _{\mu }A_{\nu }^a\right)-\left.(\partial _{\nu
}A_{\mu }^a\right)\right) − 4 1 ( f ab c A μ b . A ν c + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) ) . ( f a d e A μ d . A ν e + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) )
In order to derive the equation of motion, the functional derivative
of S S S with respect to A σ g A_{\sigma }^g A σ g has to be set to zero. Bearing
in mind that for FeynCalc we have to be precise as to where which
operators (coming from the substitution of the derivative of the delta
function) act.
Act with the functional derivative operator on the first field
strength:
0 = ( δ S ) / ( δ A σ g ( y ) ) = − 2 / 4 ∫ d D x ( δ / ( δ A σ g ( y ) ) F μ ν a ( x ) ) F a μ ν ( x ) 0 = (\delta S) / ( \delta A_ {\sigma }^g(y)
) =-2/4 \int d^D x (\delta / (\delta A_ {\sigma }^g (y) ) F^a_{\mu
\nu}(x)) F_a^{\mu \nu} (x) 0 = ( δ S ) / ( δ A σ g ( y )) = − 2/4 ∫ d D x ( δ / ( δ A σ g ( y )) F μν a ( x )) F a μν ( x )
See what happens with just ( δ S [ A ] ) / ( δ A σ g ) (\delta S[A]) /
(\delta A_{\sigma }^g) ( δ S [ A ]) / ( δ A σ g )
Ag = QuantumField[ A , { \ [ Sigma]}, { g }]
A σ g A_{\sigma }^g A σ g
A μ b g ˉ ν σ f a b g − A ν c g ˉ μ σ f a c g + δ a g ∂ ⃗ μ ( − g ˉ ν σ ) + δ a g ∂ ⃗ ν g ˉ μ σ A_{\mu }^b \bar{g}^{\nu \sigma }
f^{abg}-A_{\nu }^c \bar{g}^{\mu \sigma } f^{acg}+\delta ^{ag}
\vec{\partial }_{\mu } \left(-\bar{g}^{\nu \sigma }\right)+\delta ^{ag}
\vec{\partial }_{\nu } \bar{g}^{\mu \sigma } A μ b g ˉ ν σ f ab g − A ν c g ˉ μ σ f a c g + δ a g ∂ μ ( − g ˉ ν σ ) + δ a g ∂ ν g ˉ μ σ
Use FCCanonicalizeDummyIndices
to minimize the number of
dummy indices.
t1 = FCCanonicalizeDummyIndices[ % , SUNIndexNames -> { c1}] /. c1 -> c
A μ c g ˉ ν σ f a c g − A ν c g ˉ μ σ f a c g + δ a g ∂ ⃗ μ ( − g ˉ ν σ ) + δ a g ∂ ⃗ ν g ˉ μ σ A_{\mu }^c \bar{g}^{\nu \sigma }
f^{acg}-A_{\nu }^c \bar{g}^{\mu \sigma } f^{acg}+\delta ^{ag}
\vec{\partial }_{\mu } \left(-\bar{g}^{\nu \sigma }\right)+\delta ^{ag}
\vec{\partial }_{\nu } \bar{g}^{\mu \sigma } A μ c g ˉ ν σ f a c g − A ν c g ˉ μ σ f a c g + δ a g ∂ μ ( − g ˉ ν σ ) + δ a g ∂ ν g ˉ μ σ
Instead of inserting the definition for the second F a μ ν F_a^{\mu \nu} F a μν , introduce a
QuantumField
object with antisymmetry built into the
Lorentz indices:
F / : QuantumField[ pard___ , F , \ [ Beta ] _, \ [ Alpha] _, s_ ] := - QuantumField[ pard, F , \ [ Alpha], \ [ Beta ], s ] / ; ! OrderedQ [{ \ [ Beta ], \ [ Alpha]}]
QuantumField[ F , { \ [ Mu], \ [ Nu]}, { a }]
% /. { \ [ Mu] :> \ [ Nu], \ [ Nu] :> \ [ Mu]}
F μ ν a F_{\mu \nu }^a F μν a
− F μ ν a -F_{\mu \nu }^a − F μν a
t2 = Contract[ ExpandPartialD[ - 1 / 2 t1 . QuantumField[ F , LorentzIndex[ \ [ Mu]], LorentzIndex[ \ [ Nu]],
SUNIndex[ a ]]]] /. Dot -> Times
− 1 2 A μ c f a c g F μ σ a − 1 2 A ν c f a c g F ν σ a + 1 2 ( ( ∂ μ F μ σ g ) ) + 1 2 ( ( ∂ ν F ν σ g ) ) -\frac{1}{2} A_{\mu }^c f^{acg} F_{\mu
\sigma }^a-\frac{1}{2} A_{\nu }^c f^{acg} F_{\nu \sigma }^a+\frac{1}{2}
\left(\left.(\partial _{\mu }F_{\mu \sigma }^g\right)\right)+\frac{1}{2}
\left(\left.(\partial _{\nu }F_{\nu \sigma }^g\right)\right) − 2 1 A μ c f a c g F μ σ a − 2 1 A ν c f a c g F ν σ a + 2 1 ( ( ∂ μ F μ σ g ) ) + 2 1 ( ( ∂ ν F ν σ g ) )
t3 = FCCanonicalizeDummyIndices[ t2, LorentzIndexNames -> { mu}, SUNIndexNames -> { aa,
cc}] /. { mu -> \ [ Mu], aa -> a , cc -> c }
A μ a f a c g F μ σ c + ( ∂ μ F μ σ g ) A_{\mu }^a f^{acg} F_{\mu \sigma
}^c+\left.(\partial _{\mu }F_{\mu \sigma }^g\right) A μ a f a c g F μ σ c + ( ∂ μ F μ σ g )
t4 = FCE[ t3] /. SUNF[ a , c , g ] -> - SUNF[ g , c , a ]
( ∂ μ F μ σ g ) − A μ a f g c a F μ σ c \left.(\partial _{\mu }F_{\mu \sigma
}^g\right)-A_{\mu }^a f^{gca} F_{\mu \sigma }^c ( ∂ μ F μ σ g ) − A μ a f g c a F μ σ c
Since the variational derivative vanishes t4
implies
that 0 = D μ F g μ σ 0= D_{\mu} F_g^{\mu \sigma } 0 = D μ F g μ σ
Second approach:
It is of course also possible to do the functional derivative on the
S [ A ] S[A] S [ A ] with both field strength tensors
inserted.
− 1 4 ( f a b c A μ b . A ν c + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) ) . ( f a d e A μ d . A ν e + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) ) -\frac{1}{4} \left(f^{abc} A_{\mu
}^b.A_{\nu }^c+\left.(\partial _{\mu }A_{\nu }^a\right)-\left.(\partial
_{\nu }A_{\mu }^a\right)\right).\left(f^{ade} A_{\mu }^d.A_{\nu
}^e+\left.(\partial _{\mu }A_{\nu }^a\right)-\left.(\partial _{\nu
}A_{\mu }^a\right)\right) − 4 1 ( f ab c A μ b . A ν c + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) ) . ( f a d e A μ d . A ν e + ( ∂ μ A ν a ) − ( ∂ ν A μ a ) )
r1 = FunctionalD[ S [ A ], Ag]
− 1 4 f a b c f a d g A μ b . A σ c . A μ d + 1 4 f a b c f a e g A σ b . A ν c . A ν e − 1 4 f a b g f a d e A μ b . A μ d . A σ e − 1 4 f a b g A μ b . ( ( ∂ μ A σ a ) ) + 1 4 f a b g A μ b . ( ( ∂ σ A μ a ) ) + 1 4 f a c g f a d e A ν c . A σ d . A ν e − 1 4 f a c g A ν c . ( ( ∂ ν A σ a ) ) + 1 4 f a c g A ν c . ( ( ∂ σ A ν a ) ) − 1 4 f a d g ( ( ∂ μ A σ a ) ) . A μ d + 1 4 f a d g ( ( ∂ σ A μ a ) ) . A μ d − 1 4 f a e g ( ( ∂ ν A σ a ) ) . A ν e + 1 4 f a e g ( ( ∂ σ A ν a ) ) . A ν e + 1 4 f b c g A μ b . ( ( ∂ μ A σ c ) ) + 1 4 f b c g ( ( ∂ μ A μ b ) ) . A σ c − 1 4 f b c g A σ b . ( ( ∂ ν A ν c ) ) − 1 4 f b c g ( ( ∂ ν A σ b ) ) . A ν c + 1 4 f d e g A μ d . ( ( ∂ μ A σ e ) ) + 1 4 f d e g ( ( ∂ μ A μ d ) ) . A σ e − 1 4 f d e g A σ d . ( ( ∂ ν A ν e ) ) − 1 4 f d e g ( ( ∂ ν A σ d ) ) . A ν e + 1 2 ( ∂ μ ∂ μ A σ g ) − 1 2 ( ∂ μ ∂ σ A μ g ) + 1 2 ( ∂ ν ∂ ν A σ g ) − 1 2 ( ∂ ν ∂ σ A ν g ) -\frac{1}{4} f^{abc} f^{adg} A_{\mu
}^b.A_{\sigma }^c.A_{\mu }^d+\frac{1}{4} f^{abc} f^{aeg} A_{\sigma
}^b.A_{\nu }^c.A_{\nu }^e-\frac{1}{4} f^{abg} f^{ade} A_{\mu }^b.A_{\mu
}^d.A_{\sigma }^e-\frac{1}{4} f^{abg} A_{\mu }^b.\left(\left.(\partial
_{\mu }A_{\sigma }^a\right)\right)+\frac{1}{4} f^{abg} A_{\mu
}^b.\left(\left.(\partial _{\sigma }A_{\mu }^a\right)\right)+\frac{1}{4}
f^{acg} f^{ade} A_{\nu }^c.A_{\sigma }^d.A_{\nu }^e-\frac{1}{4} f^{acg}
A_{\nu }^c.\left(\left.(\partial _{\nu }A_{\sigma
}^a\right)\right)+\frac{1}{4} f^{acg} A_{\nu }^c.\left(\left.(\partial
_{\sigma }A_{\nu }^a\right)\right)-\frac{1}{4} f^{adg}
\left(\left.(\partial _{\mu }A_{\sigma }^a\right)\right).A_{\mu
}^d+\frac{1}{4} f^{adg} \left(\left.(\partial _{\sigma }A_{\mu
}^a\right)\right).A_{\mu }^d-\frac{1}{4} f^{aeg} \left(\left.(\partial
_{\nu }A_{\sigma }^a\right)\right).A_{\nu }^e+\frac{1}{4} f^{aeg}
\left(\left.(\partial _{\sigma }A_{\nu }^a\right)\right).A_{\nu
}^e+\frac{1}{4} f^{bcg} A_{\mu }^b.\left(\left.(\partial _{\mu
}A_{\sigma }^c\right)\right)+\frac{1}{4} f^{bcg} \left(\left.(\partial
_{\mu }A_{\mu }^b\right)\right).A_{\sigma }^c-\frac{1}{4} f^{bcg}
A_{\sigma }^b.\left(\left.(\partial _{\nu }A_{\nu
}^c\right)\right)-\frac{1}{4} f^{bcg} \left(\left.(\partial _{\nu
}A_{\sigma }^b\right)\right).A_{\nu }^c+\frac{1}{4} f^{deg} A_{\mu
}^d.\left(\left.(\partial _{\mu }A_{\sigma }^e\right)\right)+\frac{1}{4}
f^{deg} \left(\left.(\partial _{\mu }A_{\mu }^d\right)\right).A_{\sigma
}^e-\frac{1}{4} f^{deg} A_{\sigma }^d.\left(\left.(\partial _{\nu
}A_{\nu }^e\right)\right)-\frac{1}{4} f^{deg} \left(\left.(\partial
_{\nu }A_{\sigma }^d\right)\right).A_{\nu }^e+\frac{1}{2} \left(\partial
_{\mu }\partial _{\mu }A_{\sigma }^g\right)-\frac{1}{2} \left(\partial
_{\mu }\partial _{\sigma }A_{\mu }^g\right)+\frac{1}{2} \left(\partial
_{\nu }\partial _{\nu }A_{\sigma }^g\right)-\frac{1}{2} \left(\partial
_{\nu }\partial _{\sigma }A_{\nu }^g\right) − 4 1 f ab c f a d g A μ b . A σ c . A μ d + 4 1 f ab c f a e g A σ b . A ν c . A ν e − 4 1 f ab g f a d e A μ b . A μ d . A σ e − 4 1 f ab g A μ b . ( ( ∂ μ A σ a ) ) + 4 1 f ab g A μ b . ( ( ∂ σ A μ a ) ) + 4 1 f a c g f a d e A ν c . A σ d . A ν e − 4 1 f a c g A ν c . ( ( ∂ ν A σ a ) ) + 4 1 f a c g A ν c . ( ( ∂ σ A ν a ) ) − 4 1 f a d g ( ( ∂ μ A σ a ) ) . A μ d + 4 1 f a d g ( ( ∂ σ A μ a ) ) . A μ d − 4 1 f a e g ( ( ∂ ν A σ a ) ) . A ν e + 4 1 f a e g ( ( ∂ σ A ν a ) ) . A ν e + 4 1 f b c g A μ b . ( ( ∂ μ A σ c ) ) + 4 1 f b c g ( ( ∂ μ A μ b ) ) . A σ c − 4 1 f b c g A σ b . ( ( ∂ ν A ν c ) ) − 4 1 f b c g ( ( ∂ ν A σ b ) ) . A ν c + 4 1 f d e g A μ d . ( ( ∂ μ A σ e ) ) + 4 1 f d e g ( ( ∂ μ A μ d ) ) . A σ e − 4 1 f d e g A σ d . ( ( ∂ ν A ν e ) ) − 4 1 f d e g ( ( ∂ ν A σ d ) ) . A ν e + 2 1 ( ∂ μ ∂ μ A σ g ) − 2 1 ( ∂ μ ∂ σ A μ g ) + 2 1 ( ∂ ν ∂ ν A σ g ) − 2 1 ( ∂ ν ∂ σ A ν g )
This is just functional derivation and partial integration and simple
contraction of indices. At first no attempt is made to rename dummy
indices (since this is difficult in general).
With a general replacement rule only valid for commuting fields the
color indices can be canonicalized a bit more. The idea is to use the
commutative properties of the vector fields, and canonicalize the color
indices by a trick.
Commutator[ QuantumField[ aaa___ FCPartialD, A , bbb__ ], QuantumField[ ccc___ FCPartialD, A ,
ddd__ ]] = 0 ;
r2 = r1 // DotSimplify // FCCanonicalizeDummyIndices[ #, SUNIndexNames -> { a1, b1, c1, d1},
LorentzIndexNames -> { mu, nu, rho}] & // ReplaceAll [ #, { a1 -> a , b1 -> b , c1 -> c ,
d1 -> d , mu -> \ [ Mu], nu -> \ [ Nu], rho -> \ [ Rho]}] & // Collect2[ #, SUNF] &
1 2 f a d g f b c d A μ a . A μ b . A σ c + 1 2 f a c d f b d g A μ a . A μ b . A σ c + f a b g ( 2 A μ a . ( ( ∂ μ A σ b ) ) − A μ a . ( ( ∂ σ A μ b ) ) − A σ a . ( ( ∂ μ A μ b ) ) ) + ( ∂ μ ∂ μ A σ g ) − ( ∂ μ ∂ σ A μ g ) \frac{1}{2} f^{adg} f^{bcd} A_{\mu
}^a.A_{\mu }^b.A_{\sigma }^c+\frac{1}{2} f^{acd} f^{bdg} A_{\mu
}^a.A_{\mu }^b.A_{\sigma }^c+f^{abg} \left(2 A_{\mu
}^a.\left(\left.(\partial _{\mu }A_{\sigma }^b\right)\right)-A_{\mu
}^a.\left(\left.(\partial _{\sigma }A_{\mu }^b\right)\right)-A_{\sigma
}^a.\left(\left.(\partial _{\mu }A_{\mu
}^b\right)\right)\right)+\left(\partial _{\mu }\partial _{\mu }A_{\sigma
}^g\right)-\left(\partial _{\mu }\partial _{\sigma }A_{\mu
}^g\right) 2 1 f a d g f b c d A μ a . A μ b . A σ c + 2 1 f a c d f b d g A μ a . A μ b . A σ c + f ab g ( 2 A μ a . ( ( ∂ μ A σ b ) ) − A μ a . ( ( ∂ σ A μ b ) ) − A σ a . ( ( ∂ μ A μ b ) ) ) + ( ∂ μ ∂ μ A σ g ) − ( ∂ μ ∂ σ A μ g )
Inspection reveals that still terms are the same. Gather the terms
with two f
’s:
twof = Select [ r2 // Expand , Count [ #, SUNF[ __ ]] === 2 &]
1 2 f a d g f b c d A μ a . A μ b . A σ c + 1 2 f a c d f b d g A μ a . A μ b . A σ c \frac{1}{2} f^{adg} f^{bcd} A_{\mu
}^a.A_{\mu }^b.A_{\sigma }^c+\frac{1}{2} f^{acd} f^{bdg} A_{\mu
}^a.A_{\mu }^b.A_{\sigma }^c 2 1 f a d g f b c d A μ a . A μ b . A σ c + 2 1 f a c d f b d g A μ a . A μ b . A σ c
twofnew = ((twof[[ 1 ]] /. { a -> b , b -> a } ) + twof[[ 2 ]] ) // DotSimplify
f a c d f b d g A μ a . A μ b . A σ c f^{acd} f^{bdg} A_{\mu }^a.A_{\mu
}^b.A_{\sigma }^c f a c d f b d g A μ a . A μ b . A σ c
f a c d f b d g A μ a . A μ b . A σ c + f a b g ( 2 A μ a . ( ( ∂ μ A σ b ) ) − A μ a . ( ( ∂ σ A μ b ) ) − A σ a . ( ( ∂ μ A μ b ) ) ) + ( ∂ μ ∂ μ A σ g ) − ( ∂ μ ∂ σ A μ g ) f^{acd} f^{bdg} A_{\mu }^a.A_{\mu
}^b.A_{\sigma }^c+f^{abg} \left(2 A_{\mu }^a.\left(\left.(\partial _{\mu
}A_{\sigma }^b\right)\right)-A_{\mu }^a.\left(\left.(\partial _{\sigma
}A_{\mu }^b\right)\right)-A_{\sigma }^a.\left(\left.(\partial _{\mu
}A_{\mu }^b\right)\right)\right)+\left(\partial _{\mu }\partial _{\mu
}A_{\sigma }^g\right)-\left(\partial _{\mu }\partial _{\sigma }A_{\mu
}^g\right) f a c d f b d g A μ a . A μ b . A σ c + f ab g ( 2 A μ a . ( ( ∂ μ A σ b ) ) − A μ a . ( ( ∂ σ A μ b ) ) − A σ a . ( ( ∂ μ A μ b ) ) ) + ( ∂ μ ∂ μ A σ g ) − ( ∂ μ ∂ σ A μ g )
Check that this is now indeed the same as the t4
result
from the first attempt.
( ∂ μ F μ σ g ) − A μ a f g c a F μ σ c \left.(\partial _{\mu }F_{\mu \sigma
}^g\right)-A_{\mu }^a f^{gca} F_{\mu \sigma }^c ( ∂ μ F μ σ g ) − A μ a f g c a F μ σ c
w0 = RightPartialD[ \ [ Mu]] . FieldStrength[ \ [ Mu], \ [ Sigma], g , { A , a , b }, 1 ] +
QuantumField[ A , LorentzIndex[ \ [ Mu]], SUNIndex[ c ]] . FieldStrength[ \ [ Mu], \ [ Sigma], a ,
{ A , b , d }, 1 ] SUNF[ g , c , a ]
f g c a A μ c . F μ σ a { A , b , d } 1 + ∂ ⃗ μ . F μ σ g { A , a , b } 1 f^{gca} A_{\mu }^c.F_{\mu \sigma
}^{a\{A,b,d\}1}+\vec{\partial }_{\mu }.F_{\mu \sigma
}^{g\{A,a,b\}1} f g c a A μ c . F μ σ a { A , b , d } 1 + ∂ μ . F μ σ g { A , a , b } 1
f g c a A μ c . ( f a b d A μ b . A σ d + ( ∂ μ A σ a ) − ( ∂ σ A μ a ) ) + ∂ ⃗ μ . ( f g a b A μ a . A σ b + ( ∂ μ A σ g ) − ( ∂ σ A μ g ) ) f^{gca} A_{\mu }^c.\left(f^{abd} A_{\mu
}^b.A_{\sigma }^d+\left.(\partial _{\mu }A_{\sigma
}^a\right)-\left.(\partial _{\sigma }A_{\mu
}^a\right)\right)+\vec{\partial }_{\mu }.\left(f^{gab} A_{\mu
}^a.A_{\sigma }^b+\left.(\partial _{\mu }A_{\sigma
}^g\right)-\left.(\partial _{\sigma }A_{\mu }^g\right)\right) f g c a A μ c . ( f ab d A μ b . A σ d + ( ∂ μ A σ a ) − ( ∂ σ A μ a ) ) + ∂ μ . ( f g ab A μ a . A σ b + ( ∂ μ A σ g ) − ( ∂ σ A μ g ) )
w2 = ExpandPartialD[ w1] // DotSimplify
− f a b d f a c g A μ b . A μ c . A σ d + f a b g A μ a . ( ( ∂ μ A σ b ) ) + f a b g A σ b . ( ( ∂ μ A μ a ) ) − f a c g A μ c . ( ( ∂ μ A σ a ) ) + f a c g A μ c . ( ( ∂ σ A μ a ) ) + ( ∂ μ ∂ μ A σ g ) − ( ∂ μ ∂ σ A μ g ) -f^{abd} f^{acg} A_{\mu }^b.A_{\mu
}^c.A_{\sigma }^d+f^{abg} A_{\mu }^a.\left(\left.(\partial _{\mu
}A_{\sigma }^b\right)\right)+f^{abg} A_{\sigma }^b.\left(\left.(\partial
_{\mu }A_{\mu }^a\right)\right)-f^{acg} A_{\mu }^c.\left(\left.(\partial
_{\mu }A_{\sigma }^a\right)\right)+f^{acg} A_{\mu
}^c.\left(\left.(\partial _{\sigma }A_{\mu
}^a\right)\right)+\left(\partial _{\mu }\partial _{\mu }A_{\sigma
}^g\right)-\left(\partial _{\mu }\partial _{\sigma }A_{\mu
}^g\right) − f ab d f a c g A μ b . A μ c . A σ d + f ab g A μ a . ( ( ∂ μ A σ b ) ) + f ab g A σ b . ( ( ∂ μ A μ a ) ) − f a c g A μ c . ( ( ∂ μ A σ a ) ) + f a c g A μ c . ( ( ∂ σ A μ a ) ) + ( ∂ μ ∂ μ A σ g ) − ( ∂ μ ∂ σ A μ g )
− f a b d f a c g A μ b . A μ c . A σ d − f a c d f b d g A μ a . A μ b . A σ c + f a b g A μ a . ( ( ∂ μ A σ b ) ) − f a b g ( 2 A μ a . ( ( ∂ μ A σ b ) ) − A μ a . ( ( ∂ σ A μ b ) ) − A σ a . ( ( ∂ μ A μ b ) ) ) + f a b g A σ b . ( ( ∂ μ A μ a ) ) − f a c g A μ c . ( ( ∂ μ A σ a ) ) + f a c g A μ c . ( ( ∂ σ A μ a ) ) -f^{abd} f^{acg} A_{\mu }^b.A_{\mu
}^c.A_{\sigma }^d-f^{acd} f^{bdg} A_{\mu }^a.A_{\mu }^b.A_{\sigma
}^c+f^{abg} A_{\mu }^a.\left(\left.(\partial _{\mu }A_{\sigma
}^b\right)\right)-f^{abg} \left(2 A_{\mu }^a.\left(\left.(\partial _{\mu
}A_{\sigma }^b\right)\right)-A_{\mu }^a.\left(\left.(\partial _{\sigma
}A_{\mu }^b\right)\right)-A_{\sigma }^a.\left(\left.(\partial _{\mu
}A_{\mu }^b\right)\right)\right)+f^{abg} A_{\sigma
}^b.\left(\left.(\partial _{\mu }A_{\mu }^a\right)\right)-f^{acg} A_{\mu
}^c.\left(\left.(\partial _{\mu }A_{\sigma }^a\right)\right)+f^{acg}
A_{\mu }^c.\left(\left.(\partial _{\sigma }A_{\mu
}^a\right)\right) − f ab d f a c g A μ b . A μ c . A σ d − f a c d f b d g A μ a . A μ b . A σ c + f ab g A μ a . ( ( ∂ μ A σ b ) ) − f ab g ( 2 A μ a . ( ( ∂ μ A σ b ) ) − A μ a . ( ( ∂ σ A μ b ) ) − A σ a . ( ( ∂ μ A μ b ) ) ) + f ab g A σ b . ( ( ∂ μ A μ a ) ) − f a c g A μ c . ( ( ∂ μ A σ a ) ) + f a c g A μ c . ( ( ∂ σ A μ a ) )
As expected:
dif1 // FCCanonicalizeDummyIndices
0 0 0
Finally, unset the commutator of the bosonic fields.
UnDeclareCommutator[ QuantumField[ aaa___ FCPartialD, A , bbb__ ],
QuantumField[ ccc___ FCPartialD, A , ddd__ ]] = 0 ;