
(* description = "pp -> VV+jets|pp -> VV+jets|pp -> llA|Off-shell Z/A/W boson and on-shell photon production with leptonic decays (l+l-/nn/l+n/l-n) at NLO EW." *)

SetParameters = JoinOptions[{ME -> 0}];

(* O(a^3) + O(a^4) *)

SelectInterference = {gQCD -> 0};

(* l+l- *)

(* eexuuxa *) AddProcess[FeynArtsProcess -> {-F[3,{1}], F[3,{1}]} -> {F[2,{1}], -F[2,{1}], V[1]}, UnitaryGauge -> False];
(* eexddxa *) AddProcess[FeynArtsProcess -> {-F[4,{1}], F[4,{1}]} -> {F[2,{1}], -F[2,{1}], V[1]}, UnitaryGauge -> False];
(* eexbbxa *) AddProcess[FeynArtsProcess -> {F[4,{3}], -F[4,{3}]} -> {F[2,{1}], -F[2,{1}], V[1]}, UnitaryGauge -> False];
(* eexaaa *) AddProcess[FeynArtsProcess -> {V[1], V[1]} -> {F[2,{1}], -F[2,{1}], V[1]}, UnitaryGauge -> False];

(* eexddxaa *)  AddReal[FeynArtsProcess -> {F[4,{1}], -F[4,{1}]} -> {F[2,{1}], -F[2,{1}], V[1], V[1]}];
(* eexuuxaa *)  AddReal[FeynArtsProcess -> {F[3,{1}], -F[3,{1}]} -> {F[2,{1}], -F[2,{1}], V[1], V[1]}];
(* eexbbxaa *)  AddReal[FeynArtsProcess -> {F[4,{3}], -F[4,{3}]} -> {F[2,{1}], -F[2,{1}], V[1], V[1]}];
(* eexaaaa *)  AddReal[FeynArtsProcess -> {V[1], V[1]} -> {F[2,{1}], -F[2,{1}], V[1], V[1]}];

(* nn *)

(* nenexuuxa *) AddProcess[FeynArtsProcess -> {-F[3,{1}], F[3,{1}]} -> {F[1,{1}], -F[1,{1}], V[1]}, UnitaryGauge -> False];
(* nenexddxa *) AddProcess[FeynArtsProcess -> {-F[4,{1}], F[4,{1}]} -> {F[1,{1}], -F[1,{1}], V[1]}, UnitaryGauge -> False];
(* nenexbbxa *) AddProcess[FeynArtsProcess -> {F[4,{3}], -F[4,{3}]} -> {F[1,{1}], -F[1,{1}], V[1]}, UnitaryGauge -> False];

(* nenexddxaa *)  AddReal[FeynArtsProcess -> {F[4,{1}], -F[4,{1}]} -> {F[1,{1}], -F[1,{1}], V[1], V[1]}];
(* nenexuuxaa *)  AddReal[FeynArtsProcess -> {F[3,{1}], -F[3,{1}]} -> {F[1,{1}], -F[1,{1}], V[1], V[1]}];
(* nenexbbxaa *)  AddReal[FeynArtsProcess -> {F[4,{3}], -F[4,{3}]} -> {F[1,{1}], -F[1,{1}], V[1], V[1]}];


(* ln *)

(* nexeudx *) AddProcess[FeynArtsProcess -> {F[3,{1}], -F[4,{1}]} -> {-F[2,{1}], F[1,{1}], V[1]}, UnitaryGauge -> False];
(* neexuxd *) AddProcess[FeynArtsProcess -> {-F[3,{1}], F[4,{1}]} -> {F[2,{1}], -F[1,{1}], V[1]}, UnitaryGauge -> False];

(* nexeudxa *) AddReal[FeynArtsProcess -> {F[3,{1}], -F[4,{1}]} -> {-F[2,{1}], F[1,{1}], V[1], V[1]}];
(* neexuxda *) AddReal[FeynArtsProcess -> {-F[3,{1}], F[4,{1}]} -> {F[2,{1}], -F[1,{1}], V[1], V[1]}];



