
(* description = "pp -> tV+jets|pp -> tW+jets|pp -> tW|Single top plus on-shell W+/W- production. Real corrections in DR scheme." *)

SelectInterference = {eQED -> 2};
UnitaryGauge = False;

(* txbwxg *) AddProcess[FeynArtsProcess -> { F[4,{3}], V[5]} -> { V[3],  F[3,{3}]}];
(* tbxwg  *) AddProcess[FeynArtsProcess -> {-F[4,{3}], V[5]} -> {-V[3], -F[3,{3}]}];

(* txbwxg *) AddReal[FeynArtsProcess -> { F[4,{3}], V[5]} -> { V[3],  F[3,{3}], V[5]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3}][##]] &)];
(* tbxwg  *) AddReal[FeynArtsProcess -> {-F[4,{3}], V[5]} -> {-V[3], -F[3,{3}], V[5]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3}][##]] &)];

