Hello,
this:
nospinors[x_] := x /.
{Spinor[__] :> Sequence[],
SpinorU[__] :> Sequence[], SpinorUBar[__] :>
Sequence[],
SpinorV[__] :> Sequence[], SpinorVBar[__] :>
Sequence[]};
InputForm[
FCE[nospinors[Calc[SpinorUBar[p1, m] .
(GS[p1] + GS[q] - m) . SpinorUBar[p2, m]]]]]
will return
GS[q]
--Regards, Rolf
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST