Thank you for your observations.
I fixed a typo so now the axial gauge
should be correct.
Rolf
In[2]:= GluonPropagator[p,mu,a,nu,b,Gauge->{n,0}]//FCE//InputForm
Out[2]//InputForm=
I*FAD[p]*SD[a, b]*(-MTD[mu, nu] - (FVD[p, mu]*FVD[p, nu]*SPD[n, n])/
SPD[n, p]^2 + (FVD[n, nu]*FVD[p, mu] + FVD[n, mu]*FVD[p, nu])/SPD[n, p])
In[3]:= GluonPropagator[p,mu,a,nu,b,Gauge->{n,alpha}]//FCE//InputForm
Out[3]//InputForm=
I*FAD[p]*SD[a, b]*(-MTD[mu, nu] +
(FVD[n, nu]*FVD[p, mu] + FVD[n, mu]*FVD[p, nu])/SPD[n, p] -
(FVD[p, mu]*FVD[p, nu]*SPD[n, n] - alpha*FVD[n, mu]*FVD[n, nu]*SPD[p, p])/
SPD[n, p]^2)
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST