
(* description = "pp -> HtV+jets|pp -> HtW(->ln)+jets|pp -> Htln|Higgs plus Single top plus on-shell W+/W- production with leptonic decays. Real corrections in DR scheme." *)

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

(* neextxbhg *) AddProcess[FeynArtsProcess -> { F[4,{3}], V[5]} -> { F[2,{1}], -F[1,{1}],  F[3,{3}], S[1]}];
(* nexetbxhg *) AddProcess[FeynArtsProcess -> {-F[4,{3}], V[5]} -> {-F[2,{1}],  F[1,{1}], -F[3,{3}], S[1]}];

(* neextxbhg *) AddProcess[FeynArtsProcess -> { F[4,{3}], V[5]} -> { F[2,{1}], -F[1,{1}],  F[3,{3}], S[1], V[5]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3}][##]] &)];
(* nexetbxhg *) AddProcess[FeynArtsProcess -> {-F[4,{3}], V[5]} -> {-F[2,{1}],  F[1,{1}], -F[3,{3}], S[1], V[5]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3}][##]] &)];


