(* 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]}];

(* neextxbhgg *) AddReal[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}][##]] &)];
(* neexuuxtxbh *) AddReal[FeynArtsProcess -> { F[4,{3}], F[3,{1}]} -> { F[2,{1}], -F[1,{1}],  F[3,{3}], S[1], F[3,{1}]}];
(* neextxddxbhgg *) AddReal[FeynArtsProcess -> { F[4,{3}], F[4,{1}]} -> { F[2,{1}], -F[1,{1}],  F[3,{3}], S[1], F[4,{1}]}];

(* nexetbxhgg *) AddReal[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}][##]] &)];
(* nexeuuxtbxh *) AddReal[FeynArtsProcess -> {-F[4,{3}], F[3,{1}]} -> {-F[2,{1}],  F[1,{1}], -F[3,{3}], S[1], F[3,{1}]}];
(* nexetddxbxh *) AddReal[FeynArtsProcess -> {-F[4,{3}], F[4,{1}]} -> {-F[2,{1}],  F[1,{1}], -F[3,{3}], S[1], F[4,{1}]}];