Name: Rolf Mertig Date: 03/25/05-08:39:36 PM Z


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