Name: Ben Date: 02/28/12-11:32:57 PM Z
I get an error if I do:
constraint =
FeynCalcInternal[
FV[p, muPAT] FV[p, nuPAT] ->
PolarizationSum[mu, nu, p1]] /. {muPAT :> mu_, nuPAT
:> nu_};
Print[“contract and using the constraint : “,
FeynCalcExternal@Contract[tmp /. constraint]]
The error is:
ReplaceAll::reps: “{FeynCalcInternal[FV[p,mu_]
FV[p,nu_]->PolarizationSum[mu,nu,p1]]} is neither
a list of replacement rules nor a valid dispatch table, and so cannot be
used for replacing.”
For reference, this is a part of the uncontracted input to which I want
to apply the rule to:
(hbar^2 mw^4 e1^$AL\InvisibleApplication
e3^$AL\InvisibleApplication
e1^$AL\InvisibleApplication
e3^$AL\InvisibleApplication gwwz^4)/(mz^2-2
p1^$AL\InvisibleApplication
p3^$AL\InvisibleApplication)^2