Excuse me.
\[CapitalDelta]g[k_, p_, \[Mu]_, \[Nu]_, m_, \[Xi]_] := -I Contract[
(MTD[\[Mu], \[Nu]] - (1 - \[Xi]) (FVD[k, \[Mu]] -
FVD[p, \[Mu]]).(FVD[k, \[Nu]] - FVD[p, \[Nu]]).FAD[{k - p,
Sqrt[\[Xi]] m}]).FAD[{k - p, m}]]
which seems to reproduce the propagator (OK?)
Also, PL = (1 - GAD[5])/2;
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST