(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[   1389509,      35687]
NotebookOptionsPosition[   1313304,      34603]
NotebookOutlinePosition[   1313743,      34620]
CellTagsIndexPosition[   1313700,      34617]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Demo notebook for the SMEFTsim models - set A", "Chapter",
 CellChangeTimes->{{3.714472665588029*^9, 
  3.714472689729048*^9}},ExpressionUUID->"55c1d13a-0c0d-447f-a284-\
91d63a91b5fa"],

Cell[TextData[{
 "Includes all the B conserving operators of the Warsaw basis, with kinetic \
terms canonically normalized and shifts due to fixing an input scheme \
automatically implemented.\nContains 6 models  =  3 flavor assumptions  x  2 \
input scheme choices.\n\n",
 StyleBox["Flavor assumptions available\n\tgeneral",
  FontWeight->"Bold"],
 ": Wilson coefficients of all the fermionic operators are arbitrary 3x3 or \
3x3x3x3 tensors",
 StyleBox["\n\t",
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],
  FontWeight->"Bold",ExpressionUUID->"7720737d-7d93-4ec1-a70f-69ed94abbd43"],
 StyleBox[": ",
  FontWeight->"Bold"],
 "flavor contractions fixed by an approximate ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
  "c8398d99-20ec-4b11-a267-ba71bbfe0d50"],
 " symmetry, broken only by Yukawa insertions in chirality flipping currents \
(operators of classes 5,6,8d)",
 StyleBox["\n\tMFV: ",
  FontWeight->"Bold"],
 "assumes an approximate ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
  "1808da2d-d6d8-49c1-ae50-6e1366c612ac"],
 "flavor symmetry + CP violation only from CKM phase. \n\t           Compared \
to the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
  "ea16a9bc-c3e1-41d9-aa7f-b998c82fbbd3"],
 " model, it contains the first order of flavor-breaking spurion insertions \
and does not contain CP-odd bosonic operators. Moreover, all W. coefficients \
are real",
 StyleBox["\n\t\nInput schemes available\n\t",
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["\[Alpha]", "ew"], ",", " ", 
     SubscriptBox["m", "Z"], ",", 
     SubscriptBox["G", "F"]}], "}"}], TraditionalForm]],ExpressionUUID->
  "c43d6df4-dcff-4ee7-bbdc-31e35d1ce7aa"],
 "\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["m", "W"], ",", " ", 
      SubscriptBox["m", "Z"], ",", " ", 
      SubscriptBox["G", "F"]}], "}"}]}], TraditionalForm]],ExpressionUUID->
  "94dd10fe-e732-4d35-8de5-a2cffc0a1a68"],
 "\n"
}], "Text",
 CellChangeTimes->{{3.714472954178997*^9, 3.7144736611223793`*^9}, {
  3.714473698561861*^9, 3.71447372916742*^9}, {3.7144737634682198`*^9, 
  3.7144737816286173`*^9}, {3.714473858289695*^9, 3.714473873154048*^9}, {
  3.714474057975432*^9, 3.7144740595614223`*^9}, {3.7146519107109127`*^9, 
  3.714651942096879*^9}, {3.71465198688098*^9, 
  3.714652001317361*^9}},ExpressionUUID->"84b164ae-00f4-418b-92ed-\
dac633b0a8d7"],

Cell[TextData[{
 "To select a model, specify the two flags Flavor and Scheme ",
 StyleBox["before",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " loading the .fr main file.\nAllowed values are :\n",
 StyleBox["Flavor",
  FontWeight->"Bold"],
 " = general, U35, MFV\n",
 StyleBox["Scheme",
  FontWeight->"Bold"],
 " = alphaScheme, MwScheme"
}], "Text",
 CellChangeTimes->{{3.714473764590843*^9, 3.714473773387807*^9}, {
  3.714473838316639*^9, 3.714473840444023*^9}},
 Background->RGBColor[
  1, 0.9, 0.8],ExpressionUUID->"e8a0586e-7fc8-4807-aeb5-cce4fd6c051e"],

Cell[TextData[{
 StyleBox["Restriction files are available:",
  FontVariations->{"Underline"->True}],
 "\n",
 StyleBox["CPconserving.rst ",
  FontWeight->"Bold"],
 "- sets to 0 the CKM phase, the coefficients of CP violating operators and \
the phases of fermion operators\n",
 StyleBox["massless.rst ",
  FontWeight->"Bold"],
 "- sets to 0 the masses and Yukawa couplings of all the fermions except top \
and bottom quarks. \n                       In the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
  "7b530443-4db1-4721-b5d2-889adf0a11a4"],
 " and MFV models it sets additionally to 0 the coefficients of redundant \
operators \n                       ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox["Q", "eH"]}], TraditionalForm]],ExpressionUUID->
  "b5df5418-17dd-4e72-bad5-e478fc01ee55"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["Q", "eW"], TraditionalForm]],ExpressionUUID->
  "ce10d9b0-4673-4a0c-99eb-c41611f7cacb"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["Q", "eB"], TraditionalForm]],ExpressionUUID->
  "1ceca9d4-2060-40b3-b742-63d762ee8f7a"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["Q", "ledq"], TraditionalForm]],ExpressionUUID->
  "7ab20918-5e1a-4040-b295-296ff7fa3431"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox["Q", "lequ"], 
    RowBox[{"(", "1", ")"}]], TraditionalForm]],ExpressionUUID->
  "4580d1c4-ccd2-4b94-a6a6-d8b702ea689b"],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox["Q", "lequ"], 
    RowBox[{"(", "3", ")"}]], TraditionalForm]],ExpressionUUID->
  "94a88322-cdbf-439f-bbf9-67eaca12b554"],
 " and flavor diagonal spurions in classes 5, 6, 8d for MFV)\n",
 StyleBox["Cabibbo.rst ",
  FontWeight->"Bold"],
 "- replaces the CKM in the Wolfenstein parameterization with the 2x2 \
rotation by the Cabibbo angle"
}], "Text",
 CellChangeTimes->{{3.714473925700109*^9, 3.7144742310293493`*^9}, 
   3.714474281906324*^9, {3.7146520708866587`*^9, 
   3.714652076958681*^9}},ExpressionUUID->"ef6ce449-903c-4f17-9b75-\
7912d9c4ab1a"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.714474265137045*^9},ExpressionUUID->"7e2bd107-2391-4afb-a870-\
15da1292e912"],

Cell[TextData[{
 StyleBox["Lagrangians defined ",
  FontVariations->{"Underline"->True}],
 "\n\nLSM - SM Lagrangian\nLSMlinear - SM Lagrangian with linear shifts due \
to canonically normalizing kinetic terms + choosing an input parameters set \
in the SMEFT\nLSMloop - SM Higgs coupling to gg, \[Gamma]\[Gamma], Z\[Gamma] \
at 1 loop\nLSMincl - LSMlinear + LSMloop\n\nL6clN - dimension six operators \
of class N (see below)\nL6no4f - all dimension six operator apart from \
four-fermions\nL6 - all dimension six operators\n\nLSMEFT - LSMincl + L6\n\n\
",
 StyleBox["Useful functions defined",
  FontVariations->{"Underline"->True}],
 "\n\nLinearWC[ ] - linearizes expressions in the Wilson coefficients and \
shifts\nSMlimit[ ] - sets all the Wilson coefficients and shifts to zero\n\
alphaShifts / MwShifts - replacements list to explicit the shifts as \
functions of the Wilson coefficients (only one is available depending on the \
scheme chosen)\n\n",
 StyleBox["Classes of operators",
  FontVariations->{"Underline"->True}],
 "\n1 -  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "3"], TraditionalForm]],ExpressionUUID->
  "03a0f33c-5a22-4a37-a292-cfbe42a19a92"],
 "\n2 - ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["H", "\[Dagger]"], "H"}], ")"}], "3"], TraditionalForm]],
  ExpressionUUID->"46894640-fb43-45f0-a906-50f33e654ef0"],
 "\n3 -  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["H", "4"], 
    SuperscriptBox["D", "2"]}], TraditionalForm]],ExpressionUUID->
  "194d75c5-17ef-4af5-a960-b228b32c3a21"],
 "\n4 -  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["H", "\[Dagger]"], "H"}], TraditionalForm]],
  ExpressionUUID->"3e1a0456-54a7-4222-ab6d-579a310f70ab"],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "2"], TraditionalForm]],ExpressionUUID->
  "489840e7-8c20-4575-9bbb-6f60dd079e9a"],
 "\n5 - ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["H", "\[Dagger]"], "H"}], TraditionalForm]],
  ExpressionUUID->"5b23904a-e86a-47a3-9ada-fc9248bb106a"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["\[Psi]", "_"], "\[Psi]"}], TraditionalForm]],
  ExpressionUUID->"3787a9a9-3ad6-4125-bfcd-e613de59a6c0"],
 "\t\t\n6 -  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["\[Psi]", "_"], "\[Psi]"}], TraditionalForm]],
  ExpressionUUID->"70633437-ccf7-434b-9b2f-04af84694623"],
 " X\t\t\n7 -  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["H", "\[Dagger]"], 
    OverscriptBox["D", "\[LeftRightArrow]"], "H"}], TraditionalForm]],
  ExpressionUUID->"9faf270e-5e4c-42a6-b270-60adfb801aca"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["\[Psi]", "_"], "\[Psi]"}], TraditionalForm]],
  ExpressionUUID->"d1127ff0-955f-4104-864e-bf843d6efd92"],
 "\t\n8a -  (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      OverscriptBox["L", "_"], "L"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["L", "_"], "L"}], ")"}]}], TraditionalForm]],
  ExpressionUUID->"20e21382-94a2-40b2-9b0e-420182c04b86"],
 "\n8b -  (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      OverscriptBox["R", "_"], "R"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["R", "_"], "R"}], ")"}]}], TraditionalForm]],
  ExpressionUUID->"405cb0a1-44b9-46db-bb2b-bed745159733"],
 "\n8c - (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      OverscriptBox["L", "_"], "L"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["R", "_"], "R"}], ")"}]}], TraditionalForm]],
  ExpressionUUID->"1cc09df5-038d-4c4a-8025-bc0d5b138659"],
 "\n8d -  (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      OverscriptBox["L", "_"], "R"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["R", "_"], "L"}], ")"}], " ", "and", " ", 
    RowBox[{"(", 
     FormBox[
      RowBox[{
       RowBox[{
        RowBox[{
         OverscriptBox["L", "_"], "R"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["L", "_"], "R"}], ")"}]}],
      TraditionalForm]}]}], TraditionalForm]],ExpressionUUID->
  "ae6fb6d7-27e9-40f7-8524-99ae9635431e"]
}], "Text",
 CellChangeTimes->{{3.696239302643662*^9, 3.6962395961998587`*^9}, {
   3.6962426279211273`*^9, 3.6962426382382174`*^9}, {3.69624269955401*^9, 
   3.696242713138926*^9}, {3.697464963087976*^9, 3.697464974471815*^9}, {
   3.697781321319046*^9, 3.697781411435602*^9}, {3.697781761740079*^9, 
   3.697781762068541*^9}, 3.7074035932516823`*^9, {3.714027372165451*^9, 
   3.714027386105159*^9}, {3.714037377699317*^9, 3.7140373790930023`*^9}, {
   3.714472728601252*^9, 3.7144729472637987`*^9}, {3.714474312375147*^9, 
   3.7144743155330887`*^9}, {3.714474392406591*^9, 3.714474503350297*^9}, {
   3.720526453472856*^9, 3.720526459966571*^9}},
 Background->RGBColor[
  0.94, 0.91, 0.88],ExpressionUUID->"5416058f-ee29-48d2-b23b-61a1e3603da8"],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.725884739461692*^9, 
  3.725884740533785*^9}},ExpressionUUID->"b080cac5-1c42-4c34-afad-\
7262c6d76b03"],

Cell[CellGroupData[{

Cell["FeynRules initialization", "Section",
 CellChangeTimes->{{3.696241144773179*^9, 3.696241150440773*^9}, {
  3.6965809461276217`*^9, 3.6965809488385057`*^9}, {3.7144743309076147`*^9, 
  3.71447433315618*^9}},ExpressionUUID->"6b40f8de-f3c5-4e35-84b1-\
190d4364205e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{
   "SetDirectory", "[", "\"\<~/Physics_Software/feynrules-current/\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "FeynRules`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.696317476858032*^9, 3.696317532305331*^9}, {
  3.696317585426186*^9, 3.696317651962386*^9}, {3.696317751376432*^9, 
  3.696317754478887*^9}, {3.699103763682543*^9, 3.699103764190173*^9}, {
  3.700454730267549*^9, 3.7004547312056913`*^9}, {3.7091007677573233`*^9, 
  3.709100768378248*^9}, {3.711808185969709*^9, 3.711808186635766*^9}, {
  3.71395474575002*^9, 3.7139547485442657`*^9}, {3.713955083095767*^9, 
  3.713955084043654*^9}, {3.713965524381658*^9, 3.713965525049067*^9}, {
  3.714018009358693*^9, 3.714018010217772*^9}, {3.714472650356134*^9, 
  3.714472652059746*^9}, {3.714472697973639*^9, 3.714472717882505*^9}, {
  3.714661806497555*^9, 3.714661811386827*^9}, {3.714877230574012*^9, 
  3.71487724167309*^9}},ExpressionUUID->"7be60793-69f3-4c51-a69f-\
86b265422a0f"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288122607*^9},ExpressionUUID->"36a8f0dd-c3e4-45e7-8d12-\
a20ecf0d526f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288124034*^9},ExpressionUUID->"b7ceaeb9-38fe-4bda-aa66-\
e85f04b4bf2a"],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288125313*^9},ExpressionUUID->"90d8d3a6-bab3-4906-9b53-\
77fdba0131b3"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288126482*^9},ExpressionUUID->"ad5c6f45-076a-4326-a7d8-\
696c58130505"],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.7296112881276283`*^9},ExpressionUUID->"09efc52a-a4ee-4c62-a1ca-\
9c5976c6442e"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
(arXiv:1310.1921);\"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288128785*^9},ExpressionUUID->"3ffaaf78-e9e9-4754-8eb4-\
d9d9c7218033"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288130039*^9},ExpressionUUID->"35e26f16-0bea-437a-a704-\
1b107d602e54"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288131385*^9},ExpressionUUID->"96ae02b2-315c-44b5-8dc6-\
a8c795f71327"],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.729611288132653*^9},ExpressionUUID->"684ae78a-cff6-4379-9926-\
736038a09e6b"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.72961128813381*^9},ExpressionUUID->"6743691e-a2e4-4430-a43d-\
c5270eb92258"],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9, 
   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9}, 
   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9, 
   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9, 
   3.7295918409634857`*^9, 3.729608070997796*^9, 
   3.7296112881350317`*^9},ExpressionUUID->"a88dafd5-011d-4773-8752-\
fffec82966fc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["model flavor general \[Alpha] scheme", "Section",
 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9, 
  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9, 
  3.7140273462258577`*^9}, {3.714034026337254*^9, 3.7140340306501093`*^9}, {
  3.714654213687354*^9, 
  3.714654217554427*^9}},ExpressionUUID->"c53cebc8-6012-49be-b928-\
d79e1a2ece39"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flavor", "=", "general"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDANABx9xdQ=
  
  "],ExpressionUUID->"dfc4c8d8-5aa2-4bda-a486-e292b29d50dd"],

Cell[TextData[{
 StyleBox["Warning!",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " due to the large number of parameters, importing the flavor general model \
might take  ~ 5 minutes"
}], "Text",
 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
  3.714655094561593*^9, 3.714655094710567*^9}, {3.725885215761003*^9, 
  3.725885218189393*^9}, {3.726906855142788*^9, 3.72690687087689*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"c110c552-09ea-4921-931f-2651ba8f78f9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cth", "^", "2"}], "+", 
       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"vevhat", "^", "2"}], "\[Equal]", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "definition", " ", "useful", " ", "for", " ", "algebraic", " ", 
    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9}, 
   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9}, 
   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9, 
   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9}, 
   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9, 
   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9, 
   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9, 
   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9, 
   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9, 
   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9, 
   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9, 
   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9, 
   3.713952603424769*^9}, 
   3.714654600097947*^9},ExpressionUUID->"4da591a6-13d7-4ac1-921d-\
674a71a54cc8"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Flavor general framework selected\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412046321*^9},ExpressionUUID->"f7bf66d2-4e32-44ba-b456-\
10f54b0c1aa0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", "\[Alpha]", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", 
   SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["G", "f"]}],
  SequenceForm["Input parameters: ", FeynRules`\[Alpha], ", ", 
   Subscript[FeynRules`m, $CellContext`Z], ", ", 
   Subscript[FeynRules`G, FeynRules`f]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.72897141204799*^9},ExpressionUUID->"fe1f5602-df35-488c-9407-\
631835fc1f98"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412092065*^9},ExpressionUUID->"d22aff24-f341-465f-83ea-\
af910f2aa404"],

Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.7289714120935373`*^9},ExpressionUUID->"282ea2cf-8cf6-46fc-94d1-\
f4eac6ba6b55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.0\"\>"}],
  SequenceForm["Model Version: ", "2.0"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412095068*^9},ExpressionUUID->"40bf39db-8f45-4b41-9d1d-\
2a9f94616f41"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412096594*^9},ExpressionUUID->"e4510588-118f-4791-bdde-\
91923b19f246"],

Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.72897141209805*^9},ExpressionUUID->"a32e1fb0-77fe-4ce7-a362-\
23a60b923bf2"],

Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412099581*^9},ExpressionUUID->"73b5a643-f19a-433b-b9f7-\
a1ea92904c10"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412101636*^9},ExpressionUUID->"9d2e9a8b-b1c7-4087-b508-\
a64c7a568b21"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412103085*^9},ExpressionUUID->"1fc3cc74-e968-4132-9999-\
af8e641e0fc1"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.7289714121368427`*^9},ExpressionUUID->"d566f0f2-34a5-4144-bb20-\
19b56ecf0797"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412265396*^9},ExpressionUUID->"363bd0c9-a249-4e77-b4cc-\
3525b0160753"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971412268067*^9},ExpressionUUID->"7240cc41-f3e7-4ab6-b174-\
f63b49e6bef8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9}, 
   3.728971712110046*^9},ExpressionUUID->"1cd7e254-a3cb-4fbb-8651-\
4e58ee2d1a18"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "x", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"WC6indices", ",", 
       RowBox[{"Conjugate", "/@", "WC6indices"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
          ",", "dgw"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
   3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9, 
   3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
   3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9, 
   3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
   3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9, 
   3.6986454466349792`*^9}, {3.6990803840045652`*^9, 
   3.6990803931031227`*^9}, {3.707025063385503*^9, 3.707025074535533*^9}, {
   3.707026201080791*^9, 3.707026206097932*^9}, {3.707733746790945*^9, 
   3.707733759745702*^9}, {3.711875906183223*^9, 3.71187590676577*^9}, {
   3.712555385621932*^9, 3.712555393408392*^9}, 3.714654203616951*^9, {
   3.7146550454382*^9, 
   3.714655049287825*^9}},ExpressionUUID->"f58736e1-2cb2-4219-859f-\
68c4482f9ccd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"LoadRestriction", "[", "\"\<CPconserving.rst\>\"", "]"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7258851910485983`*^9, 3.725885204222164*^9}, {
  3.7269071410276833`*^9, 
  3.726907142642144*^9}},ExpressionUUID->"90113a27-38d6-45a4-a4b0-\
d71fde76e1c7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Loading restrictions from \"\>", 
   "\[InvisibleSpace]", "\<\"CPconserving.rst\"\>", 
   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
    ImageSizeCache->{226., {2., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "420"}],
  SequenceForm["Loading restrictions from ", "CPconserving.rst", " : ", 
   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 420],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.725885208111805*^9},ExpressionUUID->"ce690e60-4f67-493b-bb7c-\
7bfbf4e8b5a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FeynmanRules", "[", 
    RowBox[{
     RowBox[{"LSMloop", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"cHG", " ", "OHG"}], " ", "+", " ", 
         RowBox[{"cHGtil", " ", "OHGtil"}]}], ")"}], "/", 
       RowBox[{"LambdaSMEFT", "^", "2"}]}]}], ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"G", ",", "G", ",", "H"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"G", ",", "G", ",", "H", ",", "H"}], "}"}]}], "}"}]}]}], 
    "]"}], "//", "WCsimplify"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.728970297972439*^9, 3.7289703559690847`*^9}, {
  3.728970399289207*^9, 3.728970406625471*^9}, {3.728970695184454*^9, 
  3.7289707191795483`*^9}, {3.728970751408709*^9, 3.728970788144291*^9}, {
  3.728970992696302*^9, 3.728971000670878*^9}, {3.728973223394101*^9, 
  3.728973237579611*^9}},ExpressionUUID->"e3bfaa60-bc5c-488b-83ed-\
701b44dbe5ac"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9}, 
   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
   3.728973230540729*^9, 
   3.728973240444737*^9}},ExpressionUUID->"df5f5226-236a-4000-8e15-\
cd66bda745cc"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9}, 
   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
   3.728973230540729*^9, 
   3.728973240446768*^9}},ExpressionUUID->"531b582b-a470-4ce1-a525-\
ffc569fe411e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9}, 
   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
   3.728973230540729*^9, 
   3.728973240449257*^9}},ExpressionUUID->"ab03436a-ba9c-4300-b656-\
73722c07084d"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9}, 
   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
   3.728973230540729*^9, 
   3.728973242163278*^9}},ExpressionUUID->"b46ee0e2-304a-4e58-84f2-\
973ff1cb5da4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  2, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9}, 
   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
   3.728973230540729*^9, 
   3.728973242187127*^9}},ExpressionUUID->"8220978a-c6aa-444a-88b1-\
ee5629827c5a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[2, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9}, 
   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
   3.728973230540729*^9, 
   3.728973242527041*^9}},ExpressionUUID->"bcee00b7-1748-4128-a0c2-\
ac8114c91282"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"G", "1"},
       {"G", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", 
           OverscriptBox["G", "~"]}]], " ", 
         OverscriptBox["v", "^"], " ", 
         SubscriptBox["\[Epsilon]", 
          RowBox[{
           SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
           SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", 
           "\[Beta]1"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ", 
            SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"]}], "-", 
           RowBox[{
            SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ", 
            SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"]}]}], ")"}], " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"a\"\>", "1"], ",", 
           SubscriptBox["\<\"a\"\>", "2"]}]]}], 
        SuperscriptBox["\[CapitalLambda]", "2"]]}], "+", 
      FractionBox[
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["g", "HGG"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"a\"\>", "1"], ",", 
          SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["\<\"p\"\>", "1", 
            SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
           SubsuperscriptBox["\<\"p\"\>", "2", 
            SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-", 
          RowBox[{
           SubscriptBox["\[Eta]", 
            RowBox[{
             SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
             SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
           RowBox[{
            SubscriptBox["\<\"p\"\>", "1"], ".", 
            SubscriptBox["p", "2"]}]}]}], ")"}]}], 
       OverscriptBox["v", "^"]], "+", 
      FractionBox[
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "HG"], " ", 
        OverscriptBox["v", "^"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"a\"\>", "1"], ",", 
          SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["\<\"p\"\>", "1", 
            SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
           SubsuperscriptBox["\<\"p\"\>", "2", 
            SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-", 
          RowBox[{
           SubscriptBox["\[Eta]", 
            RowBox[{
             SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
             SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
           RowBox[{
            SubscriptBox["\<\"p\"\>", "1"], ".", 
            SubscriptBox["p", "2"]}]}]}], ")"}]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]]}]},
    {GridBox[{
       {"G", "1"},
       {"G", "2"},
       {"H", "3"},
       {"H", "4"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", 
           OverscriptBox["G", "~"]}]], " ", 
         SubscriptBox["\[Epsilon]", 
          RowBox[{
           SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
           SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", 
           "\[Beta]1"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ", 
            SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"]}], "-", 
           RowBox[{
            SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ", 
            SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"]}]}], ")"}], " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"a\"\>", "1"], ",", 
           SubscriptBox["\<\"a\"\>", "2"]}]]}], 
        SuperscriptBox["\[CapitalLambda]", "2"]]}], "+", 
      FractionBox[
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "HG"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"a\"\>", "1"], ",", 
          SubscriptBox["\<\"a\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["\<\"p\"\>", "1", 
            SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
           SubsuperscriptBox["\<\"p\"\>", "2", 
            SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-", 
          RowBox[{
           SubscriptBox["\[Eta]", 
            RowBox[{
             SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
             SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
           RowBox[{
            SubscriptBox["\<\"p\"\>", "1"], ".", 
            SubscriptBox["p", "2"]}]}]}], ")"}]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`G, 1}, {FeynRules`G, 2}, {FeynRules`H, 3}}, 
     Complex[0, -2] $CellContext`cHGtil $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat FeynRules`Eps[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1], 
        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]] (
       FeynRules`FV[1, 
          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]] 
        FeynRules`FV[2, 
          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]] - 
       FeynRules`FV[1, 
         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]] 
       FeynRules`FV[2, 
         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]]) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[2]]] + 
     Complex[0, 4] $CellContext`gHgg $CellContext`vevhat^(-1) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[2]]] (FeynRules`FV[1, 
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[2]]] FeynRules`FV[2, 
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]] - FeynRules`ME[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[2]]] FeynRules`SP[1, 2]) + 
     Complex[0, 
        4] $CellContext`cHG $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[2]]] (FeynRules`FV[1, 
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[2]]] FeynRules`FV[2, 
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]] - FeynRules`ME[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[2]]] FeynRules`SP[1, 2])}, {{{FeynRules`G, 1}, {
      FeynRules`G, 2}, {FeynRules`H, 3}, {FeynRules`H, 4}}, 
     Complex[0, -2] $CellContext`cHGtil $CellContext`LambdaSMEFT^(-2) 
      FeynRules`Eps[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1], 
        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]] (
       FeynRules`FV[1, 
          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]] 
        FeynRules`FV[2, 
          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]] - 
       FeynRules`FV[1, 
         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]] 
       FeynRules`FV[2, 
         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]]) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[2]]] + 
     Complex[0, 4] $CellContext`cHG $CellContext`LambdaSMEFT^(-2) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Gluon, 
         FeynRules`Ext[2]]] (FeynRules`FV[1, 
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[2]]] FeynRules`FV[2, 
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]] - FeynRules`ME[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[2]]] FeynRules`SP[1, 2])}}]]], "Output",
 CellChangeTimes->{{3.728970692694235*^9, 3.7289707068657837`*^9}, {
   3.7289707493214817`*^9, 3.728970791702549*^9}, 3.7289710103695*^9, 
   3.728971129066411*^9, 3.72897173367585*^9, {3.72897323325054*^9, 
   3.728973243122398*^9}},ExpressionUUID->"48e161f3-55eb-4810-a978-\
c5b9945ccc8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{
       RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3"}], ",", 
       RowBox[{"SelectParticles", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"H", ",", "H", ",", "H"}], "}"}]}]}], "]"}], "//.", 
     RowBox[{
      RowBox[{"SP", "[", 
       RowBox[{"x_", ",", "3"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"SP", "[", 
         RowBox[{"x", ",", "1"}], "]"}]}], "-", 
       RowBox[{"SP", "[", 
        RowBox[{"x", ",", "2"}], "]"}]}]}]}], "//", "OptimizeIndex"}], "//", 
   "Simplify"}], "//", "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]}], "Input",
 CellChangeTimes->{{3.728970435493824*^9, 3.728970466450448*^9}, 
   3.7289708447957573`*^9, {3.7289709487547293`*^9, 3.728970949827463*^9}, {
   3.728971012122827*^9, 3.7289710127619467`*^9}, {3.728971187842832*^9, 
   3.728971259986041*^9}, {3.7289713089680367`*^9, 
   3.7289713601271553`*^9}},ExpressionUUID->"c26691ff-f632-4305-8671-\
8cfd87db9120"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9}, 
   3.728971336525646*^9, 3.728971370111155*^9, 
   3.728971759852539*^9},ExpressionUUID->"862e9f62-b822-4440-861f-\
80a24fe736f4"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9}, 
   3.728971336525646*^9, 3.728971370111155*^9, 
   3.728971759854557*^9},ExpressionUUID->"4c2dea28-63a9-433f-9e47-\
c02fd2b087b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9}, 
   3.728971336525646*^9, 3.728971370111155*^9, 
   3.7289717598563013`*^9},ExpressionUUID->"ab02d9c4-198e-4466-880b-\
3264f55efc13"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9}, 
   3.728971336525646*^9, 3.728971370111155*^9, 
   3.728971764279398*^9},ExpressionUUID->"b0a27050-2358-4326-903a-\
4723d0867d46"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  1, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9}, 
   3.728971336525646*^9, 3.728971370111155*^9, 
   3.7289717642830544`*^9},ExpressionUUID->"f7c50d97-5960-45b1-9d75-\
71735bb47b63"],

Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
 CellChangeTimes->{
  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9}, 
   3.728971336525646*^9, 3.728971370111155*^9, 
   3.7289717643919487`*^9},ExpressionUUID->"26b2fd45-9526-426b-a79d-\
c21f149ee00e"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {"H", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
      OverscriptBox["v", "^"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"12", " ", "dMH2", " ", "lam"}], 
         SuperscriptBox["MH", "2"]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"6", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", 
             RowBox[{
              SqrtBox["2"], " ", "dGf"}]}], ")"}], " ", "lam", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
          RowBox[{"30", " ", 
           SubscriptBox["c", "H"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"]}], "+", 
          RowBox[{"9", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["c", 
               RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
             SubscriptBox["c", "HD"]}], ")"}], " ", "lam", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SubscriptBox["c", 
               RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
             SubscriptBox["c", "HD"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\<\"p\"\>", "1"], ".", 
              SubscriptBox["p", "1"]}], "+", 
             RowBox[{
              SubscriptBox["\<\"p\"\>", "1"], ".", 
              SubscriptBox["p", "2"]}], "+", 
             RowBox[{
              SubscriptBox["\<\"p\"\>", "2"], ".", 
              SubscriptBox["p", "2"]}]}], ")"}]}]}], 
         SuperscriptBox["\[CapitalLambda]", "2"]]}], ")"}]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {FeynRules`H, 2}, {FeynRules`H, 3}}, 
     Complex[0, 
       Rational[1, 2]] $CellContext`vevhat (
      12 $CellContext`dMH2 $CellContext`lam $CellContext`MH^(-2) + \
$CellContext`LambdaSMEFT^(-2) (
        6 (-2 + 2^
            Rational[
             1, 2] $CellContext`dGf) $CellContext`lam \
$CellContext`LambdaSMEFT^2 + 30 $CellContext`cH $CellContext`vevhat^2 + 
        9 ((-4) $CellContext`cHbox + $CellContext`cHDD) $CellContext`lam \
$CellContext`vevhat^2 - 
        2 (4 $CellContext`cHbox - $CellContext`cHDD) (FeynRules`SP[1, 1] + 
         FeynRules`SP[1, 2] + FeynRules`SP[2, 2])))}}]]], "Output",
 CellChangeTimes->{
  3.728970842893005*^9, 3.728970946642741*^9, {3.728971004962888*^9, 
   3.7289710163629932`*^9}, {3.728971216188095*^9, 3.72897127294965*^9}, 
   3.72897134064121*^9, 3.728971374582238*^9, 
   3.7289717648919077`*^9},ExpressionUUID->"a3df65b3-abf0-47f5-9070-\
70c6562c5c6b"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {"H", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "lam", " ", 
       OverscriptBox["v", "^"]}], "+", 
      FractionBox[
       RowBox[{"6", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "H"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "3"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", "lam", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "3"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"1", ",", "1"}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", "lam", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "3"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"2", ",", "2"}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "-", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", "lam", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "3"], " ", 
        SubscriptBox[
         SubscriptBox["c", "ll"], 
         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        OverscriptBox["v", "^"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "lam", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\<\"p\"\>", "1"], ".", 
              SubscriptBox["p", "1"]}], "+", 
             RowBox[{
              SubscriptBox["\<\"p\"\>", "1"], ".", 
              SubscriptBox["p", "2"]}], "+", 
             RowBox[{
              SubscriptBox["\<\"p\"\>", "2"], ".", 
              SubscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        OverscriptBox["v", "^"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "lam", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\<\"p\"\>", "1"], ".", 
              SubscriptBox["p", "1"]}], "+", 
             RowBox[{
              SubscriptBox["\<\"p\"\>", "1"], ".", 
              SubscriptBox["p", "2"]}], "+", 
             RowBox[{
              SubscriptBox["\<\"p\"\>", "2"], ".", 
              SubscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {FeynRules`H, 2}, {FeynRules`H, 3}}, 
     Complex[0, -6] $CellContext`lam $CellContext`vevhat + 
     Complex[0, 
        6] $CellContext`cH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^3 + 
     Complex[0, 
        3] $CellContext`lam $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^3 $CellContext`cHl3[1, 1] + 
     Complex[0, 
        3] $CellContext`lam $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^3 $CellContext`cHl3[2, 2] + 
     Complex[0, -3] $CellContext`lam $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^3 $CellContext`cll[1, 2, 2, 1] + 
     Complex[0, -2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat (3 $CellContext`lam $CellContext`vevhat^2 + 
       2 (FeynRules`SP[1, 1] + FeynRules`SP[1, 2] + FeynRules`SP[2, 2])) + 
     Complex[0, 
        Rational[
        1, 2]] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat (3 $CellContext`lam $CellContext`vevhat^2 + 
       2 (FeynRules`SP[1, 1] + FeynRules`SP[1, 2] + 
         FeynRules`SP[2, 2]))}}]]], "Output",
 CellChangeTimes->{
  3.728970842893005*^9, 3.728970946642741*^9, {3.728971004962888*^9, 
   3.7289710163629932`*^9}, {3.728971216188095*^9, 3.72897127294965*^9}, 
   3.72897134064121*^9, 3.728971374582238*^9, 
   3.7289717650484133`*^9},ExpressionUUID->"f2bed6c6-392f-42fb-8a56-\
2aec031c4d53"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"FeynmanRules", "[", 
          RowBox[{
           RowBox[{"LYukawa", "+", "L6cl5"}], ",", 
           RowBox[{"SelectParticles", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"uq", ",", "uqbar", ",", "H"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"uq", ",", "uqbar", ",", "H", ",", "H"}], "}"}]}], 
             "}"}]}]}], "]"}], "//", "FlavorExpansion"}], "//", "LinearWC"}], 
       "//", 
       RowBox[{
        RowBox[{"ReplaceAll", "[", 
         RowBox[{"#", ",", "alphaShifts"}], "]"}], "&"}]}], "//", 
      "OptimizeIndex"}], "//", "Simplify"}], "//", 
    RowBox[{
     RowBox[{"Collect", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"cHDD", ",", "cHbox", ",", 
         RowBox[{"cHl3", "[", 
          RowBox[{
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "1"}], "]"}], ",", 
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "1"}], "]"}]}], "]"}], ",", 
         RowBox[{"cHl3", "[", 
          RowBox[{
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "2"}], "]"}], ",", 
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "2"}], "]"}]}], "]"}], ",", 
         RowBox[{"cll", "[", 
          RowBox[{
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "1"}], "]"}], ",", 
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "2"}], "]"}], ",", 
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "2"}], "]"}], ",", 
           RowBox[{"Index", "[", 
            RowBox[{"Generation", ",", "1"}], "]"}]}], "]"}], ",", "cuH3x3", 
         ",", 
         RowBox[{"Conjugate", "[", "cuH3x3", "]"}]}], "}"}], ",", 
       "Simplify"}], "]"}], "&"}]}], "//", 
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{"#", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", "t"}], "]"}]}], "&&", 
        RowBox[{"!", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", "tbar"}], "]"}]}]}], "&"}]}], "]"}], "&"}]}], "//",
   "TableForm"}]], "Input",
 CellChangeTimes->{{3.728970815855515*^9, 3.728970833321109*^9}, {
  3.728971211047118*^9, 3.728971212099345*^9}, {3.728971741957637*^9, 
  3.728971754617878*^9}, {3.728971813251779*^9, 3.7289719099588757`*^9}, {
  3.728971950418058*^9, 3.7289719812964153`*^9}, {3.728972021293687*^9, 
  3.728972067203093*^9}, {3.7289721012221622`*^9, 3.7289721053428173`*^9}, {
  3.7289721373650103`*^9, 3.7289721469216843`*^9}, {3.728972768804913*^9, 
  3.728972769659342*^9}, {3.728972799680726*^9, 3.728972932463216*^9}, {
  3.728973008262121*^9, 3.728973045201191*^9}, {3.7289731352184887`*^9, 
  3.728973178220443*^9}},ExpressionUUID->"00e5d10d-94d0-4412-925b-\
1c616d997fec"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.72897318309711*^9},ExpressionUUID->"fae4aa60-1cf8-41f2-bc8f-\
3622fb604dca"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.7289731830986967`*^9},ExpressionUUID->"581111a9-9ef9-4e06-9c53-\
988d9edd599b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.728973183100377*^9},ExpressionUUID->"dcc42d6d-1d5c-45a7-81b2-\
ebffd37e862e"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.7289731852674932`*^9},ExpressionUUID->"5a77f048-9f2f-4fd0-8c69-\
8eb81729fdd5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  2, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.728973185270031*^9},ExpressionUUID->"5f523990-5a57-4bc4-9447-\
a590cc465c7b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[2, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.728973185517642*^9},ExpressionUUID->"01983c43-06b4-486f-8377-\
a5fd27efc5a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "2"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9, 
   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9, 
   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9, 
   3.728973050205524*^9, 3.728973112406604*^9, 
   3.72897318584369*^9},ExpressionUUID->"5b46f11b-b9ff-47d4-9c75-\
be88314ec755"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {"H", "2"},
       {
        OverscriptBox["t", "\<\"-\"\>"], "3"},
       {"t", "4"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        OverscriptBox["v", "^"], " ", 
        SuperscriptBox["cuH3x3", "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "3"], ",", 
          SubscriptBox["\<\"m\"\>", "4"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "3"], ",", 
          SubscriptBox["\<\"s\"\>", "4"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", "cuH3x3", " ", 
        OverscriptBox["v", "^"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "3"], ",", 
          SubscriptBox["\<\"m\"\>", "4"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "3"], ",", 
          SubscriptBox["\<\"s\"\>", "4"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["t", "\<\"-\"\>"], "2"},
       {"t", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "yt", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"m\"\>", "2"], ",", 
           SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "yt", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "yt", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "yt", " ", 
        SubscriptBox["cHl3", 
         RowBox[{"1", ",", "1"}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "yt", " ", 
        SubscriptBox["cHl3", 
         RowBox[{"2", ",", "2"}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "yt", " ", 
        SubscriptBox[
         SubscriptBox["c", "ll"], 
         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SuperscriptBox["cuH3x3", "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "cuH3x3", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {FeynRules`H, 2}, {$CellContext`tbar, 3}, {
      FeynRules`t, 4}}, 
     Complex[0, 3] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat 
      Conjugate[$CellContext`cuH3x3] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[4]]] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[4]]] + 
     Complex[0, 3] 
      2^Rational[-1, 
         2] $CellContext`cuH3x3 $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[4]]] FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[4]]]}, {{{FeynRules`H, 1}, {$CellContext`tbar, 2}, {
      FeynRules`t, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`yt FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`yt FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`yt FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`yt $CellContext`cHl3[
        FeynRules`Index[$CellContext`Generation, 1], 
        FeynRules`Index[$CellContext`Generation, 1]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`yt $CellContext`cHl3[
        FeynRules`Index[$CellContext`Generation, 2], 
        FeynRules`Index[$CellContext`Generation, 2]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[-1, 2]] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`yt $CellContext`cll[
        FeynRules`Index[$CellContext`Generation, 1], 
        FeynRules`Index[$CellContext`Generation, 2], 
        FeynRules`Index[$CellContext`Generation, 2], 
        FeynRules`Index[$CellContext`Generation, 1]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`cuH3x3] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`cuH3x3 $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[3]]] FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]]], "Output",
 CellChangeTimes->{
  3.7289717746580753`*^9, {3.7289718225612707`*^9, 3.728971922158792*^9}, 
   3.7289719658579493`*^9, 3.728971997334771*^9, 3.728972047486012*^9, 
   3.728972082401774*^9, 3.7289721216940536`*^9, 3.72897216344219*^9, {
   3.7289727859217157`*^9, 3.728972838069775*^9}, {3.728972919110672*^9, 
   3.728972948602634*^9}, 3.7289730241886873`*^9, 3.7289730616976967`*^9, 
   3.7289731243003893`*^9, 
   3.728973193437202*^9},ExpressionUUID->"aef98f10-35a3-480d-bb6b-\
c13da457e161"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - extraction of aTGC ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    SuperscriptBox[
     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
  "af5b2e82-d577-4f50-8786-fb17255555f8"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
  "ff57105e-9d23-459f-ae07-e0fcf7f77b3d"],
 " )"
}], "Subsection",
 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9, 
  3.714474881170227*^9}, {3.7146522087316093`*^9, 
  3.7146522332696543`*^9}},ExpressionUUID->"86e4fb78-f3cd-47f5-a5f1-\
33600a572f6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LGauge", "+", "L6cl4"}], "/.", 
     RowBox[{
      RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
     "OptimizeIndex"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9, 
  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
  3.7144751339781103`*^9, 
  3.714475137908736*^9}},ExpressionUUID->"d2e56b81-6219-490c-982c-\
ee49a37c6877"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 
  3.697355204589117*^9}},ExpressionUUID->"dc9ad820-5590-4bac-81d4-\
d90c096f5f4b"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
eigenstates should be selected!\"\>"], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7146551421946583`*^9, 
  3.7269070218952723`*^9},ExpressionUUID->"ad70eaad-70fd-45a9-a6c5-\
b0c905b0f808"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7146551421946583`*^9, 
  3.726907021953415*^9},ExpressionUUID->"2e816367-f1aa-4573-bb39-\
a98038b0c1e5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with less than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7146551421946583`*^9, 
  3.726907021972106*^9},ExpressionUUID->"58981fbd-ec10-46f4-90bf-\
1f347d509b2b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9, 
   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9, 
   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9, 
   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9, 
   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
   3.714652412441049*^9, 3.714652464776884*^9}, 3.714652626095168*^9, {
   3.714654309590547*^9, 3.714654313029612*^9}, {3.714655034452681*^9, 
   3.714655035524263*^9}},ExpressionUUID->"d013d0c4-7567-4fce-93f1-\
84c03e773d99"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 3.7146551492705727`*^9, 
   3.726907022293692*^9},ExpressionUUID->"ca8ff5a3-affc-4721-af81-\
85a325536cd5"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HD"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["cHl3", 
             RowBox[{"1", ",", "1"}]], "+", 
            SubscriptBox["cHl3", 
             RowBox[{"2", ",", "2"}]], "-", 
            SubscriptBox[
             SubscriptBox["c", "ll"], 
             RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 3.7146551492705727`*^9, 
   3.72690702271329*^9},ExpressionUUID->"d1046564-350d-4edc-9eaa-\
ece071eaa65f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HWB"], " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"1", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"2", ",", "2"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "ll"], 
         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 3.7146551492705727`*^9, 
   3.726907022890486*^9},ExpressionUUID->"8dd59ff1-21b8-4aa1-9278-\
cd6ee80b4ca7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652472649456*^9, 3.714652608904799*^9}, {
  3.7146543956773233`*^9, 3.714654397434864*^9}, {3.7146551775086193`*^9, 
  3.714655183451696*^9}},ExpressionUUID->"777fafde-cd1a-4c6a-936e-\
23ce19d1eaf8"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9, 
   3.726907023051642*^9},ExpressionUUID->"473bc550-7f3f-4e39-9e35-\
fbc389bd374c"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", 
        RowBox[{"8", " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HD"], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}], "+", 
           SubscriptBox["cHl3", 
            RowBox[{"1", ",", "1"}]], "+", 
           SubscriptBox["cHl3", 
            RowBox[{"2", ",", "2"}]], "-", 
           SubscriptBox[
            SubscriptBox["c", "ll"], 
            RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
       ")"}]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"2", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9, 
   3.726907023268084*^9},ExpressionUUID->"04e85cfc-7162-453b-bf06-\
03c19b4aecba"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"1", ",", "1"}]]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"2", ",", "2"}]]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox[
        SubscriptBox["c", "ll"], 
        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"4", "-", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{
   SubscriptBox["c", "\[Theta]"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9, 
   3.726907023393265*^9},ExpressionUUID->"18d9599e-0238-4e75-9e8a-\
a1d6bee374fa"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.714652368810739*^9, 
  3.7146524695105267`*^9},ExpressionUUID->"1ea0cb97-74b3-42c4-becf-\
65e1c3ef0119"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
  3.697369511884927*^9, 
  3.697369515354232*^9}},ExpressionUUID->"56eee9d8-93eb-4163-b606-\
e817d2dfec84"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9, 
   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9}, 
   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9, 
   3.714652669421071*^9}, {3.714654403671623*^9, 3.714654416461287*^9}, {
   3.714655202079158*^9, 
   3.714655208219514*^9}},ExpressionUUID->"2560bf02-b49c-47cc-ac7c-\
662814ae53c0"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dsth2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["s", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9, 
   3.714655208705667*^9}, 
   3.726907035030443*^9},ExpressionUUID->"edcce4f6-c317-4a34-8918-\
dc3d7a5831ce"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "e", " ", 
  SubscriptBox["A", "mu$1"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
         SubscriptBox["W", "mu$1"], "]"}]}], "+", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9, 
   3.714655208705667*^9}, 
   3.726907035104698*^9},ExpressionUUID->"323abe3e-a411-4c9b-8533-\
71936f66be4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652676781377*^9, 3.71465270986456*^9}, {
  3.714654407380022*^9, 3.714654408872603*^9}, {3.7146552117486067`*^9, 
  3.714655212645193*^9}},ExpressionUUID->"c3ce482e-99ae-4de8-8127-\
f9b3ee83f0c0"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dsth2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 3.7146552134605207`*^9, 
   3.7269070380694733`*^9},ExpressionUUID->"9cdded33-69f8-4066-a855-\
8723c4efdcfa"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}], "+", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 3.7146552134605207`*^9, 
   3.726907038167432*^9},ExpressionUUID->"ffb7b391-f301-4e1d-94c0-\
5328fe0872d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  RowBox[{
   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
   SubscriptBox["A", "mu$1"], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["W", "mu$2"], " ", 
     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
    RowBox[{
     SubscriptBox["W", "mu$1"], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 3.7146552134605207`*^9, 
   3.7269070382159033`*^9},ExpressionUUID->"c38b0cc9-9282-4fea-b7cc-\
ff9b1df2efc8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : h Z Z coupling (CP even)", "Subsection",
 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
  3.71465313260557*^9, 
  3.714653135145647*^9}},ExpressionUUID->"afdaa5d5-ec6e-441f-80a5-\
29a2d7ad36b3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hzz", "=", 
  RowBox[{
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.", 
      RowBox[{
       RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], 
     ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9, 
  3.697781973755425*^9}, {3.714653122093409*^9, 
  3.714653151135909*^9}},ExpressionUUID->"20646313-9df5-4d6c-b179-\
c4a19db1e3ec"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]], 
  RowBox[{"H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "32"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
     RowBox[{"32", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["e", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            SqrtBox["2"], " ", "dGf"}], "+", 
           RowBox[{"4", " ", "dgw"}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"dg1", "-", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", 
             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["c", "HD"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.714653202225688*^9, 3.714654519287326*^9, 
  3.714655351621037*^9, 
  3.7269071052342587`*^9},ExpressionUUID->"5e625118-e135-42ef-b1b1-\
2f7111bc041f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
 CellChangeTimes->{{3.714653438713478*^9, 
  3.7146534431183643`*^9}},ExpressionUUID->"13a53d48-6c16-4925-9131-\
068868c51a55"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.71465344371563*^9, 3.714654519369021*^9, 
  3.71465535176595*^9, 
  3.726907105336083*^9},ExpressionUUID->"38cabc67-d39b-45cd-9265-\
b52cbb9724a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"hzz", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", "_", "]"}], "2"], ",", 
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",", 
   "WCsimplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9, 
  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9, 
  3.7146534351677427`*^9}},ExpressionUUID->"ae1cc0f7-b195-462b-9057-\
78b3e5170a15"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", "H", " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
        OverscriptBox["v", "^"]}], 
       RowBox[{
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", "H", " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
    SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"dg1", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"dGf", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"dgw", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"16", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.7269071056239033`*^9},ExpressionUUID->"6a82512c-9c62-42c4-958a-\
7a292f386077"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  SubscriptBox["Z", "\[Mu]"], 
  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 
  3.714653533124165*^9}},ExpressionUUID->"82131644-0cd7-403b-9525-\
ffa8a13d74f7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"hzz", "/.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   FractionBox["%", 
    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714654543437923*^9, 3.7146545447538853`*^9}, {3.714655306071694*^9, 
  3.7146553071723137`*^9}},ExpressionUUID->"40e8568f-4d3f-4322-95fa-\
f8754a3db27f"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
        SubscriptBox["c", "HD"], "-", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["cHl3", 
            RowBox[{"1", ",", "1"}]], "+", 
           SubscriptBox["cHl3", 
            RowBox[{"2", ",", "2"}]], "-", 
           SubscriptBox[
            SubscriptBox["c", "ll"], 
            RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
       ")"}]}]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9, 
   3.7269071057558517`*^9},ExpressionUUID->"c8f5ef6d-f4bf-44bc-99b6-\
89104dfcdeaf"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"1", ",", "1"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"2", ",", "2"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox[
        SubscriptBox["c", "ll"], 
        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9, 
   3.726907105837406*^9},ExpressionUUID->"61b0d309-681c-43a1-8aa3-\
40b181d41071"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "\[Mu]"], 
   SubscriptBox["Z", "\[Nu]"]}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["Z", "\[Nu]"]}], "-", 
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Nu]"], 
     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.714653634026601*^9, 
  3.714653660281114*^9}},ExpressionUUID->"f798344e-a1fc-48d2-8bd3-\
c6d74c3ee478"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hzz", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", 
    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714653677707417*^9, 3.714653739972247*^9}, {3.714654547788505*^9, 
  3.7146545492474623`*^9}, {3.714655309451169*^9, 
  3.714655311061563*^9}},ExpressionUUID->"eed85d85-a577-4a0e-aae1-\
2a53560f57f5"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "H", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["c", "HW"], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HB"], "-", 
        SubscriptBox["c", "HW"]}], ")"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}], 
  RowBox[{
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9}, 
   3.714654550173139*^9, 3.714655359366632*^9, 
   3.7269071059732847`*^9},ExpressionUUID->"ffe09fee-e2ee-454e-8d69-\
a61d4d90f7ff"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - Fermion Z ",
 Cell[BoxData[
  FormBox["couplings", TraditionalForm]],ExpressionUUID->
  "5682b4c6-9d96-4618-9945-5077a9720173"],
 " (non-dipole structures)"
}], "Subsection",
 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9, 
  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
  3.714474653133204*^9, 
  3.7144746902228537`*^9}},ExpressionUUID->"83c232dc-9faf-43fc-a036-\
95a43dea3d65"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474671414948*^9, 
  3.714474706220644*^9}},ExpressionUUID->"79c9d7a5-957c-4ec2-b127-\
3e0d737ff0f9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZffCouplings", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{"L2", ",", 
       RowBox[{"Contains", "\[Rule]", 
        RowBox[{"{", "Z", "}"}]}], ",", 
       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//", 
     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9, 
   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9, 
   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9, 
   3.714652756642342*^9}, {3.714652909302999*^9, 
   3.7146529149076347`*^9}},ExpressionUUID->"b2d4aa91-e7b0-4a7d-bf00-\
91cddf449bbd"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.7146552514152517`*^9},ExpressionUUID->"083897d2-93cc-449d-b081-\
57e606820f36"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.714655251416629*^9},ExpressionUUID->"88a44e95-7cfe-4b13-95c3-\
e8a36789a6f2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.7146552514177647`*^9},ExpressionUUID->"12724ce2-faae-417b-b7af-\
6536287ca318"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.714655261443171*^9},ExpressionUUID->"d4dda840-ae34-4ec5-9bc4-\
18c9078662fb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.714655261542199*^9},ExpressionUUID->"cbefd825-4b48-4f08-a307-\
d80c8e5a5686"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.714655264095261*^9},ExpressionUUID->"30c28d97-34f0-4a32-a095-\
99a89eb67ca6"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
          RowBox[{"3", " ", "dgw", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"2", "-", "dg1", "+", 
                RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["cHq1", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHq3", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHd", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
          RowBox[{"dgw", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-", 
          RowBox[{
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["cHl1", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHl3", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHe", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
         RowBox[{"3", " ", "dgw", " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
         RowBox[{"2", " ", "dsth2", " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox[
             RowBox[{
              TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
               "Superscript"], ".", 
              SubscriptBox["P", "\<\"-\"\>"]}], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "1"], ",", 
              SubscriptBox["\<\"s\"\>", "2"]}]], "-", 
            RowBox[{"2", " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", "dsth2", " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"+\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
         RowBox[{
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"4", "+", "dg1", "+", 
               RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "dg1"}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["cHq1", 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
            RowBox[{
             SubscriptBox["cHq3", 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{
             SubscriptBox["cHu", 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"6", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {
        OverscriptBox["vl", "\<\"-\"\>"], "1"},
       {"vl", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          SubscriptBox["cHl1", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
         RowBox[{
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          SubscriptBox["cHl3", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[CapitalLambda]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", "dgw", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
                SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
            RowBox[{
             SubscriptBox["c", "HWB"], " ", 
             SubscriptBox["c", "\[Theta]"], " ", 
             SubscriptBox["s", "\[Theta]"], " ", 
             SuperscriptBox[
              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
        3}}, (((((Complex[0, 
            Rational[-1, 6]]/$CellContext`cth) 
         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - (((
         3 $CellContext`dgw) $CellContext`LambdaSMEFT^2) 
       FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[3]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
          FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((-2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           2]]]) + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((2 - $CellContext`dg1 + 3 $CellContext`dgw) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1)) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) - (3 $CellContext`vevhat^2) ($CellContext`cHq1[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHq3[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]]))}, {{{$CellContext`lbar, 1}, {
      FeynRules`l, 2}, {$CellContext`Z, 3}}, ((((Complex[0, 
           Rational[-1, 2]]/$CellContext`cth) 
        FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
(((-$CellContext`LambdaSMEFT^2) FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - (($CellContext`dgw $CellContext`LambdaSMEFT^2) 
       FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[3]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
          FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((2 + $CellContext`dg1 + $CellContext`dgw) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1)) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) - $CellContext`vevhat^2 ($CellContext`cHl1[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHl3[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHe[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]]))}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
        2}, {$CellContext`Z, 3}}, (((((Complex[0, 
            Rational[1, 6]]/$CellContext`cth) 
         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - (((
         3 $CellContext`dgw) $CellContext`LambdaSMEFT^2) 
       FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[3]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + (((2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] - (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) (FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - 2 FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]]) + (((
          2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((4 + $CellContext`dg1 + 3 $CellContext`dgw) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (4 (1 + $CellContext`dg1)) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) + (3 $CellContext`vevhat^2) ($CellContext`cHq1[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]]] FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] - $CellContext`cHq3[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHu[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]]] FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]))}, {{{$CellContext`vlbar, 
       1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, (((((Complex[0, 
            Rational[1, 2]]/$CellContext`cth) 
         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
($CellContext`vevhat^2 $CellContext`cHl1[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] - $CellContext`vevhat^2 $CellContext`cHl3[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[
          2]]] + ($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
(-$CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
(($CellContext`cHWB $CellContext`cth) $CellContext`sth) $CellContext`vevhat^2)
          FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])) FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[3]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]]]}}]]], "Output",
 CellChangeTimes->{
  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9, 
   3.7146544666189938`*^9, 
   3.714655268809128*^9},ExpressionUUID->"6414204a-9c5c-4aa8-bcb6-\
c7ce862cd250"]
}, Open  ]],

Cell["neutrino coupling :", "Text",
 CellChangeTimes->{{3.7146528020724363`*^9, 
  3.7146528092589808`*^9}},ExpressionUUID->"1ef17f73-f819-466d-a95a-\
1107f3c7492d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ZffCouplings", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", "alphaShifts"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   RowBox[{
    FractionBox["%", 
     RowBox[{"SMlimit", "[", "%", "]"}]], "/.", 
    RowBox[{
     RowBox[{"IndexDelta", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9}, 
   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9, 
   3.714652890708997*^9}, {3.714652953030558*^9, 3.7146530356237173`*^9}, {
   3.714654434479714*^9, 3.714654435996188*^9}, {3.714655230398345*^9, 
   3.7146552321135807`*^9}},ExpressionUUID->"441230af-4a7a-4962-974c-\
957a6c20c6ca"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl1", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "dgw", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.7146552688816023`*^9},ExpressionUUID->"36339ec0-439d-4b80-a4ef-\
ff9053b0b04b"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl1", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
        RowBox[{
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["cHl3", 
               RowBox[{"1", ",", "1"}]], "+", 
              SubscriptBox["cHl3", 
               RowBox[{"2", ",", "2"}]], "-", 
              SubscriptBox[
               SubscriptBox["c", "ll"], 
               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
          ")"}]}]}], ")"}], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"8", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.714655269316441*^9},ExpressionUUID->"08b24a4e-9037-4138-aaaa-\
98d08b29d143"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl1", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"1", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"2", ",", "2"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "ll"], 
         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.714655269404749*^9},ExpressionUUID->"eb8a3b1b-5130-4de4-b1ac-\
5b7672ea5d28"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : Yukawa couplings", "Subsection",
 CellChangeTimes->{{3.714653803679809*^9, 
  3.714653813127017*^9}},ExpressionUUID->"f6d3546a-fbb5-4086-80b2-\
1fc305917cc1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LYuk", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
     "LinearWC"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9}, 
   3.714653880639667*^9, {3.7146539581117077`*^9, 
   3.714653960288474*^9}},ExpressionUUID->"792b5b38-c9c2-4aeb-a3c1-\
f604b019622b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hff", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"FeynmanRules", "[", 
     RowBox[{"LYuk", ",", 
      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",", 
      RowBox[{"Contains", "\[Rule]", 
       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653838776801*^9, 
  3.7146538891931353`*^9}},ExpressionUUID->"493e2d7f-a0fa-4447-a034-\
f54301d68b34"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.714655375019299*^9},ExpressionUUID->"8a5ec32c-ce9e-42f4-bdbd-\
6564e0fb7281"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.714655375020409*^9},ExpressionUUID->"b577108e-e548-4c00-8fbd-\
42bfeea45921"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.714655375021714*^9},ExpressionUUID->"d32c7d42-05f1-4f09-a4a0-\
818ba7faaa0f"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.714655377117202*^9},ExpressionUUID->"933f33be-86b0-4387-be13-\
a65944b94ac7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  3, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.71465537715703*^9},ExpressionUUID->"85653527-27be-4220-b74a-\
051767b09216"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[3, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.714655377663443*^9},ExpressionUUID->"b69e87e2-7771-46d8-964c-\
e9369243902f"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          SubscriptBox["c", "dH"], ")"}], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "dH"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          SubscriptBox["c", "eH"], ")"}], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "eH"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          SubscriptBox["c", "uH"], ")"}], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "uH"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
      FeynRules`H, 3}}, (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) 
        Conjugate[
          $CellContext`cdH[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
$CellContext`cdH[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2]) 
       FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
      FeynRules`H, 3}}, ((((Complex[0, 
            Rational[3, 2]] 
          2^Rational[-1, 
             2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) 
       Conjugate[
         $CellContext`ceH[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]]) FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + ((((Complex[0, 
            Rational[3, 2]] 
          2^Rational[-1, 
             2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
$CellContext`ceH[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + ((((Complex[0, -1] 
          2^Rational[-1, 
             2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + ((((Complex[0, 
            Rational[1, 4]] 
          2^Rational[-1, 
             2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + (Complex[0, -1] 2^Rational[-1, 2]) (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {FeynRules`H, 3}}, (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) 
        Conjugate[
          $CellContext`cuH[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
$CellContext`cuH[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2]) 
       FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}}]]], "Output",
 CellChangeTimes->{{3.714653869780055*^9, 3.714653893377253*^9}, 
   3.714653972746155*^9, 3.7146545673835583`*^9, 
   3.7146553789929028`*^9},ExpressionUUID->"25b9a8b4-254c-4157-bd83-\
7b584e3e875c"]
}, Open  ]],

Cell["Flavor expansion for the leptons' case", "Text",
 CellChangeTimes->{{3.7146540002012587`*^9, 
  3.714654016686934*^9}},ExpressionUUID->"a751ef31-da6e-4879-895f-\
7a35e3428ef2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hll", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"hff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//", 
      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653897213532*^9, 
  3.714653998430573*^9}},ExpressionUUID->"2a018274-5e6f-4420-bccb-\
031b97aded39"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
   3.714653951564291*^9, 3.71465401970082*^9}, 3.714654567510392*^9, 
   3.7146553837043056`*^9},ExpressionUUID->"334e87c9-4252-4cc9-a7ac-\
2617823cbb0f"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-", 
             RowBox[{
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"], " ", 
              SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "ceH1x1"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}], 
           " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH1x2", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH1x3", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH2x1", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-", 
             RowBox[{
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"], " ", 
              SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "ceH2x2"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}], 
           " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH2x3", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH3x1", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH3x2", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-", 
             RowBox[{
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"], " ", 
              SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "ceH3x3"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}], ")"}],
            " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
      FeynRules`e, 3}}, ((Complex[0, 
          Rational[1, 2]] $CellContext`dGf) $CellContext`ye) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         3]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + ((Complex[0, -1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
$CellContext`ye - $CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1]) 
        FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           3]]] + ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ye) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
      FeynRules`mu, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{
      FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`e, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`mu, 3}}, ((Complex[0, 
          Rational[1, 2]] $CellContext`dGf) $CellContext`ym) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         3]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + ((Complex[0, -1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
$CellContext`ym - $CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2]) 
        FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           3]]] + ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ym) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
      FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
      FeynRules`e, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
      FeynRules`mu, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{
      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 
       3}}, ((Complex[0, 
          Rational[1, 2]] $CellContext`dGf) $CellContext`ytau) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         3]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + ((Complex[0, -1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
$CellContext`ytau - $CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3]) 
        FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           3]]] + ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ytau) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}}]]], "Output",
 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
   3.714653952474135*^9, 3.714654020646657*^9}, 3.7146545684859324`*^9, 
   3.714655387053323*^9},ExpressionUUID->"9d4f3251-a1bd-4d92-8a62-\
8f49a3c05794"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hll", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146540238619328`*^9, 3.714654043748782*^9}, {
  3.714654567273402*^9, 3.714654569198159*^9}, {3.714655387772214*^9, 
  3.714655388709861*^9}},ExpressionUUID->"7fbbf628-8230-4c3a-8d3d-\
e01aca0dd124"],

Cell[BoxData[
 TagBox[
  InterpretationBox[GridBox[{
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
              SubscriptBox["c", "HD"], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["cHl3", 
                  RowBox[{"1", ",", "1"}]], "+", 
                 SubscriptBox["cHl3", 
                  RowBox[{"2", ",", "2"}]], "-", 
                 SubscriptBox[
                  SubscriptBox["c", "ll"], 
                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
             ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-", 
              RowBox[{
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"], " ", 
               SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"-\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "ceH1x1"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}], 
            " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"+\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH1x2", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH1x3", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH2x1", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
              SubscriptBox["c", "HD"], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["cHl3", 
                  RowBox[{"1", ",", "1"}]], "+", 
                 SubscriptBox["cHl3", 
                  RowBox[{"2", ",", "2"}]], "-", 
                 SubscriptBox[
                  SubscriptBox["c", "ll"], 
                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
             ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-", 
              RowBox[{
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"], " ", 
               SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"-\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "ceH2x2"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}], 
            " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"+\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH2x3", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH3x1", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH3x2", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
              SubscriptBox["c", "HD"], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["cHl3", 
                  RowBox[{"1", ",", "1"}]], "+", 
                 SubscriptBox["cHl3", 
                  RowBox[{"2", ",", "2"}]], "-", 
                 SubscriptBox[
                  SubscriptBox["c", "ll"], 
                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
             ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-", 
              RowBox[{
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"], " ", 
               SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"-\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "ceH3x3"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}], 
             ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"+\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
       FeynRules`e, 3}}, ((Complex[0, 
          Rational[-1, 4]] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
$CellContext`ye) (4 $CellContext`cHbox - $CellContext`cHD - 
          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ($CellContext`LambdaSMEFT^2 $CellContext`ye - \
$CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1])) FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ye)) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
       FeynRules`mu, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {
       FeynRules`e, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {
       FeynRules`mu, 3}}, ((Complex[0, 
          Rational[-1, 4]] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
$CellContext`ym) (4 $CellContext`cHbox - $CellContext`cHD - 
          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ($CellContext`LambdaSMEFT^2 $CellContext`ym - \
$CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2])) FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ym)) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {
       FeynRules`e, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {
       FeynRules`mu, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, ((
        Complex[0, 
          Rational[-1, 4]] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
$CellContext`ytau) (4 $CellContext`cHbox - $CellContext`cHD - 
          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ($CellContext`LambdaSMEFT^2 $CellContext`ytau - \
$CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3])) FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ytau)) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}}]],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9}, 
   3.7146545725892477`*^9, 
   3.7146553926199627`*^9},ExpressionUUID->"2d6d55cf-523a-4931-8433-\
7d34103d0a0f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Export to UFO", "Subsection",
 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
  3.714654206955551*^9, 
  3.7146542085195227`*^9}},ExpressionUUID->"44bd2bd5-c92e-4f5a-b2c0-\
2aaa3c513670"],

Cell[TextData[{
 StyleBox["Warning!",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " Exporting the flavor general model to UFO in the most general case might \
take a long time (~ 2 hours) \nThe time is significantly reduced using the \
massless restriction"
}], "Text",
 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
  3.714654761972848*^9, 3.714654820650289*^9}, {3.7146548571674767`*^9, 
  3.714654861694016*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"8012e7e9-d5fd-4218-be89-a52e130401da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSMEFT", ",", 
   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", 
   RowBox[{
   "Output", "\[Rule]", "\"\<SMEFTsim_A_general_alphaScheme_UFO\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9, 
  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714027352553897*^9, 
  3.714027353791733*^9}, {3.7140340581231403`*^9, 3.714034062356689*^9}, {
  3.714654875023568*^9, 
  3.714654875374014*^9}},ExpressionUUID->"c4e3c4c6-947f-4622-94e4-\
3956e372f48c"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{
  3.714052922477131*^9},ExpressionUUID->"6fd019b7-fe5e-41da-b4d5-\
7d7c08339e67"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.714053031318115*^9},ExpressionUUID->"eba9d290-2fe8-41f7-b3ae-\
d028e4124108"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.714053031319613*^9},ExpressionUUID->"39f8fcdc-8ac2-4f23-ab6a-\
ca8bd347deba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714053031320487*^9},ExpressionUUID->"26068711-abf9-42a1-b65a-\
51a2a77c099b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"4\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7140530315391493`*^9},ExpressionUUID->"dbda856c-24f7-40d8-9923-\
77da05a643cd"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.714053146925672*^9},ExpressionUUID->"a5e0fc81-6f03-4a24-a1ad-\
7554973f3a20"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  82, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714053147397628*^9},ExpressionUUID->"636bb010-1431-46f9-a55c-\
f33f99478e52"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[82, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.71405321621478*^9},ExpressionUUID->"bed2ea70-76c4-4075-b9c7-2dee1624642f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{86., {2., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714053260680738*^9},ExpressionUUID->"b1a231ee-0764-4d1b-9ee2-\
f1687e3dada8"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{
  3.714053771152417*^9},ExpressionUUID->"d373f064-530f-4efa-8ef8-\
0bab0a7b5f27"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.714053771362775*^9},ExpressionUUID->"2cb0c055-a28c-4574-b57d-\
2e694fa71152"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "138"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 138],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714053771418955*^9},ExpressionUUID->"b3d28bdf-1102-4b3e-bbde-\
30a58aae5747"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "2228.008`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 2228.008, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.71405785442106*^9},ExpressionUUID->"da08975b-e39b-49f2-8515-d308767a3a86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "181"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 181],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714057854431982*^9},ExpressionUUID->"2ce5e037-b7e9-4f92-8a3b-\
47e3e39286dd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "145.5`", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 145.5, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714058028376902*^9},ExpressionUUID->"d54e6a93-8f6b-4061-99af-\
4ac8cf16039f"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{
  3.714058028391108*^9},ExpressionUUID->"1a6f8ca3-bb08-48b2-928b-\
15a7f499f9ff"],

Cell[BoxData[
 StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
supported!\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.714058038663063*^9},ExpressionUUID->"87a973db-332d-40cc-bfed-\
b71775f59fae"],

Cell[BoxData[
 StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
supported!\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.7140580388137827`*^9},ExpressionUUID->"ec00051b-2100-4f4f-a9b1-\
a631132bd675"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{
  3.71405804145577*^9},ExpressionUUID->"5918ca2d-0cfb-47d9-8df4-23e7f31e6cf8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714058043481329*^9},ExpressionUUID->"cc50ec4a-7e44-48c0-a211-\
f1528905f7cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{278., {3., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "1224", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 1224, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714058092845045*^9},ExpressionUUID->"a3c3da5f-e603-4e4d-91b8-\
fb82482fb5fe"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{
  3.714058167814595*^9},ExpressionUUID->"a69eb6fc-7648-4845-b4f0-\
2c1fea175864"],

Cell[BoxData[
 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
This might reduce the efficiency of certain matrix element generators.\\n     \
           See logfile for more details.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.714058235291553*^9},ExpressionUUID->"0fb19be5-daa0-43df-86ef-\
337a756a3616"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{
  3.714058492255684*^9},ExpressionUUID->"63e9fc37-649d-4d0e-bbc9-\
bf388a83f21c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["model flavor general Mw scheme", "Section",
 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9, 
  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9, 
  3.7140273462258577`*^9}, {3.714034026337254*^9, 3.7140340306501093`*^9}, {
  3.714067647572143*^9, 3.714067648104774*^9}, {3.714654226031218*^9, 
  3.7146542296799393`*^9}},ExpressionUUID->"f1e9cbd0-c5f5-4213-91e7-\
6614c43503b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flavor", "=", "general"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA9y6F0Buua144GfEvANAC3T8zw

  "],ExpressionUUID->"a74b312e-d3dd-4df5-a34b-d90455eb1ede"],

Cell[TextData[{
 StyleBox["Warning!",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " due to the large number of parameters, importing the flavor general model \
might take  ~ 5 minutes"
}], "Text",
 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
  3.714655110274064*^9, 3.714655110451108*^9}, {3.725885224501438*^9, 
  3.725885227149221*^9}, {3.726906863305984*^9, 3.7269068669813423`*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"3200b1e5-c61d-47dd-ae11-192fde7c8756"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cth", "^", "2"}], "+", 
       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"vevhat", "^", "2"}], "\[Equal]", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "definition", " ", "useful", " ", "for", " ", "algebraic", " ", 
    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9}, 
   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9}, 
   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9, 
   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9}, 
   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9, 
   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9, 
   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9, 
   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9, 
   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9, 
   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9, 
   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9, 
   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9, 
   3.713952603424769*^9}, 
   3.714654233774664*^9},ExpressionUUID->"d54a8bd7-1be4-4724-aa37-\
d90efc53c0b9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "x", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"WC6indices", ",", 
       RowBox[{"Conjugate", "/@", "WC6indices"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
          ",", "dgw"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
   3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9, 
   3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
   3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9, 
   3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
   3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9, 
   3.6986454466349792`*^9}, {3.6990803840045652`*^9, 
   3.6990803931031227`*^9}, {3.707025063385503*^9, 3.707025074535533*^9}, {
   3.707026201080791*^9, 3.707026206097932*^9}, {3.707733746790945*^9, 
   3.707733759745702*^9}, {3.711875906183223*^9, 3.71187590676577*^9}, {
   3.712555385621932*^9, 3.712555393408392*^9}, 3.7146542372472677`*^9, {
   3.714655265220942*^9, 
   3.714655268951293*^9}},ExpressionUUID->"8582f134-6a65-42f5-817f-\
442cc2ea589e"],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - extraction of aTGC ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    SuperscriptBox[
     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
  "baa967f5-ef6f-4f75-9807-d639bf97d44c"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
  "272ade19-fee3-483e-9012-875dd660f095"],
 " )"
}], "Subsection",
 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9, 
  3.714474881170227*^9}, {3.7146522087316093`*^9, 
  3.7146522332696543`*^9}},ExpressionUUID->"2900fc3f-7d26-4cde-8476-\
948941db76e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LGauge", "+", "L6cl4"}], "/.", 
     RowBox[{
      RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
     "OptimizeIndex"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9, 
  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
  3.7144751339781103`*^9, 
  3.714475137908736*^9}},ExpressionUUID->"e2b4e349-4851-41a9-9764-\
84be0d49ec34"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 
  3.697355204589117*^9}},ExpressionUUID->"620c9793-5dd1-4198-b7bb-\
e94aee5f9f62"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
eigenstates should be selected!\"\>"], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7146551421946583`*^9, 
  3.714655838059554*^9},ExpressionUUID->"88c6795a-274d-4247-aa07-\
295c0c4423cc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7146551421946583`*^9, 
  3.714655838135293*^9},ExpressionUUID->"4d790ee9-1a20-4da5-adb6-\
7536692f852c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with less than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7146551421946583`*^9, 
  3.71465583817999*^9},ExpressionUUID->"629e3faa-64cb-4a5b-8149-3cfc6b8ead4e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9, 
   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9, 
   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9, 
   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9, 
   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
   3.714652412441049*^9, 3.714652464776884*^9}, 3.714652626095168*^9, {
   3.714654309590547*^9, 3.714654313029612*^9}, {3.714655034452681*^9, 
   3.714655035524263*^9}, {3.714655726528235*^9, 
   3.7146557280301332`*^9}},ExpressionUUID->"7620b1d3-cbfa-42ad-96e8-\
c15a2e830050"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 3.7146551492705727`*^9, 
   3.714655838514673*^9},ExpressionUUID->"9e0200c5-c98c-4ef0-aab4-\
24d19241d06f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "+", 
         RowBox[{"8", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "-", 
         RowBox[{"2", " ", 
          SubscriptBox["cHl3", 
           RowBox[{"1", ",", "1"}]]}], "-", 
         RowBox[{"2", " ", 
          SubscriptBox["cHl3", 
           RowBox[{"2", ",", "2"}]]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox[
           SubscriptBox["c", "ll"], 
           RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}]}], ")"}]}]}], ")"}],
     " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 3.7146551492705727`*^9, 
   3.714655838854701*^9},ExpressionUUID->"e32c75a8-2193-4221-b968-\
9bf99f6df866"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"1", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"2", ",", "2"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "ll"], 
         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 3.7146551492705727`*^9, 
   3.714655838992814*^9},ExpressionUUID->"ac3f4e83-7f94-48d3-8b62-\
cc8cc43ec24c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652472649456*^9, 3.714652608904799*^9}, {
  3.7146543956773233`*^9, 3.714654397434864*^9}, {3.7146551775086193`*^9, 
  3.714655183451696*^9}, {3.714655730911145*^9, 
  3.714655732396365*^9}},ExpressionUUID->"d5e19631-70bc-484b-adaf-\
aec64f831484"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9, 
   3.7146558391981688`*^9},ExpressionUUID->"a4280911-c4eb-4d68-bc92-\
e4eec1161287"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["c", "HD"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SubscriptBox["s", "\[Theta]"]}], "+", 
              RowBox[{"4", " ", 
               SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["cHl3", 
               RowBox[{"1", ",", "1"}]], "+", 
              SubscriptBox["cHl3", 
               RowBox[{"2", ",", "2"}]], "-", 
              SubscriptBox[
               SubscriptBox["c", "ll"], 
               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
          ")"}]}]}], ")"}]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9, 
   3.714655839493932*^9},ExpressionUUID->"eab90755-70f9-4d39-aa1b-\
fa4365817ca1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"1", ",", "1"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"2", ",", "2"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox[
        SubscriptBox["c", "ll"], 
        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{
   SubscriptBox["c", "\[Theta]"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9, 
   3.714655839631296*^9},ExpressionUUID->"fcd0c235-b9a7-4315-bea0-\
c54df04861ff"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.714652368810739*^9, 
  3.7146524695105267`*^9},ExpressionUUID->"5032158e-c686-4b06-b08a-\
894cfc40cd19"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
  3.697369511884927*^9, 
  3.697369515354232*^9}},ExpressionUUID->"fb933098-b0f6-49b1-a537-\
1388f6e90427"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9, 
   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9}, 
   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9, 
   3.714652669421071*^9}, {3.714654403671623*^9, 3.714654416461287*^9}, {
   3.714655202079158*^9, 3.714655208219514*^9}, {3.7146557359855347`*^9, 
   3.714655741373683*^9}},ExpressionUUID->"5b756f62-ea6a-4ff8-aee1-\
16f2b262a5f8"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dsth2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["s", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9, 
   3.714655208705667*^9}, 
   3.714655846618425*^9},ExpressionUUID->"e0c97172-94c2-4955-8e05-\
df95431809c7"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"4", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]], 
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["c", "HD"]}], "-", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubsuperscriptBox["s", "\[Theta]", "3"]}], "+", 
        RowBox[{
         SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["cHl3", 
               RowBox[{"1", ",", "1"}]], "+", 
              SubscriptBox["cHl3", 
               RowBox[{"2", ",", "2"}]], "-", 
              SubscriptBox[
               SubscriptBox["c", "ll"], 
               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
          ")"}]}]}], ")"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9, 
   3.714655208705667*^9}, 
   3.714655846909459*^9},ExpressionUUID->"8019b515-9398-4428-8168-\
9a58c49bd0fa"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "e", " ", 
  SubscriptBox["A", "mu$1"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HD"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{"1", ",", "1"}]]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{"2", ",", "2"}]]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox[
       SubscriptBox["c", "ll"], 
       RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
         SubscriptBox["W", "mu$1"], "]"}]}], "+", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9, 
   3.714655208705667*^9}, 
   3.714655847017538*^9},ExpressionUUID->"ee5783c0-e4f3-4f88-b11d-\
85db2776f5eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652676781377*^9, 3.71465270986456*^9}, {
  3.714654407380022*^9, 3.714654408872603*^9}, {3.7146552117486067`*^9, 
  3.714655212645193*^9}, {3.714655743538422*^9, 
  3.7146557449565773`*^9}},ExpressionUUID->"822cdbd1-c65d-4cb7-a9f9-\
c10a464b6158"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dsth2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 3.7146552134605207`*^9, 
   3.714655849856295*^9},ExpressionUUID->"a27f8ca2-f5ac-4549-9565-\
7eb84c25c5af"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["c", "HD"]}], "-", 
         RowBox[{"4", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{"8", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubsuperscriptBox["s", "\[Theta]", "3"]}], "+", 
         RowBox[{
          SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["c", "HD"], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SubscriptBox["cHl3", 
                RowBox[{"1", ",", "1"}]], "+", 
               SubscriptBox["cHl3", 
                RowBox[{"2", ",", "2"}]], "-", 
               SubscriptBox[
                SubscriptBox["c", "ll"], 
                RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
           ")"}]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 3.7146552134605207`*^9, 
   3.7146558500384407`*^9},ExpressionUUID->"8046183b-0929-4782-8d1e-\
004160c839e6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HD"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{"1", ",", "1"}]]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{"2", ",", "2"}]]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox[
       SubscriptBox["c", "ll"], 
       RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
  RowBox[{
   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
   SubscriptBox["A", "mu$1"], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["W", "mu$2"], " ", 
     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
    RowBox[{
     SubscriptBox["W", "mu$1"], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 3.7146552134605207`*^9, 
   3.7146558501109123`*^9},ExpressionUUID->"f325bee0-7907-47fb-b763-\
0232782bd0ef"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : h Z Z coupling (CP even)", "Subsection",
 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
  3.71465313260557*^9, 
  3.714653135145647*^9}},ExpressionUUID->"dccca1b7-c070-4426-bd77-\
fdccf9f25336"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hzz", "=", 
  RowBox[{
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.", 
      RowBox[{
       RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], 
     ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9, 
  3.697781973755425*^9}, {3.714653122093409*^9, 
  3.714653151135909*^9}},ExpressionUUID->"0f2372c7-e8a2-4577-9a08-\
d0add110c8a5"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]], 
  RowBox[{"H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "32"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
     RowBox[{"32", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["e", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            SqrtBox["2"], " ", "dGf"}], "+", 
           RowBox[{"4", " ", "dgw"}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"dg1", "-", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", 
             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["c", "HD"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.714653202225688*^9, 3.714654519287326*^9, 
  3.714655351621037*^9, 
  3.7146560182283907`*^9},ExpressionUUID->"5542b313-12f4-4cbf-9c24-\
ffdedbb4b84d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
 CellChangeTimes->{{3.714653438713478*^9, 
  3.7146534431183643`*^9}},ExpressionUUID->"0e3c2ec2-99d8-4980-bdd7-\
3c555ccea1f1"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.71465344371563*^9, 3.714654519369021*^9, 
  3.71465535176595*^9, 
  3.714656018387211*^9},ExpressionUUID->"aea69444-7d21-447f-b2fc-\
babd5a52309b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"hzz", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", "_", "]"}], "2"], ",", 
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",", 
   "WCsimplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9, 
  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9, 
  3.7146534351677427`*^9}},ExpressionUUID->"19ac2af8-e620-424a-a0da-\
662bb26beadf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", "H", " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
        OverscriptBox["v", "^"]}], 
       RowBox[{
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", "H", " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
    SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"dg1", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"dGf", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"dgw", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"16", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.700893354200268*^9, 3.712654290029169*^9, 3.71396688057451*^9, {
   3.714653206742526*^9, 3.71465324075095*^9}, {3.714653297211488*^9, 
   3.7146533889881983`*^9}, {3.714653430663045*^9, 3.714653435702468*^9}, 
   3.7146545370910273`*^9, 3.714655352028936*^9, 
   3.714656019165577*^9},ExpressionUUID->"41cbaec5-9feb-4ebf-9ad8-\
78ec22e04261"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  SubscriptBox["Z", "\[Mu]"], 
  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 
  3.714653533124165*^9}},ExpressionUUID->"99536040-e5c7-49c7-9e61-\
39c8b773d61f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"hzz", "/.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
    "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   FractionBox["%", 
    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714654543437923*^9, 3.7146545447538853`*^9}, {3.714655306071694*^9, 
  3.7146553071723137`*^9}, {3.714656021653838*^9, 
  3.714656023475349*^9}},ExpressionUUID->"f150dc1a-55cc-41a6-a0fe-\
cb5a384e7722"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
        SubscriptBox["c", "HD"], "-", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["cHl3", 
            RowBox[{"1", ",", "1"}]], "+", 
           SubscriptBox["cHl3", 
            RowBox[{"2", ",", "2"}]], "-", 
           SubscriptBox[
            SubscriptBox["c", "ll"], 
            RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
       ")"}]}]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9, 
   3.714656034585371*^9},ExpressionUUID->"9ef38bb3-605f-46e9-b758-\
a4397eeff8a8"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"1", ",", "1"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox["cHl3", 
        RowBox[{"2", ",", "2"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       SubscriptBox[
        SubscriptBox["c", "ll"], 
        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9, 
   3.714656034643857*^9},ExpressionUUID->"b279fe75-ba8b-426b-9cf8-\
5a30a386215e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "\[Mu]"], 
   SubscriptBox["Z", "\[Nu]"]}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["Z", "\[Nu]"]}], "-", 
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Nu]"], 
     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.714653634026601*^9, 
  3.714653660281114*^9}},ExpressionUUID->"dbe73921-c372-4df1-a7c5-\
aadd5f35e981"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hzz", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", "MwShifts"}],
    "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714653677707417*^9, 3.714653739972247*^9}, {3.714654547788505*^9, 
  3.7146545492474623`*^9}, {3.714655309451169*^9, 3.714655311061563*^9}, {
  3.714656031011059*^9, 
  3.714656032602417*^9}},ExpressionUUID->"868a5c71-a036-43ce-84cc-\
5e2a7aed83a1"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", "H", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["c", "HW"], "+", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HB"], "-", 
         SubscriptBox["c", "HW"]}], ")"}], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
    OverscriptBox["v", "^"], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], "-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}], 
   RowBox[{
    SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9}, 
   3.714654550173139*^9, 3.714655359366632*^9, 
   3.714656036656455*^9},ExpressionUUID->"8920bd06-a434-41e2-aa04-\
1faea577b7d8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - Fermion Z ",
 Cell[BoxData[
  FormBox["couplings", TraditionalForm]],ExpressionUUID->
  "bff01123-673c-4472-9297-f6cf39d4e011"],
 " (non-dipole structures)"
}], "Subsection",
 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9, 
  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
  3.714474653133204*^9, 
  3.7144746902228537`*^9}},ExpressionUUID->"09009831-4fe1-41d2-af7b-\
30ca0415f3f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474671414948*^9, 
  3.714474706220644*^9}},ExpressionUUID->"9e5acf37-8814-4ce1-a4ee-\
41717bcc47c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZffCouplings", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{"L2", ",", 
       RowBox[{"Contains", "\[Rule]", 
        RowBox[{"{", "Z", "}"}]}], ",", 
       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//", 
     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9, 
   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9, 
   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9, 
   3.714652756642342*^9}, {3.714652909302999*^9, 
   3.7146529149076347`*^9}},ExpressionUUID->"8438ec3d-1833-432f-99cc-\
dbdfd8657eca"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 3.7146552514152517`*^9, 
  3.714655896870522*^9},ExpressionUUID->"2e91e535-c5b4-4f2c-9bc0-\
7213a77f650d"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 3.7146552514152517`*^9, 
  3.714655896873229*^9},ExpressionUUID->"cbee1a60-5871-4e58-98b6-\
a1ba884f87cc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 3.7146552514152517`*^9, 
  3.7146558968749228`*^9},ExpressionUUID->"0a6bfba2-7adb-4ef9-8364-\
f5b4d18b6274"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 3.7146552514152517`*^9, 
  3.7146559065796337`*^9},ExpressionUUID->"64b56ce8-052c-4426-9250-\
80c12f64274b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 3.7146552514152517`*^9, 
  3.7146559066255713`*^9},ExpressionUUID->"4f38d04b-378b-445c-85d9-\
3b3b6c0d5e57"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 3.7146552514152517`*^9, 
  3.714655908638564*^9},ExpressionUUID->"6f09f1b3-3f95-4a69-b45e-\
6476cec4e798"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
          RowBox[{"3", " ", "dgw", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"2", "-", "dg1", "+", 
                RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["cHq1", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHq3", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHd", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
          RowBox[{"dgw", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{"dsth2", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-", 
          RowBox[{
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["cHl1", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHl3", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox["cHe", 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
         RowBox[{"3", " ", "dgw", " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
         RowBox[{"2", " ", "dsth2", " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox[
             RowBox[{
              TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
               "Superscript"], ".", 
              SubscriptBox["P", "\<\"-\"\>"]}], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "1"], ",", 
              SubscriptBox["\<\"s\"\>", "2"]}]], "-", 
            RowBox[{"2", " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", "dsth2", " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"+\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
         RowBox[{
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"4", "+", "dg1", "+", 
               RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "dg1"}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["cHq1", 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "-", 
            RowBox[{
             SubscriptBox["cHq3", 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{
             SubscriptBox["cHu", 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"6", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {
        OverscriptBox["vl", "\<\"-\"\>"], "1"},
       {"vl", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          SubscriptBox["cHl1", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
         RowBox[{
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          SubscriptBox["cHl3", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[CapitalLambda]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "-", "dgw", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
                SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
            RowBox[{
             SubscriptBox["c", "HWB"], " ", 
             SubscriptBox["c", "\[Theta]"], " ", 
             SubscriptBox["s", "\[Theta]"], " ", 
             SuperscriptBox[
              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
        3}}, (((((Complex[0, 
            Rational[-1, 6]]/$CellContext`cth) 
         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - (((
         3 $CellContext`dgw) $CellContext`LambdaSMEFT^2) 
       FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[3]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
          FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((-2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           2]]]) + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((2 - $CellContext`dg1 + 3 $CellContext`dgw) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1)) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) - (3 $CellContext`vevhat^2) ($CellContext`cHq1[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHq3[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]]))}, {{{$CellContext`lbar, 1}, {
      FeynRules`l, 2}, {$CellContext`Z, 3}}, ((((Complex[0, 
           Rational[-1, 2]]/$CellContext`cth) 
        FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
(((-$CellContext`LambdaSMEFT^2) FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - (($CellContext`dgw $CellContext`LambdaSMEFT^2) 
       FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[3]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
          FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((2 + $CellContext`dg1 + $CellContext`dgw) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1)) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) - $CellContext`vevhat^2 ($CellContext`cHl1[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHl3[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHe[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]]))}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
        2}, {$CellContext`Z, 3}}, (((((Complex[0, 
            Rational[1, 6]]/$CellContext`cth) 
         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - (((
         3 $CellContext`dgw) $CellContext`LambdaSMEFT^2) 
       FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[3]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + (((2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] - (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) (FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] - 2 FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]]) + (((
          2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[
          2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2) 
        FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) ((4 + $CellContext`dg1 + 3 $CellContext`dgw) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (4 (1 + $CellContext`dg1)) 
         FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) + (3 $CellContext`vevhat^2) ($CellContext`cHq1[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]]] FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] - $CellContext`cHq3[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`cHu[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]]] FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]))}, {{{$CellContext`vlbar, 
       1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, (((((Complex[0, 
            Rational[1, 2]]/$CellContext`cth) 
         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
($CellContext`vevhat^2 $CellContext`cHl1[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] - $CellContext`vevhat^2 $CellContext`cHl3[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[
          2]]] + ($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
(-$CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
(($CellContext`cHWB $CellContext`cth) $CellContext`sth) $CellContext`vevhat^2)
          FeynRules`IndexDelta[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])) FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[3]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]]]}}]]], "Output",
 CellChangeTimes->{
  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9, 
   3.7146544666189938`*^9, 3.714655268809128*^9, 
   3.714655913856608*^9},ExpressionUUID->"a4cc2dac-d5fe-4d76-a893-\
a34014c7c8f8"]
}, Open  ]],

Cell["neutrino coupling :", "Text",
 CellChangeTimes->{{3.7146528020724363`*^9, 
  3.7146528092589808`*^9}},ExpressionUUID->"cb0fccbf-b240-4fca-9a1f-\
62013718f840"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ZffCouplings", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   RowBox[{
    FractionBox["%", 
     RowBox[{"SMlimit", "[", "%", "]"}]], "/.", 
    RowBox[{
     RowBox[{"IndexDelta", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9}, 
   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9, 
   3.714652890708997*^9}, {3.714652953030558*^9, 3.7146530356237173`*^9}, {
   3.714654434479714*^9, 3.714654435996188*^9}, {3.714655230398345*^9, 
   3.7146552321135807`*^9}, {3.7146558720064297`*^9, 
   3.71465587359627*^9}},ExpressionUUID->"e9520123-f2c2-47d3-8479-\
68c655b8451f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl1", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "dgw", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.7146552688816023`*^9, 
   3.714655913909856*^9},ExpressionUUID->"c9e4759c-fb99-4898-b95a-\
7e527fa2a6ed"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl1", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"], " ", 
      SubscriptBox["cHl3", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
        RowBox[{
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["cHl3", 
               RowBox[{"1", ",", "1"}]], "+", 
              SubscriptBox["cHl3", 
               RowBox[{"2", ",", "2"}]], "-", 
              SubscriptBox[
               SubscriptBox["c", "ll"], 
               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
          ")"}]}]}], ")"}], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"8", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.7146552688816023`*^9, 
   3.7146559142327642`*^9},ExpressionUUID->"6313db45-cfb3-4730-84c8-\
1b0fb54f7527"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl1", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"1", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{"2", ",", "2"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["cHl3", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "ll"], 
         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.7146552688816023`*^9, 
   3.714655914288906*^9},ExpressionUUID->"9d0f4392-179b-43f8-89ea-\
56ecfd304de4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : Yukawa couplings", "Subsection",
 CellChangeTimes->{{3.714653803679809*^9, 
  3.714653813127017*^9}},ExpressionUUID->"31eb39e4-18c9-4305-b4ca-\
c672ea32402d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LYuk", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
     "LinearWC"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9}, 
   3.714653880639667*^9, {3.7146539581117077`*^9, 
   3.714653960288474*^9}},ExpressionUUID->"33784723-cdcd-4ee0-88be-\
6b2694ed666c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hff", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"FeynmanRules", "[", 
     RowBox[{"LYuk", ",", 
      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",", 
      RowBox[{"Contains", "\[Rule]", 
       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653838776801*^9, 
  3.7146538891931353`*^9}},ExpressionUUID->"b57d68c4-27c6-4cfa-a828-\
2daed1dae3ca"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 3.714655375019299*^9, 
   3.714656054998291*^9},ExpressionUUID->"5e5be8cd-42ef-4199-806d-\
7a302c782018"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 3.714655375019299*^9, 
   3.714656055000606*^9},ExpressionUUID->"30478451-f274-4741-8019-\
20e3265e909a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 3.714655375019299*^9, 
   3.714656055003729*^9},ExpressionUUID->"dc72867d-f8f1-4490-847f-\
8e097ba158db"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 3.714655375019299*^9, 
   3.7146560569918747`*^9},ExpressionUUID->"e4ce735b-c631-467c-8bef-\
a80fdfea0952"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  3, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 3.714655375019299*^9, 
   3.714656057017215*^9},ExpressionUUID->"f4a32d55-dac6-4a7b-b5fb-\
102443fb17a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[3, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 3.714655375019299*^9, 
   3.7146560574851913`*^9},ExpressionUUID->"ef70e897-2ad6-4488-87b2-\
c8600ee04320"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          SubscriptBox["c", "dH"], ")"}], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "dH"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          SubscriptBox["c", "eH"], ")"}], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "eH"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox[
         RowBox[{"(", 
          SubscriptBox["c", "uH"], ")"}], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["c", "uH"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
      FeynRules`H, 3}}, (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) 
        Conjugate[
          $CellContext`cdH[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
$CellContext`cdH[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2]) 
       FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
      FeynRules`H, 3}}, ((((Complex[0, 
            Rational[3, 2]] 
          2^Rational[-1, 
             2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) 
       Conjugate[
         $CellContext`ceH[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]]) FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + ((((Complex[0, 
            Rational[3, 2]] 
          2^Rational[-1, 
             2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
$CellContext`ceH[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + ((((Complex[0, -1] 
          2^Rational[-1, 
             2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + ((((Complex[0, 
            Rational[1, 4]] 
          2^Rational[-1, 
             2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + (Complex[0, -1] 2^Rational[-1, 2]) (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {FeynRules`H, 3}}, (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) 
        Conjugate[
          $CellContext`cuH[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] + (((((Complex[0, 
             Rational[3, 2]] 
           2^Rational[-1, 
              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
$CellContext`cuH[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         2]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2]) 
       FeynRules`IndexDelta[
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Colour, 
          FeynRules`Ext[2]]]) (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}}]]], "Output",
 CellChangeTimes->{{3.714653869780055*^9, 3.714653893377253*^9}, 
   3.714653972746155*^9, 3.7146545673835583`*^9, 3.7146553789929028`*^9, 
   3.7146560588931637`*^9},ExpressionUUID->"3a4986af-b998-4143-b314-\
7155453f7ccc"]
}, Open  ]],

Cell["Flavor expansion for the leptons' case", "Text",
 CellChangeTimes->{{3.7146540002012587`*^9, 
  3.714654016686934*^9}},ExpressionUUID->"b06eff71-5b20-462a-8027-\
60f77a4b37da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hll", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"hff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//", 
      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653897213532*^9, 
  3.714653998430573*^9}},ExpressionUUID->"d2b15297-e7df-4798-82ba-\
0b88b3ee535a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{86., {2., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
   3.714653951564291*^9, 3.71465401970082*^9}, 3.714654567510392*^9, 
   3.7146553837043056`*^9, 
   3.714656067093807*^9},ExpressionUUID->"66bcaf6d-8baa-4022-b66e-\
1de480954a45"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-", 
             RowBox[{
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"], " ", 
              SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "ceH1x1"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}], 
           " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH1x2", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH1x3", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH2x1", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-", 
             RowBox[{
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"], " ", 
              SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "ceH2x2"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}], 
           " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH2x3", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH3x1", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
         RowBox[{"ceH3x2", " ", 
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "2"], ",", 
            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-", 
             RowBox[{
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"], " ", 
              SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "ceH3x3"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}], ")"}],
            " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
      FeynRules`e, 3}}, ((Complex[0, 
          Rational[1, 2]] $CellContext`dGf) $CellContext`ye) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         3]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + ((Complex[0, -1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
$CellContext`ye - $CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1]) 
        FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           3]]] + ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ye) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
      FeynRules`mu, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{
      FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`e, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`mu, 3}}, ((Complex[0, 
          Rational[1, 2]] $CellContext`dGf) $CellContext`ym) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         3]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + ((Complex[0, -1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
$CellContext`ym - $CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2]) 
        FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           3]]] + ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ym) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
      FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
      FeynRules`e, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
      FeynRules`mu, 
       3}}, (((Complex[0, 1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
      Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]])}, {{{
      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 
       3}}, ((Complex[0, 
          Rational[1, 2]] $CellContext`dGf) $CellContext`ytau) 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[
         3]]] + (((((Complex[0, -1] 
           2^Rational[-1, 
              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + (((((Complex[0, 
             Rational[1, 4]] 
           2^Rational[-1, 
              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + ((Complex[0, -1] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
$CellContext`ytau - $CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3]) 
        FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[
           3]]] + ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ytau) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}}]]], "Output",
 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
   3.714653952474135*^9, 3.714654020646657*^9}, 3.7146545684859324`*^9, 
   3.714655387053323*^9, 
   3.714656070171739*^9},ExpressionUUID->"013f6af7-f881-4065-bb20-\
e2c062cfec5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hll", "//.", "MwShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146540238619328`*^9, 3.714654043748782*^9}, {
  3.714654567273402*^9, 3.714654569198159*^9}, {3.714655387772214*^9, 
  3.714655388709861*^9}, {3.714656059737562*^9, 
  3.714656061380722*^9}},ExpressionUUID->"c0812ffd-bb82-4b70-8f54-\
71e6fe2d518e"],

Cell[BoxData[
 TagBox[
  InterpretationBox[GridBox[{
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
              SubscriptBox["c", "HD"], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["cHl3", 
                  RowBox[{"1", ",", "1"}]], "+", 
                 SubscriptBox["cHl3", 
                  RowBox[{"2", ",", "2"}]], "-", 
                 SubscriptBox[
                  SubscriptBox["c", "ll"], 
                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
             ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-", 
              RowBox[{
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"], " ", 
               SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"-\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "ceH1x1"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}], 
            " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"+\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH1x2", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH1x3", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH2x1", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
              SubscriptBox["c", "HD"], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["cHl3", 
                  RowBox[{"1", ",", "1"}]], "+", 
                 SubscriptBox["cHl3", 
                  RowBox[{"2", ",", "2"}]], "-", 
                 SubscriptBox[
                  SubscriptBox["c", "ll"], 
                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
             ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-", 
              RowBox[{
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"], " ", 
               SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"-\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "ceH2x2"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}], 
            " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"+\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH2x3", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH3x1", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
          RowBox[{"ceH3x2", " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
              SubscriptBox["c", "HD"], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["cHl3", 
                  RowBox[{"1", ",", "1"}]], "+", 
                 SubscriptBox["cHl3", 
                  RowBox[{"2", ",", "2"}]], "-", 
                 SubscriptBox[
                  SubscriptBox["c", "ll"], 
                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}], 
             ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-", 
              RowBox[{
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"], " ", 
               SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"-\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "ceH3x3"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}], 
             ")"}], " ", 
            SubscriptBox[
             SubscriptBox["P", "\<\"+\"\>"], 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
       FeynRules`e, 3}}, ((Complex[0, 
          Rational[-1, 4]] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
$CellContext`ye) (4 $CellContext`cHbox - $CellContext`cHD - 
          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ($CellContext`LambdaSMEFT^2 $CellContext`ye - \
$CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1])) FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ye)) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
       FeynRules`mu, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {
       FeynRules`e, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {
       FeynRules`mu, 3}}, ((Complex[0, 
          Rational[-1, 4]] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
$CellContext`ym) (4 $CellContext`cHbox - $CellContext`cHD - 
          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ($CellContext`LambdaSMEFT^2 $CellContext`ym - \
$CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2])) FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ym)) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {
       FeynRules`e, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {
       FeynRules`mu, 
        3}}, (((Complex[0, 1] 
         2^Rational[-1, 
            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
       Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, ((
        Complex[0, 
          Rational[-1, 4]] 
        2^Rational[-1, 
           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
$CellContext`ytau) (4 $CellContext`cHbox - $CellContext`cHD - 
          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ($CellContext`LambdaSMEFT^2 $CellContext`ytau - \
$CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3])) FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + (
         4 ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
$CellContext`LambdaSMEFT^2 $CellContext`ytau)) FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]])}}]],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9}, 
   3.7146545725892477`*^9, 3.7146553926199627`*^9, 
   3.7146560766914988`*^9},ExpressionUUID->"2a0f6bc0-201a-4218-9e60-\
4c8ff9f6be20"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Export to UFO", "Subsection",
 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
  3.714654239779196*^9, 
  3.7146542406833982`*^9}},ExpressionUUID->"240e5c9c-2d4a-4e24-9b2c-\
afbac9a8cad5"],

Cell[TextData[{
 StyleBox["Warning!",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " Exporting the flavor general model to UFO in the most general case might \
take a long time (~ 2 hours) \nThe time is significantly reduced using the \
massless restriction"
}], "Text",
 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
  3.714654761972848*^9, 3.714654820650289*^9}, {3.714654886900188*^9, 
  3.7146548920472727`*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"8678efa0-b3a9-40f7-b38c-fb7a1ebc418d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSMEFT", ",", 
   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_general_MwScheme_UFO\>\""}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9, 
  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714027352553897*^9, 
  3.714027353791733*^9}, {3.7140340581231403`*^9, 3.714034062356689*^9}, {
  3.7140676631150503`*^9, 3.7140676648835983`*^9}, {3.714654719766431*^9, 
  3.714654720132617*^9}},ExpressionUUID->"5c345ef9-4d0e-4919-a43d-\
932715e29235"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{
  3.714069813211301*^9},ExpressionUUID->"7d728da9-6e9c-4800-955e-\
3f265fd2da16"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.714070014670616*^9},ExpressionUUID->"b9ef4c16-b79c-4a95-b8f2-\
4e28b9d86ffc"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.714070014714282*^9},ExpressionUUID->"d47d73ba-0801-4b3c-8722-\
87779213d4d5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714070014717605*^9},ExpressionUUID->"9dd6538c-65f7-423b-b6e2-\
cbea69fb0879"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"4\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7140700152243853`*^9},ExpressionUUID->"4e0328e1-8eef-47ed-8921-\
c6c453513119"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.7140702733238497`*^9},ExpressionUUID->"197fe36c-c31a-4f60-b079-\
861f6447515b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  82, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714070274267921*^9},ExpressionUUID->"c02f57cc-1de2-4a8d-9437-\
d923c2f9fc5d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[82, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714070414233438*^9},ExpressionUUID->"10af43bc-9bc9-4b3d-b1d1-\
3a3e95a254fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{86., {2., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714070522740651*^9},ExpressionUUID->"fcab0251-bb9a-4f32-bc4e-\
74c9f61989aa"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{
  3.714071576493248*^9},ExpressionUUID->"6adb94e2-a785-4a73-9307-\
522b483ea3d0"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.7140715767559223`*^9},ExpressionUUID->"36fd6d0d-fe57-4898-9fee-\
15e8bcaf87b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "138"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 138],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7140715767999563`*^9},ExpressionUUID->"3eb90927-2c84-4568-bdb2-\
3d12bd445f4d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "3169.368`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 3169.368, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.71407690760506*^9},ExpressionUUID->"d626b3fe-fbb7-412c-a373-9b75e94f2604"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "181"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 181],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714076907607938*^9},ExpressionUUID->"8e33c496-6434-401d-a7ed-\
85442d1270bb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "162.788`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 162.788, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.714077077188959*^9},ExpressionUUID->"f0b6ad80-5b69-4d22-8194-\
175bd1c21a32"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{
  3.714077077214258*^9},ExpressionUUID->"e913f8de-cd0f-4962-bedc-\
202e6787959b"],

Cell[BoxData[
 StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
supported!\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.714077088360732*^9},ExpressionUUID->"b9b24574-30c1-40e7-a570-\
06fef9793207"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{
  3.714077090521696*^9},ExpressionUUID->"6a72f63c-f4a9-42ca-a867-\
a30b00ca74da"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7140770928310003`*^9},ExpressionUUID->"238b5fd0-4604-4895-ba35-\
26afcb671abf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{278., {3., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "1224", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 1224, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7140771394578133`*^9},ExpressionUUID->"e4715056-5a21-4dd9-a560-\
48ac7a87fefb"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{
  3.714077219583187*^9},ExpressionUUID->"31725dfe-2774-4d00-9464-\
cb37ca8cee90"],

Cell[BoxData[
 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
This might reduce the efficiency of certain matrix element generators.\\n     \
           See logfile for more details.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.714077280346238*^9},ExpressionUUID->"4f75d5c2-c4d7-4390-b64a-\
1e59ca53d7cf"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{
  3.714077569805871*^9},ExpressionUUID->"fbb53182-6f94-4ba3-b6b8-\
4460d2fb8588"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "model ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
  "94a2a4f6-9e33-4aca-a7ea-82459514950a"],
 " \[Alpha] scheme"
}], "Section",
 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9, 
  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.7144743376619997`*^9, 
  3.714474342461445*^9}, {3.714654946914713*^9, 
  3.714654947202389*^9}},ExpressionUUID->"4ba162d2-fcda-408a-bfb2-\
d3e238f0c227"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flavor", "=", "U35"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
tK0F0wCBM7LJ
  "],ExpressionUUID->"efb56935-48fc-4b89-9b62-2d1a62b3b6f1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cth", "^", "2"}], "+", 
       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"vevhat", "^", "2"}], "\[Equal]", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "definition", " ", "useful", " ", "for", " ", "algebraic", " ", 
    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9}, 
   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9}, 
   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9, 
   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9}, 
   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9, 
   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9, 
   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9, 
   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9, 
   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9, 
   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9, 
   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9, 
   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9, 
   3.713952603424769*^9}, {3.714473889693774*^9, 
   3.714473893078669*^9}},ExpressionUUID->"0db4a9de-35f4-4b6e-829a-\
9a7bd3f3473a"],

Cell[CellGroupData[{

Cell[BoxData["\<\"U(3)^5 symmetric framework selected\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951496346*^9},ExpressionUUID->"1738bd40-c20e-4e6f-82b6-\
b1a2bbbd68d8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", "\[Alpha]", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", 
   SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["G", "f"]}],
  SequenceForm["Input parameters: ", FeynRules`\[Alpha], ", ", 
   Subscript[FeynRules`m, $CellContext`Z], ", ", 
   Subscript[FeynRules`G, FeynRules`f]],
  Editable->False]], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951497993*^9},ExpressionUUID->"2de22f87-77e8-43e2-a549-\
ac15a55da1f4"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951515649*^9},ExpressionUUID->"7760b9f1-3d1c-405f-83d6-\
f62331f21e23"],

Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951517227*^9},ExpressionUUID->"065d55b5-4b8f-41ad-abe9-\
831995e113df"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
  SequenceForm["Model Version: ", "2.1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.7295829515196457`*^9},ExpressionUUID->"5b4f811f-d815-4478-9b15-\
b37b2255c0b1"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951521202*^9},ExpressionUUID->"095f3d49-61e7-428e-b3d2-\
9ec1442f48d3"],

Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.72958295152264*^9},ExpressionUUID->"0e3d7e41-57cb-471b-b881-3273280d4cb3"],

Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951524103*^9},ExpressionUUID->"d8fdfcc7-5754-4deb-97f2-\
eb6d0842ac6f"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951525564*^9},ExpressionUUID->"e931953c-b5d2-4d8c-a6c8-\
d96d9e6310fe"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951527059*^9},ExpressionUUID->"0877fcc5-86e4-417a-810c-\
399dbbd4f2ed"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.7295829515285873`*^9},ExpressionUUID->"47c690e0-10d0-47bc-9d60-\
e88069900f79"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.7295829516128798`*^9},ExpressionUUID->"7b4b6cdf-2b18-4de1-a842-\
a96527bb9d7d"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951631713*^9},ExpressionUUID->"4c95a2af-923a-4ed0-8243-\
c3fa29dcd871"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{3.725884586976842*^9, 3.726224463752041*^9, 
  3.728971117078761*^9, 
  3.729582951740588*^9},ExpressionUUID->"37c94247-6636-4f52-a5df-\
1fec5adf67b1"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "x", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"WC6", ",", 
       RowBox[{"Conjugate", "/@", "WC6"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
          ",", "dgw"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
  3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9, 
  3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
  3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9, 
  3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
  3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9, 
  3.6986454466349792`*^9}, {3.6990803840045652`*^9, 3.6990803931031227`*^9}, {
  3.707025063385503*^9, 3.707025074535533*^9}, {3.707026201080791*^9, 
  3.707026206097932*^9}, {3.707733746790945*^9, 3.707733759745702*^9}, {
  3.711875906183223*^9, 3.71187590676577*^9}, {3.712555385621932*^9, 
  3.712555393408392*^9}, {3.714652388715506*^9, 
  3.714652407697195*^9}},ExpressionUUID->"4949d193-0395-4575-96e7-\
67eea7388746"],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - extraction of aTGC ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    SuperscriptBox[
     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
  "5a335fab-d597-4e91-ad8d-cfcaecdad4fa"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
  "9d460cc4-c765-4ea8-a0c3-eeac409b8164"],
 " )"
}], "Subsection",
 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
   3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9, 
   3.714474881170227*^9}, {3.7146522087316093`*^9, 3.7146522332696543`*^9}, 
   3.728971118766189*^9},ExpressionUUID->"0c50546d-c1b3-4a01-9fb8-\
fca20c2bda81"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LGauge", "+", "L6cl4"}], "/.", 
     RowBox[{
      RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
     "OptimizeIndex"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9, 
  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
  3.7144751339781103`*^9, 
  3.714475137908736*^9}},ExpressionUUID->"4b71800b-bc08-414a-a036-\
22fc6f8fb5dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 
  3.697355204589117*^9}},ExpressionUUID->"3697c174-3af7-404a-aa8d-\
f85db6873eae"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
eigenstates should be selected!\"\>"], "Print",
 CellChangeTimes->{3.714652273867529*^9, 
  3.729583039838567*^9},ExpressionUUID->"0b6bc60c-6f97-458c-ba49-\
9cf671c2b6bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 
  3.7295830398948307`*^9},ExpressionUUID->"e9fb3d64-2b17-4c2f-a394-\
508ea34d8f4f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with less than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 
  3.729583039915205*^9},ExpressionUUID->"778bb14a-5626-4adf-941c-\
15a5159f2187"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9, 
   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9, 
   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9, 
   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9, 
   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
   3.714652412441049*^9, 3.714652464776884*^9}, 
   3.714652626095168*^9},ExpressionUUID->"e01e295d-ef15-4212-8f41-\
3a0f29aaf660"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.729583040209217*^9},ExpressionUUID->"b21da2e7-5907-456e-9d68-\
9d2d8544d83c"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["c", "HD"]}], "-", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","3"},
           "Subsuperscript"]}], "+", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}], "-", 
         RowBox[{"4", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["c", "HD"], "+", 
            RowBox[{"4", " ", 
             TemplateBox[{"c","Hl","3"},
              "Subsuperscript"]}], "-", 
            RowBox[{"2", " ", 
             TemplateBox[{"c","ll","Prime"},
              "Subsuperscript"]}]}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.729583040545093*^9},ExpressionUUID->"5edf089d-89de-4317-87c2-\
f9de1a391988"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HWB"], " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}]]}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.729583040681281*^9},ExpressionUUID->"e1093f29-923f-46bd-a82b-\
328c2362a858"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652472649456*^9, 
  3.714652608904799*^9}},ExpressionUUID->"1dcb4ae4-fc9e-4eca-93af-\
ae57a3f5f83e"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 
   3.729583040848359*^9},ExpressionUUID->"c04e5c5a-ad82-41ab-9bd1-\
a3a9bd9d31a7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", 
        RowBox[{"8", " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HD"], "+", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "-", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"2", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 
   3.729583041036607*^9},ExpressionUUID->"8c0c7be1-359b-45e4-9959-\
3db7a81dbda5"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"2", " ", 
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"4", "-", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{
   SubscriptBox["c", "\[Theta]"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 
   3.72958304109765*^9},ExpressionUUID->"d33e74ba-3d41-4272-925c-\
f471eff7018e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.714652368810739*^9, 
  3.7146524695105267`*^9},ExpressionUUID->"2c296100-2306-485a-b612-\
a9ce33b4b723"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
  3.697369511884927*^9, 
  3.697369515354232*^9}},ExpressionUUID->"66f6d084-4c3d-486f-95f9-\
2fa1f020cb3b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9, 
   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9}, 
   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9, 
   3.714652669421071*^9}},ExpressionUUID->"9a2027ca-5c3e-478e-a560-\
56393c8e0aa7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dsth2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["s", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.729583044036901*^9},ExpressionUUID->"5f136354-22be-4a04-b698-\
48aac22d0162"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "e", " ", 
  SubscriptBox["A", "mu$1"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
         SubscriptBox["W", "mu$1"], "]"}]}], "+", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.7295830441039667`*^9},ExpressionUUID->"2f518fef-13ff-46e6-8026-\
54ea7efd5c4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652676781377*^9, 
  3.71465270986456*^9}},ExpressionUUID->"6fe6eb08-c7da-4e63-aa5b-\
153754cede2b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dsth2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.729583044229084*^9},ExpressionUUID->"4201c85b-1d8d-468b-9071-\
9d1c9c537c0c"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}], "+", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.729583044311389*^9},ExpressionUUID->"d2107ed9-6bf4-402e-ac24-\
426ab3149b5f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  RowBox[{
   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
   SubscriptBox["A", "mu$1"], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["W", "mu$2"], " ", 
     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
    RowBox[{
     SubscriptBox["W", "mu$1"], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.729583044337042*^9},ExpressionUUID->"5ea5d9c0-e154-4cc0-bf10-\
b17199989543"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : h Z Z coupling (CP even)", "Subsection",
 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
  3.71465313260557*^9, 
  3.714653135145647*^9}},ExpressionUUID->"db108267-52ce-4b87-8257-\
b136f1c2d85b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hzz", "=", 
  RowBox[{
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.", 
      RowBox[{
       RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], 
     ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9, 
  3.697781973755425*^9}, {3.714653122093409*^9, 
  3.714653151135909*^9}},ExpressionUUID->"f4a2d807-ff40-43a7-9ecd-\
d144c33aa291"],

Cell[BoxData[
 FractionBox[
  RowBox[{"H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "32"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
     RowBox[{"32", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["e", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            SqrtBox["2"], " ", "dGf"}], "+", 
           RowBox[{"4", " ", "dgw"}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"dg1", "-", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", 
             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["c", "HD"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.714653202225688*^9, 
  3.729583082014724*^9},ExpressionUUID->"a57cb975-2fda-412b-91d2-\
27e304f66a58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
 CellChangeTimes->{{3.714653438713478*^9, 
  3.7146534431183643`*^9}},ExpressionUUID->"992a156f-1ba3-43ac-a482-\
207654fda652"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.71465344371563*^9, 
  3.72958308207519*^9},ExpressionUUID->"3b0166cf-f084-4035-ba12-a3dc00d23950"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"hzz", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", "_", "]"}], "2"], ",", 
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",", 
   "WCsimplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9, 
  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9, 
  3.7146534351677427`*^9}},ExpressionUUID->"90542a25-f864-48db-a441-\
385b6364a9c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", "H", " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
        OverscriptBox["v", "^"]}], 
       RowBox[{
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", "H", " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
    SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"dg1", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"dGf", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"dgw", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"16", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.700893354200268*^9, 3.712654290029169*^9, 3.71396688057451*^9, {
   3.714653206742526*^9, 3.71465324075095*^9}, {3.714653297211488*^9, 
   3.7146533889881983`*^9}, {3.714653430663045*^9, 3.714653435702468*^9}, 
   3.729583082259549*^9},ExpressionUUID->"2d3c222c-7963-4dc2-82f7-\
cd3f03b10544"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  SubscriptBox["Z", "\[Mu]"], 
  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 
  3.714653533124165*^9}},ExpressionUUID->"4203f239-fa06-4871-94d6-\
eeb8a8621824"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"hzz", "/.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   FractionBox["%", 
    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 
  3.714653585931526*^9}},ExpressionUUID->"ec8f8c0b-ce49-4df3-a541-\
07a9f407dd69"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
        SubscriptBox["c", "HD"], "-", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "+", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, 
   3.729583082341107*^9},ExpressionUUID->"10b2091a-42c1-46b9-a95d-\
5bb3d24ea67c"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, 
   3.729583082365821*^9},ExpressionUUID->"78c5a737-60ea-42cb-9976-\
18fe4ed535b6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "\[Mu]"], 
   SubscriptBox["Z", "\[Nu]"]}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["Z", "\[Nu]"]}], "-", 
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Nu]"], 
     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.714653634026601*^9, 
  3.714653660281114*^9}},ExpressionUUID->"6a646682-4e96-47e9-9c42-\
720f4bb8cf4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hzz", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", 
    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714653677707417*^9, 
  3.714653739972247*^9}},ExpressionUUID->"12db3362-37c1-4876-b41d-\
ef4875bbe4e2"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "H", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["c", "HW"], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HB"], "-", 
        SubscriptBox["c", "HW"]}], ")"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}], 
  RowBox[{
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9}, 
   3.7295830824662046`*^9},ExpressionUUID->"0ce18778-59c6-4e74-80a8-\
126fa4108a7f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - Fermion Z ",
 Cell[BoxData[
  FormBox["couplings", TraditionalForm]],ExpressionUUID->
  "5100c843-d04f-4af3-90d4-f9dd3015ee44"],
 " (non-dipole structures)"
}], "Subsection",
 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9, 
  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
  3.714474653133204*^9, 
  3.7144746902228537`*^9}},ExpressionUUID->"3ab3ce43-10a9-42c6-b5a0-\
55302eaa085a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474671414948*^9, 
  3.714474706220644*^9}},ExpressionUUID->"33d7e7f9-0455-402a-a679-\
d3fe864dbd96"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZffCouplings", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{"L2", ",", 
       RowBox[{"Contains", "\[Rule]", 
        RowBox[{"{", "Z", "}"}]}], ",", 
       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//", 
     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9, 
   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9, 
   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9, 
   3.714652756642342*^9}, {3.714652909302999*^9, 
   3.7146529149076347`*^9}},ExpressionUUID->"5192aad5-d567-4eff-aaf4-\
461f93cbb120"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.729583103470407*^9},ExpressionUUID->"aa00e2c5-38b8-4573-88d6-\
1b76118705ea"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.7295831034716377`*^9},ExpressionUUID->"316e2a86-4598-4aa3-a93c-\
dc76d74140f2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.729583103473463*^9},ExpressionUUID->"f28dc19d-e64b-465b-9275-\
6dd8590eb7e4"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.7295831115173597`*^9},ExpressionUUID->"f3e54edb-d23c-479c-85ab-\
495cb2f054e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.729583111543912*^9},ExpressionUUID->"c7135858-57f6-46d3-af86-\
231445b863e2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.729583113430953*^9},ExpressionUUID->"2f450633-6995-41d2-9043-\
44f92d3d9dcf"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "3"}], "-", 
                RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"2", "-", "dg1", "+", 
                   RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"3", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"2", " ", 
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dsth2", " ", 
              SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                RowBox[{
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                TemplateBox[{"c","Hl","1"},
                 "Subsuperscript"], "+", 
                TemplateBox[{"c","Hl","3"},
                 "Subsuperscript"]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dsth2", " ", 
              SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SubscriptBox["c", "He"]}], "+", 
                RowBox[{
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"f\"\>", "1"], ",", 
         SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[CapitalLambda]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "-", 
               RowBox[{"3", " ", "dgw"}], "+", 
               RowBox[{"2", " ", "dsth2"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"4", "+", "dg1", "+", 
                  RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                TemplateBox[{"c","Hq","1"},
                 "Subsuperscript"]}], "-", 
               RowBox[{"3", " ", 
                TemplateBox[{"c","Hq","3"},
                 "Subsuperscript"]}], "-", 
               RowBox[{
                SubscriptBox["c", "HWB"], " ", 
                SubscriptBox["c", "\[Theta]"], " ", 
                SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
             SuperscriptBox[
              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "dsth2", " ", 
             SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "dg1"}], ")"}], " ", 
             SuperscriptBox["\[CapitalLambda]", "2"], " ", 
             SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SubscriptBox["c", "Hu"]}], "+", 
               RowBox[{"2", " ", 
                SubscriptBox["c", "HWB"], " ", 
                SubscriptBox["c", "\[Theta]"], " ", 
                SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
             SuperscriptBox[
              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"+\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
      RowBox[{"6", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {
        OverscriptBox["vl", "\<\"-\"\>"], "1"},
       {"vl", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "dgw", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
             SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            TemplateBox[{"c","Hl","1"},
             "Subsuperscript"], "-", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"], "-", 
            RowBox[{
             SubscriptBox["c", "HWB"], " ", 
             SubscriptBox["c", "\[Theta]"], " ", 
             SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"f\"\>", "1"], ",", 
         SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
        3}}, Complex[0, 
       Rational[-1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-3 - 
          3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 + 
            3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq1 + 
         3 $CellContext`cHq3 + 
         2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + ((-3) $CellContext`cHd + $CellContext`cHWB \
$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {
      FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[-1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
$CellContext`dsth2 + (
            2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw + 
          2 $CellContext`dsth2 + (4 + $CellContext`dg1 + 
            3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq1 - 
          3 $CellContext`cHq3 - $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + (
        2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (3 $CellContext`cHu + 
          2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`vlbar, 1}, {$CellContext`vl, 
       2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[2]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[3]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]]]}}]]], "Output",
 CellChangeTimes->{
  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9, 
   3.7295831168584642`*^9},ExpressionUUID->"b44b6fd8-1c77-423c-955b-\
66356a7a36ba"]
}, Open  ]],

Cell["neutrino coupling :", "Text",
 CellChangeTimes->{{3.7146528020724363`*^9, 
  3.7146528092589808`*^9}},ExpressionUUID->"56b59e56-378f-4b87-aadc-\
d62051711651"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ZffCouplings", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", "alphaShifts"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   RowBox[{
    FractionBox["%", 
     RowBox[{"SMlimit", "[", "%", "]"}]], "/.", 
    RowBox[{
     RowBox[{"IndexDelta", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9}, 
   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9, 
   3.714652890708997*^9}, {3.714652953030558*^9, 
   3.7146530356237173`*^9}},ExpressionUUID->"cb67ca5a-e9ca-49bb-ad74-\
fc6aa2e276fa"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "-", "dgw", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], "-", 
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"f\"\>", "1"], ",", 
     SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 
   3.729583116904347*^9},ExpressionUUID->"8fbb7acd-1dc9-44bf-b244-\
cd8c2c283bba"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "+", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","1"},
           "Subsuperscript"]}], "-", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"8", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 
   3.729583117110548*^9},ExpressionUUID->"16475bef-ffdc-42fa-b648-\
b99f517abdd0"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 
   3.729583117135125*^9},ExpressionUUID->"ad61cf2f-4890-42a2-9274-\
7bd15682fa5b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : Yukawa couplings", "Subsection",
 CellChangeTimes->{{3.714653803679809*^9, 
  3.714653813127017*^9}},ExpressionUUID->"093574c8-3027-4f22-9a45-\
af867d3183f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LYuk", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
     "LinearWC"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9}, 
   3.714653880639667*^9, {3.7146539581117077`*^9, 
   3.714653960288474*^9}},ExpressionUUID->"bb950db0-26b9-4947-88eb-\
655e519598cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hff", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"FeynmanRules", "[", 
     RowBox[{"LYuk", ",", 
      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",", 
      RowBox[{"Contains", "\[Rule]", 
       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653838776801*^9, 
  3.7146538891931353`*^9}},ExpressionUUID->"328f3d43-6261-4815-96f0-\
ac994999197f"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 
   3.729583122801153*^9},ExpressionUUID->"2c0607a9-f557-4038-896f-\
b549aea212c9"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 
   3.729583122802886*^9},ExpressionUUID->"ec4b3533-e54f-4c95-aa72-\
b31e5b39808f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 
   3.7295831228056307`*^9},ExpressionUUID->"84498a12-23a0-4012-9ba2-\
120b76e5de8c"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 
   3.7295831245832443`*^9},ExpressionUUID->"617aa8ff-5918-4c1f-bbc4-\
3eade645b04e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  3, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 
   3.729583124607419*^9},ExpressionUUID->"2964c299-6da9-4139-a7c0-\
39dee3818284"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[3, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 
   3.72958312505293*^9},ExpressionUUID->"72f949f7-b8a8-46c5-b5cc-\
b7396534f5f4"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox["c", "dH", "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","d"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "dH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","d"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","l"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","l"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox["c", "uH", "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","u"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "uH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","u"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`cdH] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yd[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]]] + Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`cdH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yd[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]]] + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yl[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]]] + Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yl[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]]] + Complex[0, -1] 2^Rational[-1, 2] (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`cuH] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yu[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]]] + Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`cuH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yu[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]]] + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}}]]], "Output",
 CellChangeTimes->{{3.714653869780055*^9, 3.714653893377253*^9}, 
   3.714653972746155*^9, 
   3.729583126334095*^9},ExpressionUUID->"dfcd1cd5-a18c-4418-ae01-\
999642149887"]
}, Open  ]],

Cell["Flavor expansion for the leptons' case", "Text",
 CellChangeTimes->{{3.7146540002012587`*^9, 
  3.714654016686934*^9}},ExpressionUUID->"05dd6b37-046f-40bb-8128-\
180e19ecc071"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hll", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"hff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//", 
      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653897213532*^9, 
  3.714653998430573*^9}},ExpressionUUID->"b4b9e441-6d41-4840-814b-\
0644702b2f8e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
   3.714653951564291*^9, 3.71465401970082*^9}, 
   3.729583126434883*^9},ExpressionUUID->"eac60e11-cae0-4bff-81b9-\
398fbf5dbb76"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ye", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ym", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ytau", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ye 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`ye Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`mu, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ym 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`ym Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{
      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ytau 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`ytau Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]]], "Output",
 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
   3.714653952474135*^9, 3.714654020646657*^9}, 
   3.729583127329198*^9},ExpressionUUID->"5ae4c482-6246-4bf3-bcd1-\
19b7f523cebd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hll", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146540238619328`*^9, 
  3.714654043748782*^9}},ExpressionUUID->"6deef87e-8e03-4c86-9372-\
8ba5bb8a5d5b"],

Cell[BoxData[
 TagBox[
  InterpretationBox[GridBox[{
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ye", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SubscriptBox["c", 
                   RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
                 SubscriptBox["c", "HD"], "-", 
                 RowBox[{"4", " ", 
                  TemplateBox[{"c","Hl","3"},
                   "Subsuperscript"]}], "+", 
                 RowBox[{"2", " ", 
                  TemplateBox[{"c","ll","Prime"},
                   "Subsuperscript"]}]}], ")"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"-\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
              RowBox[{
               SubscriptBox["c", "eH"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"+\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ym", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SubscriptBox["c", 
                   RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
                 SubscriptBox["c", "HD"], "-", 
                 RowBox[{"4", " ", 
                  TemplateBox[{"c","Hl","3"},
                   "Subsuperscript"]}], "+", 
                 RowBox[{"2", " ", 
                  TemplateBox[{"c","ll","Prime"},
                   "Subsuperscript"]}]}], ")"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"-\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
              RowBox[{
               SubscriptBox["c", "eH"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"+\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ytau", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SubscriptBox["c", 
                   RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
                 SubscriptBox["c", "HD"], "-", 
                 RowBox[{"4", " ", 
                  TemplateBox[{"c","Hl","3"},
                   "Subsuperscript"]}], "+", 
                 RowBox[{"2", " ", 
                  TemplateBox[{"c","ll","Prime"},
                   "Subsuperscript"]}]}], ")"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"-\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
              RowBox[{
               SubscriptBox["c", "eH"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"+\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ye ((
         4 $CellContext`LambdaSMEFT^2 + (
           4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 + 
           2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]]))}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {FeynRules`mu, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ym ((
         4 $CellContext`LambdaSMEFT^2 + (
           4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 + 
           2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]]))}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ytau ((
         4 $CellContext`LambdaSMEFT^2 + (
           4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 + 
           2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]]))}}]],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9}, 
   3.7295831284457607`*^9},ExpressionUUID->"cd99707a-6d81-4c56-9c5a-\
1b8a859f29ac"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Export to UFO", "Subsection",
 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
  3.7146540815185833`*^9, 
  3.714654082512082*^9}},ExpressionUUID->"ac7f6f8c-a544-4c84-b446-\
59f16536fb38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSMEFT", ",", 
   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_U35_alphaScheme_UFO\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9, 
  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714654929541032*^9, 
  3.7146549299446907`*^9}},ExpressionUUID->"5d953327-d798-46bf-add0-\
6d5f63509d72"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583756467793*^9},ExpressionUUID->"524902a5-dd61-4c0a-a03c-\
856557c9c31f"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583763477233*^9},ExpressionUUID->"88b2675b-8c0b-4045-b036-\
97c33df11709"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583763478526*^9},ExpressionUUID->"808a5ec1-e449-49c1-9f63-\
6de7cba91f6e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583763479885*^9},ExpressionUUID->"b109ea8e-ba3d-4203-9226-\
f19a753e7d07"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583854344748*^9},ExpressionUUID->"49de0e79-0e3e-44f1-b1fe-\
4b63798cd389"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  82, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583854828854*^9},ExpressionUUID->"0cd21141-e215-409a-b82f-\
252bfc7becda"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[82, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583920283288*^9},ExpressionUUID->"9aafa6e2-e421-4452-a3f5-\
63a8005b3aed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583939524642*^9},ExpressionUUID->"c63a281d-58e9-443e-a4b3-\
4d11d1c9c0d0"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729583979305943*^9},ExpressionUUID->"6d1f2c8e-5f9f-4403-b5e2-\
0957582bdded"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.7295839793832083`*^9},ExpressionUUID->"b2508315-1672-493a-933c-\
a173049e8818"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "54"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 54],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.7295839794187393`*^9},ExpressionUUID->"b64756d8-cd1c-46b8-98a3-\
e084e896e808"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "651.188`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 651.188, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585294372829*^9},ExpressionUUID->"3c1fd219-40ef-4d97-8768-\
0fc5401e4920"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "61"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 61],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585294498909*^9},ExpressionUUID->"05ecc6b9-d890-4075-b4e7-\
3da100868687"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "8.308`", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 8.308, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585303439705*^9},ExpressionUUID->"d3885147-1a49-4add-8e80-\
bef56a81ea7b"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.7295853034418497`*^9},ExpressionUUID->"1d1435d5-bd27-4981-8fbb-\
156f55b2ca2e"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585306461948*^9},ExpressionUUID->"c529f57c-a13a-4b2f-ac23-\
b71e4f0262f2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585306875051*^9},ExpressionUUID->"8d23e792-d853-4a17-8cdd-\
6a2b7b2dfa31"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "396", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 396, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585317979244*^9},ExpressionUUID->"729d3ed9-3176-4fa1-88d3-\
af58398f2e02"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.7295853229081306`*^9},ExpressionUUID->"77a8998d-cf8d-4fcd-a281-\
ff02eeeb9930"],

Cell[BoxData[
 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
This might reduce the efficiency of certain matrix element generators.\\n     \
           See logfile for more details.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585323430752*^9},ExpressionUUID->"4a26ee14-6997-4bb7-bae5-\
e016bd0b10be"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.714027854894479*^9, 
  3.729585325950304*^9},ExpressionUUID->"65a6f6f0-80e0-48af-a82e-\
16f75f5ac7ca"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "model ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
  "f6e44d33-4022-4952-8d9c-917d47b13d3c"],
 " Mw scheme "
}], "Section",
 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9, 
  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9, 
  3.7140273462258577`*^9}, {3.714654128338853*^9, 
  3.7146541309109163`*^9}},ExpressionUUID->"2d9260f1-7479-4ba5-9d73-\
4cb250643e6b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flavor", "=", "U35"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
tK0F02JTi1+B6HeBs8E0AAPZvSY=
  
  "],ExpressionUUID->"b66fa53c-daf2-4c11-9ea9-eb24ee0ee8a2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cth", "^", "2"}], "+", 
       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"vevhat", "^", "2"}], "\[Equal]", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "definition", " ", "useful", " ", "for", " ", "algebraic", " ", 
    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9}, 
   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9}, 
   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9, 
   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9}, 
   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9, 
   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9, 
   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9, 
   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9, 
   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9, 
   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9, 
   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9, 
   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9, 
   3.713952603424769*^9}, 
   3.7146541404705048`*^9},ExpressionUUID->"4abf663d-b373-4948-8887-\
6ec30767134e"],

Cell[CellGroupData[{

Cell[BoxData["\<\"U(3)^5 symmetric framework selected\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.72958559978906*^9},ExpressionUUID->"c6705020-afb3-4dd1-bfbe-dba7d6fb10f5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", 
   SubscriptBox["m", "W"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["G", "f"]}],
  SequenceForm["Input parameters: ", 
   Subscript[FeynRules`m, FeynRules`W], ", ", 
   Subscript[FeynRules`m, $CellContext`Z], ", ", 
   Subscript[FeynRules`G, FeynRules`f]],
  Editable->False]], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599791258*^9},ExpressionUUID->"bedb4d7c-1bef-4d05-8075-\
feac9cdae15e"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599809162*^9},ExpressionUUID->"1cb1ef46-4e0c-46cb-b9bb-\
b376f44ffffe"],

Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599812353*^9},ExpressionUUID->"e5ee3e43-b50c-477e-99a2-\
bbf9d618dbe0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
  SequenceForm["Model Version: ", "2.1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599814722*^9},ExpressionUUID->"d0f7cc9f-1041-419a-a612-\
3669f3ca3ef7"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599816799*^9},ExpressionUUID->"3a6ef98c-d6bc-4e37-b45a-\
d311fc82ac45"],

Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599818851*^9},ExpressionUUID->"57bd99e3-edf5-4b87-b146-\
6723f166d6ab"],

Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.7295855998209267`*^9},ExpressionUUID->"8b654083-6f2f-4e68-9ab4-\
e30db00123b5"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599823007*^9},ExpressionUUID->"a9f6bd15-1da7-4f71-8204-\
9a81dcce4845"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599824911*^9},ExpressionUUID->"33ffb23a-f3e5-429a-8ca2-\
d665c31337f5"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599826977*^9},ExpressionUUID->"1a03eaa9-bec4-452f-acaa-\
460a124a68e1"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599924045*^9},ExpressionUUID->"da24c10f-a287-48af-a37d-\
6d828bc9b35a"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585599947631*^9},ExpressionUUID->"ffaf3889-a11f-49b3-ba66-\
acb93543fd91"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{3.728970294030416*^9, 
  3.729585600065608*^9},ExpressionUUID->"a511ea96-fa57-44c9-8bc4-\
9a7b8e8bb510"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "x", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"WC6", ",", 
       RowBox[{"Conjugate", "/@", "WC6"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
          ",", "dgw"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
  3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9, 
  3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
  3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9, 
  3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
  3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9, 
  3.6986454466349792`*^9}, {3.6990803840045652`*^9, 3.6990803931031227`*^9}, {
  3.707025063385503*^9, 3.707025074535533*^9}, {3.707026201080791*^9, 
  3.707026206097932*^9}, {3.707733746790945*^9, 3.707733759745702*^9}, {
  3.711875906183223*^9, 3.71187590676577*^9}, {3.712555385621932*^9, 
  3.712555393408392*^9}, {3.714654165911644*^9, 
  3.714654193292074*^9}},ExpressionUUID->"d8121a6f-3cad-4d93-b5bd-\
184be025ceb2"],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - extraction of aTGC ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    SuperscriptBox[
     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
  "a16c3001-446d-4d73-ae1c-886ed6d3c852"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
  "6b910a5a-febd-40ea-a409-a1f1f249a4df"],
 " )"
}], "Subsection",
 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9, 
  3.714474881170227*^9}, {3.7146522087316093`*^9, 
  3.7146522332696543`*^9}},ExpressionUUID->"da7aca8f-5ff2-4ac5-b4ac-\
426f93a9e269"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LGauge", "+", "L6cl4"}], "/.", 
     RowBox[{
      RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
     "OptimizeIndex"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9, 
  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
  3.7144751339781103`*^9, 
  3.714475137908736*^9}},ExpressionUUID->"d38da7be-c5b0-4382-9aad-\
a314c37d4d90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 
  3.697355204589117*^9}},ExpressionUUID->"2cb79f04-a2d5-4b48-be08-\
ad29bac9444a"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
eigenstates should be selected!\"\>"], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.729585688917512*^9},ExpressionUUID->"37ed4f39-6df0-4b02-b19c-\
e7822342c8a3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.7295856889896183`*^9},ExpressionUUID->"56245639-6605-43ff-9a04-\
af8496eaa3d2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with less than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9, 
  3.72958568903086*^9},ExpressionUUID->"0562b896-63a1-430e-be54-c7119e6f2d50"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9, 
   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9, 
   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9, 
   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9, 
   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
   3.714652412441049*^9, 3.714652464776884*^9}, 3.714652626095168*^9, {
   3.714654309590547*^9, 
   3.714654313029612*^9}},ExpressionUUID->"8cdf3438-31d9-403c-8d4c-\
511890c5b98f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 
   3.729585689359872*^9},ExpressionUUID->"61720b74-9f1b-4f77-aa6b-\
6609fe09aa3b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "-", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","3"},
           "Subsuperscript"]}], "+", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}], "+", 
         RowBox[{"8", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 
   3.72958568968797*^9},ExpressionUUID->"67b47466-0e43-4768-855c-\
f0e6ce5983df"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714654392673708*^9, 
   3.7295856897738247`*^9},ExpressionUUID->"a4f1b857-58dc-4347-bb91-\
3b4c1a2b92ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652472649456*^9, 3.714652608904799*^9}, {
  3.7146543956773233`*^9, 
  3.714654397434864*^9}},ExpressionUUID->"d92b2f3c-8fe7-4b17-82db-\
57bc6f21d612"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 
   3.729585689918244*^9},ExpressionUUID->"e9e5386c-f574-43ad-a661-\
347ff2f8599c"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["c", "HD"]}], "+", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "-", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}], "-", 
        RowBox[{"4", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "-", 
           RowBox[{"4", " ", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"]}], "+", 
           RowBox[{"2", " ", 
            TemplateBox[{"c","ll","Prime"},
             "Subsuperscript"]}]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 
   3.729585690127036*^9},ExpressionUUID->"833f53da-c00f-4ca7-b2ef-\
85ed4adbaa95"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{
   SubscriptBox["c", "\[Theta]"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714654398253759*^9, 
   3.729585690184745*^9},ExpressionUUID->"bbd4eadb-288f-485c-8b5b-\
57584242389e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.714652368810739*^9, 
  3.7146524695105267`*^9},ExpressionUUID->"1acac1b7-3bb3-4160-84fb-\
106a33151bc4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
  3.697369511884927*^9, 
  3.697369515354232*^9}},ExpressionUUID->"1c853cd4-ff9d-4d3a-aad1-\
3726a15729c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9, 
   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9}, 
   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9, 
   3.714652669421071*^9}, {3.714654403671623*^9, 
   3.714654416461287*^9}},ExpressionUUID->"741599c4-7b04-4558-b0a3-\
301129b4eb83"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dsth2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["s", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, 
   3.7295856946067133`*^9},ExpressionUUID->"c2248327-b512-4dd3-a344-\
9c8116778bb1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["c", "HD"]}], "-", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "-", 
           RowBox[{"4", " ", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"]}], "+", 
           RowBox[{"2", " ", 
            TemplateBox[{"c","ll","Prime"},
             "Subsuperscript"]}]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, 
   3.7295856950104103`*^9},ExpressionUUID->"7f59d699-8db2-48a4-a9ae-\
6ae48d87921e"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","Hl","3"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","ll","Prime"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HD"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  SubscriptBox["A", "mu$1"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
         SubscriptBox["W", "mu$1"], "]"}]}], "+", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
   3.7146544056319647`*^9, 3.714654417046577*^9}, 
   3.7295856950683193`*^9},ExpressionUUID->"90226dca-91a1-4958-9353-\
4498deb9a429"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652676781377*^9, 3.71465270986456*^9}, {
  3.714654407380022*^9, 
  3.714654408872603*^9}},ExpressionUUID->"5a704735-947a-4111-9360-\
569a3ed54f31"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dsth2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 
   3.72958569522399*^9},ExpressionUUID->"865b92e0-edb6-4e31-a8e9-\
13ea43b9b57a"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["c", "HD"]}], "-", 
         RowBox[{"4", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["c", "HD"], "-", 
            RowBox[{"4", " ", 
             TemplateBox[{"c","Hl","3"},
              "Subsuperscript"]}], "+", 
            RowBox[{"2", " ", 
             TemplateBox[{"c","ll","Prime"},
              "Subsuperscript"]}]}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
         RowBox[{"8", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 
   3.729585695422114*^9},ExpressionUUID->"f41d64e9-814a-4e2f-9d97-\
38607bbfd593"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","Hl","3"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","ll","Prime"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HD"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  RowBox[{
   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
   SubscriptBox["A", "mu$1"], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["W", "mu$2"], " ", 
     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
    RowBox[{
     SubscriptBox["W", "mu$1"], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.714654409637148*^9, 
   3.72958569545287*^9},ExpressionUUID->"19aff24d-e1a1-4397-ad95-\
def9af12ef2e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : h Z Z coupling (CP even)", "Subsection",
 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
  3.71465313260557*^9, 3.714653135145647*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hzz", "=", 
  RowBox[{
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.", 
      RowBox[{
       RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], 
     ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9, 
  3.697781973755425*^9}, {3.714653122093409*^9, 
  3.714653151135909*^9}},ExpressionUUID->"c4dfb7cd-bc8c-4bd7-9073-\
928d9428d08a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "32"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
     RowBox[{"32", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["e", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            SqrtBox["2"], " ", "dGf"}], "+", 
           RowBox[{"4", " ", "dgw"}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"dg1", "-", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", 
             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["c", "HD"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.714653202225688*^9, 3.714654519287326*^9, 
  3.729585738417364*^9},ExpressionUUID->"92329e6c-0115-4967-bcda-\
b9a502a8da3e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
 CellChangeTimes->{{3.714653438713478*^9, 
  3.7146534431183643`*^9}},ExpressionUUID->"57aef484-bcba-42a4-9443-\
0a242a6dcd77"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.71465344371563*^9, 3.714654519369021*^9, 
  3.7295857384836283`*^9},ExpressionUUID->"776446d5-a2ac-4d35-9015-\
49d0c9536de9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"hzz", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", "_", "]"}], "2"], ",", 
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",", 
   "WCsimplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9, 
  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9, 
  3.7146534351677427`*^9}},ExpressionUUID->"c8f651ab-9215-440c-b819-\
5c00288aceb5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", "H", " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
        OverscriptBox["v", "^"]}], 
       RowBox[{
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", "H", " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
    SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"dg1", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"dGf", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"dgw", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"16", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.700893354200268*^9, 3.712654290029169*^9, 3.71396688057451*^9, {
   3.714653206742526*^9, 3.71465324075095*^9}, {3.714653297211488*^9, 
   3.7146533889881983`*^9}, {3.714653430663045*^9, 3.714653435702468*^9}, 
   3.7146545370910273`*^9, 
   3.729585738694907*^9},ExpressionUUID->"f7ccc77e-61ad-487b-af92-\
1175735b9a01"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  SubscriptBox["Z", "\[Mu]"], 
  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"hzz", "/.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
    "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   FractionBox["%", 
    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714654543437923*^9, 
  3.7146545447538853`*^9}},ExpressionUUID->"ca4e339a-c206-4c6b-b86f-\
4a3f455bb65b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
        SubscriptBox["c", "HD"], "-", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "+", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
   3.714654540813074*^9, 3.714654545238611*^9}, 
   3.729585738754466*^9},ExpressionUUID->"21232009-6990-4351-b600-\
bf76859f9d5b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
   3.714654540813074*^9, 3.714654545238611*^9}, 
   3.729585738762187*^9},ExpressionUUID->"25beed71-b4f7-46f3-a44b-\
4fc6452cda5d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "\[Mu]"], 
   SubscriptBox["Z", "\[Nu]"]}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["Z", "\[Nu]"]}], "-", 
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Nu]"], 
     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.714653634026601*^9, 3.714653660281114*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hzz", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", "MwShifts"}],
    "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714653677707417*^9, 3.714653739972247*^9}, {3.714654547788505*^9, 
  3.7146545492474623`*^9}},ExpressionUUID->"71b4a871-4662-4892-8724-\
43f5b3801af7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "H", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["c", "HW"], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HB"], "-", 
        SubscriptBox["c", "HW"]}], ")"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}], 
  RowBox[{
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9}, 
   3.714654550173139*^9, 
   3.729585738893649*^9},ExpressionUUID->"18e03327-6841-4bfe-a33a-\
3594c060d67f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - Fermion Z ",
 Cell[BoxData[
  FormBox["couplings", TraditionalForm]],ExpressionUUID->
  "70e419d5-8a0e-452e-ac46-21e5baac2a6d"],
 " (non-dipole structures)"
}], "Subsection",
 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9, 
  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
  3.714474653133204*^9, 
  3.7144746902228537`*^9}},ExpressionUUID->"910851a8-1951-472b-b9fd-\
714bfa29aaee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474671414948*^9, 
  3.714474706220644*^9}},ExpressionUUID->"17eca746-15e8-4279-b473-\
98e11f70fe60"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZffCouplings", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{"L2", ",", 
       RowBox[{"Contains", "\[Rule]", 
        RowBox[{"{", "Z", "}"}]}], ",", 
       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//", 
     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9, 
   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9, 
   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9, 
   3.714652756642342*^9}, {3.714652909302999*^9, 
   3.7146529149076347`*^9}},ExpressionUUID->"6f0a0c5a-5296-4b29-a918-\
f9bb4ea11a12"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.729585769505076*^9},ExpressionUUID->"95466fc9-09bb-47f8-b94c-\
34883bce6a33"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.729585769506878*^9},ExpressionUUID->"9de6660d-20bf-4088-8958-\
8c1ace8be251"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.729585769510354*^9},ExpressionUUID->"4c0e9376-542a-4591-8892-\
0a300e73a892"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.729585778776273*^9},ExpressionUUID->"d6461c55-f1bf-45d1-933d-\
18caa7955cf3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.729585778805963*^9},ExpressionUUID->"01890382-bf44-4a1d-9fb9-\
ba239878e20e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.714654452458597*^9, 
  3.729585780881024*^9},ExpressionUUID->"9a4cd6c7-b8f0-46dc-9f0e-\
cdf242aa9715"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "3"}], "-", 
                RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"2", "-", "dg1", "+", 
                   RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"3", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"2", " ", 
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dsth2", " ", 
              SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                RowBox[{
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                TemplateBox[{"c","Hl","1"},
                 "Subsuperscript"], "+", 
                TemplateBox[{"c","Hl","3"},
                 "Subsuperscript"]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dsth2", " ", 
              SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SubscriptBox["c", "He"]}], "+", 
                RowBox[{
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"f\"\>", "1"], ",", 
         SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[CapitalLambda]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "-", 
               RowBox[{"3", " ", "dgw"}], "+", 
               RowBox[{"2", " ", "dsth2"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"4", "+", "dg1", "+", 
                  RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                TemplateBox[{"c","Hq","1"},
                 "Subsuperscript"]}], "-", 
               RowBox[{"3", " ", 
                TemplateBox[{"c","Hq","3"},
                 "Subsuperscript"]}], "-", 
               RowBox[{
                SubscriptBox["c", "HWB"], " ", 
                SubscriptBox["c", "\[Theta]"], " ", 
                SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
             SuperscriptBox[
              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"-\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "dsth2", " ", 
             SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "dg1"}], ")"}], " ", 
             SuperscriptBox["\[CapitalLambda]", "2"], " ", 
             SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SubscriptBox["c", "Hu"]}], "+", 
               RowBox[{"2", " ", 
                SubscriptBox["c", "HWB"], " ", 
                SubscriptBox["c", "\[Theta]"], " ", 
                SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
             SuperscriptBox[
              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
          SubscriptBox[
           RowBox[{
            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
             "Superscript"], ".", 
            SubscriptBox["P", "\<\"+\"\>"]}], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
      RowBox[{"6", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {
        OverscriptBox["vl", "\<\"-\"\>"], "1"},
       {"vl", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "dgw", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
             SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            TemplateBox[{"c","Hl","1"},
             "Subsuperscript"], "-", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"], "-", 
            RowBox[{
             SubscriptBox["c", "HWB"], " ", 
             SubscriptBox["c", "\[Theta]"], " ", 
             SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"f\"\>", "1"], ",", 
         SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
        3}}, Complex[0, 
       Rational[-1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-3 - 
          3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 + 
            3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq1 + 
         3 $CellContext`cHq3 + 
         2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + ((-3) $CellContext`cHd + $CellContext`cHWB \
$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {
      FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[-1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
$CellContext`dsth2 + (
            2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw + 
          2 $CellContext`dsth2 + (4 + $CellContext`dg1 + 
            3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq1 - 
          3 $CellContext`cHq3 - $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + (
        2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (3 $CellContext`cHu + 
          2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`vlbar, 1}, {$CellContext`vl, 
       2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[2]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[3]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]]]}}]]], "Output",
 CellChangeTimes->{
  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9, 
   3.7146544666189938`*^9, 
   3.72958578465129*^9},ExpressionUUID->"62f51c5b-3b9f-4ac8-9915-\
01abb7bb8b27"]
}, Open  ]],

Cell["neutrino coupling :", "Text",
 CellChangeTimes->{{3.7146528020724363`*^9, 3.7146528092589808`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ZffCouplings", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   RowBox[{
    FractionBox["%", 
     RowBox[{"SMlimit", "[", "%", "]"}]], "/.", 
    RowBox[{
     RowBox[{"IndexDelta", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9}, 
   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9, 
   3.714652890708997*^9}, {3.714652953030558*^9, 3.7146530356237173`*^9}, {
   3.714654434479714*^9, 
   3.714654435996188*^9}},ExpressionUUID->"956548b5-e5ca-4d41-bf0b-\
2ddfda57957b"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "-", "dgw", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], "-", 
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"f\"\>", "1"], ",", 
     SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.729585784734597*^9},ExpressionUUID->"f8ca07e0-7d7b-47e8-8408-\
a0bb4aaff893"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "+", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","1"},
           "Subsuperscript"]}], "-", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"8", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.72958578490658*^9},ExpressionUUID->"2ad48f67-3d67-49ef-9332-\
b7d25c1b9691"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9, 
   3.7295857849634943`*^9},ExpressionUUID->"cf12f7a9-3181-4243-a52d-\
846f9c2a29d9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : Yukawa couplings", "Subsection",
 CellChangeTimes->{{3.714653803679809*^9, 3.714653813127017*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"LYuk", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
     "LinearWC"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9}, 
   3.714653880639667*^9, {3.7146539581117077`*^9, 
   3.714653960288474*^9}},ExpressionUUID->"f6406d70-e063-4ce0-a098-\
aa416939fcbb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hff", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"FeynmanRules", "[", 
     RowBox[{"LYuk", ",", 
      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",", 
      RowBox[{"Contains", "\[Rule]", 
       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653838776801*^9, 
  3.7146538891931353`*^9}},ExpressionUUID->"4ac2a7d3-017e-4ba5-b3c5-\
d43cadb35fa0"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.72958579180408*^9},ExpressionUUID->"bdc1df9f-0c98-4814-977b-\
e588ee7a975d"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.72958579180583*^9},ExpressionUUID->"fefb21d1-8718-43e8-a983-\
f009db858a3c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.729585791809902*^9},ExpressionUUID->"8e8adfd9-341e-486e-b168-\
0a8fcd092dd2"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.729585794481516*^9},ExpressionUUID->"5a478d47-e91b-40d6-8282-\
67698dfa94a7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  3, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.729585794541729*^9},ExpressionUUID->"0bb7fb20-6637-4207-a982-\
b711bb2d1939"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[3, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714654563696785*^9, 
   3.7295857950721693`*^9},ExpressionUUID->"b0949438-bf90-44a6-bc86-\
7c7bd1bce09d"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox["c", "dH", "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","d"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "dH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","d"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yd0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","l"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","l"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubsuperscriptBox["c", "uH", "\<\"*\"\>"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","u"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "uH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "1"], ",", 
          SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
        SubscriptBox[
         TemplateBox[{"y","u"},
          "Superscript"], 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "2"], ",", 
          SubscriptBox["\<\"f\"\>", "1"]}]]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yu0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`cdH] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yd[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]]] + Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`cdH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yd[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]]] + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yd0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yl[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]]] + Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yl[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]]] + Complex[0, -1] 2^Rational[-1, 2] (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (Conjugate[
          $CellContext`yl0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 
      Conjugate[$CellContext`cuH] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yu[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]]] + Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`cuH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]]] $CellContext`yu[
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[2]], 
        FeynRules`Index[$CellContext`Generation, 
         FeynRules`Ext[1]]] + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (Conjugate[
          $CellContext`yu0[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[2]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]])}}]]], "Output",
 CellChangeTimes->{{3.714653869780055*^9, 3.714653893377253*^9}, 
   3.714653972746155*^9, 3.7146545673835583`*^9, 
   3.7295857966249332`*^9},ExpressionUUID->"db154988-6746-400b-a15e-\
6b48bfc73c99"]
}, Open  ]],

Cell["Flavor expansion for the leptons' case", "Text",
 CellChangeTimes->{{3.7146540002012587`*^9, 3.714654016686934*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hll", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"hff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//", 
      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653897213532*^9, 
  3.714653998430573*^9}},ExpressionUUID->"f61e1c1b-cb8f-4ba2-ab75-\
bb76fc7a164f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
   3.714653951564291*^9, 3.71465401970082*^9}, 3.714654567510392*^9, 
   3.729585796729418*^9},ExpressionUUID->"6cdf3004-e094-44eb-b573-\
2d59c188b8e2"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ye", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ym", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ytau", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"-\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox[
         SubscriptBox["P", "\<\"+\"\>"], 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ye 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`ye Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`mu, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ym 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`ym Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{
      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ytau 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
$CellContext`ytau Conjugate[$CellContext`ceH] FeynRules`ProjM[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`ProjP[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]]], "Output",
 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
   3.714653952474135*^9, 3.714654020646657*^9}, 3.7146545684859324`*^9, 
   3.7295857980274878`*^9},ExpressionUUID->"9c8394cc-566b-43e9-b5af-\
e5b5668bef32"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hll", "//.", "MwShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146540238619328`*^9, 3.714654043748782*^9}, {
  3.714654567273402*^9, 
  3.714654569198159*^9}},ExpressionUUID->"a4f57594-b9d7-4b32-8d49-\
158e60dedf59"],

Cell[BoxData[
 TagBox[
  InterpretationBox[GridBox[{
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ye", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SubscriptBox["c", 
                   RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
                 SubscriptBox["c", "HD"], "-", 
                 RowBox[{"4", " ", 
                  TemplateBox[{"c","Hl","3"},
                   "Subsuperscript"]}], "+", 
                 RowBox[{"2", " ", 
                  TemplateBox[{"c","ll","Prime"},
                   "Subsuperscript"]}]}], ")"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"-\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
              RowBox[{
               SubscriptBox["c", "eH"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"+\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ym", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SubscriptBox["c", 
                   RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
                 SubscriptBox["c", "HD"], "-", 
                 RowBox[{"4", " ", 
                  TemplateBox[{"c","Hl","3"},
                   "Subsuperscript"]}], "+", 
                 RowBox[{"2", " ", 
                  TemplateBox[{"c","ll","Prime"},
                   "Subsuperscript"]}]}], ")"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"-\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
              RowBox[{
               SubscriptBox["c", "eH"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"+\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ytau", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SubscriptBox["c", 
                   RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-", 
                 SubscriptBox["c", "HD"], "-", 
                 RowBox[{"4", " ", 
                  TemplateBox[{"c","Hl","3"},
                   "Subsuperscript"]}], "+", 
                 RowBox[{"2", " ", 
                  TemplateBox[{"c","ll","Prime"},
                   "Subsuperscript"]}]}], ")"}], " ", 
               SuperscriptBox[
                OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Delta]", 
             RowBox[{
              SubscriptBox["\<\"s\"\>", "2"], ",", 
              SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"-\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
              RowBox[{
               SubscriptBox["c", "eH"], " ", 
               SubscriptBox[
                SubscriptBox["P", "\<\"+\"\>"], 
                RowBox[{
                 SubscriptBox["\<\"s\"\>", "2"], ",", 
                 SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ye ((
         4 $CellContext`LambdaSMEFT^2 + (
           4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 + 
           2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]]))}, {{{
       FeynRules`H, 1}, {$CellContext`mubar, 2}, {FeynRules`mu, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ym ((
         4 $CellContext`LambdaSMEFT^2 + (
           4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 + 
           2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]]))}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ytau ((
         4 $CellContext`LambdaSMEFT^2 + (
           4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 + 
           2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]]))}}]],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9}, 
   3.7146545725892477`*^9, 
   3.729585799885435*^9},ExpressionUUID->"fab299a7-4e33-4034-b07d-\
42c249da137e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Export to UFO", "Subsection",
 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
  3.71465417334006*^9, 3.714654174354417*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSMEFT", ",", 
   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_U35_MwScheme_UFO\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9, 
  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714027352553897*^9, 
  3.714027353791733*^9}, {3.714654913420311*^9, 
  3.7146549144771442`*^9}},ExpressionUUID->"9a0fa36d-43ea-4879-b04c-\
fa56f0e61e8b"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.7295863637549543`*^9},ExpressionUUID->"fe58ae2a-0a00-4299-a7cd-\
5b62d48fa2a3"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586369799822*^9},ExpressionUUID->"f509e0f3-3391-45ca-9121-\
afd085715afa"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.72958636980129*^9},ExpressionUUID->"b3995345-bacc-4086-80e9-430553272a59"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586369802787*^9},ExpressionUUID->"fdd6d819-4417-4d2f-8dc8-\
b5e84b79adb4"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.7295864632806883`*^9},ExpressionUUID->"1f2193ab-443a-4270-b47f-\
039f26eb4c88"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  82, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586463797868*^9},ExpressionUUID->"dce2c62e-85f8-4718-9682-\
43973eae23b5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[82, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586527217572*^9},ExpressionUUID->"e412859f-ef88-4675-b78b-\
1212f914ff4d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586547563739*^9},ExpressionUUID->"6a934348-38da-49b4-9ee8-\
6c8cdfadb4ba"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586589407838*^9},ExpressionUUID->"560cedcc-f621-4d7b-828c-\
94a83e4afdfd"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586589489808*^9},ExpressionUUID->"3f113df1-b12b-494f-a060-\
e52987a926e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "54"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 54],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729586589523642*^9},ExpressionUUID->"4be6fbc1-0872-4bfd-b616-\
09128544de59"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "588.94`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 588.94, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.7295878736186113`*^9},ExpressionUUID->"d8a7e57c-72d7-4b1b-b52c-\
4acea451b74e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "61"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 61],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.7295878737487097`*^9},ExpressionUUID->"6a0a4864-bf59-4ca4-928a-\
c24e752cd305"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "8.64`", 
   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 8.64, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729587883056962*^9},ExpressionUUID->"1853c9ec-5b85-4028-9864-\
c9e559d7d17c"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729587883058671*^9},ExpressionUUID->"0f71ffac-d503-4cfd-8fec-\
aab8232ee751"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.7295878861642523`*^9},ExpressionUUID->"5a2d8c71-0f8d-44e4-b3e0-\
2099d6976b7e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729587886589426*^9},ExpressionUUID->"ced99ad0-a956-4681-9161-\
e7b7c3558b11"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "396", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 396, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.7295878969618483`*^9},ExpressionUUID->"2a05df8b-f65a-4c9e-90fd-\
7a57dd319371"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.72958790206213*^9},ExpressionUUID->"c0840fe8-5355-4dea-b2fd-92806bf20485"],

Cell[BoxData[
 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
This might reduce the efficiency of certain matrix element generators.\\n     \
           See logfile for more details.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729587902554854*^9},ExpressionUUID->"9c6dff32-4582-4748-b4e4-\
e49af40b4f7b"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.7140310137509193`*^9, 
  3.729587905202778*^9},ExpressionUUID->"e893785c-29d4-41f1-aacd-\
5d2c394190ce"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["model MFV \[Alpha] scheme", "Section",
 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9, 
  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9, 
  3.7140273462258577`*^9}, {3.714034026337254*^9, 3.7140340306501093`*^9}, {
  3.714059172051979*^9, 3.714059172395143*^9}, {3.7146542461734543`*^9, 
  3.71465424960961*^9}},ExpressionUUID->"dff18824-64fe-402e-a2b6-\
ffdd05487f84"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flavor", "=", "MFV"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA959+xEsY1QP8aXgDTAMeUziw=

  "],ExpressionUUID->"fffc0f3d-e195-4db5-9b42-fe30696ea923"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cth", "^", "2"}], "+", 
       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"vevhat", "^", "2"}], "\[Equal]", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "definition", " ", "useful", " ", "for", " ", "algebraic", " ", 
    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9}, 
   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9}, 
   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9, 
   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9}, 
   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9, 
   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9, 
   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9, 
   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9, 
   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9, 
   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9, 
   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9, 
   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9, 
   3.713952603424769*^9}, 
   3.714654259683798*^9},ExpressionUUID->"c96967fe-d0ce-4def-9de2-\
967cfa4f2c84"],

Cell[CellGroupData[{

Cell[BoxData["\<\"MFV framework selected\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844775613*^9},ExpressionUUID->"9871ae34-7d47-499b-b8f6-\
2767c6244486"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", "\[Alpha]", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", 
   SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["G", "f"]}],
  SequenceForm["Input parameters: ", FeynRules`\[Alpha], ", ", 
   Subscript[FeynRules`m, $CellContext`Z], ", ", 
   Subscript[FeynRules`G, FeynRules`f]],
  Editable->False]], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844777457*^9},ExpressionUUID->"621a76ce-3ad5-48ff-aeee-\
05184d1f5cb5"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.7295918447944717`*^9},ExpressionUUID->"e9bae040-672c-46ca-885d-\
f8d852cd8006"],

Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.7295918447957363`*^9},ExpressionUUID->"1ac0528a-9197-4eee-a030-\
ddf20308ae0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
  SequenceForm["Model Version: ", "2.1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844797571*^9},ExpressionUUID->"e99aa4aa-410c-4ac9-89f9-\
b0113d8dd468"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844799769*^9},ExpressionUUID->"f6c609b0-fbbd-4007-9e74-\
c22cb884ddc9"],

Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.7295918448011837`*^9},ExpressionUUID->"b584af75-12d7-4525-8c88-\
e7c83d3e492a"],

Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844802578*^9},ExpressionUUID->"c932331d-9277-4f50-869e-\
6eacd129644b"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844803864*^9},ExpressionUUID->"acb1057f-b5b6-436f-bb1c-\
c0cbc406a53a"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.72959184480508*^9},ExpressionUUID->"f343e017-8731-48df-baf6-22f4a668f317"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.729591844806357*^9},ExpressionUUID->"e01db5e8-91cd-4c7b-9c32-\
8eff4fffaf00"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.7295918449011717`*^9},ExpressionUUID->"70b9a06c-b121-4f7e-8a65-\
03d28c1475ca"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.7295918449195843`*^9},ExpressionUUID->"dee15fcd-0aa5-44f8-8afa-\
ea2e5acb9ab6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{3.729588421351053*^9, 
  3.72959184544377*^9},ExpressionUUID->"1a58d854-59cf-4b03-ad20-ca69c77febc4"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "x", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"WC6", ",", 
       RowBox[{"Conjugate", "/@", "WC6"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
          ",", "dgw"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
   3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9, 
   3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
   3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9, 
   3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
   3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9, 
   3.6986454466349792`*^9}, {3.6990803840045652`*^9, 
   3.6990803931031227`*^9}, {3.707025063385503*^9, 3.707025074535533*^9}, {
   3.707026201080791*^9, 3.707026206097932*^9}, {3.707733746790945*^9, 
   3.707733759745702*^9}, {3.711875906183223*^9, 3.71187590676577*^9}, {
   3.712555385621932*^9, 3.712555393408392*^9}, 
   3.7146542635459137`*^9},ExpressionUUID->"3b334ef7-fec0-44dd-baaf-\
30b43ebbdc21"],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - extraction of aTGC ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    SuperscriptBox[
     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " )"
}], "Subsection",
 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9, 
  3.714474881170227*^9}, {3.7146522087316093`*^9, 3.7146522332696543`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", " ", "=", " ", 
   RowBox[{
    RowBox[{"LGauge", "+", "L6cl4"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9, 
  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
  3.7144751339781103`*^9, 3.714475137908736*^9}, {3.714656111298061*^9, 
  3.71465611302945*^9}},ExpressionUUID->"b64a72d8-cd0b-46cf-ab1f-\
2d15f02058f7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 
  3.697355204589117*^9}},ExpressionUUID->"e4f2da7e-ab0c-42b3-b480-\
8274c60b7576"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
eigenstates should be selected!\"\>"], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714656184555667*^9, 
  3.72958851344135*^9},ExpressionUUID->"ac9873ce-1826-4945-bbe3-eaf6b6a12f79"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714656184555667*^9, 
  3.7295885135351353`*^9},ExpressionUUID->"0b8cc4d1-cf59-4340-90e5-\
a8b14c334e61"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with less than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714656184555667*^9, 
  3.729588513572562*^9},ExpressionUUID->"9484a446-b4e6-43ce-982b-\
8bab9f4f93ae"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9, 
   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9, 
   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9, 
   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9, 
   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
   3.714652412441049*^9, 3.714652464776884*^9}, 
   3.714652626095168*^9},ExpressionUUID->"0646bcf0-e2c3-48ad-99b1-\
16feea6b5f9e"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714656184982973*^9, 
   3.729588514012908*^9},ExpressionUUID->"2c969cc3-8325-4339-b0fb-\
19ffa6d99d4d"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["c", "HD"]}], "-", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","3"},
           "Subsuperscript"]}], "+", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}], "-", 
         RowBox[{"4", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["c", "HD"], "+", 
            RowBox[{"4", " ", 
             TemplateBox[{"c","Hl","3"},
              "Subsuperscript"]}], "-", 
            RowBox[{"2", " ", 
             TemplateBox[{"c","ll","Prime"},
              "Subsuperscript"]}]}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714656184982973*^9, 
   3.729588514530102*^9},ExpressionUUID->"d0b24693-b490-4bf2-8c24-\
1fb40eb65870"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HWB"], " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}]]}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714656184982973*^9, 
   3.729588514734849*^9},ExpressionUUID->"3600052c-2748-4e90-a1f9-\
3ca2e60228a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652472649456*^9, 
  3.714652608904799*^9}},ExpressionUUID->"f4980fd6-ea42-4d15-8ae6-\
4f5314e10508"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714656185731509*^9, 
   3.729588514977376*^9},ExpressionUUID->"7d60860e-b7a8-4a97-83cc-\
60c42b341b73"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", 
        RowBox[{"8", " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HD"], "+", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "-", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"2", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714656185731509*^9, 
   3.7295885152709293`*^9},ExpressionUUID->"5395b4f2-1183-453f-90ca-\
d4dee311aaee"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"2", " ", 
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"4", "-", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"8", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{
   SubscriptBox["c", "\[Theta]"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714656185731509*^9, 
   3.729588515369708*^9},ExpressionUUID->"7fed0cfe-dc93-4b40-9ebb-\
974d879698fb"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.714652368810739*^9, 
  3.7146524695105267`*^9},ExpressionUUID->"b9f9880a-8747-4371-9cd2-\
a83ae65c4142"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
  3.697369511884927*^9, 
  3.697369515354232*^9}},ExpressionUUID->"191d3bc4-eea9-4e3a-8e0a-\
b2107197a77b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9, 
   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9}, 
   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9, 
   3.714652669421071*^9}},ExpressionUUID->"07590436-e350-4503-b484-\
c7316c8eadb3"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dsth2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["s", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.7146561896969433`*^9, 
   3.729588520210363*^9},ExpressionUUID->"ada966bb-c6cf-46f8-8bd5-\
7b8244de6740"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "e", " ", 
  SubscriptBox["A", "mu$1"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
         SubscriptBox["W", "mu$1"], "]"}]}], "+", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.7146561896969433`*^9, 
   3.7295885203139133`*^9},ExpressionUUID->"0f2a2f73-7aab-4ab5-b863-\
2c74130402cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652676781377*^9, 
  3.71465270986456*^9}},ExpressionUUID->"c51cb444-efd9-4b66-a54c-\
65cec7c0eeda"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dsth2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.7146561899462633`*^9, 
   3.7295885204644613`*^9},ExpressionUUID->"9bed9348-e530-4b9f-9345-\
0b3b965b5513"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}], "+", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.7146561899462633`*^9, 
   3.729588520598548*^9},ExpressionUUID->"76b4b571-a50e-468b-9485-\
16fd645b522f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  RowBox[{
   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
   SubscriptBox["A", "mu$1"], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["W", "mu$2"], " ", 
     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
    RowBox[{
     SubscriptBox["W", "mu$1"], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.7146561899462633`*^9, 
   3.729588520633849*^9},ExpressionUUID->"c3c86c78-c430-42ff-823c-\
c7e36701aa97"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : h Z Z coupling ", "Subsection",
 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
  3.71465313260557*^9, 3.714653135145647*^9}, {3.7146561420383987`*^9, 
  3.714656142208275*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hzz", "=", 
  RowBox[{
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{
     RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9, 
  3.697781973755425*^9}, {3.714653122093409*^9, 3.714653151135909*^9}, {
  3.714656151886788*^9, 
  3.714656152346603*^9}},ExpressionUUID->"eb669595-383a-47d0-93fb-\
d6ab3f503353"],

Cell[BoxData[
 FractionBox[
  RowBox[{"H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "32"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
     RowBox[{"32", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["e", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            SqrtBox["2"], " ", "dGf"}], "+", 
           RowBox[{"4", " ", "dgw"}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"dg1", "-", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", 
             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["c", "HD"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.714653202225688*^9, 3.71465622360679*^9, 
  3.729588551983281*^9},ExpressionUUID->"75cee970-0bd3-4256-9cdc-\
62ea5dd43d1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
 CellChangeTimes->{{3.714653438713478*^9, 
  3.7146534431183643`*^9}},ExpressionUUID->"8b188c78-d7e1-417e-95d0-\
341977fb02a0"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.71465344371563*^9, 3.714656223705248*^9, 
  3.729588552035398*^9},ExpressionUUID->"f530183e-92e4-476f-b2b0-\
3d4fe26e5f64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"hzz", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", "_", "]"}], "2"], ",", 
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",", 
   "WCsimplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9, 
  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9, 
  3.7146534351677427`*^9}},ExpressionUUID->"cc5d8ea1-51f8-4072-ac64-\
be73d58c6c44"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", "H", " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
        OverscriptBox["v", "^"]}], 
       RowBox[{
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", "H", " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
    SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"dg1", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"dGf", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"dgw", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"16", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.700893354200268*^9, 3.712654290029169*^9, 3.71396688057451*^9, {
   3.714653206742526*^9, 3.71465324075095*^9}, {3.714653297211488*^9, 
   3.7146533889881983`*^9}, {3.714653430663045*^9, 3.714653435702468*^9}, 
   3.714656223934009*^9, 
   3.729588552288351*^9},ExpressionUUID->"e0a67780-11b8-4e08-8da3-\
168e5ec295ac"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  SubscriptBox["Z", "\[Mu]"], 
  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.7146562034254837`*^9, 3.714656204213971*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"hzz", "/.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   FractionBox["%", 
    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 
  3.714653585931526*^9}},ExpressionUUID->"4d30f3d1-0aa2-453c-87ad-\
29ae841bd168"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
        SubscriptBox["c", "HD"], "-", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "+", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, 
   3.714656224062125*^9, 
   3.729588552390667*^9},ExpressionUUID->"8f9c977d-cd52-403d-b3ba-\
7c916a698243"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, 
   3.714656224062125*^9, 
   3.729588552419573*^9},ExpressionUUID->"da17b81e-22fb-4d26-a571-\
6d3f2540427c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "\[Mu]"], 
   SubscriptBox["Z", "\[Nu]"]}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["Z", "\[Nu]"]}], "-", 
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Nu]"], 
     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.714653634026601*^9, 3.714653660281114*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hzz", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", 
    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714653677707417*^9, 
  3.714653739972247*^9}},ExpressionUUID->"0ab581fa-70ab-495d-91a8-\
d75e3b1a772a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "H", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["c", "HW"], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HB"], "-", 
        SubscriptBox["c", "HW"]}], ")"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}], 
  RowBox[{
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9}, 
   3.7146562242545652`*^9, 
   3.72958855259804*^9},ExpressionUUID->"7b8855f3-f575-4677-923e-\
66db27b5d9f4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - Fermion Z ",
 Cell[BoxData[
  FormBox["couplings", TraditionalForm]]],
 " (non-dipole structures)"
}], "Subsection",
 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9, 
  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
  3.714474653133204*^9, 3.7144746902228537`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474671414948*^9, 
  3.714474706220644*^9}},ExpressionUUID->"6f10f71f-a5a0-427b-b5a2-\
ba70df43c36a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZffCouplings", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{"L2", ",", 
       RowBox[{"Contains", "\[Rule]", 
        RowBox[{"{", "Z", "}"}]}], ",", 
       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//", 
     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9, 
   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9, 
   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9, 
   3.714652756642342*^9}, {3.714652909302999*^9, 
   3.7146529149076347`*^9}},ExpressionUUID->"3997fa46-2a4e-41bf-b27f-\
7da19b870f74"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714658285551125*^9, 
  3.729588588728286*^9},ExpressionUUID->"c4569476-9fe1-4b07-8d16-\
8b3464561185"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714658285551125*^9, 
  3.7295885887302523`*^9},ExpressionUUID->"36abba1e-9dcb-4a64-a6f9-\
3a60c6108cc3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714658285551125*^9, 
  3.729588588736885*^9},ExpressionUUID->"90cf04f0-40cc-44d5-91b0-\
457f6809b264"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714658285551125*^9, 
  3.729588605379652*^9},ExpressionUUID->"403d2679-18b7-4ce6-a021-\
f47f85ffdb31"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714658285551125*^9, 
  3.729588605419929*^9},ExpressionUUID->"048a50da-7fa9-4634-877b-\
856ec4bc5088"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714658285551125*^9, 
  3.729588609020893*^9},ExpressionUUID->"f5b06563-65bc-4222-8b53-\
c4f5652d7461"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "3"}], "-", 
                   RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "-", "dg1", "+", 
                    RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                    SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}], "+", 
                   RowBox[{"3", " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}], "+", 
                   RowBox[{"2", " ", 
                    SubscriptBox["c", "HWB"], " ", 
                    SubscriptBox["c", "\[Theta]"], " ", 
                    SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"dsth2", " ", 
                 SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "dg1"}], ")"}], " ", 
                 SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "3"}], " ", 
                    SubscriptBox["c", "Hd"]}], "+", 
                   RowBox[{
                    SubscriptBox["c", "HWB"], " ", 
                    SubscriptBox["c", "\[Theta]"], " ", 
                    SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                TagBox[
                 RowBox[{
                  SubscriptBox["\[CapitalDelta]", "u"], " ", 
                  TemplateBox[{"c","Hq","1"},
                   "Subsuperscript"]}],
                 HoldForm], "+", 
                TagBox[
                 RowBox[{
                  SubscriptBox["\[CapitalDelta]", "u"], " ", 
                  TemplateBox[{"c","Hq","3"},
                   "Subsuperscript"]}],
                 HoldForm]}], ")"}], " ", 
              SubscriptBox[
               TemplateBox[{"V","CKM"},
                "Superscript"], 
               RowBox[{"Generation$1", ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubsuperscriptBox[
               RowBox[{"(", 
                TemplateBox[{"V","CKM"},
                 "Superscript"], ")"}], 
               RowBox[{"Generation$2", ",", 
                SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
              SubscriptBox[
               TemplateBox[{"S","u"},
                "Superscript"], 
               RowBox[{"Generation$2", ",", "Generation$1"}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox[
               TemplateBox[{"S","d"},
                "Superscript"], 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", 
                 SubscriptBox[
                  RowBox[{
                   TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                    "Superscript"], ".", 
                   SubscriptBox["P", "\<\"-\"\>"]}], 
                  RowBox[{
                   SubscriptBox["\<\"s\"\>", "1"], ",", 
                   SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
                RowBox[{
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", 
                 SubscriptBox[
                  RowBox[{
                   TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                    "Superscript"], ".", 
                   SubscriptBox["P", "\<\"+\"\>"]}], 
                  RowBox[{
                   SubscriptBox["\<\"s\"\>", "1"], ",", 
                   SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                TemplateBox[{"c","Hl","1"},
                 "Subsuperscript"], "+", 
                TemplateBox[{"c","Hl","3"},
                 "Subsuperscript"]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dsth2", " ", 
              SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SubscriptBox["c", "He"]}], "+", 
                RowBox[{
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "-", 
                  RowBox[{"3", " ", "dgw"}], "+", 
                  RowBox[{"2", " ", "dsth2"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "+", "dg1", "+", 
                    RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                   SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
               
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}], "-", 
                  RowBox[{"3", " ", 
                   TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}], "-", 
                  RowBox[{
                   SubscriptBox["c", "HWB"], " ", 
                   SubscriptBox["c", "\[Theta]"], " ", 
                   SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                SuperscriptBox[
                 OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "dsth2", " ", 
                SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", "dg1"}], ")"}], " ", 
                SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   SubscriptBox["c", "Hu"]}], "+", 
                  RowBox[{"2", " ", 
                   SubscriptBox["c", "HWB"], " ", 
                   SubscriptBox["c", "\[Theta]"], " ", 
                   SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                SuperscriptBox[
                 OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               TagBox[
                RowBox[{
                 SubscriptBox["\[CapitalDelta]", "d"], " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}],
                HoldForm], "-", 
               TagBox[
                RowBox[{
                 SubscriptBox["\[CapitalDelta]", "d"], " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}],
                HoldForm]}], ")"}], " ", 
             SubscriptBox[
              TemplateBox[{"V","CKM"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]], " ", 
             SubsuperscriptBox[
              RowBox[{"(", 
               TemplateBox[{"V","CKM"},
                "Superscript"], ")"}], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "2"], ",", 
               "Generation$2"}], "\<\"*\"\>"], " ", 
             SubscriptBox[
              TemplateBox[{"S","d"},
               "Superscript"], 
              RowBox[{"Generation$1", ",", "Generation$2"}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{
             SubscriptBox[
              TemplateBox[{"S","u"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], "-", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm]}], ")"}], " ", 
                SubscriptBox[
                 RowBox[{
                  TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                   "Superscript"], ".", 
                  SubscriptBox["P", "\<\"-\"\>"]}], 
                 RowBox[{
                  SubscriptBox["\<\"s\"\>", "1"], ",", 
                  SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
               RowBox[{
                SubscriptBox["\[CapitalDelta]c", "Hu"], " ", 
                SubscriptBox[
                 RowBox[{
                  TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                   "Superscript"], ".", 
                  SubscriptBox["P", "\<\"+\"\>"]}], 
                 RowBox[{
                  SubscriptBox["\<\"s\"\>", "1"], ",", 
                  SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}]}],
         ")"}]}], 
      RowBox[{"6", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {
        OverscriptBox["vl", "\<\"-\"\>"], "1"},
       {"vl", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "dgw", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
             SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            TemplateBox[{"c","Hl","1"},
             "Subsuperscript"], "-", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"], "-", 
            RowBox[{
             SubscriptBox["c", "HWB"], " ", 
             SubscriptBox["c", "\[Theta]"], " ", 
             SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"f\"\>", "1"], ",", 
         SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
        3}}, Complex[0, 
       Rational[-1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] (FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[
          2]]] (($CellContext`LambdaSMEFT^2 (-3 - 
            3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 + 
              3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq10 + 
           3 $CellContext`cHq30 + 
           2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[
            2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
          2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + ((-3) $CellContext`cHd0 + $CellContext`cHWB \
$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) - 
      3 $CellContext`vevhat^2 (($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`CKM[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] Conjugate[
          $CellContext`CKM[
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$2], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] $CellContext`Su[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$2], 
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1]]
          FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[
           2]]] (($CellContext`DeltadcHq1 + $CellContext`DeltadcHq3) 
          FeynRules`TensDot[
            FeynRules`Ga[
             FeynRules`Index[FeynRules`Lorentz, 
              FeynRules`Ext[3]]], FeynRules`ProjM][
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[1]], 
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[2]]] + $CellContext`DeltacHd FeynRules`TensDot[
            FeynRules`Ga[
             FeynRules`Index[FeynRules`Lorentz, 
              FeynRules`Ext[3]]], FeynRules`ProjP][
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[1]], 
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[2]]])))}, {{{$CellContext`lbar, 1}, {
      FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[-1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
$CellContext`dsth2 + (
            2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] (FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[
          2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw + 
            2 $CellContext`dsth2 + (4 + $CellContext`dg1 + 
              3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq10 - 
            3 $CellContext`cHq30 - $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (
          2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
          4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (3 $CellContext`cHu0 + 
            2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) + 
      3 $CellContext`vevhat^2 (($CellContext`DeltadcHq1 - \
$CellContext`DeltadcHq3) $CellContext`CKM[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]] Conjugate[
           $CellContext`CKM[
            FeynRules`Index[$CellContext`Generation, 
             FeynRules`Ext[2]], 
            
            FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$2]]] $CellContext`Sd[
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1], 
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$2]] FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + $CellContext`Su[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[
            2]]] (($CellContext`DeltaucHq1 - $CellContext`DeltaucHq3) 
           FeynRules`TensDot[
             FeynRules`Ga[
              FeynRules`Index[FeynRules`Lorentz, 
               FeynRules`Ext[3]]], FeynRules`ProjM][
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[1]], 
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[2]]] + $CellContext`DeltacHu FeynRules`TensDot[
             FeynRules`Ga[
              FeynRules`Index[FeynRules`Lorentz, 
               FeynRules`Ext[3]]], FeynRules`ProjP][
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[1]], 
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[2]]])))}, {{{$CellContext`vlbar, 
       1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[2]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[3]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]]]}}]]], "Output",
 CellChangeTimes->{
  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9, 
   3.714656269991343*^9, 3.714658234106804*^9, 3.714658307356669*^9, 
   3.729588615519225*^9},ExpressionUUID->"4bedfd76-07ce-498a-8592-\
3667df2434b1"]
}, Open  ]],

Cell["neutrino coupling :", "Text",
 CellChangeTimes->{{3.7146528020724363`*^9, 3.7146528092589808`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ZffCouplings", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", "alphaShifts"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   RowBox[{
    FractionBox["%", 
     RowBox[{"SMlimit", "[", "%", "]"}]], "/.", 
    RowBox[{
     RowBox[{"IndexDelta", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9}, 
   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9, 
   3.714652890708997*^9}, {3.714652953030558*^9, 
   3.7146530356237173`*^9}},ExpressionUUID->"a7ee4570-6761-452c-ba60-\
994e4e00c1d7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "-", "dgw", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], "-", 
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"f\"\>", "1"], ",", 
     SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714656270052293*^9, 
   3.714658307559985*^9, 
   3.729588615587829*^9},ExpressionUUID->"01b27544-4fa5-4388-93de-\
1d4d2fbf955a"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "+", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","1"},
           "Subsuperscript"]}], "-", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"8", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714656270052293*^9, 
   3.714658307559985*^9, 
   3.7295886158251123`*^9},ExpressionUUID->"f220256c-6adf-4e6c-a530-\
09a498818b68"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714656270052293*^9, 
   3.714658307559985*^9, 
   3.729588615863163*^9},ExpressionUUID->"a5626ab7-6381-4fa2-a252-\
58993c83a75a"]
}, Open  ]],

Cell["up quarks coupling: flavor expansion with spurions", "Text",
 CellChangeTimes->{{3.714658087911981*^9, 3.714658112774782*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"ZffCouplings", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "}"}], "//.", 
       "alphaShifts"}], "//", "FlavorExpansion"}], "//", 
     RowBox[{
      RowBox[{"ReplaceAll", "[", 
       RowBox[{"#", ",", 
        RowBox[{"Abbreviations", "[", "]"}]}], "]"}], "&"}]}], "//", 
    "LinearWC"}], "//", "Simplify"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146579364846163`*^9, 3.714657993955915*^9}, {
  3.714658032558496*^9, 3.714658054565364*^9}, {3.714658137278632*^9, 
  3.7146581444312162`*^9}, {3.714658279687245*^9, 
  3.714658281751854*^9}},ExpressionUUID->"1747e576-2965-4296-8867-\
6436cdbea2da"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714657950014279*^9, 3.7146579634419203`*^9}, 
   3.714657995078278*^9, {3.7146580371920567`*^9, 3.71465805571782*^9}, 
   3.714658145675453*^9, 3.714658309013132*^9, 
   3.729588616828477*^9},ExpressionUUID->"f5a24736-3f70-415e-b7f6-\
011139582649"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["d", "\<\"-\"\>"], "2"},
       {"d", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"16", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "4"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"8", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "2"], ",", 
               SubscriptBox["\<\"s\"\>", "3"]}]]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd1x1"}], "-", 
                RowBox[{"4", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd1x1"}], "-", 
                RowBox[{"4", " ", "CKM1x1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM2x1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM3x1", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x1", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM3x1", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "Hd"], "+", 
                RowBox[{
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd1x1"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], "+", 
          RowBox[{
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd1x1"}], "-", 
                RowBox[{"6", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd1x1"}], "-", 
                RowBox[{"6", " ", "CKM1x1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM2x1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM3x1", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x1", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM3x1", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd1x1"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"24", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["d", "\<\"-\"\>"], "2"},
       {"s", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x2", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x2", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x2", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["d", "\<\"-\"\>"], "2"},
       {"b", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x3", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x3", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x3", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["s", "\<\"-\"\>"], "2"},
       {"d", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x1", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x1", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x1", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["s", "\<\"-\"\>"], "2"},
       {"s", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"16", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "4"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"8", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "2"], ",", 
               SubscriptBox["\<\"s\"\>", "3"]}]]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd2x2"}], "-", 
                RowBox[{"4", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd2x2"}], "-", 
                RowBox[{"4", " ", "CKM1x2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM2x2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM3x2", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x2", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM3x2", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "Hd"], "+", 
                RowBox[{
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd2x2"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], "+", 
          RowBox[{
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd2x2"}], "-", 
                RowBox[{"6", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd2x2"}], "-", 
                RowBox[{"6", " ", "CKM1x2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM2x2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM3x2", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x2", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM3x2", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd2x2"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"24", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["s", "\<\"-\"\>"], "2"},
       {"b", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x3", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x3", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x3", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["b", "\<\"-\"\>"], "2"},
       {"d", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x1", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x1", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x1", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["b", "\<\"-\"\>"], "2"},
       {"s", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x2", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x2", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x2", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["b", "\<\"-\"\>"], "2"},
       {"b", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"16", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "4"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"8", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "2"], ",", 
               SubscriptBox["\<\"s\"\>", "3"]}]]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"4", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd3x3"}], "-", 
                RowBox[{"4", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd3x3"}], "-", 
                RowBox[{"4", " ", "CKM1x3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM2x3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM3x3", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x3", "\<\"*\"\>"]}], "-", 
                RowBox[{"4", " ", "CKM3x3", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "Hd"], "+", 
                RowBox[{
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd3x3"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], "+", 
          RowBox[{
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"6", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd3x3"}], "-", 
                RowBox[{"6", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd3x3"}], "-", 
                RowBox[{"6", " ", "CKM1x3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM2x3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM3x3", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x3", "\<\"*\"\>"]}], "-", 
                RowBox[{"6", " ", "CKM3x3", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"12", " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"4", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "-", 
                RowBox[{"2", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd3x3"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"24", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {FeynRules`d, 3}},
      Complex[0, 
       Rational[-1, 24]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) (-1 + 
       2 $CellContext`sth^2)^(-1) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] (
      16 $CellContext`LambdaSMEFT^2 $CellContext`sth^4 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      8 $CellContext`cHWB $CellContext`cth $CellContext`sth \
$CellContext`vevhat^2 FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
      12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 (4 FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]]) - 
      3 $CellContext`vevhat^2 (($CellContext`cHDD + 4 $CellContext`cHl3 - 
         4 $CellContext`cHq10 - 4 $CellContext`cHq30 - 2 $CellContext`cll1 - 
         4 $CellContext`DeltadcHq1 $CellContext`Sd1x1 - 
         4 $CellContext`DeltadcHq3 $CellContext`Sd1x1 - 
         4 $CellContext`CKM1x1 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x1] - 
         4 $CellContext`CKM2x1 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x1] - 
         4 $CellContext`CKM3x1 $CellContext`DeltaucHq1 $CellContext`Su3x3 
         Conjugate[$CellContext`CKM3x1] - 
         4 $CellContext`CKM3x1 $CellContext`DeltaucHq3 $CellContext`Su3x3 
         Conjugate[$CellContext`CKM3x1]) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 ($CellContext`cHd0 + $CellContext`DeltacHd $CellContext`Sd1x1) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]]) + $CellContext`sth^2 $CellContext`vevhat^2 (
        4 ($CellContext`cHDD + 4 $CellContext`cHl3 - 6 $CellContext`cHq10 - 
          6 $CellContext`cHq30 - 2 $CellContext`cll1 - 
          6 $CellContext`DeltadcHq1 $CellContext`Sd1x1 - 
          6 $CellContext`DeltadcHq3 $CellContext`Sd1x1 - 
          6 $CellContext`CKM1x1 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x1] - 
          6 $CellContext`CKM2x1 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x1] - 
          6 $CellContext`CKM3x1 $CellContext`DeltaucHq1 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x1] - 
          6 $CellContext`CKM3x1 $CellContext`DeltaucHq3 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x1]) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[1]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] - 
        2 (12 $CellContext`cHd0 + $CellContext`cHDD + 4 $CellContext`cHl3 - 
         2 $CellContext`cll1 + 12 $CellContext`DeltacHd $CellContext`Sd1x1) 
        FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`dbar, 
       2}, {FeynRules`s, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x2 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x2 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {
      FeynRules`b, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x3 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x3 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
      FeynRules`d, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x1 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x1 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
      FeynRules`s, 3}}, Complex[0, 
       Rational[-1, 24]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) (-1 + 
       2 $CellContext`sth^2)^(-1) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] (
      16 $CellContext`LambdaSMEFT^2 $CellContext`sth^4 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      8 $CellContext`cHWB $CellContext`cth $CellContext`sth \
$CellContext`vevhat^2 FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
      12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 (4 FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]]) - 
      3 $CellContext`vevhat^2 (($CellContext`cHDD + 4 $CellContext`cHl3 - 
         4 $CellContext`cHq10 - 4 $CellContext`cHq30 - 2 $CellContext`cll1 - 
         4 $CellContext`DeltadcHq1 $CellContext`Sd2x2 - 
         4 $CellContext`DeltadcHq3 $CellContext`Sd2x2 - 
         4 $CellContext`CKM1x2 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x2] - 
         4 $CellContext`CKM2x2 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x2] - 
         4 $CellContext`CKM3x2 $CellContext`DeltaucHq1 $CellContext`Su3x3 
         Conjugate[$CellContext`CKM3x2] - 
         4 $CellContext`CKM3x2 $CellContext`DeltaucHq3 $CellContext`Su3x3 
         Conjugate[$CellContext`CKM3x2]) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 ($CellContext`cHd0 + $CellContext`DeltacHd $CellContext`Sd2x2) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]]) + $CellContext`sth^2 $CellContext`vevhat^2 (
        4 ($CellContext`cHDD + 4 $CellContext`cHl3 - 6 $CellContext`cHq10 - 
          6 $CellContext`cHq30 - 2 $CellContext`cll1 - 
          6 $CellContext`DeltadcHq1 $CellContext`Sd2x2 - 
          6 $CellContext`DeltadcHq3 $CellContext`Sd2x2 - 
          6 $CellContext`CKM1x2 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x2] - 
          6 $CellContext`CKM2x2 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x2] - 
          6 $CellContext`CKM3x2 $CellContext`DeltaucHq1 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x2] - 
          6 $CellContext`CKM3x2 $CellContext`DeltaucHq3 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x2]) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[1]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] - 
        2 (12 $CellContext`cHd0 + $CellContext`cHDD + 4 $CellContext`cHl3 - 
         2 $CellContext`cll1 + 12 $CellContext`DeltacHd $CellContext`Sd2x2) 
        FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 
       2}, {FeynRules`b, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x3 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x3 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
      FeynRules`d, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x1 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x1 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
      FeynRules`s, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x2 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x2 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
      FeynRules`b, 3}}, Complex[0, 
       Rational[-1, 24]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) (-1 + 
       2 $CellContext`sth^2)^(-1) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] (
      16 $CellContext`LambdaSMEFT^2 $CellContext`sth^4 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      8 $CellContext`cHWB $CellContext`cth $CellContext`sth \
$CellContext`vevhat^2 FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
      12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 (4 FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]]) - 
      3 $CellContext`vevhat^2 (($CellContext`cHDD + 4 $CellContext`cHl3 - 
         4 $CellContext`cHq10 - 4 $CellContext`cHq30 - 2 $CellContext`cll1 - 
         4 $CellContext`DeltadcHq1 $CellContext`Sd3x3 - 
         4 $CellContext`DeltadcHq3 $CellContext`Sd3x3 - 
         4 $CellContext`CKM1x3 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x3] - 
         4 $CellContext`CKM2x3 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x3] - 
         4 $CellContext`CKM3x3 $CellContext`DeltaucHq1 $CellContext`Su3x3 
         Conjugate[$CellContext`CKM3x3] - 
         4 $CellContext`CKM3x3 $CellContext`DeltaucHq3 $CellContext`Su3x3 
         Conjugate[$CellContext`CKM3x3]) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] - 
       4 ($CellContext`cHd0 + $CellContext`DeltacHd $CellContext`Sd3x3) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[1]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]]) + $CellContext`sth^2 $CellContext`vevhat^2 (
        4 ($CellContext`cHDD + 4 $CellContext`cHl3 - 6 $CellContext`cHq10 - 
          6 $CellContext`cHq30 - 2 $CellContext`cll1 - 
          6 $CellContext`DeltadcHq1 $CellContext`Sd3x3 - 
          6 $CellContext`DeltadcHq3 $CellContext`Sd3x3 - 
          6 $CellContext`CKM1x3 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x3] - 
          6 $CellContext`CKM2x3 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x3] - 
          6 $CellContext`CKM3x3 $CellContext`DeltaucHq1 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x3] - 
          6 $CellContext`CKM3x3 $CellContext`DeltaucHq3 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x3]) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[1]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[3]]] - 
        2 (12 $CellContext`cHd0 + $CellContext`cHDD + 4 $CellContext`cHl3 - 
         2 $CellContext`cll1 + 12 $CellContext`DeltacHd $CellContext`Sd3x3) 
        FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]]))}}]]], "Output",
 CellChangeTimes->{{3.714657950098637*^9, 3.714657963888904*^9}, 
   3.714657998040905*^9, {3.71465804041544*^9, 3.714658062787704*^9}, 
   3.7146581568958817`*^9, 3.7146583437098217`*^9, 
   3.729588650629637*^9},ExpressionUUID->"af0520b6-893d-4341-aa7e-\
388223c7d241"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : Yukawa couplings", "Subsection",
 CellChangeTimes->{{3.714653803679809*^9, 3.714653813127017*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"LYuk", " ", "=", " ", 
   RowBox[{
    RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9}, 
   3.714653880639667*^9, {3.7146539581117077`*^9, 3.714653960288474*^9}, {
   3.714656312155267*^9, 3.7146563157427807`*^9}, {3.7146564182116413`*^9, 
   3.714656421562209*^9}, {3.714656653224125*^9, 
   3.7146566537421703`*^9}},ExpressionUUID->"8d699341-7e16-4b0e-ad8b-\
322b805ea828"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hff", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"FeynmanRules", "[", 
     RowBox[{"LYuk", ",", 
      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",", 
      RowBox[{"Contains", "\[Rule]", 
       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653838776801*^9, 
  3.7146538891931353`*^9}},ExpressionUUID->"0cf1f12e-c836-4def-8403-\
813cdfd899a8"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 
   3.729588657929446*^9},ExpressionUUID->"af8fdc55-15d1-478e-845e-\
9b7392b194c6"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 
   3.729588657930336*^9},ExpressionUUID->"ca0caffd-f374-495a-9cd9-\
845682e93750"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 
   3.7295886579326572`*^9},ExpressionUUID->"da0ede2a-bf73-4cfe-b788-\
2ad5d54321da"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 
   3.729588661775419*^9},ExpressionUUID->"21cf9ff6-635a-48a7-a784-\
fdda062db8ee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  3, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 
   3.729588661804522*^9},ExpressionUUID->"e383cf82-adbd-47a3-b2fc-\
4788544d52ad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[3, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 
   3.729588662690753*^9},ExpressionUUID->"26ebdd16-5cab-43e5-92e3-\
1fc0d1d2ae43"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[CapitalDelta]c", "dH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","d"},
                "Superscript"], 
               RowBox[{"Generation$1", ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
             SubscriptBox[
              TemplateBox[{"S","d"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}], "-", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox[
              TemplateBox[{"S","d"},
               "Superscript"], 
              RowBox[{"Generation$1", ",", 
               SubscriptBox["\<\"f\"\>", "1"]}]], "-", 
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","d"},
                "Superscript"], 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","d"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","d"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "2"], ",", 
            SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "dH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[CapitalDelta]c", "uH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","u"},
                "Superscript"], 
               RowBox[{"Generation$1", ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
             SubscriptBox[
              TemplateBox[{"S","u"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}], "-", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox[
              TemplateBox[{"S","u"},
               "Superscript"], 
              RowBox[{"Generation$1", ",", 
               SubscriptBox["\<\"f\"\>", "1"]}]], "-", 
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","u"},
                "Superscript"], 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","u"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","u"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "2"], ",", 
            SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "uH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[1, 2]] 
      2^Rational[-1, 
         2] $CellContext`DeltacdH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] (3 $CellContext`Sd[
            
            FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1], 
            FeynRules`Index[$CellContext`Generation, 
             FeynRules`Ext[2]]] - $CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] ($CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - 3 $CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yd[
         FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
         
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`cdH0 $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 2^Rational[-1, 2] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {FeynRules`H, 3}}, Complex[0, 
        Rational[1, 2]] 
      2^Rational[-1, 
         2] $CellContext`DeltacuH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] (3 $CellContext`Su[
            
            FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1], 
            FeynRules`Index[$CellContext`Generation, 
             FeynRules`Ext[2]]] - $CellContext`Su[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] ($CellContext`Su[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - 3 $CellContext`Su[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yu[
         FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
         
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`cuH0 $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]])}}]]], "Output",
 CellChangeTimes->{3.714656678968668*^9, 3.7146568357978363`*^9, 
  3.714656962394742*^9, 
  3.729588664901985*^9},ExpressionUUID->"1ee6735c-d47d-4e76-a4df-\
94f672d19b2e"]
}, Open  ]],

Cell["Flavor expansion for the leptons' case", "Text",
 CellChangeTimes->{{3.7146540002012587`*^9, 3.714654016686934*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hll", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"hff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//", 
      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653897213532*^9, 
  3.714653998430573*^9}},ExpressionUUID->"c2dbceb0-16ea-4898-86d0-\
98cbf49e5e18"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
   3.714653951564291*^9, 3.71465401970082*^9}, 3.714656836154119*^9, {
   3.71465696265897*^9, 3.714656984380176*^9}, 
   3.729588665065198*^9},ExpressionUUID->"f9b3db37-f64b-4871-bc5f-\
98f260585624"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ye", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ym", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ytau", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ye 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`mu, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ym 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{
      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ytau 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]]], "Output",
 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
   3.714653952474135*^9, 3.714654020646657*^9}, 3.7146568374768543`*^9, {
   3.714656963605565*^9, 3.7146569852875*^9}, 
   3.72958866603432*^9},ExpressionUUID->"3bf6baa3-2b99-486b-b8cf-\
f91058cb01b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hll", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146540238619328`*^9, 
  3.714654043748782*^9}},ExpressionUUID->"4467bda6-b4af-4f27-a728-\
6d435b1b6187"],

Cell[BoxData[
 TagBox[
  InterpretationBox[GridBox[{
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", "eH"]}], "-", 
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
              SubscriptBox["c", "HD"], "+", 
              RowBox[{"4", " ", 
               TemplateBox[{"c","Hl","3"},
                "Subsuperscript"]}], "-", 
              RowBox[{"2", " ", 
               TemplateBox[{"c","ll","Prime"},
                "Subsuperscript"]}]}], ")"}], " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ye", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", "eH"]}], "-", 
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
              SubscriptBox["c", "HD"], "+", 
              RowBox[{"4", " ", 
               TemplateBox[{"c","Hl","3"},
                "Subsuperscript"]}], "-", 
              RowBox[{"2", " ", 
               TemplateBox[{"c","ll","Prime"},
                "Subsuperscript"]}]}], ")"}], " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ym", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", "eH"]}], "-", 
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
              SubscriptBox["c", "HD"], "+", 
              RowBox[{"4", " ", 
               TemplateBox[{"c","Hl","3"},
                "Subsuperscript"]}], "-", 
              RowBox[{"2", " ", 
               TemplateBox[{"c","ll","Prime"},
                "Subsuperscript"]}]}], ")"}], " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ytau", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
       4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH - 
        4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 - 
        2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ye 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
       FeynRules`mu, 3}}, Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
       4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH - 
        4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 - 
        2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ym 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
       4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH - 
        4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 - 
        2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ytau 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9}, 
   3.714656988199677*^9, 
   3.7295886667903337`*^9},ExpressionUUID->"77470f04-9067-4899-84a8-\
a00c3c6441ca"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Export to UFO", "Subsection",
 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
  3.714654266603505*^9, 3.7146542675202837`*^9}}],

Cell[TextData[{
 StyleBox["Warning!",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " Exporting the MFV model to UFO in the most general case might take a long \
time (~ 2.5 hours) \nThe time is significantly reduced using the massless \
restriction"
}], "Text",
 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
  3.714654761972848*^9, 3.714654820650289*^9}},
 Background->RGBColor[1, 1, 0.85]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSMEFT", ",", 
   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_MFV_alphaScheme_UFO\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9, 
  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714027352553897*^9, 
  3.714027353791733*^9}, {3.7140340581231403`*^9, 3.714034062356689*^9}, {
  3.7140592135310183`*^9, 3.7140592138676453`*^9}, {3.7146547492689953`*^9, 
  3.714654749853262*^9}, {3.7146570002207127`*^9, 3.714657002090333*^9}, {
  3.714658369038265*^9, 3.714658373122863*^9}, {3.729591851144595*^9, 
  3.729591852588007*^9}},ExpressionUUID->"cc7bade2-5cef-447d-9aa6-\
0b2579c429df"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{
  3.72959248804742*^9},ExpressionUUID->"c6b651fd-e9d5-4d2d-bf50-1aa838c44a9e"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.7295925029886293`*^9},ExpressionUUID->"466f3660-57b9-4144-a59f-\
de136f000d27"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.729592502990913*^9},ExpressionUUID->"f9b24c56-9d5a-4ffd-9e01-\
ed77a07c527b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729592502993197*^9},ExpressionUUID->"1e3a564e-b470-450e-b8ea-\
f1712dffc6d7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"4\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729592503288171*^9},ExpressionUUID->"7e728990-ae42-48cf-9266-\
3959ba3020d6"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.729592576010993*^9},ExpressionUUID->"6d288fcf-daad-4814-8304-\
88d09c9d542c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  82, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729592576379678*^9},ExpressionUUID->"b3a04723-19ea-4e64-b733-\
5341e2c22f10"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[82, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729592660058673*^9},ExpressionUUID->"2ac29189-c4b0-49d7-995b-\
4792bcb4f422"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729592704632373*^9},ExpressionUUID->"7402432c-6115-4e25-b861-\
118b3c571326"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{
  3.729592878700952*^9},ExpressionUUID->"2217cda5-68ec-46a0-932f-\
f5440268644f"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.729592879041072*^9},ExpressionUUID->"0b30da22-1710-4612-955b-\
69d540439aee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "78"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 78],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.72959287907469*^9},ExpressionUUID->"b093671d-b197-4ee5-9e74-2383dacaa8ba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "12311.112`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 12311.112, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7296078848099327`*^9},ExpressionUUID->"3fb9db8e-3b57-4556-9e67-\
aeef462795c3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729607885287459*^9},ExpressionUUID->"86609b49-c43d-41a7-ad91-\
c5c9f5dcc716"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "63.064`",
    "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 63.064, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729607950424966*^9},ExpressionUUID->"801350a6-478e-4c05-802c-\
870f6b50c428"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{
  3.7296079504272757`*^9},ExpressionUUID->"9f536787-6a9b-4382-a7c8-\
0652b29adbf7"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{
  3.7296079606248417`*^9},ExpressionUUID->"e65d279f-52fb-4555-a769-\
274cd2fc8d18"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729607962178774*^9},ExpressionUUID->"408eaf45-8fac-4b68-9f99-\
02c9fb59e1f5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "588", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 588, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7296080008133287`*^9},ExpressionUUID->"e193eb79-ead1-4ff1-b596-\
232da0f8f01e"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{
  3.729608016986417*^9},ExpressionUUID->"4708d449-d5f1-4193-a004-\
285528f82b1d"],

Cell[BoxData[
 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
This might reduce the efficiency of certain matrix element generators.\\n     \
           See logfile for more details.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.7296080184668903`*^9},ExpressionUUID->"74d50938-074f-435c-b316-\
0cdebbcb254f"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{
  3.729608029081057*^9},ExpressionUUID->"0c850f48-3937-4a59-ba98-\
2548cca7786d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["model MFV Mw scheme", "Section",
 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9, 
  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9, 
  3.7140273462258577`*^9}, {3.714034026337254*^9, 3.7140340306501093`*^9}, {
  3.714059172051979*^9, 3.714059172395143*^9}, {3.714067703468307*^9, 
  3.7140677041355143`*^9}, {3.714654251598678*^9, 
  3.71465425524997*^9}},ExpressionUUID->"576f30b1-09bd-4c84-a3e3-\
3903c7acc668"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flavor", "=", "MFV"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQB2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA959+xEsY1QP8aXgDT06XL5rMC
6Xet+8E0APAJ1n8=
  "],ExpressionUUID->"b8cfa8ee-c29c-499f-9d58-eb97f4753caf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"cth", "^", "2"}], "+", 
       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"vevhat", "^", "2"}], "\[Equal]", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "definition", " ", "useful", " ", "for", " ", "algebraic", " ", 
    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9}, 
   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9}, 
   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9, 
   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9}, 
   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9, 
   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9, 
   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9, 
   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9, 
   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9, 
   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9, 
   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9, 
   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9, 
   3.713952603424769*^9}, 
   3.7146542743240833`*^9},ExpressionUUID->"ca147f48-49c0-46ca-94e0-\
5a6f74474c82"],

Cell[CellGroupData[{

Cell[BoxData["\<\"MFV framework selected\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293900223*^9},ExpressionUUID->"8f177e06-a158-42cb-b4c8-\
06b202a26ba1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", 
   SubscriptBox["m", "W"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   SubscriptBox["G", "f"]}],
  SequenceForm["Input parameters: ", 
   Subscript[FeynRules`m, FeynRules`W], ", ", 
   Subscript[FeynRules`m, $CellContext`Z], ", ", 
   Subscript[FeynRules`G, FeynRules`f]],
  Editable->False]], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293901513*^9},ExpressionUUID->"39469039-2c6b-4a67-a136-\
103039ec695a"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.7296112939215813`*^9},ExpressionUUID->"3eb2d192-6b55-4bad-a65c-\
9d904730d64a"],

Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293923018*^9},ExpressionUUID->"5cf66519-d66f-4c9f-bfd6-\
9bd2625e07ba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
  SequenceForm["Model Version: ", "2.1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293925462*^9},ExpressionUUID->"af161e64-e5b5-4c7b-a3a4-\
a91a3f9d31ca"],

Cell[BoxData["\<\"Please cite\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293926712*^9},ExpressionUUID->"d1c054b0-26f9-494a-b831-\
e339d1b357aa"],

Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.7296112939279213`*^9},ExpressionUUID->"b5fe5fc5-42c1-49d7-8b08-\
906bb738cf8e"],

Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293929141*^9},ExpressionUUID->"2b242a62-17b9-4fe5-9542-\
852691476a90"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293930388*^9},ExpressionUUID->"9ca60e3e-7e36-4f42-9a4e-\
971aab6db25f"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293931596*^9},ExpressionUUID->"6b811c3b-3cfe-49fd-8c34-\
9fd1a0b251a5"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611293932828*^9},ExpressionUUID->"9d4504fb-fda4-46e3-9c62-\
62e19c00e71c"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611294021492*^9},ExpressionUUID->"f66079f9-7152-4133-959d-\
9c4fb569a090"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.72961129403865*^9},ExpressionUUID->"ac151c67-5b55-4094-be76-cf3f436cdc98"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7296080796165257`*^9, 
  3.729611294561262*^9},ExpressionUUID->"f1d2c690-3679-4603-aa9a-\
01a74ecb7650"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ", 
    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "x", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"WC6", ",", 
       RowBox[{"Conjugate", "/@", "WC6"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
          ",", "dgw"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
   3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9, 
   3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
   3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9, 
   3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
   3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9, 
   3.6986454466349792`*^9}, {3.6990803840045652`*^9, 
   3.6990803931031227`*^9}, {3.707025063385503*^9, 3.707025074535533*^9}, {
   3.707026201080791*^9, 3.707026206097932*^9}, {3.707733746790945*^9, 
   3.707733759745702*^9}, {3.711875906183223*^9, 3.71187590676577*^9}, {
   3.712555385621932*^9, 3.712555393408392*^9}, 
   3.7146542779734697`*^9},ExpressionUUID->"b68ff3e6-cfaf-42b4-a85c-\
ed50e97d9bb8"],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - extraction of aTGC ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    SuperscriptBox[
     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " )"
}], "Subsection",
 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9, 
  3.714474881170227*^9}, {3.7146522087316093`*^9, 3.7146522332696543`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", " ", "=", " ", 
   RowBox[{
    RowBox[{"LGauge", "+", "L6cl4"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9, 
  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
  3.7144751339781103`*^9, 3.714475137908736*^9}, {3.714656111298061*^9, 
  3.71465611302945*^9}},ExpressionUUID->"9c7cd592-0449-47b7-a179-\
c94462a779a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 
  3.697355204589117*^9}},ExpressionUUID->"c7054056-c199-4e84-baad-\
408c19b1262d"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
eigenstates should be selected!\"\>"], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714656184555667*^9, 
  3.714657150063994*^9, 
  3.7296081603645906`*^9},ExpressionUUID->"680713c3-7216-4d44-b0c7-\
675f3ab7859e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714656184555667*^9, 
  3.714657150063994*^9, 
  3.729608160430159*^9},ExpressionUUID->"fe468ea7-5953-4527-b09c-\
a827f8e71a9b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with less than \"\>", 
   "\[InvisibleSpace]", "\<\"3\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652273867529*^9, 3.714656184555667*^9, 
  3.714657150063994*^9, 
  3.7296081604517727`*^9},ExpressionUUID->"c8b21f23-ab16-4b0c-b663-\
1b24b05ba891"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9, 
   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9, 
   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9, 
   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9, 
   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
   3.714652412441049*^9, 3.714652464776884*^9}, 3.714652626095168*^9, {
   3.714657051070833*^9, 
   3.714657052484799*^9}},ExpressionUUID->"ea45b9db-e06c-416c-87db-\
65993721cc1b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714656184982973*^9, 3.7146571506204863`*^9, 
   3.729608160775128*^9},ExpressionUUID->"35725e1f-e103-4df7-8188-\
911af3143b23"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "-", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","3"},
           "Subsuperscript"]}], "+", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}], "+", 
         RowBox[{"8", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714656184982973*^9, 3.7146571506204863`*^9, 
   3.729608161078949*^9},ExpressionUUID->"a69f9ff7-3739-48b6-80a1-\
5ad90cdf3327"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["W", "mu$2"], " ", 
          SubscriptBox["Z", "mu$1"]}], "-", 
         RowBox[{
          SubscriptBox["W", "mu$1"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["W", "mu$1"], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ", 
          SubscriptBox["Z", "mu$1"]}], "+", 
         RowBox[{
          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ", 
          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9, 
   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9, 
   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9, 
   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9, 
   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9, 
   3.714656184982973*^9, 3.7146571506204863`*^9, 
   3.729608161166007*^9},ExpressionUUID->"5bbb8ca0-cfa9-4e7e-a838-\
ee0cee332a26"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652472649456*^9, 3.714652608904799*^9}, {
  3.714657055090991*^9, 
  3.714657056486824*^9}},ExpressionUUID->"42c41f02-2424-4769-98fb-\
f60aed9f4acc"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714656185731509*^9, 3.7146571512736073`*^9, 
   3.729608161306015*^9},ExpressionUUID->"10961436-4624-4348-b0a9-\
4fd9fc01a716"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["c", "HD"]}], "+", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "-", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}], "-", 
        RowBox[{"4", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "-", 
           RowBox[{"4", " ", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"]}], "+", 
           RowBox[{"2", " ", 
            TemplateBox[{"c","ll","Prime"},
             "Subsuperscript"]}]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714656185731509*^9, 3.7146571512736073`*^9, 
   3.729608161505319*^9},ExpressionUUID->"b83c0063-07bd-4067-9db8-\
535ca128248c"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["W", "mu$2"], " ", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
     RowBox[{
      SubscriptBox["W", "mu$1"], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{
   SubscriptBox["c", "\[Theta]"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9, 
   3.714652609565043*^9}, 3.714656185731509*^9, 3.7146571512736073`*^9, 
   3.729608161573168*^9},ExpressionUUID->"edb5c467-ea5e-4374-a213-\
17576678f732"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.714652368810739*^9, 
  3.7146524695105267`*^9},ExpressionUUID->"48f4a6a0-0208-449b-bd3c-\
08e37916f22c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aww", "=", 
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{"L1", ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
  3.697369511884927*^9, 
  3.697369515354232*^9}},ExpressionUUID->"55070546-6783-42b9-836b-\
28eb11537caf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{"del", "[", 
       RowBox[{
        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
     "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9, 
   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9, 
   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9, 
   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9, 
   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9}, 
   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9, 
   3.714652669421071*^9}, {3.714657059287918*^9, 
   3.71465706925286*^9}},ExpressionUUID->"e21d1a7f-bb8b-4ca7-ac26-\
27c7aa491ce9"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"dsth2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["s", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "dgw"}], ")"}], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.7146561896969433`*^9, 3.71465715558003*^9, 
   3.7296081652489157`*^9},ExpressionUUID->"377f4099-14b5-4051-9351-\
0f0c3315ecf8"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["c", "HD"]}], "-", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HD"], "-", 
           RowBox[{"4", " ", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"]}], "+", 
           RowBox[{"2", " ", 
            TemplateBox[{"c","ll","Prime"},
             "Subsuperscript"]}]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
        RowBox[{"8", " ", 
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubscriptBox["A", "mu$1"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "-", 
     RowBox[{
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
      SubscriptBox["W", "mu$2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
          SubscriptBox["W", "mu$1"], "]"}]}], "+", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.7146561896969433`*^9, 3.71465715558003*^9, 
   3.729608165493496*^9},ExpressionUUID->"ac5ceffb-b133-4d9e-8ddb-\
ce11b82fcfbe"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","Hl","3"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","ll","Prime"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HD"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  SubscriptBox["A", "mu$1"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "-", 
    RowBox[{
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ", 
     SubscriptBox["W", "mu$2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
         SubscriptBox["W", "mu$1"], "]"}]}], "+", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9, 
   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9}, 
   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9, 
   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9, 
   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9}, 
   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9, 
   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9}, 
   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9}, 
   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9}, 
   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9, 
   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9, 
   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9, 
   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9, 
   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9, 
   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9, 
   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9, 
   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, 
   3.7146561896969433`*^9, 3.71465715558003*^9, 
   3.7296081655458603`*^9},ExpressionUUID->"cbd7fbf2-a376-4211-a7e1-\
d51390bcd28b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aww", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]", 
      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ", 
    RowBox[{"WCsimplify", "[", 
     FractionBox["%", 
      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.714652676781377*^9, 3.71465270986456*^9}, {
  3.714657063557783*^9, 
  3.714657064822434*^9}},ExpressionUUID->"716ca696-b7ef-4516-81d9-\
3da73a793e72"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"dsth2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
      RowBox[{
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "dgw"}], ")"}], " ", 
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.7146561899462633`*^9, 3.714657156219308*^9, 
   3.729608165650984*^9},ExpressionUUID->"a41dd100-cf9e-48df-904d-\
b16216d5b30e"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["c", "HD"]}], "-", 
         RowBox[{"4", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubscriptBox["s", "\[Theta]"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["c", "HD"], "-", 
            RowBox[{"4", " ", 
             TemplateBox[{"c","Hl","3"},
              "Subsuperscript"]}], "+", 
            RowBox[{"2", " ", 
             TemplateBox[{"c","ll","Prime"},
              "Subsuperscript"]}]}], ")"}], " ", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
         RowBox[{"8", " ", 
          SubscriptBox["c", "HWB"], " ", 
          SubscriptBox["c", "\[Theta]"], " ", 
          SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["A", "mu$1"], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["W", "mu$2"], " ", 
       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
      RowBox[{
       SubscriptBox["W", "mu$1"], " ", 
       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.7146561899462633`*^9, 3.714657156219308*^9, 
   3.729608165792717*^9},ExpressionUUID->"2c133b22-982f-4e58-a7a8-\
41e7ec2b87e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","Hl","3"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c","ll","Prime"},
       "Subsuperscript"], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HD"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}], 
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
  RowBox[{
   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
   SubscriptBox["A", "mu$1"], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["W", "mu$2"], " ", 
     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-", 
    RowBox[{
     SubscriptBox["W", "mu$1"], " ", 
     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9}, 
   3.7146561899462633`*^9, 3.714657156219308*^9, 
   3.729608165818507*^9},ExpressionUUID->"c0b8bd6c-3d8d-434b-bf57-\
bc1054bdb7fb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : h Z Z coupling ", "Subsection",
 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
  3.71465313260557*^9, 3.714653135145647*^9}, {3.7146561420383987`*^9, 
  3.714656142208275*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hzz", "=", 
  RowBox[{
   RowBox[{"GetInteractionTerms", "[", 
    RowBox[{
     RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], ",", 
     RowBox[{"SelectParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9, 
  3.697781973755425*^9}, {3.714653122093409*^9, 3.714653151135909*^9}, {
  3.714656151886788*^9, 
  3.714656152346603*^9}},ExpressionUUID->"7f03158f-cf4c-4e14-abc4-\
d5d7c5ea9326"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubsuperscriptBox["s", "\[Theta]", "2"]}]], 
  RowBox[{"H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "32"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
     RowBox[{"32", " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HW"], "+", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["c", "HB"], "-", 
           SubscriptBox["c", "HW"]}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}], " ", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
       SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["e", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["\[CapitalLambda]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{
            SqrtBox["2"], " ", "dGf"}], "+", 
           RowBox[{"4", " ", "dgw"}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"dg1", "-", "dgw"}], ")"}], " ", 
            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SubscriptBox["c", 
             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["c", "HD"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["c", "HWB"], " ", 
            SubscriptBox["c", "\[Theta]"], " ", 
            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
         SuperscriptBox[
          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.714653202225688*^9, 3.71465622360679*^9, 
  3.714657179909767*^9, 
  3.729608190504463*^9},ExpressionUUID->"09645b77-661f-4a7a-ba1a-\
831e22522421"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
 CellChangeTimes->{{3.714653438713478*^9, 
  3.7146534431183643`*^9}},ExpressionUUID->"94dac829-09f9-4c29-944b-\
cc3babf409ff"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{3.71465344371563*^9, 3.714656223705248*^9, 
  3.71465718015981*^9, 
  3.7296081905649157`*^9},ExpressionUUID->"039d44b9-3c7b-42cb-bd5c-\
9adae1446d7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{"hzz", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", "_", "]"}], "2"], ",", 
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",", 
   "WCsimplify"}], "]"}]], "Input",
 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9, 
  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9, 
  3.7146534351677427`*^9}},ExpressionUUID->"36b03974-bd4e-41b5-8c38-\
8cf84f3bef60"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SubscriptBox["c", "HWB"], " ", "H", " ", 
        SubscriptBox["s", "\[Theta]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
        OverscriptBox["v", "^"]}], 
       RowBox[{
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HWB"], " ", "H", " ", 
       SubscriptBox["s", "\[Theta]"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HB"], " ", "H", " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SubscriptBox["c", "HW"], " ", "H", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
    SubscriptBox["Z", "mu$2"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"dg1", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"dGf", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"4", " ", 
       SqrtBox["2"], " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-", 
     FractionBox[
      RowBox[{"dgw", " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
       OverscriptBox["v", "^"]}], 
      RowBox[{"2", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"4", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"16", " ", 
       SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HWB"], " ", 
       SuperscriptBox["e", "2"], " ", "H", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "3"]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.700893354200268*^9, 3.712654290029169*^9, 3.71396688057451*^9, {
   3.714653206742526*^9, 3.71465324075095*^9}, {3.714653297211488*^9, 
   3.7146533889881983`*^9}, {3.714653430663045*^9, 3.714653435702468*^9}, 
   3.714656223934009*^9, 3.714657180378113*^9, 
   3.729608190755707*^9},ExpressionUUID->"64a6493c-22dd-48a3-b7ef-\
5b5bac7da647"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  SubscriptBox["Z", "\[Mu]"], 
  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.7146562034254837`*^9, 3.714656204213971*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"hzz", "/.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{
       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
    "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   FractionBox["%", 
    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714657080555853*^9, 
  3.714657081859074*^9}},ExpressionUUID->"94c3ebd8-3c6e-4af8-bcca-\
aefd56a8c01b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SubscriptBox["c", 
          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
        SubscriptBox["c", "HD"], "-", 
        RowBox[{"4", " ", 
         TemplateBox[{"c","Hl","3"},
          "Subsuperscript"]}], "+", 
        RowBox[{"2", " ", 
         TemplateBox[{"c","ll","Prime"},
          "Subsuperscript"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"16", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, 
   3.714656224062125*^9, 3.714657180554426*^9, 
   3.7296081908101473`*^9},ExpressionUUID->"07f0c32d-fa88-4908-a52d-\
50b5ef148d8a"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["e", "2"], " ", "H", " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", 
        RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["c", "HD"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","Hl","3"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
     FractionBox[
      RowBox[{
       TemplateBox[{"c","ll","Prime"},
        "Subsuperscript"], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
   SubsuperscriptBox["Z", "mu$1", "2"]}], 
  RowBox[{"4", " ", 
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, 
   3.714656224062125*^9, 3.714657180554426*^9, 
   3.7296081908189297`*^9},ExpressionUUID->"4cd1a919-d8e4-4fee-898e-\
028c259a575b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Coefficient", " ", "for", " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "\[Mu]"], 
   SubscriptBox["Z", "\[Nu]"]}], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Mu]"], 
     SuperscriptBox["Z", "\[Nu]"]}], "-", 
    RowBox[{
     SuperscriptBox["\[PartialD]", "\[Nu]"], 
     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
  3.714653634026601*^9, 3.714653660281114*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hzz", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", "MwShifts"}],
    "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
  3.714653677707417*^9, 3.714653739972247*^9}, {3.714657084302898*^9, 
  3.71465708601402*^9}},ExpressionUUID->"3be70be7-c90b-4f5f-a2c8-\
5b8efc629c5c"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "H", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["c", "HW"], "+", 
     RowBox[{
      SubscriptBox["c", "HWB"], " ", 
      SubscriptBox["c", "\[Theta]"], " ", 
      SubscriptBox["s", "\[Theta]"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "HB"], "-", 
        SubscriptBox["c", "HW"]}], ")"}], " ", 
      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ", 
   OverscriptBox["v", "^"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
    SubscriptBox["Z", "mu$1"], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[", 
       SubscriptBox["Z", "mu$1"], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[", 
      SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}], 
  RowBox[{
   SubsuperscriptBox["c", "\[Theta]", "2"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9}, 
   3.7146562242545652`*^9, 3.714657180791407*^9, 
   3.729608190924728*^9},ExpressionUUID->"a0120f06-7bb0-4d9d-85d5-\
04c3e9102f0b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Example - Fermion Z ",
 Cell[BoxData[
  FormBox["couplings", TraditionalForm]]],
 " (non-dipole structures)"
}], "Subsection",
 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9, 
  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
  3.714474653133204*^9, 3.7144746902228537`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.714474671414948*^9, 
  3.714474706220644*^9}},ExpressionUUID->"324c2dfc-5255-4f3e-8064-\
f19e80a8f000"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZffCouplings", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FeynmanRules", "[", 
      RowBox[{"L2", ",", 
       RowBox[{"Contains", "\[Rule]", 
        RowBox[{"{", "Z", "}"}]}], ",", 
       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//", 
     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9, 
   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9, 
   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9, 
   3.714652756642342*^9}, {3.714652909302999*^9, 
   3.7146529149076347`*^9}},ExpressionUUID->"b3dae78e-fd74-497d-83fa-\
f3fa31c363d9"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.71465625612295*^9, 3.714657206975029*^9, 
  3.729608220005457*^9},ExpressionUUID->"d66e01e6-4d51-4eb6-8963-\
781791e00d7c"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.71465625612295*^9, 3.714657206975029*^9, 
  3.7296082200065737`*^9},ExpressionUUID->"d67ab65c-f140-4653-a05a-\
b0a788bd9ca8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.71465625612295*^9, 3.714657206975029*^9, 
  3.729608220009325*^9},ExpressionUUID->"8c8ef279-7e00-4f8e-9d28-\
0886f3d1d145"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.71465625612295*^9, 3.714657206975029*^9, 
  3.729608234038577*^9},ExpressionUUID->"2df9a828-968c-4367-8da1-\
ab0eea1d2f1c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.71465625612295*^9, 3.714657206975029*^9, 
  3.729608234063704*^9},ExpressionUUID->"8bb170bf-e073-4d4b-8177-\
42f294cb50a0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9, 
  3.71465625612295*^9, 3.714657206975029*^9, 
  3.729608236927115*^9},ExpressionUUID->"e86a2a94-fb7f-41ca-8edb-\
6f57b4010c6a"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Delta]", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "3"}], "-", 
                   RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "-", "dg1", "+", 
                    RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                    SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}], "+", 
                   RowBox[{"3", " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}], "+", 
                   RowBox[{"2", " ", 
                    SubscriptBox["c", "HWB"], " ", 
                    SubscriptBox["c", "\[Theta]"], " ", 
                    SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"dsth2", " ", 
                 SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", "dg1"}], ")"}], " ", 
                 SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "3"}], " ", 
                    SubscriptBox["c", "Hd"]}], "+", 
                   RowBox[{
                    SubscriptBox["c", "HWB"], " ", 
                    SubscriptBox["c", "\[Theta]"], " ", 
                    SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                TagBox[
                 RowBox[{
                  SubscriptBox["\[CapitalDelta]", "u"], " ", 
                  TemplateBox[{"c","Hq","1"},
                   "Subsuperscript"]}],
                 HoldForm], "+", 
                TagBox[
                 RowBox[{
                  SubscriptBox["\[CapitalDelta]", "u"], " ", 
                  TemplateBox[{"c","Hq","3"},
                   "Subsuperscript"]}],
                 HoldForm]}], ")"}], " ", 
              SubscriptBox[
               TemplateBox[{"V","CKM"},
                "Superscript"], 
               RowBox[{"Generation$1", ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              SubsuperscriptBox[
               RowBox[{"(", 
                TemplateBox[{"V","CKM"},
                 "Superscript"], ")"}], 
               RowBox[{"Generation$2", ",", 
                SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ", 
              SubscriptBox[
               TemplateBox[{"S","u"},
                "Superscript"], 
               RowBox[{"Generation$2", ",", "Generation$1"}]], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "1"], ",", 
                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
             RowBox[{
              SubscriptBox[
               TemplateBox[{"S","d"},
                "Superscript"], 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", 
                 SubscriptBox[
                  RowBox[{
                   TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                    "Superscript"], ".", 
                   SubscriptBox["P", "\<\"-\"\>"]}], 
                  RowBox[{
                   SubscriptBox["\<\"s\"\>", "1"], ",", 
                   SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
                RowBox[{
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", 
                 SubscriptBox[
                  RowBox[{
                   TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                    "Superscript"], ".", 
                   SubscriptBox["P", "\<\"+\"\>"]}], 
                  RowBox[{
                   SubscriptBox["\<\"s\"\>", "1"], ",", 
                   SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"f\"\>", "1"], ",", 
          SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ", 
                 SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                TemplateBox[{"c","Hl","1"},
                 "Subsuperscript"], "+", 
                TemplateBox[{"c","Hl","3"},
                 "Subsuperscript"]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"dsth2", " ", 
              SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "dg1"}], ")"}], " ", 
              SuperscriptBox["\[CapitalLambda]", "2"], " ", 
              SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SubscriptBox["c", "He"]}], "+", 
                RowBox[{
                 SubscriptBox["c", "HWB"], " ", 
                 SubscriptBox["c", "\[Theta]"], " ", 
                 SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
              SuperscriptBox[
               OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"+\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "-", 
                  RowBox[{"3", " ", "dgw"}], "+", 
                  RowBox[{"2", " ", "dsth2"}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "+", "dg1", "+", 
                    RowBox[{"3", " ", "dgw"}]}], ")"}], " ", 
                   SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
               
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}], "-", 
                  RowBox[{"3", " ", 
                   TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}], "-", 
                  RowBox[{
                   SubscriptBox["c", "HWB"], " ", 
                   SubscriptBox["c", "\[Theta]"], " ", 
                   SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                SuperscriptBox[
                 OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "dsth2", " ", 
                SuperscriptBox["\[CapitalLambda]", "2"]}], "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", "dg1"}], ")"}], " ", 
                SuperscriptBox["\[CapitalLambda]", "2"], " ", 
                SubsuperscriptBox["s", "\[Theta]", "2"]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   SubscriptBox["c", "Hu"]}], "+", 
                  RowBox[{"2", " ", 
                   SubscriptBox["c", "HWB"], " ", 
                   SubscriptBox["c", "\[Theta]"], " ", 
                   SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
                SuperscriptBox[
                 OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"+\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               TagBox[
                RowBox[{
                 SubscriptBox["\[CapitalDelta]", "d"], " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}],
                HoldForm], "-", 
               TagBox[
                RowBox[{
                 SubscriptBox["\[CapitalDelta]", "d"], " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}],
                HoldForm]}], ")"}], " ", 
             SubscriptBox[
              TemplateBox[{"V","CKM"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]], " ", 
             SubsuperscriptBox[
              RowBox[{"(", 
               TemplateBox[{"V","CKM"},
                "Superscript"], ")"}], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "2"], ",", 
               "Generation$2"}], "\<\"*\"\>"], " ", 
             SubscriptBox[
              TemplateBox[{"S","d"},
               "Superscript"], 
              RowBox[{"Generation$1", ",", "Generation$2"}]], " ", 
             SubscriptBox[
              RowBox[{
               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                "Superscript"], ".", 
               SubscriptBox["P", "\<\"-\"\>"]}], 
              RowBox[{
               SubscriptBox["\<\"s\"\>", "1"], ",", 
               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
            RowBox[{
             SubscriptBox[
              TemplateBox[{"S","u"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "1"], ",", 
               SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], "-", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm]}], ")"}], " ", 
                SubscriptBox[
                 RowBox[{
                  TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                   "Superscript"], ".", 
                  SubscriptBox["P", "\<\"-\"\>"]}], 
                 RowBox[{
                  SubscriptBox["\<\"s\"\>", "1"], ",", 
                  SubscriptBox["\<\"s\"\>", "2"]}]]}], "+", 
               RowBox[{
                SubscriptBox["\[CapitalDelta]c", "Hu"], " ", 
                SubscriptBox[
                 RowBox[{
                  TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
                   "Superscript"], ".", 
                  SubscriptBox["P", "\<\"+\"\>"]}], 
                 RowBox[{
                  SubscriptBox["\<\"s\"\>", "1"], ",", 
                  SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}]}],
         ")"}]}], 
      RowBox[{"6", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {
        OverscriptBox["vl", "\<\"-\"\>"], "1"},
       {"vl", "2"},
       {"Z", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "e", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[CapitalLambda]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "-", "dgw", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
             SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            TemplateBox[{"c","Hl","1"},
             "Subsuperscript"], "-", 
            TemplateBox[{"c","Hl","3"},
             "Subsuperscript"], "-", 
            RowBox[{
             SubscriptBox["c", "HWB"], " ", 
             SubscriptBox["c", "\[Theta]"], " ", 
             SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
          SuperscriptBox[
           OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"f\"\>", "1"], ",", 
         SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "1"], ",", 
         SubscriptBox["\<\"s\"\>", "2"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
        3}}, Complex[0, 
       Rational[-1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] (FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[
          2]]] (($CellContext`LambdaSMEFT^2 (-3 - 
            3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 + 
              3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq10 + 
           3 $CellContext`cHq30 + 
           2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[
            2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
          2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + ((-3) $CellContext`cHd0 + $CellContext`cHWB \
$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) - 
      3 $CellContext`vevhat^2 (($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`CKM[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] Conjugate[
          $CellContext`CKM[
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$2], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]]]] $CellContext`Su[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$2], 
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1]]
          FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[3]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] + $CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[
           2]]] (($CellContext`DeltadcHq1 + $CellContext`DeltadcHq3) 
          FeynRules`TensDot[
            FeynRules`Ga[
             FeynRules`Index[FeynRules`Lorentz, 
              FeynRules`Ext[3]]], FeynRules`ProjM][
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[1]], 
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[2]]] + $CellContext`DeltacHd FeynRules`TensDot[
            FeynRules`Ga[
             FeynRules`Index[FeynRules`Lorentz, 
              FeynRules`Ext[3]]], FeynRules`ProjP][
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[1]], 
            FeynRules`Index[FeynRules`Spin, 
             FeynRules`Ext[2]]])))}, {{{$CellContext`lbar, 1}, {
      FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[-1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[
        2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
$CellContext`dsth2 + (
            2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2) 
       FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjM][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
        2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
         FeynRules`Ga[
          FeynRules`Index[FeynRules`Lorentz, 
           FeynRules`Ext[3]]], FeynRules`ProjP][
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 6]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]]] (FeynRules`IndexDelta[
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[1]], 
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[
          2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw + 
            2 $CellContext`dsth2 + (4 + $CellContext`dg1 + 
              3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq10 - 
            3 $CellContext`cHq30 - $CellContext`cHWB $CellContext`cth \
$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + (
          2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 + 
          4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
$CellContext`sth^2 + (3 $CellContext`cHu0 + 
            2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjP][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]]) + 
      3 $CellContext`vevhat^2 (($CellContext`DeltadcHq1 - \
$CellContext`DeltadcHq3) $CellContext`CKM[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]] Conjugate[
           $CellContext`CKM[
            FeynRules`Index[$CellContext`Generation, 
             FeynRules`Ext[2]], 
            
            FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$2]]] $CellContext`Sd[
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1], 
           
           FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$2]] FeynRules`TensDot[
           FeynRules`Ga[
            FeynRules`Index[FeynRules`Lorentz, 
             FeynRules`Ext[3]]], FeynRules`ProjM][
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[1]], 
           FeynRules`Index[FeynRules`Spin, 
            FeynRules`Ext[2]]] + $CellContext`Su[
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[1]], 
           FeynRules`Index[$CellContext`Generation, 
            FeynRules`Ext[
            2]]] (($CellContext`DeltaucHq1 - $CellContext`DeltaucHq3) 
           FeynRules`TensDot[
             FeynRules`Ga[
              FeynRules`Index[FeynRules`Lorentz, 
               FeynRules`Ext[3]]], FeynRules`ProjM][
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[1]], 
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[2]]] + $CellContext`DeltacHu FeynRules`TensDot[
             FeynRules`Ga[
              FeynRules`Index[FeynRules`Lorentz, 
               FeynRules`Ext[3]]], FeynRules`ProjP][
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[1]], 
             FeynRules`Index[FeynRules`Spin, 
              FeynRules`Ext[2]]])))}, {{{$CellContext`vlbar, 
       1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, Complex[0, 
       Rational[1, 2]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
$CellContext`vevhat^2) FeynRules`IndexDelta[
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[1]], 
       FeynRules`Index[$CellContext`Generation, 
        FeynRules`Ext[2]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[3]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[1]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]]]}}]]], "Output",
 CellChangeTimes->{
  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9, 
   3.714656269991343*^9, 3.714657228928665*^9, 
   3.72960824249153*^9},ExpressionUUID->"2a52de36-6b5c-4dfb-8266-\
ad905641d66c"]
}, Open  ]],

Cell["neutrino coupling :", "Text",
 CellChangeTimes->{{3.7146528020724363`*^9, 3.7146528092589808`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ZffCouplings", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", 
    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMlimit", "[", "%", "]"}], " ", 
  RowBox[{"WCsimplify", "[", 
   RowBox[{
    FractionBox["%", 
     RowBox[{"SMlimit", "[", "%", "]"}]], "/.", 
    RowBox[{
     RowBox[{"IndexDelta", "[", 
      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9}, 
   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9, 
   3.714652890708997*^9}, {3.714652953030558*^9, 3.7146530356237173`*^9}, {
   3.714657096836529*^9, 
   3.714657098251444*^9}},ExpressionUUID->"a6ae5607-7c03-4c9d-95d6-\
9913e2931f9d"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", "e", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalLambda]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "-", "dgw", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ", 
         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], "-", 
        TemplateBox[{"c","Hl","3"},
         "Subsuperscript"], "-", 
        RowBox[{
         SubscriptBox["c", "HWB"], " ", 
         SubscriptBox["c", "\[Theta]"], " ", 
         SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ", 
      SuperscriptBox[
       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
   SubscriptBox["\[Delta]", 
    RowBox[{
     SubscriptBox["\<\"f\"\>", "1"], ",", 
     SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
   SubscriptBox[
    RowBox[{
     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
      "Superscript"], ".", 
     SubscriptBox["P", "\<\"-\"\>"]}], 
    RowBox[{
     SubscriptBox["\<\"s\"\>", "1"], ",", 
     SubscriptBox["\<\"s\"\>", "2"]}]]}], 
  RowBox[{"2", " ", 
   SubscriptBox["c", "\[Theta]"], " ", 
   SuperscriptBox["\[CapitalLambda]", "2"], " ", 
   SubscriptBox["s", "\[Theta]"]}]]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714656270052293*^9, 
   3.71465722913227*^9, 
   3.729608242550435*^9},ExpressionUUID->"21f18ce9-0dd6-49d2-a6a0-\
d25a0c22910c"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "HD"], "+", 
         RowBox[{"4", " ", 
          TemplateBox[{"c","Hl","1"},
           "Subsuperscript"]}], "-", 
         RowBox[{"2", " ", 
          TemplateBox[{"c","ll","Prime"},
           "Subsuperscript"]}]}], ")"}], " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"8", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SuperscriptBox["\[CapitalLambda]", "2"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714656270052293*^9, 
   3.71465722913227*^9, 
   3.729608242661965*^9},ExpressionUUID->"045128fa-7f2a-428b-a8eb-\
8a31a60e9ddb"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "e", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","Hl","1"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       SuperscriptBox["\[CapitalLambda]", "2"]], "+", 
      FractionBox[
       RowBox[{
        TemplateBox[{"c","ll","Prime"},
         "Subsuperscript"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ", 
    SubscriptBox["\[Delta]", 
     RowBox[{
      SubscriptBox["\<\"f\"\>", "1"], ",", 
      SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
    SubscriptBox[
     RowBox[{
      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
       "Superscript"], ".", 
      SubscriptBox["P", "\<\"-\"\>"]}], 
     RowBox[{
      SubscriptBox["\<\"s\"\>", "1"], ",", 
      SubscriptBox["\<\"s\"\>", "2"]}]]}], 
   RowBox[{"2", " ", 
    SubscriptBox["c", "\[Theta]"], " ", 
    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
 CellChangeTimes->{
  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9, 
   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9, 
   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9, 
   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714656270052293*^9, 
   3.71465722913227*^9, 
   3.729608242689714*^9},ExpressionUUID->"e654894f-ace0-483c-8177-\
8ea2793f113f"]
}, Open  ]],

Cell["up quarks coupling: flavor expansion with spurions", "Text",
 CellChangeTimes->{{3.714658087911981*^9, 3.714658112774782*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"ZffCouplings", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "}"}], "//.", "MwShifts"}], "//",
       "FlavorExpansion"}], "//", 
     RowBox[{
      RowBox[{"ReplaceAll", "[", 
       RowBox[{"#", ",", 
        RowBox[{"Abbreviations", "[", "]"}]}], "]"}], "&"}]}], "//", 
    "LinearWC"}], "//", "Simplify"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146579364846163`*^9, 3.714657993955915*^9}, {
  3.714658032558496*^9, 3.714658054565364*^9}, {3.714658137278632*^9, 
  3.7146581444312162`*^9}},ExpressionUUID->"bccbba0a-9509-431d-ae96-\
f9eac3b456ec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714657950014279*^9, 3.7146579634419203`*^9}, 
   3.714657995078278*^9, {3.7146580371920567`*^9, 3.71465805571782*^9}, 
   3.714658145675453*^9, 
   3.729608243438229*^9},ExpressionUUID->"48e32b36-ab87-4937-b1ee-\
201cc48cb549"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["d", "\<\"-\"\>"], "2"},
       {"d", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"16", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["c", "HD"], "-", 
             RowBox[{"4", " ", 
              TemplateBox[{"c","Hl","3"},
               "Subsuperscript"]}], "+", 
             RowBox[{"2", " ", 
              TemplateBox[{"c","ll","Prime"},
               "Subsuperscript"]}]}], ")"}], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"16", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "3"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
          RowBox[{
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "-", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd1x1"}], "+", 
                RowBox[{"12", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd1x1"}], "+", 
                RowBox[{"12", " ", "CKM1x1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM2x1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM3x1", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x1", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM3x1", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"3", " ", 
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd1x1"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"24", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["d", "\<\"-\"\>"], "2"},
       {"s", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x2", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x2", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x2", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["d", "\<\"-\"\>"], "2"},
       {"b", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x3", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x3", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x3", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["s", "\<\"-\"\>"], "2"},
       {"d", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x1", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x1", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x1", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["s", "\<\"-\"\>"], "2"},
       {"s", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"16", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["c", "HD"], "-", 
             RowBox[{"4", " ", 
              TemplateBox[{"c","Hl","3"},
               "Subsuperscript"]}], "+", 
             RowBox[{"2", " ", 
              TemplateBox[{"c","ll","Prime"},
               "Subsuperscript"]}]}], ")"}], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"16", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "3"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
          RowBox[{
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "-", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd2x2"}], "+", 
                RowBox[{"12", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd2x2"}], "+", 
                RowBox[{"12", " ", "CKM1x2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM2x2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM3x2", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x2", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM3x2", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"3", " ", 
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd2x2"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"24", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["s", "\<\"-\"\>"], "2"},
       {"b", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x3", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x3", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x3", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["b", "\<\"-\"\>"], "2"},
       {"d", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x1", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x1", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x1", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["b", "\<\"-\"\>"], "2"},
       {"s", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","1"},
            "Subsuperscript"]}],
          HoldForm], "+", 
         TagBox[
          RowBox[{
           SubscriptBox["\[CapitalDelta]", "u"], " ", 
           TemplateBox[{"c","Hq","3"},
            "Subsuperscript"]}],
          HoldForm]}], ")"}], " ", "e", " ", 
       SuperscriptBox[
        OverscriptBox["v", "^"], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"CKM1x2", " ", "Su1x1", " ", 
          SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM2x2", " ", "Su2x2", " ", 
          SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+", 
         RowBox[{"CKM3x2", " ", "Su3x3", " ", 
          SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "2"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
       SubscriptBox[
        RowBox[{
         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
          "Superscript"], ".", 
         SubscriptBox["P", "\<\"-\"\>"]}], 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], 
      RowBox[{"2", " ", 
       SubscriptBox["c", "\[Theta]"], " ", 
       SuperscriptBox["\[CapitalLambda]", "2"], " ", 
       SubscriptBox["s", "\[Theta]"]}]]},
    {GridBox[{
       {"Z", "1"},
       {
        OverscriptBox["b", "\<\"-\"\>"], "2"},
       {"b", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "e", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "2"], ",", 
          SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"16", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubscriptBox["s", "\[Theta]"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["c", "HD"], "-", 
             RowBox[{"4", " ", 
              TemplateBox[{"c","Hl","3"},
               "Subsuperscript"]}], "+", 
             RowBox[{"2", " ", 
              TemplateBox[{"c","ll","Prime"},
               "Subsuperscript"]}]}], ")"}], " ", 
           SubsuperscriptBox["s", "\[Theta]", "2"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "+", 
          RowBox[{"16", " ", 
           SubscriptBox["c", "HWB"], " ", 
           SubscriptBox["c", "\[Theta]"], " ", 
           SubsuperscriptBox["s", "\[Theta]", "3"], " ", 
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           TemplateBox[{SubscriptBox["\[Gamma]", 
              RowBox[{
                SubscriptBox["\"s\"", "2"], ",", 
                SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
            
            "Superscript"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[CapitalLambda]", "2"], " ", 
           SubscriptBox[
            RowBox[{
             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
              "Superscript"], ".", 
             SubscriptBox["P", "\<\"-\"\>"]}], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "2"], ",", 
             SubscriptBox["\<\"s\"\>", "3"]}]]}], "-", 
          RowBox[{
           SuperscriptBox[
            OverscriptBox["v", "^"], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["c", "HD"], "-", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hl","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hq","1"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 TemplateBox[{"c","Hq","3"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"6", " ", 
                 TemplateBox[{"c","ll","Prime"},
                  "Subsuperscript"]}], "+", 
                RowBox[{"12", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd3x3"}], "+", 
                RowBox[{"12", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "d"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Sd3x3"}], "+", 
                RowBox[{"12", " ", "CKM1x3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su1x1", " ", 
                 SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM2x3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                    HoldForm], "+", 
                   TagBox[
                    RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                    HoldForm]}], ")"}], " ", "Su2x2", " ", 
                 SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM3x3", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","1"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x3", "\<\"*\"\>"]}], "+", 
                RowBox[{"12", " ", "CKM3x3", " ", 
                 RowBox[{"(", 
                  TagBox[
                   RowBox[{
                    SubscriptBox["\[CapitalDelta]", "u"], " ", 
                    TemplateBox[{"c","Hq","3"},
                    "Subsuperscript"]}],
                   HoldForm], ")"}], " ", "Su3x3", " ", 
                 SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"-\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SubscriptBox["c", "Hd"]}], "+", 
                SubscriptBox["c", "HD"], "+", 
                RowBox[{"3", " ", 
                 SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd3x3"}]}], 
               ")"}], " ", 
              SubscriptBox[
               RowBox[{
                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
                 "Superscript"], ".", 
                SubscriptBox["P", "\<\"+\"\>"]}], 
               RowBox[{
                SubscriptBox["\<\"s\"\>", "2"], ",", 
                SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"24", " ", 
        SubscriptBox["c", "\[Theta]"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"], " ", 
        SubscriptBox["s", "\[Theta]"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {FeynRules`d, 3}},
      Complex[0, 
       Rational[-1, 24]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] (
      8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      16 $CellContext`cHWB $CellContext`cth $CellContext`sth \
$CellContext`vevhat^2 FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
      2 ($CellContext`cHDD - 4 $CellContext`cHl3 + 
        2 $CellContext`cll1) $CellContext`sth^2 $CellContext`vevhat^2 
       FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + 
      16 $CellContext`cHWB $CellContext`cth $CellContext`sth^3 \
$CellContext`vevhat^2 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] - $CellContext`vevhat^2 (($CellContext`cHDD - 
         12 $CellContext`cHl3 + 12 $CellContext`cHq10 + 12 $CellContext`cHq30 + 
         6 $CellContext`cll1 + 12 $CellContext`DeltadcHq1 $CellContext`Sd1x1 + 
         12 $CellContext`DeltadcHq3 $CellContext`Sd1x1 + 
         12 $CellContext`CKM1x1 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x1] + 
         12 $CellContext`CKM2x1 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x1] + 
         12 $CellContext`CKM3x1 $CellContext`DeltaucHq1 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x1] + 
         12 $CellContext`CKM3x1 $CellContext`DeltaucHq3 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x1]) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + 
       4 (3 $CellContext`cHd0 + $CellContext`cHDD + 
         3 $CellContext`DeltacHd $CellContext`Sd1x1) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`dbar, 
       2}, {FeynRules`s, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x2 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x2 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {
      FeynRules`b, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x3 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x3 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
      FeynRules`d, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x1 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x1 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
      FeynRules`s, 3}}, Complex[0, 
       Rational[-1, 24]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] (
      8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      16 $CellContext`cHWB $CellContext`cth $CellContext`sth \
$CellContext`vevhat^2 FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
      2 ($CellContext`cHDD - 4 $CellContext`cHl3 + 
        2 $CellContext`cll1) $CellContext`sth^2 $CellContext`vevhat^2 
       FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + 
      16 $CellContext`cHWB $CellContext`cth $CellContext`sth^3 \
$CellContext`vevhat^2 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] - $CellContext`vevhat^2 (($CellContext`cHDD - 
         12 $CellContext`cHl3 + 12 $CellContext`cHq10 + 12 $CellContext`cHq30 + 
         6 $CellContext`cll1 + 12 $CellContext`DeltadcHq1 $CellContext`Sd2x2 + 
         12 $CellContext`DeltadcHq3 $CellContext`Sd2x2 + 
         12 $CellContext`CKM1x2 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x2] + 
         12 $CellContext`CKM2x2 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x2] + 
         12 $CellContext`CKM3x2 $CellContext`DeltaucHq1 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x2] + 
         12 $CellContext`CKM3x2 $CellContext`DeltaucHq3 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x2]) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + 
       4 (3 $CellContext`cHd0 + $CellContext`cHDD + 
         3 $CellContext`DeltacHd $CellContext`Sd2x2) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 
       2}, {FeynRules`b, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x3 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x3 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
      FeynRules`d, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x1 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x1 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
      FeynRules`s, 3}}, Complex[0, 
       Rational[
       1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1 
       Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x2 \
$CellContext`Su2x2 
       Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x2 \
$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] FeynRules`TensDot[
       FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]]], FeynRules`ProjM][
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Spin, 
        FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
      FeynRules`b, 3}}, Complex[0, 
       Rational[-1, 24]] $CellContext`cth^(-1) 
     FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) 
     FeynRules`IndexDelta[
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[2]], 
       FeynRules`Index[FeynRules`Colour, 
        FeynRules`Ext[3]]] (
      8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 
      16 $CellContext`cHWB $CellContext`cth $CellContext`sth \
$CellContext`vevhat^2 FeynRules`Ga[
        FeynRules`Index[FeynRules`Lorentz, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
      2 ($CellContext`cHDD - 4 $CellContext`cHl3 + 
        2 $CellContext`cll1) $CellContext`sth^2 $CellContext`vevhat^2 
       FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] + 
      16 $CellContext`cHWB $CellContext`cth $CellContext`sth^3 \
$CellContext`vevhat^2 FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[3]]] - 12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
        FeynRules`Ga[
         FeynRules`Index[FeynRules`Lorentz, 
          FeynRules`Ext[1]]], FeynRules`ProjM][
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] - $CellContext`vevhat^2 (($CellContext`cHDD - 
         12 $CellContext`cHl3 + 12 $CellContext`cHq10 + 12 $CellContext`cHq30 + 
         6 $CellContext`cll1 + 12 $CellContext`DeltadcHq1 $CellContext`Sd3x3 + 
         12 $CellContext`DeltadcHq3 $CellContext`Sd3x3 + 
         12 $CellContext`CKM1x3 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x3] + 
         12 $CellContext`CKM2x3 ($CellContext`DeltaucHq1 + \
$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x3] + 
         12 $CellContext`CKM3x3 $CellContext`DeltaucHq1 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x3] + 
         12 $CellContext`CKM3x3 $CellContext`DeltaucHq3 $CellContext`Su3x3 
          Conjugate[$CellContext`CKM3x3]) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjM][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]] + 
       4 (3 $CellContext`cHd0 + $CellContext`cHDD + 
         3 $CellContext`DeltacHd $CellContext`Sd3x3) FeynRules`TensDot[
          FeynRules`Ga[
           FeynRules`Index[FeynRules`Lorentz, 
            FeynRules`Ext[1]]], FeynRules`ProjP][
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[3]]]))}}]]], "Output",
 CellChangeTimes->{{3.714657950098637*^9, 3.714657963888904*^9}, 
   3.714657998040905*^9, {3.71465804041544*^9, 3.714658062787704*^9}, 
   3.7146581568958817`*^9, 
   3.729608254626334*^9},ExpressionUUID->"6357e402-8f81-40b6-bc04-\
639405c75434"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example : Yukawa couplings", "Subsection",
 CellChangeTimes->{{3.714653803679809*^9, 3.714653813127017*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"LYuk", " ", "=", " ", 
   RowBox[{
    RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9}, 
   3.714653880639667*^9, {3.7146539581117077`*^9, 3.714653960288474*^9}, {
   3.714656312155267*^9, 3.7146563157427807`*^9}, {3.7146564182116413`*^9, 
   3.714656421562209*^9}, {3.714656653224125*^9, 
   3.7146566537421703`*^9}},ExpressionUUID->"acb67596-bca4-4482-88ee-\
caa0773c60f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hff", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"FeynmanRules", "[", 
     RowBox[{"LYuk", ",", 
      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",", 
      RowBox[{"Contains", "\[Rule]", 
       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653838776801*^9, 
  3.7146538891931353`*^9}},ExpressionUUID->"183e4d0a-b205-4e56-94e1-\
09ecf07d6cb0"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 3.7146572354232397`*^9, 
   3.729608260726844*^9},ExpressionUUID->"9faba4c7-8ed4-4094-9dbb-\
9c3485ffc717"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 3.7146572354232397`*^9, 
   3.7296082607277107`*^9},ExpressionUUID->"c3515c5a-91af-4e7a-9d18-\
96d9059a051c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 3.7146572354232397`*^9, 
   3.7296082607299213`*^9},ExpressionUUID->"b68aa3c5-2379-40df-be9a-\
0d181bf8e6be"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 3.7146572354232397`*^9, 
   3.7296082646310673`*^9},ExpressionUUID->"ff5bb871-f8b8-4de5-a15c-\
fa2fc5f69231"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{117., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  3, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 3.7146572354232397`*^9, 
   3.729608264655758*^9},ExpressionUUID->"c02aa28f-9088-4447-ac84-\
6909bc37596a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[3, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9}, 
   3.714653968951281*^9, 3.714656285669918*^9, 3.714656390885407*^9, 
   3.714656426361683*^9, 3.714656663987858*^9, 3.714656825591028*^9, 
   3.714656957164216*^9, 3.7146572354232397`*^9, 
   3.729608265537322*^9},ExpressionUUID->"9e58f92a-77bf-492d-92f2-\
481ee0515a34"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        OverscriptBox["dq", "\<\"-\"\>"], "1"},
       {"dq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[CapitalDelta]c", "dH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","d"},
                "Superscript"], 
               RowBox[{"Generation$1", ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
             SubscriptBox[
              TemplateBox[{"S","d"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}], "-", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox[
              TemplateBox[{"S","d"},
               "Superscript"], 
              RowBox[{"Generation$1", ",", 
               SubscriptBox["\<\"f\"\>", "1"]}]], "-", 
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","d"},
                "Superscript"], 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","d"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","d"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "2"], ",", 
            SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "dH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","d"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["l", "\<\"-\"\>"], "1"},
       {"l", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","l"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox["yl0", 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {
        OverscriptBox["uq", "\<\"-\"\>"], "1"},
       {"uq", "2"},
       {"H", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[CapitalDelta]c", "uH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","u"},
                "Superscript"], 
               RowBox[{"Generation$1", ",", 
                SubscriptBox["\<\"f\"\>", "2"]}]]}], "-", 
             SubscriptBox[
              TemplateBox[{"S","u"},
               "Superscript"], 
              RowBox[{
               SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}], "-", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox[
              TemplateBox[{"S","u"},
               "Superscript"], 
              RowBox[{"Generation$1", ",", 
               SubscriptBox["\<\"f\"\>", "1"]}]], "-", 
             RowBox[{"3", " ", 
              SubscriptBox[
               TemplateBox[{"S","u"},
                "Superscript"], 
               RowBox[{
                SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}], 
            ")"}], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{"Generation$1", ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       SqrtBox["2"]], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "1"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"-\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","u"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "1"], ",", 
            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
         RowBox[{
          SubscriptBox[
           SubscriptBox["P", "\<\"+\"\>"], 
           RowBox[{
            SubscriptBox["\<\"s\"\>", "1"], ",", 
            SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
          SubscriptBox[
           TemplateBox[{"y","u"},
            "Superscript"], 
           RowBox[{
            SubscriptBox["\<\"f\"\>", "2"], ",", 
            SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "uH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"m\"\>", "1"], ",", 
          SubscriptBox["\<\"m\"\>", "2"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"-\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "1"], ",", 
             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+", 
          RowBox[{
           SubscriptBox[
            SubscriptBox["P", "\<\"+\"\>"], 
            RowBox[{
             SubscriptBox["\<\"s\"\>", "1"], ",", 
             SubscriptBox["\<\"s\"\>", "2"]}]], " ", 
           SubscriptBox[
            TemplateBox[{"y","u"},
             "Superscript"], 
            RowBox[{
             SubscriptBox["\<\"f\"\>", "2"], ",", 
             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[1, 2]] 
      2^Rational[-1, 
         2] $CellContext`DeltacdH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] (3 $CellContext`Sd[
            
            FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1], 
            FeynRules`Index[$CellContext`Generation, 
             FeynRules`Ext[2]]] - $CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] ($CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - 3 $CellContext`Sd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yd[
         FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
         
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`cdH0 $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yd[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
      FeynRules`H, 3}}, Complex[0, 
        Rational[3, 2]] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 2^Rational[-1, 2] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yl0[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq, 
       2}, {FeynRules`H, 3}}, Complex[0, 
        Rational[1, 2]] 
      2^Rational[-1, 
         2] $CellContext`DeltacuH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] (3 $CellContext`Su[
            
            FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1], 
            FeynRules`Index[$CellContext`Generation, 
             FeynRules`Ext[2]]] - $CellContext`Su[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - FeynRules`ProjM[
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[1]], 
         FeynRules`Index[FeynRules`Spin, 
          FeynRules`Ext[2]]] ($CellContext`Su[
          FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]] - 3 $CellContext`Su[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          
          FeynRules`Index[$CellContext`Generation, \
$CellContext`Generation$1]]) $CellContext`yu[
         FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1], 
         
         FeynRules`Index[$CellContext`Generation, 
          FeynRules`Ext[2]]]) + 
     Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]]) + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`cuH0 $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[1]], 
        FeynRules`Index[FeynRules`Colour, 
         FeynRules`Ext[2]]] (FeynRules`ProjM[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]]] + FeynRules`ProjP[
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[1]], 
          FeynRules`Index[FeynRules`Spin, 
           FeynRules`Ext[2]]] $CellContext`yu[
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[2]], 
          FeynRules`Index[$CellContext`Generation, 
           FeynRules`Ext[1]]])}}]]], "Output",
 CellChangeTimes->{3.714656678968668*^9, 3.7146568357978363`*^9, 
  3.714656962394742*^9, 3.714657242203429*^9, 
  3.729608267688957*^9},ExpressionUUID->"41ad1cc9-a3d8-4b2b-8127-\
077086a5d11e"]
}, Open  ]],

Cell["Flavor expansion for the leptons' case", "Text",
 CellChangeTimes->{{3.7146540002012587`*^9, 3.714654016686934*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hll", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"hff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//", 
      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.714653897213532*^9, 
  3.714653998430573*^9}},ExpressionUUID->"635fab1a-0e6e-4a99-9ae8-\
aeba1b6cea24"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{70., {2., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
   3.714653951564291*^9, 3.71465401970082*^9}, 3.714656836154119*^9, {
   3.71465696265897*^9, 3.714656984380176*^9}, 3.714657242495468*^9, 
   3.729608267909816*^9},ExpressionUUID->"68194df8-80e0-49f5-b725-\
0790709d5c92"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["e", "\<\"-\"\>"], "2"},
       {"e", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ye", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ye", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["mu", "\<\"-\"\>"], "2"},
       {"mu", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ym", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ym", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
    {GridBox[{
       {"H", "1"},
       {
        OverscriptBox["ta", "\<\"-\"\>"], "2"},
       {"ta", "3"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "ytau", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        SqrtBox["2"]]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau", 
       " ", 
       SubscriptBox["\[Delta]", 
        RowBox[{
         SubscriptBox["\<\"s\"\>", "2"], ",", 
         SubscriptBox["\<\"s\"\>", "3"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "eH"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", 
         RowBox[{"H", " ", "\[EmptySquare]"}]], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["c", "HD"], " ", 
        SuperscriptBox[
         OverscriptBox["v", "^"], "2"], " ", "ytau", " ", 
        SubscriptBox["\[Delta]", 
         RowBox[{
          SubscriptBox["\<\"s\"\>", "2"], ",", 
          SubscriptBox["\<\"s\"\>", "3"]}]]}], 
       RowBox[{"4", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ye 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
      FeynRules`mu, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ym 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{
      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
     Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 2]] $CellContext`dGf $CellContext`ytau 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, 1] 
      2^Rational[-1, 
         2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + 
     Complex[0, -1] 
      2^Rational[-1, 
         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]] + Complex[0, 
        Rational[1, 4]] 
      2^Rational[-1, 
         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]]], "Output",
 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
   3.714653952474135*^9, 3.714654020646657*^9}, 3.7146568374768543`*^9, {
   3.714656963605565*^9, 3.7146569852875*^9}, 3.714657243371131*^9, 
   3.729608268903872*^9},ExpressionUUID->"273c4d39-03ad-4042-bcdc-\
7988151df9e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hll", "//.", "MwShifts"}], "//", "WCsimplify"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.7146540238619328`*^9, 3.714654043748782*^9}, {
  3.7146571090267878`*^9, 
  3.714657110620819*^9}},ExpressionUUID->"0b31e8ee-d2b5-44c0-ba30-\
c14f51252f76"],

Cell[BoxData[
 TagBox[
  InterpretationBox[GridBox[{
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["e", "\<\"-\"\>"], "2"},
        {"e", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", "eH"]}], "-", 
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
              SubscriptBox["c", "HD"], "+", 
              RowBox[{"4", " ", 
               TemplateBox[{"c","Hl","3"},
                "Subsuperscript"]}], "-", 
              RowBox[{"2", " ", 
               TemplateBox[{"c","ll","Prime"},
                "Subsuperscript"]}]}], ")"}], " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ye", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["mu", "\<\"-\"\>"], "2"},
        {"mu", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", "eH"]}], "-", 
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
              SubscriptBox["c", "HD"], "+", 
              RowBox[{"4", " ", 
               TemplateBox[{"c","Hl","3"},
                "Subsuperscript"]}], "-", 
              RowBox[{"2", " ", 
               TemplateBox[{"c","ll","Prime"},
                "Subsuperscript"]}]}], ")"}], " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ym", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
     {GridBox[{
        {"H", "1"},
        {
         OverscriptBox["ta", "\<\"-\"\>"], "2"},
        {"ta", "3"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.1]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["\[CapitalLambda]", "2"]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["c", "eH"]}], "-", 
              RowBox[{"4", " ", 
               SubscriptBox["c", 
                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+", 
              SubscriptBox["c", "HD"], "+", 
              RowBox[{"4", " ", 
               TemplateBox[{"c","Hl","3"},
                "Subsuperscript"]}], "-", 
              RowBox[{"2", " ", 
               TemplateBox[{"c","ll","Prime"},
                "Subsuperscript"]}]}], ")"}], " ", 
            SuperscriptBox[
             OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ytau", " ", 
         SubscriptBox["\[Delta]", 
          RowBox[{
           SubscriptBox["\<\"s\"\>", "2"], ",", 
           SubscriptBox["\<\"s\"\>", "3"]}]]}], 
        RowBox[{"4", " ", 
         SqrtBox["2"], " ", 
         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
       4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH - 
        4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 - 
        2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ye 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
       FeynRules`mu, 3}}, Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
       4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH - 
        4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 - 
        2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ym 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}, {{{
       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, 
      Complex[0, 
        Rational[-1, 4]] 
      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
       4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH - 
        4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 - 
        2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ytau 
      FeynRules`IndexDelta[
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[2]], 
        FeynRules`Index[FeynRules`Spin, 
         FeynRules`Ext[3]]]}}]],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9}, 
   3.714656988199677*^9, 3.714657244344411*^9, 
   3.7296082696570673`*^9},ExpressionUUID->"867e6f6d-c6a8-477d-8223-\
b0ead146e8c9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Export to UFO", "Subsection",
 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
  3.714654282717627*^9, 3.714654283743149*^9}}],

Cell[TextData[{
 StyleBox["Warning!",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " Exporting the MFV model to UFO in the most general case might take a long \
time (~ 2.5 hours) \nThe time is significantly reduced using the massless \
restriction"
}], "Text",
 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
  3.714654761972848*^9, 3.714654820650289*^9}},
 Background->RGBColor[1, 1, 0.85]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSMEFT", ",", 
   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",", 
   RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_MFV_MwScheme_UFO\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9, 
  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714027352553897*^9, 
  3.714027353791733*^9}, {3.7140340581231403`*^9, 3.714034062356689*^9}, {
  3.7140592135310183`*^9, 3.7140592138676453`*^9}, {3.7140677190481462`*^9, 
  3.714067720546134*^9}, {3.714654839998847*^9, 
  3.714654840383039*^9}},ExpressionUUID->"7ba461c2-78db-45ff-abbc-\
8799a024d5ab"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{
  3.729611895132584*^9},ExpressionUUID->"c719148b-9767-4b6a-a900-\
8b12c1abf597"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.729611911622056*^9},ExpressionUUID->"c4571380-4997-4d7d-83db-\
bb284e610a94"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.7296119116244307`*^9},ExpressionUUID->"452c0edc-f240-45fb-8d42-\
387d49b2c996"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729611911628459*^9},ExpressionUUID->"3b9e01ed-1b73-4770-b82e-\
ab400d6c551c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Neglecting all terms with more than \"\>", 
   "\[InvisibleSpace]", "\<\"4\"\>", 
   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729611912073226*^9},ExpressionUUID->"4fae7b29-6765-438d-9cc0-\
67818152a1a7"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.7296119941727533`*^9},ExpressionUUID->"9f802075-5f40-4c3c-8a2a-\
36f4f476c3a4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  82, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7296119946153*^9},ExpressionUUID->"8c7c609f-22c2-43ce-b39a-5efed776e152"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[82, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729612080586247*^9},ExpressionUUID->"f58d8e74-a7e3-45b8-9775-\
74d4873395d7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>", 
   "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "82"}],
  SequenceForm[
  "Flavor expansion of the vertices distributed over ", 2, " cores: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 82],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.72961212266511*^9},ExpressionUUID->"bb1b0b87-8395-4c72-9435-6119b466aa66"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{
  3.7296122869327707`*^9},ExpressionUUID->"e885d05d-35e5-4e9d-af15-\
08fa56fc7bcd"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.729612287241746*^9},ExpressionUUID->"286e2be9-4f30-404c-ab3a-\
dc548d5d369d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "78"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 78],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.72961228727209*^9},ExpressionUUID->"e39d02c6-1588-4230-bd4d-cb3872fb5e01"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "11997.772`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 11997.772, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7296269918752117`*^9},ExpressionUUID->"f63e4b2b-b696-4c11-bcd7-\
3cac5f394dd6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "97"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 97],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729626991876692*^9},ExpressionUUID->"60dbda23-bce3-412d-93d8-\
1bbd96de86ec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "56.152`",
    "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 56.152, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729627049828188*^9},ExpressionUUID->"74011a3d-1711-406e-9471-\
a7590424ea1c"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{
  3.729627049829187*^9},ExpressionUUID->"6b55a6d0-e573-444d-b42a-\
97ab76f8f0af"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{
  3.7296270589657784`*^9},ExpressionUUID->"70b32ba9-753b-45b9-bea6-\
96b03a370dce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729627060439055*^9},ExpressionUUID->"3ad76d6f-38e5-4650-bc69-\
94e711988918"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "588", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 588, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.729627093128681*^9},ExpressionUUID->"92382210-e5d9-4ab8-a049-\
1a08382b4f8f"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{
  3.729627107297768*^9},ExpressionUUID->"ce4708b0-3e89-4e10-9b45-\
5cee52da6414"],

Cell[BoxData[
 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
This might reduce the efficiency of certain matrix element generators.\\n     \
           See logfile for more details.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{
  3.729627108597662*^9},ExpressionUUID->"b71535c0-4d0f-41e6-945e-\
95d22f70e516"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{
  3.729627117414415*^9},ExpressionUUID->"0efc5e29-9f11-4ded-8f56-\
8ed8d01fb73b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1057, 979},
WindowMargins->{{226, Automatic}, {0, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 190, 3, 69, "Chapter",ExpressionUUID->"55c1d13a-0c0d-447f-a284-91d63a91b5fa"],
Cell[760, 27, 2737, 72, 380, "Text",ExpressionUUID->"84b164ae-00f4-418b-92ed-dac633b0a8d7"],
Cell[3500, 101, 580, 16, 120, "Text",ExpressionUUID->"e8a0586e-7fc8-4807-aeb5-cce4fd6c051e"],
Cell[4083, 119, 2122, 62, 152, "Text",ExpressionUUID->"ef6ce449-903c-4f17-9b75-7912d9c4ab1a"],
Cell[6208, 183, 147, 3, 55, "Input",ExpressionUUID->"7e2bd107-2391-4afb-a870-15da1292e912"],
Cell[6358, 188, 4955, 146, 792, "Text",ExpressionUUID->"5416058f-ee29-48d2-b23b-61a1e3603da8"],
Cell[11316, 336, 178, 4, 31, "Input",ExpressionUUID->"b080cac5-1c42-4c34-afad-7262c6d76b03"],
Cell[CellGroupData[{
Cell[11519, 344, 269, 4, 68, "Section",ExpressionUUID->"6b40f8de-f3c5-4e35-84b1-190d4364205e"],
Cell[CellGroupData[{
Cell[11813, 352, 1173, 22, 78, "Input",ExpressionUUID->"7be60793-69f3-4c51-a69f-86b265422a0f"],
Cell[CellGroupData[{
Cell[13011, 378, 488, 8, 25, "Print",ExpressionUUID->"36a8f0dd-c3e4-45e7-8d12-a20ecf0d526f"],
Cell[13502, 388, 761, 15, 25, "Print",ExpressionUUID->"b7ceaeb9-38fe-4bda-aa66-e85f04b4bf2a"],
Cell[14266, 405, 540, 9, 25, "Print",ExpressionUUID->"90d8d3a6-bab3-4906-9b53-77fdba0131b3"],
Cell[14809, 416, 474, 8, 25, "Print",ExpressionUUID->"ad5c6f45-076a-4326-a7d8-696c58130505"],
Cell[15286, 426, 487, 8, 25, "Print",ExpressionUUID->"09efc52a-a4ee-4c62-a1ca-9c5976c6442e"],
Cell[15776, 436, 537, 9, 25, "Print",ExpressionUUID->"3ffaaf78-e9e9-4754-8eb4-d9d9c7218033"],
Cell[16316, 447, 537, 9, 25, "Print",ExpressionUUID->"35e26f16-0bea-437a-a704-1b107d602e54"],
Cell[16856, 458, 474, 8, 25, "Print",ExpressionUUID->"96ae02b2-315c-44b5-8dc6-a8c795f71327"],
Cell[17333, 468, 504, 8, 25, "Print",ExpressionUUID->"684ae78a-cff6-4379-9926-736038a09e6b"],
Cell[17840, 478, 473, 8, 25, "Print",ExpressionUUID->"6743691e-a2e4-4430-a43d-c5270eb92258"],
Cell[18316, 488, 543, 9, 25, "Print",ExpressionUUID->"a88dafd5-011d-4773-8752-fffec82966fc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18920, 504, 532, 8, 68, "Section",ExpressionUUID->"c53cebc8-6012-49be-b928-d79e1a2ece39"],
Cell[19455, 514, 614, 13, 55, "Input",ExpressionUUID->"dfc4c8d8-5aa2-4bda-a486-e292b29d50dd"],
Cell[20072, 529, 510, 11, 51, "Text",ExpressionUUID->"c110c552-09ea-4921-931f-2651ba8f78f9"],
Cell[CellGroupData[{
Cell[20607, 544, 2447, 47, 78, "Input",ExpressionUUID->"4da591a6-13d7-4ac1-921d-674a71a54cc8"],
Cell[CellGroupData[{
Cell[23079, 595, 241, 4, 25, "Print",ExpressionUUID->"f7bf66d2-4e32-44ba-b456-10f54b0c1aa0"],
Cell[23323, 601, 642, 14, 25, "Print",ExpressionUUID->"fe1f5602-df35-488c-9407-631835fc1f98"],
Cell[23968, 617, 248, 4, 25, "Print",ExpressionUUID->"d22aff24-f341-465f-83ea-af910f2aa404"],
Cell[24219, 623, 239, 4, 25, "Print",ExpressionUUID->"282ea2cf-8cf6-46fc-94d1-f4eac6ba6b55"],
Cell[24461, 629, 354, 8, 25, "Print",ExpressionUUID->"40bf39db-8f45-4b41-9d1d-2a9f94616f41"],
Cell[24818, 639, 219, 4, 25, "Print",ExpressionUUID->"e4510588-118f-4791-bdde-91923b19f246"],
Cell[25040, 645, 223, 4, 25, "Print",ExpressionUUID->"a32e1fb0-77fe-4ce7-a362-23a60b923bf2"],
Cell[25266, 651, 251, 4, 25, "Print",ExpressionUUID->"73b5a643-f19a-433b-b9f7-a1ea92904c10"],
Cell[25520, 657, 256, 5, 25, "Print",ExpressionUUID->"9d2e9a8b-b1c7-4087-b508-a64c7a568b21"],
Cell[25779, 664, 208, 4, 25, "Print",ExpressionUUID->"1fc3cc74-e968-4132-9999-af8e641e0fc1"],
Cell[25990, 670, 240, 4, 25, "Print",ExpressionUUID->"d566f0f2-34a5-4144-bb20-19b56ecf0797"],
Cell[26233, 676, 241, 4, 25, "Print",ExpressionUUID->"363bd0c9-a249-4e77-b4cc-3525b0160753"],
Cell[26477, 682, 239, 4, 25, "Print",ExpressionUUID->"7240cc41-f3e7-4ab6-b174-f63b49e6bef8"],
Cell[26719, 688, 412, 9, 48, "Print",ExpressionUUID->"1cd7e254-a3cb-4fbb-8651-4e58ee2d1a18"]
}, Open  ]]
}, Open  ]],
Cell[27158, 701, 1634, 35, 55, "Input",ExpressionUUID->"f58736e1-2cb2-4219-859f-68c4482f9ccd"],
Cell[CellGroupData[{
Cell[28817, 740, 298, 7, 31, "Input",ExpressionUUID->"90113a27-38d6-45a4-a4b0-d71fde76e1c7"],
Cell[29118, 749, 635, 13, 25, "Print",ExpressionUUID->"ce690e60-4f67-493b-bb7c-7bfbf4e8b5a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29790, 767, 1017, 25, 31, "Input",ExpressionUUID->"e3bfaa60-bc5c-488b-83ed-701b44dbe5ac"],
Cell[CellGroupData[{
Cell[30832, 796, 556, 13, 24, "Print",ExpressionUUID->"df5f5226-236a-4000-8e15-cd66bda745cc"],
Cell[31391, 811, 311, 5, 24, "Print",ExpressionUUID->"531b582b-a470-4ce1-a525-ffc569fe411e"],
Cell[31705, 818, 493, 10, 24, "Print",ExpressionUUID->"ab03436a-ba9c-4300-b656-73722c07084d"],
Cell[32201, 830, 344, 6, 24, "Print",ExpressionUUID->"b46ee0e2-304a-4e58-84f2-973ff1cb5da4"],
Cell[32548, 838, 822, 17, 24, "Print",ExpressionUUID->"8220978a-c6aa-444a-88b1-ee5629827c5a"],
Cell[33373, 857, 424, 9, 24, "Print",ExpressionUUID->"bcee00b7-1748-4128-a0c2-ac8114c91282"]
}, Open  ]],
Cell[33812, 869, 10362, 256, 145, "Output",ExpressionUUID->"48e161f3-55eb-4810-a978-c5b9945ccc8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44211, 1130, 1154, 30, 55, "Input",ExpressionUUID->"c26691ff-f632-4305-8671-8cfd87db9120"],
Cell[CellGroupData[{
Cell[45390, 1164, 528, 13, 24, "Print",ExpressionUUID->"862e9f62-b822-4440-861f-80a24fe736f4"],
Cell[45921, 1179, 283, 5, 24, "Print",ExpressionUUID->"4c2dea28-63a9-433f-9e47-c02fd2b087b3"],
Cell[46207, 1186, 467, 10, 24, "Print",ExpressionUUID->"ab02d9c4-198e-4466-880b-3264f55efc13"],
Cell[46677, 1198, 316, 6, 24, "Print",ExpressionUUID->"b0a27050-2358-4326-903a-4723d0867d46"],
Cell[46996, 1206, 796, 17, 24, "Print",ExpressionUUID->"f7c50d97-5960-45b1-9d75-71735bb47b63"],
Cell[47795, 1225, 276, 5, 25, "Print",ExpressionUUID->"26b2fd45-9526-426b-a79d-c21f149ee00e"]
}, Open  ]],
Cell[48086, 1233, 3711, 96, 75, "Output",ExpressionUUID->"a3df65b3-abf0-47f5-9070-70c6562c5c6b"],
Cell[51800, 1331, 5233, 133, 75, "Output",ExpressionUUID->"f2bed6c6-392f-42fb-8a56-2aec031c4d53"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57070, 1469, 3010, 76, 101, "Input",ExpressionUUID->"00e5d10d-94d0-4412-925b-1c616d997fec"],
Cell[CellGroupData[{
Cell[60105, 1549, 823, 17, 25, "Print",ExpressionUUID->"fae4aa60-1cf8-41f2-bc8f-3622fb604dca"],
Cell[60931, 1568, 581, 9, 25, "Print",ExpressionUUID->"581111a9-9ef9-4e06-9c53-988d9edd599b"],
Cell[61515, 1579, 761, 14, 25, "Print",ExpressionUUID->"dcc42d6d-1d5c-45a7-81b2-ebffd37e862e"],
Cell[62279, 1595, 614, 10, 25, "Print",ExpressionUUID->"5a77f048-9f2f-4fd0-8c69-8eb81729fdd5"],
Cell[62896, 1607, 1088, 21, 25, "Print",ExpressionUUID->"5f523990-5a57-4bc4-9447-a590cc465c7b"],
Cell[63987, 1630, 692, 13, 25, "Print",ExpressionUUID->"01983c43-06b4-486f-8377-a5fd27efc5a9"],
Cell[64682, 1645, 919, 17, 25, "Print",ExpressionUUID->"5b46f11b-b9ff-47d4-9c75-be88314ec755"]
}, Open  ]],
Cell[65616, 1665, 13166, 343, 155, "Output",ExpressionUUID->"aef98f10-35a3-480d-bb6b-c13da457e161"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78819, 2013, 676, 19, 58, "Subsection",ExpressionUUID->"86e4fb78-f3cd-47f5-a5f1-33600a572f6e"],
Cell[79498, 2034, 591, 14, 41, "Input",ExpressionUUID->"d2e56b81-6219-490c-982c-ee49a37c6877"],
Cell[CellGroupData[{
Cell[80114, 2052, 385, 11, 39, "Input",ExpressionUUID->"dc9ad820-5590-4bac-81d4-d90c096f5f4b"],
Cell[CellGroupData[{
Cell[80524, 2067, 296, 5, 30, "Print",ExpressionUUID->"ad70eaad-70fd-45a9-a6c5-b0c905b0f808"],
Cell[80823, 2074, 458, 10, 30, "Print",ExpressionUUID->"2e816367-f1aa-4573-bb39-a98038b0c1e5"],
Cell[81284, 2086, 458, 10, 30, "Print",ExpressionUUID->"58981fbd-ec10-46f4-90bf-1f347d509b2b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[81791, 2102, 1897, 37, 155, "Input",ExpressionUUID->"d013d0c4-7567-4fce-93f1-84c03e773d99"],
Cell[83691, 2141, 2385, 62, 76, "Output",ExpressionUUID->"ca8ff5a3-affc-4721-af81-85a325536cd5"],
Cell[86079, 2205, 3332, 90, 81, "Output",ExpressionUUID->"d1046564-350d-4edc-9eaa-ece071eaa65f"],
Cell[89414, 2297, 4138, 116, 101, "Output",ExpressionUUID->"8dd59ff1-21b8-4aa1-9278-cd6ee80b4ca7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93589, 2418, 1004, 27, 156, "Input",ExpressionUUID->"777fafde-cd1a-4c6a-936e-23ce19d1eaf8"],
Cell[94596, 2447, 1505, 40, 76, "Output",ExpressionUUID->"473bc550-7f3f-4e39-9e35-fbc389bd374c"],
Cell[96104, 2489, 2151, 61, 81, "Output",ExpressionUUID->"04e85cfc-7162-453b-bf06-03c19b4aecba"],
Cell[98258, 2552, 3138, 92, 101, "Output",ExpressionUUID->"18d9599e-0238-4e75-9e8a-a1d6bee374fa"]
}, Open  ]],
Cell[101411, 2647, 152, 3, 39, "Input",ExpressionUUID->"1ea0cb97-74b3-42c4-becf-65e1c3ef0119"],
Cell[101566, 2652, 434, 12, 39, "Input",ExpressionUUID->"56eee9d8-93eb-4163-b606-e817d2dfec84"],
Cell[CellGroupData[{
Cell[102025, 2668, 1391, 27, 98, "Input",ExpressionUUID->"2560bf02-b49c-47cc-ac7c-662814ae53c0"],
Cell[103419, 2697, 3382, 72, 78, "Output",ExpressionUUID->"edcce4f6-c317-4a34-8918-dc3d7a5831ce"],
Cell[106804, 2771, 2616, 50, 48, "Output",ExpressionUUID->"323abe3e-a411-4c9b-8533-71936f66be4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109457, 2826, 998, 27, 156, "Input",ExpressionUUID->"c3ce482e-99ae-4de8-8127-f9b3ee83f0c0"],
Cell[110458, 2855, 1430, 39, 78, "Output",ExpressionUUID->"9cdded33-69f8-4066-a855-8723c4efdcfa"],
Cell[111891, 2896, 1106, 31, 76, "Output",ExpressionUUID->"ffb7b391-f301-4e1d-94c0-5328fe0872d0"],
Cell[113000, 2929, 979, 28, 74, "Output",ExpressionUUID->"c38b0cc9-9282-4fea-b7cc-ff9b1df2efc8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[114028, 2963, 230, 4, 39, "Subsection",ExpressionUUID->"afdaa5d5-ec6e-441f-80a5-29a2d7ad36b3"],
Cell[CellGroupData[{
Cell[114283, 2971, 754, 19, 41, "Input",ExpressionUUID->"20646313-9df5-4d6c-b179-c4a19db1e3ec"],
Cell[115040, 2992, 3314, 93, 106, "Output",ExpressionUUID->"5e625118-e135-42ef-b1b1-2f7111bc041f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118391, 3090, 190, 4, 39, "Input",ExpressionUUID->"13a53d48-6c16-4925-9131-068868c51a55"],
Cell[118584, 3096, 458, 12, 78, "Output",ExpressionUUID->"38cabc67-d39b-45cd-9265-b52cbb9724a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119079, 3113, 684, 16, 43, "Input",ExpressionUUID->"ae1cc0f7-b195-462b-9057-78b3e5170a15"],
Cell[119766, 3131, 5631, 160, 149, "Output",ExpressionUUID->"6a82512c-9c62-42c4-958a-7a292f386077"]
}, Open  ]],
Cell[125412, 3294, 255, 6, 47, "Text",ExpressionUUID->"82131644-0cd7-403b-9525-ffa8a13d74f7"],
Cell[CellGroupData[{
Cell[125692, 3304, 653, 17, 97, "Input",ExpressionUUID->"40e8568f-4d3f-4322-95fa-f8754a3db27f"],
Cell[126348, 3323, 1330, 37, 79, "Output",ExpressionUUID->"c8f5ef6d-f4bf-44bc-99b6-89104dfcdeaf"],
Cell[127681, 3362, 1803, 53, 105, "Output",ExpressionUUID->"61b0d309-681c-43a1-8aa3-40b181d41071"]
}, Open  ]],
Cell[129499, 3418, 563, 16, 49, "Text",ExpressionUUID->"f798344e-a1fc-48d2-8bd3-c6d74c3ee478"],
Cell[CellGroupData[{
Cell[130087, 3438, 522, 13, 69, "Input",ExpressionUUID->"eed85d85-a577-4a0e-aae1-2a53560f57f5"],
Cell[130612, 3453, 1344, 39, 78, "Output",ExpressionUUID->"ffe09fee-e2ee-454e-8d69-a61d4d90f7ff"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[132005, 3498, 529, 12, 39, "Subsection",ExpressionUUID->"83c232dc-9faf-43fc-a036-95a43dea3d65"],
Cell[132537, 3512, 271, 8, 39, "Input",ExpressionUUID->"79c9d7a5-957c-4ec2-b127-3e0d737ff0f9"],
Cell[CellGroupData[{
Cell[132833, 3524, 1011, 20, 39, "Input",ExpressionUUID->"b2d4aa91-e7b0-4a7d-bf00-91cddf449bbd"],
Cell[CellGroupData[{
Cell[133869, 3548, 479, 12, 30, "Print",ExpressionUUID->"083897d2-93cc-449d-b081-57e606820f36"],
Cell[134351, 3562, 232, 4, 30, "Print",ExpressionUUID->"88a44e95-7cfe-4b13-95c3-e8a36789a6f2"],
Cell[134586, 3568, 416, 9, 30, "Print",ExpressionUUID->"12724ce2-faae-417b-b7af-6536287ca318"],
Cell[135005, 3579, 265, 5, 30, "Print",ExpressionUUID->"d4dda840-ae34-4ec5-9bc4-18c9078662fb"],
Cell[135273, 3586, 744, 16, 30, "Print",ExpressionUUID->"cbefd825-4b48-4f08-a307-d80c8e5a5686"],
Cell[136020, 3604, 345, 8, 30, "Print",ExpressionUUID->"30c28d97-34f0-4a32-a095-99a89eb67ca6"]
}, Open  ]],
Cell[136380, 3615, 43470, 1059, 312, "Output",ExpressionUUID->"6414204a-9c5c-4aa8-bcb6-c7ce862cd250"]
}, Open  ]],
Cell[179865, 4677, 165, 3, 44, "Text",ExpressionUUID->"1ef17f73-f819-466d-a95a-1107f3c7492d"],
Cell[CellGroupData[{
Cell[180055, 4684, 1013, 24, 126, "Input",ExpressionUUID->"441230af-4a7a-4962-974c-957a6c20c6ca"],
Cell[181071, 4710, 2233, 61, 76, "Output",ExpressionUUID->"36339ec0-439d-4b80-a4ef-ff9053b0b04b"],
Cell[183307, 4773, 2331, 64, 77, "Output",ExpressionUUID->"08b24a4e-9037-4138-aaaa-98d08b29d143"],
Cell[185641, 4839, 2772, 78, 101, "Output",ExpressionUUID->"eb8a3b1b-5130-4de4-b1ac-5b7672ea5d28"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[188462, 4923, 174, 3, 39, "Subsection",ExpressionUUID->"f6d3546a-fbb5-4086-80b2-1fc305917cc1"],
Cell[188639, 4928, 403, 10, 31, "Input",ExpressionUUID->"792b5b38-c9c2-4aeb-a3c1-f604b019622b"],
Cell[CellGroupData[{
Cell[189067, 4942, 441, 12, 31, "Input",ExpressionUUID->"493e2d7f-a0fa-4447-a034-f54301d68b34"],
Cell[CellGroupData[{
Cell[189533, 4958, 503, 12, 24, "Print",ExpressionUUID->"8a5ec32c-ce9e-42f4-bdbd-6564e0fb7281"],
Cell[190039, 4972, 258, 4, 24, "Print",ExpressionUUID->"b577108e-e548-4c00-8fbd-42bfeea45921"],
Cell[190300, 4978, 440, 9, 24, "Print",ExpressionUUID->"d32c7d42-05f1-4f09-a4a0-818ba7faaa0f"],
Cell[190743, 4989, 291, 5, 24, "Print",ExpressionUUID->"933f33be-86b0-4387-be13-a65944b94ac7"],
Cell[191037, 4996, 768, 16, 24, "Print",ExpressionUUID->"85653527-27be-4220-b74a-051767b09216"],
Cell[191808, 5014, 371, 8, 24, "Print",ExpressionUUID->"b69e87e2-7771-46d8-964c-e9369243902f"]
}, Open  ]],
Cell[192194, 5025, 29894, 786, 189, "Output",ExpressionUUID->"25b9a8b4-254c-4157-bd83-7b584e3e875c"]
}, Open  ]],
Cell[222103, 5814, 182, 3, 35, "Text",ExpressionUUID->"a751ef31-da6e-4879-895f-7a35e3428ef2"],
Cell[CellGroupData[{
Cell[222310, 5821, 449, 14, 31, "Input",ExpressionUUID->"2a018274-5e6f-4420-bccb-031b97aded39"],
Cell[222762, 5837, 626, 12, 24, "Print",ExpressionUUID->"334e87c9-4252-4cc9-a7ac-2617823cbb0f"],
Cell[223391, 5851, 25745, 690, 533, "Output",ExpressionUUID->"9d4f3251-a1bd-4d92-8a62-8f49a3c05794"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249173, 6546, 355, 8, 31, "Input",ExpressionUUID->"7fbbf628-8230-4c3a-8d3d-e01aca0dd124"],
Cell[249531, 6556, 24159, 631, 533, "Output",ExpressionUUID->"2d6d55cf-523a-4931-8433-7d34103d0a0f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[273739, 7193, 212, 4, 39, "Subsection",ExpressionUUID->"44bd2bd5-c92e-4f5a-b2c0-2aaa3c513670"],
Cell[273954, 7199, 540, 12, 93, "Text",ExpressionUUID->"8012e7e9-d5fd-4218-be89-a52e130401da"],
Cell[CellGroupData[{
Cell[274519, 7215, 694, 14, 39, "Input",ExpressionUUID->"c4e3c4c6-947f-4622-94e4-3956e372f48c"],
Cell[CellGroupData[{
Cell[275238, 7233, 185, 4, 30, "Print",ExpressionUUID->"6fd019b7-fe5e-41da-b4d5-7d7c08339e67"],
Cell[275426, 7239, 408, 11, 30, "Print",ExpressionUUID->"eba9d290-2fe8-41f7-b3ae-d028e4124108"],
Cell[275837, 7252, 163, 3, 30, "Print",ExpressionUUID->"39f8fcdc-8ac2-4f23-ab6a-ca8bd347deba"],
Cell[276003, 7257, 345, 8, 30, "Print",ExpressionUUID->"26068711-abf9-42a1-b65a-51a2a77c099b"],
Cell[276351, 7267, 389, 9, 30, "Print",ExpressionUUID->"dbda856c-24f7-40d8-9923-77da05a643cd"],
Cell[276743, 7278, 196, 4, 30, "Print",ExpressionUUID->"a5e0fc81-6f03-4a24-a1ad-7554973f3a20"],
Cell[276942, 7284, 679, 15, 30, "Print",ExpressionUUID->"636bb010-1431-46f9-a55c-f33f99478e52"],
Cell[277624, 7301, 275, 6, 30, "Print",ExpressionUUID->"bed2ea70-76c4-4075-b9c7-2dee1624642f"],
Cell[277902, 7309, 633, 14, 30, "Print",ExpressionUUID->"b1a231ee-0764-4d1b-9ee2-f1687e3dada8"],
Cell[278538, 7325, 177, 3, 30, "Print",ExpressionUUID->"d373f064-530f-4efa-8ef8-0bab0a7b5f27"],
Cell[278718, 7330, 444, 12, 30, "Print",ExpressionUUID->"2cb0c055-a28c-4574-b57d-2e694fa71152"],
Cell[279165, 7344, 402, 11, 30, "Print",ExpressionUUID->"b3d28bdf-1102-4b3e-bbde-30a58aae5747"],
Cell[279570, 7357, 373, 7, 30, "Print",ExpressionUUID->"da08975b-e39b-49f2-8515-d308767a3a86"],
Cell[279946, 7366, 402, 11, 30, "Print",ExpressionUUID->"2ce5e037-b7e9-4f92-8a3b-47e3e39286dd"],
Cell[280351, 7379, 356, 8, 30, "Print",ExpressionUUID->"d54e6a93-8f6b-4061-99af-4ac8cf16039f"],
Cell[280710, 7389, 160, 3, 30, "Print",ExpressionUUID->"1a6f8ca3-bb08-48b2-928b-15a7f499f9ff"],
Cell[280873, 7394, 407, 11, 30, "Print",ExpressionUUID->"87a973db-332d-40cc-bfed-b71775f59fae"],
Cell[281283, 7407, 409, 11, 30, "Print",ExpressionUUID->"ec00051b-2100-4f4f-a9b1-a631132bd675"],
Cell[281695, 7420, 181, 3, 30, "Print",ExpressionUUID->"5918ca2d-0cfb-47d9-8df4-23e7f31e6cf8"],
Cell[281879, 7425, 375, 8, 30, "Print",ExpressionUUID->"cc50ec4a-7e44-48c0-a211-f1528905f7cf"],
Cell[282257, 7435, 538, 11, 30, "Print",ExpressionUUID->"a3c3da5f-e603-4e4d-91b8-fb82482fb5fe"],
Cell[282798, 7448, 156, 3, 30, "Print",ExpressionUUID->"a69eb6fc-7648-4845-b4f0-2c1fea175864"],
Cell[282957, 7453, 529, 12, 81, "Print",ExpressionUUID->"0fb19be5-daa0-43df-86ef-337a756a3616"],
Cell[283489, 7467, 141, 3, 30, "Print",ExpressionUUID->"63e9fc37-649d-4d0e-bbc9-bf388a83f21c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[283703, 7478, 574, 8, 54, "Section",ExpressionUUID->"f1e9cbd0-c5f5-4213-91e7-6614c43503b7"],
Cell[284280, 7488, 625, 13, 69, "Input",ExpressionUUID->"a74b312e-d3dd-4df5-a34b-d90455eb1ede"],
Cell[284908, 7503, 513, 11, 64, "Text",ExpressionUUID->"3200b1e5-c61d-47dd-ae11-192fde7c8756"],
Cell[285424, 7516, 2447, 47, 98, "Input",ExpressionUUID->"d54a8bd7-1be4-4724-aa37-d90efc53c0b9"],
Cell[287874, 7565, 1638, 35, 69, "Input",ExpressionUUID->"8582f134-6a65-42f5-817f-442cc2ea589e"],
Cell[CellGroupData[{
Cell[289537, 7604, 676, 19, 71, "Subsection",ExpressionUUID->"2900fc3f-7d26-4cde-8476-948941db76e3"],
Cell[290216, 7625, 591, 14, 158, "Input",ExpressionUUID->"e2b4e349-4851-41a9-9764-84be0d49ec34"],
Cell[CellGroupData[{
Cell[290832, 7643, 385, 11, 150, "Input",ExpressionUUID->"620c9793-5dd1-4198-b7bb-e94aee5f9f62"],
Cell[CellGroupData[{
Cell[291242, 7658, 294, 5, 108, "Print",ExpressionUUID->"88c6795a-274d-4247-aa07-295c0c4423cc"],
Cell[291539, 7665, 458, 10, 108, "Print",ExpressionUUID->"4d790ee9-1a20-4da5-adb6-7536692f852c"],
Cell[292000, 7677, 455, 9, 108, "Print",ExpressionUUID->"629e3faa-64cb-4a5b-8149-3cfc6b8ead4e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[292504, 7692, 1946, 38, 578, "Input",ExpressionUUID->"7620b1d3-cbfa-42ad-96e8-c15a2e830050"],
Cell[294453, 7732, 2385, 62, 272, "Output",ExpressionUUID->"9e0200c5-c98c-4ef0-aab4-24d19241d06f"],
Cell[296841, 7796, 2716, 73, 275, "Output",ExpressionUUID->"e32c75a8-2193-4221-b968-9bf99f6df866"],
Cell[299560, 7871, 3217, 89, 366, "Output",ExpressionUUID->"ac3f4e83-7f94-48d3-8b62-cc8cc43ec24c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302814, 7965, 1050, 28, 587, "Input",ExpressionUUID->"d5e19631-70bc-484b-adaf-aec64f831484"],
Cell[303867, 7995, 1507, 40, 272, "Output",ExpressionUUID->"a4280911-c4eb-4d68-bc92-e4eec1161287"],
Cell[305377, 8037, 2500, 69, 275, "Output",ExpressionUUID->"eab90755-70f9-4d39-aa1b-fa4365817ca1"],
Cell[307880, 8108, 2625, 77, 366, "Output",ExpressionUUID->"fcd0c235-b9a7-4315-bea0-c54df04861ff"]
}, Open  ]],
Cell[310520, 8188, 152, 3, 150, "Input",ExpressionUUID->"5032158e-c686-4b06-b08a-894cfc40cd19"],
Cell[310675, 8193, 434, 12, 150, "Input",ExpressionUUID->"fb933098-b0f6-49b1-a537-1388f6e90427"],
Cell[CellGroupData[{
Cell[311134, 8209, 1668, 34, 578, "Input",ExpressionUUID->"5b756f62-ea6a-4ff8-aee1-16f2b262a5f8"],
Cell[312805, 8245, 3382, 72, 277, "Output",ExpressionUUID->"e0c97172-94c2-4955-8e05-df95431809c7"],
Cell[316190, 8319, 4061, 91, 382, "Output",ExpressionUUID->"8019b515-9398-4428-8168-9a58c49bd0fa"],
Cell[320254, 8412, 4261, 102, 428, "Output",ExpressionUUID->"ee5783c0-e4f3-4f88-b11d-85db2776f5eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324552, 8519, 1046, 28, 587, "Input",ExpressionUUID->"822cdbd1-c65d-4cb7-a9f9-c10a464b6158"],
Cell[325601, 8549, 1428, 39, 277, "Output",ExpressionUUID->"a27f8ca2-f5ac-4549-9565-7eb84c25c5af"],
Cell[327032, 8590, 2106, 57, 282, "Output",ExpressionUUID->"8046183b-0929-4782-8d1e-004160c839e6"],
Cell[329141, 8649, 2309, 70, 413, "Output",ExpressionUUID->"f325bee0-7907-47fb-b763-0232782bd0ef"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[331499, 8725, 230, 4, 47, "Subsection",ExpressionUUID->"dccca1b7-c070-4426-bd77-fdccf9f25336"],
Cell[CellGroupData[{
Cell[331754, 8733, 754, 19, 158, "Input",ExpressionUUID->"0f2372c7-e8a2-4577-9a08-d0add110c8a5"],
Cell[332511, 8754, 3314, 93, 383, "Output",ExpressionUUID->"5542b313-12f4-4cbf-9c24-ffdedbb4b84d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[335862, 8852, 190, 4, 150, "Input",ExpressionUUID->"0e3c2ec2-99d8-4980-bdd7-3c555ccea1f1"],
Cell[336055, 8858, 458, 12, 277, "Output",ExpressionUUID->"aea69444-7d21-447f-b2fc-babd5a52309b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[336550, 8875, 684, 16, 168, "Input",ExpressionUUID->"19ac2af8-e620-424a-a0da-662bb26beadf"],
Cell[337237, 8893, 5895, 164, 806, "Output",ExpressionUUID->"41cbaec5-9feb-4ebf-9ad8-78ec22e04261"]
}, Open  ]],
Cell[343147, 9060, 255, 6, 158, "Text",ExpressionUUID->"99536040-e5c7-49c7-9e61-39c8b773d61f"],
Cell[CellGroupData[{
Cell[343427, 9070, 699, 18, 366, "Input",ExpressionUUID->"f150dc1a-55cc-41a6-a0fe-cb5a384e7722"],
Cell[344129, 9090, 1328, 37, 282, "Output",ExpressionUUID->"9ef38bb3-605f-46e9-b758-a4397eeff8a8"],
Cell[345460, 9129, 1803, 53, 382, "Output",ExpressionUUID->"b279fe75-ba8b-426b-9cf8-5a30a386215e"]
}, Open  ]],
Cell[347278, 9185, 563, 16, 168, "Text",ExpressionUUID->"dbe73921-c372-4df1-a7c5-aadd5f35e981"],
Cell[CellGroupData[{
Cell[347866, 9205, 567, 14, 258, "Input",ExpressionUUID->"868a5c71-a036-43ce-84cc-5e2a7aed83a1"],
Cell[348436, 9221, 1369, 39, 402, "Output",ExpressionUUID->"8920bd06-a434-41e2-aa04-1faea577b7d8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[349854, 9266, 529, 12, 47, "Subsection",ExpressionUUID->"09009831-4fe1-41d2-af7b-30ca0415f3f3"],
Cell[350386, 9280, 271, 8, 150, "Input",ExpressionUUID->"9e5acf37-8814-4ce1-a4ee-41717bcc47c9"],
Cell[CellGroupData[{
Cell[350682, 9292, 1011, 20, 150, "Input",ExpressionUUID->"8438ec3d-1833-432f-99cc-dbdfd8657eca"],
Cell[CellGroupData[{
Cell[351718, 9316, 501, 12, 108, "Print",ExpressionUUID->"2e91e535-c5b4-4f2c-9bc0-7213a77f650d"],
Cell[352222, 9330, 256, 4, 108, "Print",ExpressionUUID->"cbee1a60-5871-4e58-98b6-a1ba884f87cc"],
Cell[352481, 9336, 440, 9, 108, "Print",ExpressionUUID->"0a6bfba2-7adb-4ef9-8364-f5b4d18b6274"],
Cell[352924, 9347, 291, 5, 108, "Print",ExpressionUUID->"64b56ce8-052c-4426-9250-80c12f64274b"],
Cell[353218, 9354, 770, 16, 108, "Print",ExpressionUUID->"4f38d04b-378b-445c-85d9-3b3b6c0d5e57"],
Cell[353991, 9372, 369, 8, 108, "Print",ExpressionUUID->"6f09f1b3-3f95-4a69-b45e-6476cec4e798"]
}, Open  ]],
Cell[354375, 9383, 43492, 1059, 1243, "Output",ExpressionUUID->"a4cc2dac-d5fe-4d76-a893-a34014c7c8f8"]
}, Open  ]],
Cell[397882, 10445, 165, 3, 150, "Text",ExpressionUUID->"cb0fccbf-b240-4fca-9a1f-62013718f840"],
Cell[CellGroupData[{
Cell[398072, 10452, 1058, 24, 472, "Input",ExpressionUUID->"e9520123-f2c2-47d3-8479-68c655b8451f"],
Cell[399133, 10478, 2259, 62, 272, "Output",ExpressionUUID->"c9e4759c-fb99-4898-b95a-7e527fa2a6ed"],
Cell[401395, 10542, 2361, 65, 275, "Output",ExpressionUUID->"6313db45-cfb3-4730-84c8-1b0fb54f7527"],
Cell[403759, 10609, 2800, 79, 366, "Output",ExpressionUUID->"9d0f4392-179b-43f8-89ea-56ecfd304de4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[406608, 10694, 174, 3, 47, "Subsection",ExpressionUUID->"31eb39e4-18c9-4305-b4ca-c672ea32402d"],
Cell[406785, 10699, 403, 10, 150, "Input",ExpressionUUID->"33784723-cdcd-4ee0-88be-6b2694ed666c"],
Cell[CellGroupData[{
Cell[407213, 10713, 441, 12, 150, "Input",ExpressionUUID->"b57d68c4-27c6-4cfa-a828-2daed1dae3ca"],
Cell[CellGroupData[{
Cell[407679, 10729, 525, 12, 108, "Print",ExpressionUUID->"5e5be8cd-42ef-4199-806d-7a302c782018"],
Cell[408207, 10743, 280, 4, 108, "Print",ExpressionUUID->"30478451-f274-4741-8019-20e3265e909a"],
Cell[408490, 10749, 462, 9, 108, "Print",ExpressionUUID->"dc72867d-f8f1-4490-847f-8e097ba158db"],
Cell[408955, 10760, 315, 5, 108, "Print",ExpressionUUID->"e4ce735b-c631-467c-8bef-a80fdfea0952"],
Cell[409273, 10767, 792, 16, 108, "Print",ExpressionUUID->"f4a32d55-dac6-4a7b-b5fb-102443fb17a6"],
Cell[410068, 10785, 395, 8, 108, "Print",ExpressionUUID->"ef70e897-2ad6-4488-87b2-c8600ee04320"]
}, Open  ]],
Cell[410478, 10796, 29918, 786, 957, "Output",ExpressionUUID->"3a4986af-b998-4143-b314-7155453f7ccc"]
}, Open  ]],
Cell[440411, 11585, 182, 3, 150, "Text",ExpressionUUID->"b06eff71-5b20-462a-8027-60f77a4b37da"],
Cell[CellGroupData[{
Cell[440618, 11592, 449, 14, 150, "Input",ExpressionUUID->"d2b15297-e7df-4798-82ba-0b88b3ee535a"],
Cell[441070, 11608, 652, 13, 108, "Print",ExpressionUUID->"66bcaf6d-8baa-4022-b66e-1de480954a45"],
Cell[441725, 11623, 25771, 691, 2597, "Output",ExpressionUUID->"013f6af7-f881-4065-bb20-e2c062cfec5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[467533, 12319, 401, 9, 150, "Input",ExpressionUUID->"c0812ffd-bb82-4b70-8f54-71e6fe2d518e"],
Cell[467937, 12330, 24183, 631, 2813, "Output",ExpressionUUID->"2a0f6bc0-201a-4218-9e60-4c8ff9f6be20"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[492169, 12967, 212, 4, 47, "Subsection",ExpressionUUID->"240e5c9c-2d4a-4e24-9b2c-afbac9a8cad5"],
Cell[492384, 12973, 540, 12, 332, "Text",ExpressionUUID->"8678efa0-b3a9-40f7-b38c-fb7a1ebc418d"],
Cell[CellGroupData[{
Cell[492949, 12989, 737, 13, 150, "Input",ExpressionUUID->"5c345ef9-4d0e-4919-a43d-932715e29235"],
Cell[CellGroupData[{
Cell[493711, 13006, 185, 4, 108, "Print",ExpressionUUID->"7d728da9-6e9c-4800-955e-3f265fd2da16"],
Cell[493899, 13012, 408, 11, 108, "Print",ExpressionUUID->"b9ef4c16-b79c-4a95-b8f2-4e28b9d86ffc"],
Cell[494310, 13025, 163, 3, 108, "Print",ExpressionUUID->"d47d73ba-0801-4b3c-8722-87779213d4d5"],
Cell[494476, 13030, 345, 8, 108, "Print",ExpressionUUID->"9dd6538c-65f7-423b-b6e2-cbea69fb0879"],
Cell[494824, 13040, 389, 9, 108, "Print",ExpressionUUID->"4e0328e1-8eef-47ed-8921-c6c453513119"],
Cell[495216, 13051, 198, 4, 108, "Print",ExpressionUUID->"197fe36c-c31a-4f60-b079-861f6447515b"],
Cell[495417, 13057, 679, 15, 108, "Print",ExpressionUUID->"c02f57cc-1de2-4a8d-9437-d923c2f9fc5d"],
Cell[496099, 13074, 278, 7, 108, "Print",ExpressionUUID->"10af43bc-9bc9-4b3d-b1d1-3a3e95a254fd"],
Cell[496380, 13083, 633, 14, 108, "Print",ExpressionUUID->"fcab0251-bb9a-4f32-bc4e-74c9f61989aa"],
Cell[497016, 13099, 177, 3, 108, "Print",ExpressionUUID->"6adb94e2-a785-4a73-9307-522b483ea3d0"],
Cell[497196, 13104, 446, 12, 108, "Print",ExpressionUUID->"36fd6d0d-fe57-4898-9fee-15e8bcaf87b3"],
Cell[497645, 13118, 404, 11, 108, "Print",ExpressionUUID->"3eb90927-2c84-4568-bdb2-3d12bd445f4d"],
Cell[498052, 13131, 373, 7, 108, "Print",ExpressionUUID->"d626b3fe-fbb7-412c-a373-9b75e94f2604"],
Cell[498428, 13140, 402, 11, 108, "Print",ExpressionUUID->"8e33c496-6434-401d-a7ed-85442d1270bb"],
Cell[498833, 13153, 360, 8, 108, "Print",ExpressionUUID->"f0b6ad80-5b69-4d22-8194-175bd1c21a32"],
Cell[499196, 13163, 160, 3, 108, "Print",ExpressionUUID->"e913f8de-cd0f-4962-bedc-202e6787959b"],
Cell[499359, 13168, 407, 11, 108, "Print",ExpressionUUID->"b9b24574-30c1-40e7-a570-06fef9793207"],
Cell[499769, 13181, 184, 4, 108, "Print",ExpressionUUID->"6a72f63c-f4a9-42ca-a867-a30b00ca74da"],
Cell[499956, 13187, 377, 8, 108, "Print",ExpressionUUID->"238b5fd0-4604-4895-ba35-26afcb671abf"],
Cell[500336, 13197, 540, 11, 108, "Print",ExpressionUUID->"e4715056-5a21-4dd9-a560-48ac7a87fefb"],
Cell[500879, 13210, 156, 3, 108, "Print",ExpressionUUID->"31725dfe-2774-4d00-9464-cb37ca8cee90"],
Cell[501038, 13215, 529, 12, 296, "Print",ExpressionUUID->"4f75d5c2-c4d7-4390-b64a-1e59ca53d7cf"],
Cell[501570, 13229, 141, 3, 108, "Print",ExpressionUUID->"fbb53182-6f94-4ba3-b6b8-4460d2fb8588"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[501784, 13240, 650, 15, 54, "Section",ExpressionUUID->"4ba162d2-fcda-408a-bfb2-d3e238f0c227"],
Cell[502437, 13257, 575, 12, 55, "Input",ExpressionUUID->"efb56935-48fc-4b89-9b62-2d1a62b3b6f1"],
Cell[CellGroupData[{
Cell[503037, 13273, 2471, 47, 78, "Input",ExpressionUUID->"0db4a9de-35f4-4b6e-829a-9a7bd3f3473a"],
Cell[CellGroupData[{
Cell[505533, 13324, 240, 4, 25, "Print",ExpressionUUID->"1738bd40-c20e-4e6f-82b6-b1a2bbbd68d8"],
Cell[505776, 13330, 640, 14, 25, "Print",ExpressionUUID->"2de22f87-77e8-43e2-a549-ac15a55da1f4"],
Cell[506419, 13346, 245, 4, 25, "Print",ExpressionUUID->"7760b9f1-3d1c-405f-83d6-f62331f21e23"],
Cell[506667, 13352, 234, 4, 25, "Print",ExpressionUUID->"065d55b5-4b8f-41ad-abe9-831995e113df"],
Cell[506904, 13358, 353, 8, 25, "Print",ExpressionUUID->"5b4f811f-d815-4478-9b15-b37b2255c0b1"],
Cell[507260, 13368, 216, 4, 25, "Print",ExpressionUUID->"095f3d49-61e7-428e-b3d2-9ec1442f48d3"],
Cell[507479, 13374, 218, 3, 25, "Print",ExpressionUUID->"0e3d7e41-57cb-471b-b881-3273280d4cb3"],
Cell[507700, 13379, 248, 4, 25, "Print",ExpressionUUID->"d8fdfcc7-5754-4deb-97f2-eb6d0842ac6f"],
Cell[507951, 13385, 253, 5, 25, "Print",ExpressionUUID->"e931953c-b5d2-4d8c-a6c8-d96d9e6310fe"],
Cell[508207, 13392, 205, 4, 25, "Print",ExpressionUUID->"0877fcc5-86e4-417a-810c-399dbbd4f2ed"],
Cell[508415, 13398, 237, 4, 25, "Print",ExpressionUUID->"47c690e0-10d0-47bc-9d60-e88069900f79"],
Cell[508655, 13404, 240, 4, 25, "Print",ExpressionUUID->"7b4b6cdf-2b18-4de1-a842-a96527bb9d7d"],
Cell[508898, 13410, 236, 4, 25, "Print",ExpressionUUID->"4c95a2af-923a-4ed0-8243-c3fa29dcd871"],
Cell[509137, 13416, 409, 9, 48, "Print",ExpressionUUID->"37c94247-6636-4f52-a5df-1fec5adf67b1"]
}, Open  ]]
}, Open  ]],
Cell[509573, 13429, 1585, 34, 55, "Input",ExpressionUUID->"4949d193-0395-4575-96e7-67eea7388746"],
Cell[CellGroupData[{
Cell[511183, 13467, 701, 19, 58, "Subsection",ExpressionUUID->"0c50546d-c1b3-4a01-9fb8-fca20c2bda81"],
Cell[511887, 13488, 591, 14, 33, "Input",ExpressionUUID->"4b71800b-bc08-414a-a036-22fc6f8fb5dc"],
Cell[CellGroupData[{
Cell[512503, 13506, 385, 11, 31, "Input",ExpressionUUID->"3697c174-3af7-404a-aa8d-f85db6873eae"],
Cell[CellGroupData[{
Cell[512913, 13521, 245, 4, 25, "Print",ExpressionUUID->"0b6bc60c-6f97-458c-ba49-9cf671c2b6bd"],
Cell[513161, 13527, 411, 9, 25, "Print",ExpressionUUID->"e9fb3d64-2b17-4c2f-a394-508ea34d8f4f"],
Cell[513575, 13538, 409, 9, 25, "Print",ExpressionUUID->"778bb14a-5626-4adf-941c-15a5159f2187"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[514033, 13553, 1801, 36, 121, "Input",ExpressionUUID->"e01e295d-ef15-4212-8f41-3a0f29aaf660"],
Cell[515837, 13591, 2335, 61, 65, "Output",ExpressionUUID->"b21da2e7-5907-456e-9d68-9d2d8544d83c"],
Cell[518175, 13654, 3197, 86, 70, "Output",ExpressionUUID->"5edf089d-89de-4317-87c2-f9de1a391988"],
Cell[521375, 13742, 3602, 101, 82, "Output",ExpressionUUID->"e1093f29-923f-46bd-a82b-328c2362a858"]
}, Open  ]],
Cell[CellGroupData[{
Cell[525014, 13848, 905, 26, 122, "Input",ExpressionUUID->"1dcb4ae4-fc9e-4eca-93af-ae57a3f5f83e"],
Cell[525922, 13876, 1459, 40, 65, "Output",ExpressionUUID->"c04e5c5a-ad82-41ab-9bd1-a3a9bd9d31a7"],
Cell[527384, 13918, 1930, 56, 70, "Output",ExpressionUUID->"8c0c7be1-359b-45e4-9959-3db7a81dbda5"],
Cell[529317, 13976, 2619, 78, 82, "Output",ExpressionUUID->"d33e74ba-3d41-4272-925c-f471eff7018e"]
}, Open  ]],
Cell[531951, 14057, 152, 3, 31, "Input",ExpressionUUID->"2c296100-2306-485a-b612-a9ce33b4b723"],
Cell[532106, 14062, 434, 12, 31, "Input",ExpressionUUID->"66f6d084-4c3d-486f-95f9-2fa1f020cb3b"],
Cell[CellGroupData[{
Cell[532565, 14078, 1291, 25, 78, "Input",ExpressionUUID->"9a2027ca-5c3e-478e-a560-56393c8e0aa7"],
Cell[533859, 14105, 3280, 70, 67, "Output",ExpressionUUID->"5f136354-22be-4a04-b698-48aac22d0162"],
Cell[537142, 14177, 2516, 48, 40, "Output",ExpressionUUID->"2f518fef-13ff-46e6-8026-54ea7efd5c4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[539695, 14230, 901, 26, 122, "Input",ExpressionUUID->"6fe6eb08-c7da-4e63-aa5b-153754cede2b"],
Cell[540599, 14258, 1378, 38, 67, "Output",ExpressionUUID->"4201c85b-1d8d-468b-9071-9d1c9c537c0c"],
Cell[541980, 14298, 1056, 30, 65, "Output",ExpressionUUID->"d2107ed9-6bf4-402e-ac24-426ab3149b5f"],
Cell[543039, 14330, 927, 27, 62, "Output",ExpressionUUID->"5ea5d9c0-e154-4cc0-bf10-b17199989543"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[544015, 14363, 230, 4, 39, "Subsection",ExpressionUUID->"db108267-52ce-4b87-8257-b136f1c2d85b"],
Cell[CellGroupData[{
Cell[544270, 14371, 754, 19, 33, "Input",ExpressionUUID->"f4a2d807-ff40-43a7-9ecd-d144c33aa291"],
Cell[545027, 14392, 3243, 91, 69, "Output",ExpressionUUID->"a57cb975-2fda-412b-91d2-27e304f66a58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[548307, 14488, 190, 4, 31, "Input",ExpressionUUID->"992a156f-1ba3-43ac-a482-207654fda652"],
Cell[548500, 14494, 409, 10, 67, "Output",ExpressionUUID->"3b0166cf-f084-4035-ba12-a3dc00d23950"]
}, Open  ]],
Cell[CellGroupData[{
Cell[548946, 14509, 684, 16, 39, "Input",ExpressionUUID->"90542a25-f864-48db-a441-385b6364a9c5"],
Cell[549633, 14527, 5845, 163, 124, "Output",ExpressionUUID->"2d3c222c-7963-4dc2-82f7-cd3f03b10544"]
}, Open  ]],
Cell[555493, 14693, 255, 6, 37, "Text",ExpressionUUID->"4203f239-fa06-4871-94d6-eeb8a8621824"],
Cell[CellGroupData[{
Cell[555773, 14703, 554, 16, 75, "Input",ExpressionUUID->"ec8f8c0b-ce49-4df3-a541-07a9f407dd69"],
Cell[556330, 14721, 1091, 31, 69, "Output",ExpressionUUID->"10b2091a-42c1-46b9-a95d-5bb3d24ea67c"],
Cell[557424, 14754, 1408, 42, 77, "Output",ExpressionUUID->"78c5a737-60ea-42cb-9976-18fe4ed535b6"]
}, Open  ]],
Cell[558847, 14799, 563, 16, 39, "Text",ExpressionUUID->"6a646682-4e96-47e9-9c42-720f4bb8cf4b"],
Cell[CellGroupData[{
Cell[559435, 14819, 425, 12, 57, "Input",ExpressionUUID->"12db3362-37c1-4876-b41d-ef4875bbe4e2"],
Cell[559863, 14833, 1296, 38, 65, "Output",ExpressionUUID->"0ce18778-59c6-4e74-80a8-126fa4108a7f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[561208, 14877, 529, 12, 39, "Subsection",ExpressionUUID->"3ab3ce43-10a9-42c6-b5a0-55302eaa085a"],
Cell[561740, 14891, 271, 8, 31, "Input",ExpressionUUID->"33d7e7f9-0455-402a-a679-d3fe864dbd96"],
Cell[CellGroupData[{
Cell[562036, 14903, 1011, 20, 31, "Input",ExpressionUUID->"5192aad5-d567-4eff-aaf4-461f93cbb120"],
Cell[CellGroupData[{
Cell[563072, 14927, 452, 11, 25, "Print",ExpressionUUID->"aa00e2c5-38b8-4573-88d6-1b76118705ea"],
Cell[563527, 14940, 209, 3, 25, "Print",ExpressionUUID->"316e2a86-4598-4aa3-a93c-dc76d74140f2"],
Cell[563739, 14945, 389, 8, 25, "Print",ExpressionUUID->"f28dc19d-e64b-465b-9275-6dd8590eb7e4"],
Cell[564131, 14955, 242, 4, 25, "Print",ExpressionUUID->"f3e54edb-d23c-479c-85ab-495cb2f054e0"],
Cell[564376, 14961, 716, 15, 25, "Print",ExpressionUUID->"c7135858-57f6-46d3-af86-231445b863e2"],
Cell[565095, 14978, 320, 7, 25, "Print",ExpressionUUID->"2f450633-6995-41d2-9043-44f92d3d9dcf"]
}, Open  ]],
Cell[565430, 14988, 19400, 482, 251, "Output",ExpressionUUID->"b44b6fd8-1c77-423c-955b-66356a7a36ba"]
}, Open  ]],
Cell[584845, 15473, 165, 3, 35, "Text",ExpressionUUID->"56b59e56-378f-4b87-aadc-d62051711651"],
Cell[CellGroupData[{
Cell[585035, 15480, 915, 23, 98, "Input",ExpressionUUID->"cb67ca5a-e9ca-49bb-ad74-fc6aa2e276fa"],
Cell[585953, 15505, 1859, 51, 64, "Output",ExpressionUUID->"8fbb7acd-1dc9-44bf-b244-cd8c2c283bba"],
Cell[587815, 15558, 1605, 43, 67, "Output",ExpressionUUID->"16475bef-ffdc-42fa-b648-b99f517abdd0"],
Cell[589423, 15603, 1811, 50, 74, "Output",ExpressionUUID->"ad61cf2f-4890-42a2-9274-7bd15682fa5b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[591283, 15659, 174, 3, 39, "Subsection",ExpressionUUID->"093574c8-3027-4f22-9a45-af867d3183f3"],
Cell[591460, 15664, 403, 10, 31, "Input",ExpressionUUID->"bb950db0-26b9-4947-88eb-655e519598cc"],
Cell[CellGroupData[{
Cell[591888, 15678, 441, 12, 31, "Input",ExpressionUUID->"328f3d43-6261-4815-96f0-ac994999197f"],
Cell[CellGroupData[{
Cell[592354, 15694, 481, 12, 25, "Print",ExpressionUUID->"2c0607a9-f557-4038-896f-b549aea212c9"],
Cell[592838, 15708, 236, 4, 25, "Print",ExpressionUUID->"ec4b3533-e54f-4c95-aa72-b31e5b39808f"],
Cell[593077, 15714, 420, 9, 25, "Print",ExpressionUUID->"84498a12-23a0-4012-9ba2-120b76e5de8c"],
Cell[593500, 15725, 271, 5, 25, "Print",ExpressionUUID->"617aa8ff-5918-4c1f-bbc4-3eade645b04e"],
Cell[593774, 15732, 745, 16, 25, "Print",ExpressionUUID->"2964c299-6da9-4139-a7c0-39dee3818284"],
Cell[594522, 15750, 348, 8, 25, "Print",ExpressionUUID->"72f949f7-b8a8-46c5-b5cc-b7396534f5f4"]
}, Open  ]],
Cell[594885, 15761, 29381, 771, 195, "Output",ExpressionUUID->"dfcd1cd5-a18c-4418-ae01-999642149887"]
}, Open  ]],
Cell[624281, 16535, 182, 3, 35, "Text",ExpressionUUID->"05dd6b37-046f-40bb-8128-180e19ecc071"],
Cell[CellGroupData[{
Cell[624488, 16542, 449, 14, 31, "Input",ExpressionUUID->"b4b9e441-6d41-4840-814b-0644702b2f8e"],
Cell[624940, 16558, 600, 12, 25, "Print",ExpressionUUID->"eac60e11-cae0-4bff-81b9-398fbf5dbb76"],
Cell[625543, 16572, 14738, 397, 193, "Output",ExpressionUUID->"5ae4c482-6246-4bf3-bcd1-19b7f523cebd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[640318, 16974, 260, 7, 31, "Input",ExpressionUUID->"6deef87e-8e03-4c86-9372-8ba5bb8a5d5b"],
Cell[640581, 16983, 11136, 279, 193, "Output",ExpressionUUID->"cd99707a-6d81-4c56-9c5a-1b8a859f29ac"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[651766, 17268, 212, 4, 39, "Subsection",ExpressionUUID->"ac7f6f8c-a544-4c84-b446-59f16536fb38"],
Cell[CellGroupData[{
Cell[652003, 17276, 588, 11, 31, "Input",ExpressionUUID->"5d953327-d798-46bf-add0-6d5f63509d72"],
Cell[CellGroupData[{
Cell[652616, 17291, 207, 4, 25, "Print",ExpressionUUID->"524902a5-dd61-4c0a-a03c-856557c9c31f"],
Cell[652826, 17297, 430, 11, 25, "Print",ExpressionUUID->"88b2675b-8c0b-4045-b036-97c33df11709"],
Cell[653259, 17310, 185, 3, 25, "Print",ExpressionUUID->"808a5ec1-e449-49c1-9f63-6de7cba91f6e"],
Cell[653447, 17315, 367, 8, 25, "Print",ExpressionUUID->"b109ea8e-ba3d-4203-9226-f19a753e7d07"],
Cell[653817, 17325, 218, 4, 25, "Print",ExpressionUUID->"49de0e79-0e3e-44f1-b1fe-4b63798cd389"],
Cell[654038, 17331, 699, 15, 25, "Print",ExpressionUUID->"0cd21141-e215-409a-b82f-252bfc7becda"],
Cell[654740, 17348, 300, 7, 25, "Print",ExpressionUUID->"9aafa6e2-e421-4452-a3f5-63a8005b3aed"],
Cell[655043, 17357, 654, 14, 25, "Print",ExpressionUUID->"c63a281d-58e9-443e-a4b3-4d11d1c9c0d0"],
Cell[655700, 17373, 199, 3, 25, "Print",ExpressionUUID->"6d1f2c8e-5f9f-4403-b5e2-0957582bdded"],
Cell[655902, 17378, 468, 12, 25, "Print",ExpressionUUID->"b2508315-1672-493a-933c-a173049e8818"],
Cell[656373, 17392, 422, 11, 25, "Print",ExpressionUUID->"b64756d8-cd1c-46b8-98a3-e084e896e808"],
Cell[656798, 17405, 396, 8, 25, "Print",ExpressionUUID->"3c1fd219-40ef-4d97-8768-0fc5401e4920"],
Cell[657197, 17415, 420, 11, 25, "Print",ExpressionUUID->"05ecc6b9-d890-4075-b4e7-3da100868687"],
Cell[657620, 17428, 378, 8, 25, "Print",ExpressionUUID->"d3885147-1a49-4add-8e80-bef56a81ea7b"],
Cell[658001, 17438, 184, 3, 25, "Print",ExpressionUUID->"1d1435d5-bd27-4981-8fbb-156f55b2ca2e"],
Cell[658188, 17443, 206, 4, 25, "Print",ExpressionUUID->"c529f57c-a13a-4b2f-ac23-b71e4f0262f2"],
Cell[658397, 17449, 397, 8, 25, "Print",ExpressionUUID->"8d23e792-d853-4a17-8cdd-6a2b7b2dfa31"],
Cell[658797, 17459, 556, 11, 25, "Print",ExpressionUUID->"729d3ed9-3176-4fa1-88d3-af58398f2e02"],
Cell[659356, 17472, 180, 3, 25, "Print",ExpressionUUID->"77a8998d-cf8d-4fcd-a281-ff02eeeb9930"],
Cell[659539, 17477, 551, 12, 70, "Print",ExpressionUUID->"4a26ee14-6997-4bb7-bae5-e016bd0b10be"],
Cell[660093, 17491, 163, 3, 25, "Print",ExpressionUUID->"65a6f6f0-80e0-48af-a82e-16f75f5ac7ca"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[660329, 17502, 647, 15, 54, "Section",ExpressionUUID->"2d9260f1-7479-4ba5-9d73-4cb250643e6b"],
Cell[660979, 17519, 591, 13, 55, "Input",ExpressionUUID->"b66fa53c-daf2-4c11-9ea9-eb24ee0ee8a2"],
Cell[CellGroupData[{
Cell[661595, 17536, 2449, 47, 78, "Input",ExpressionUUID->"4abf663d-b373-4948-8887-6ec30767134e"],
Cell[CellGroupData[{
Cell[664069, 17587, 190, 2, 25, "Print",ExpressionUUID->"c6705020-afb3-4dd1-bfbe-dba7d6fb10f5"],
Cell[664262, 17591, 630, 15, 25, "Print",ExpressionUUID->"bedb4d7c-1bef-4d05-8075-feac9cdae15e"],
Cell[664895, 17608, 198, 3, 25, "Print",ExpressionUUID->"1cb1ef46-4e0c-46cb-b9bb-b376f44ffffe"],
Cell[665096, 17613, 187, 3, 25, "Print",ExpressionUUID->"e5ee3e43-b50c-477e-99a2-bbf9d618dbe0"],
Cell[665286, 17618, 304, 7, 25, "Print",ExpressionUUID->"d0f7cc9f-1041-419a-a612-3669f3ca3ef7"],
Cell[665593, 17627, 169, 3, 25, "Print",ExpressionUUID->"3a6ef98c-d6bc-4e37-b45a-d311fc82ac45"],
Cell[665765, 17632, 174, 3, 25, "Print",ExpressionUUID->"57bd99e3-edf5-4b87-b146-6723f166d6ab"],
Cell[665942, 17637, 203, 3, 25, "Print",ExpressionUUID->"8b654083-6f2f-4e68-9ab4-e30db00123b5"],
Cell[666148, 17642, 206, 4, 25, "Print",ExpressionUUID->"a9f6bd15-1da7-4f71-8204-9a81dcce4845"],
Cell[666357, 17648, 158, 3, 25, "Print",ExpressionUUID->"33ffb23a-f3e5-429a-8ca2-d665c31337f5"],
Cell[666518, 17653, 188, 3, 25, "Print",ExpressionUUID->"1a03eaa9-bec4-452f-acaa-460a124a68e1"],
Cell[666709, 17658, 191, 3, 25, "Print",ExpressionUUID->"da24c10f-a287-48af-a37d-6d828bc9b35a"],
Cell[666903, 17663, 189, 3, 25, "Print",ExpressionUUID->"ffaf3889-a11f-49b3-ba66-acb93543fd91"],
Cell[667095, 17668, 362, 8, 48, "Print",ExpressionUUID->"a511ea96-fa57-44c9-8bc4-9a7b8e8bb510"]
}, Open  ]]
}, Open  ]],
Cell[667484, 17680, 1585, 34, 55, "Input",ExpressionUUID->"d8121a6f-3cad-4d93-b5bd-184be025ceb2"],
Cell[CellGroupData[{
Cell[669094, 17718, 676, 19, 58, "Subsection",ExpressionUUID->"da7aca8f-5ff2-4ac5-b4ac-426f93a9e269"],
Cell[669773, 17739, 591, 14, 33, "Input",ExpressionUUID->"d38da7be-c5b0-4382-9aad-a314c37d4d90"],
Cell[CellGroupData[{
Cell[670389, 17757, 385, 11, 31, "Input",ExpressionUUID->"2cb79f04-a2d5-4b48-be08-ad29bac9444a"],
Cell[CellGroupData[{
Cell[670799, 17772, 267, 4, 25, "Print",ExpressionUUID->"37ed4f39-6df0-4b02-b19c-e7822342c8a3"],
Cell[671069, 17778, 433, 9, 25, "Print",ExpressionUUID->"56245639-6605-43ff-9a04-af8496eaa3d2"],
Cell[671505, 17789, 428, 8, 25, "Print",ExpressionUUID->"0562b896-63a1-430e-be54-c7119e6f2d50"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[671982, 17803, 1848, 37, 121, "Input",ExpressionUUID->"8cdf3438-31d9-403c-8d4c-511890c5b98f"],
Cell[673833, 17842, 2361, 62, 65, "Output",ExpressionUUID->"61720b74-9f1b-4f77-aa6b-6609fe09aa3b"],
Cell[676197, 17906, 2534, 68, 67, "Output",ExpressionUUID->"67b47466-0e43-4768-855c-f0e6ce5983df"],
Cell[678734, 17976, 2864, 79, 74, "Output",ExpressionUUID->"a4f1b857-58dc-4347-bb91-3b4c1a2b92ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[681635, 18060, 953, 27, 122, "Input",ExpressionUUID->"d92b2f3c-8fe7-4b17-82db-57bc6f21d612"],
Cell[682591, 18089, 1481, 40, 65, "Output",ExpressionUUID->"e9e5386c-f574-43ad-a661-347ff2f8599c"],
Cell[684075, 18131, 2250, 62, 67, "Output",ExpressionUUID->"833f53da-c00f-4ca7-b2ef-85ed4adbaa95"],
Cell[686328, 18195, 2280, 67, 83, "Output",ExpressionUUID->"bbd4eadb-288f-485c-8b5b-57584242389e"]
}, Open  ]],
Cell[688623, 18265, 152, 3, 31, "Input",ExpressionUUID->"1acac1b7-3bb3-4160-84fb-106a33151bc4"],
Cell[688778, 18270, 434, 12, 31, "Input",ExpressionUUID->"1c853cd4-ff9d-4d3a-aad1-3726a15729c7"],
Cell[CellGroupData[{
Cell[689237, 18286, 1570, 33, 121, "Input",ExpressionUUID->"741599c4-7b04-4558-b0a3-301129b4eb83"],
Cell[690810, 18321, 3334, 71, 67, "Output",ExpressionUUID->"c2248327-b512-4dd3-a344-9c8116778bb1"],
Cell[694147, 18394, 3814, 84, 69, "Output",ExpressionUUID->"7f59d699-8db2-48a4-a9ae-6ae48d87921e"],
Cell[697964, 18480, 3902, 91, 66, "Output",ExpressionUUID->"90226dca-91a1-4958-9353-4498deb9a429"]
}, Open  ]],
Cell[CellGroupData[{
Cell[701903, 18576, 947, 27, 122, "Input",ExpressionUUID->"5a704735-947a-4111-9360-569a3ed54f31"],
Cell[702853, 18605, 1403, 39, 67, "Output",ExpressionUUID->"865b92e0-edb6-4e31-a8e9-13ea43b9b57a"],
Cell[704259, 18646, 1897, 52, 69, "Output",ExpressionUUID->"f41d64e9-814a-4e2f-9d97-38607bbfd593"],
Cell[706159, 18700, 1971, 60, 66, "Output",ExpressionUUID->"19aff24d-e1a1-4397-ad95-def9af12ef2e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[708179, 18766, 170, 2, 39, "Subsection",ExpressionUUID->"bb452cb1-90e8-4d21-a6a1-be0c906b6138"],
Cell[CellGroupData[{
Cell[708374, 18772, 754, 19, 33, "Input",ExpressionUUID->"c4dfb7cd-bc8c-4bd7-9073-928d9428d08a"],
Cell[709131, 18793, 3265, 91, 69, "Output",ExpressionUUID->"92329e6c-0115-4967-bcda-b9a502a8da3e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[712433, 18889, 190, 4, 31, "Input",ExpressionUUID->"57aef484-bcba-42a4-9443-0a242a6dcd77"],
Cell[712626, 18895, 436, 11, 67, "Output",ExpressionUUID->"776446d5-a2ac-4d35-9015-49d0c9536de9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[713099, 18911, 684, 16, 39, "Input",ExpressionUUID->"c8f651ab-9215-440c-b819-5c00288aceb5"],
Cell[713786, 18929, 5873, 164, 124, "Output",ExpressionUUID->"f7ccc77e-61ad-487b-af92-1175735b9a01"]
}, Open  ]],
Cell[719674, 19096, 195, 4, 37, "Text",ExpressionUUID->"8912e739-e794-4794-a5fc-1ee44a8e1f8d"],
Cell[CellGroupData[{
Cell[719894, 19104, 602, 17, 75, "Input",ExpressionUUID->"ca4e339a-c206-4c6b-b86f-4a3f455bb65b"],
Cell[720499, 19123, 1141, 32, 69, "Output",ExpressionUUID->"21232009-6990-4351-b600-bf76859f9d5b"],
Cell[721643, 19157, 1458, 43, 77, "Output",ExpressionUUID->"25beed71-b4f7-46f3-a44b-4fc6452cda5d"]
}, Open  ]],
Cell[723116, 19203, 503, 14, 39, "Text",ExpressionUUID->"89d2afa0-d588-4ddd-be89-22d65f121985"],
Cell[CellGroupData[{
Cell[723644, 19221, 469, 12, 57, "Input",ExpressionUUID->"71b4a871-4662-4892-8724-43f5b3801af7"],
Cell[724116, 19235, 1320, 39, 65, "Output",ExpressionUUID->"18e03327-6841-4bfe-a33a-3594c060d67f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[725485, 19280, 529, 12, 39, "Subsection",ExpressionUUID->"910851a8-1951-472b-b9fd-714bfa29aaee"],
Cell[726017, 19294, 271, 8, 31, "Input",ExpressionUUID->"17eca746-15e8-4279-b473-98e11f70fe60"],
Cell[CellGroupData[{
Cell[726313, 19306, 1011, 20, 31, "Input",ExpressionUUID->"6f0a0c5a-5296-4b29-a918-f9bb4ea11a12"],
Cell[CellGroupData[{
Cell[727349, 19330, 477, 12, 25, "Print",ExpressionUUID->"95466fc9-09bb-47f8-b94c-34883bce6a33"],
Cell[727829, 19344, 232, 4, 25, "Print",ExpressionUUID->"9de6660d-20bf-4088-8958-8c1ace8be251"],
Cell[728064, 19350, 414, 9, 25, "Print",ExpressionUUID->"4c0e9376-542a-4591-8892-0a300e73a892"],
Cell[728481, 19361, 265, 5, 25, "Print",ExpressionUUID->"d6461c55-f1bf-45d1-933d-18caa7955cf3"],
Cell[728749, 19368, 741, 16, 25, "Print",ExpressionUUID->"01890382-bf44-4a1d-9fb9-ba239878e20e"],
Cell[729493, 19386, 345, 8, 25, "Print",ExpressionUUID->"9a4cd6c7-b8f0-46dc-9f0e-cdf242aa9715"]
}, Open  ]],
Cell[729853, 19397, 19425, 483, 251, "Output",ExpressionUUID->"62f51c5b-3b9f-4ac8-9915-01abb7bb8b27"]
}, Open  ]],
Cell[749293, 19883, 105, 1, 35, "Text",ExpressionUUID->"c69b8076-c40b-449d-a3c2-d3c753445c15"],
Cell[CellGroupData[{
Cell[749423, 19888, 959, 23, 98, "Input",ExpressionUUID->"956548b5-e5ca-4d41-bf0b-2ddfda57957b"],
Cell[750385, 19913, 1881, 51, 64, "Output",ExpressionUUID->"f8ca07e0-7d7b-47e8-8408-a0bb4aaff893"],
Cell[752269, 19966, 1626, 43, 67, "Output",ExpressionUUID->"2ad48f67-3d67-49ef-9332-b7d25c1b9691"],
Cell[753898, 20011, 1835, 50, 74, "Output",ExpressionUUID->"cf12f7a9-3181-4243-a52d-846f9c2a29d9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[755782, 20067, 114, 1, 39, "Subsection",ExpressionUUID->"8d930718-bacb-45c1-b791-4d2595d7ee00"],
Cell[755899, 20070, 403, 10, 31, "Input",ExpressionUUID->"f6406d70-e063-4ce0-a098-aa416939fcbb"],
Cell[CellGroupData[{
Cell[756327, 20084, 441, 12, 31, "Input",ExpressionUUID->"4ac2a7d3-017e-4ba5-b3c5-d43cadb35fa0"],
Cell[CellGroupData[{
Cell[756793, 20100, 502, 12, 25, "Print",ExpressionUUID->"bdc1df9f-0c98-4814-977b-e588ee7a975d"],
Cell[757298, 20114, 257, 4, 25, "Print",ExpressionUUID->"fefb21d1-8718-43e8-a983-f009db858a3c"],
Cell[757558, 20120, 440, 9, 25, "Print",ExpressionUUID->"8e8adfd9-341e-486e-b168-0a8fcd092dd2"],
Cell[758001, 20131, 291, 5, 25, "Print",ExpressionUUID->"5a478d47-e91b-40d6-8282-67698dfa94a7"],
Cell[758295, 20138, 767, 16, 25, "Print",ExpressionUUID->"0bb7fb20-6637-4207-a982-b711bb2d1939"],
Cell[759065, 20156, 373, 8, 25, "Print",ExpressionUUID->"b0949438-bf90-44a6-bc86-7c7bd1bce09d"]
}, Open  ]],
Cell[759453, 20167, 29407, 771, 195, "Output",ExpressionUUID->"db154988-6746-400b-a15e-6b48bfc73c99"]
}, Open  ]],
Cell[788875, 20941, 122, 1, 35, "Text",ExpressionUUID->"4ebea653-e5a6-45ee-b018-d10176c3647f"],
Cell[CellGroupData[{
Cell[789022, 20946, 449, 14, 31, "Input",ExpressionUUID->"f61e1c1b-cb8f-4ba2-ab75-bb76fc7a164f"],
Cell[789474, 20962, 622, 12, 25, "Print",ExpressionUUID->"6cdf3004-e094-44eb-b573-2d59c188b8e2"],
Cell[790099, 20976, 14764, 397, 193, "Output",ExpressionUUID->"9c8394cc-566b-43e9-b5af-e5b5668bef32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[804900, 21378, 306, 8, 31, "Input",ExpressionUUID->"a4f57594-b9d7-4b32-8d49-158e60dedf59"],
Cell[805209, 21388, 11162, 280, 193, "Output",ExpressionUUID->"fab299a7-4e33-4034-b07d-42c249da137e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[816420, 21674, 149, 2, 39, "Subsection",ExpressionUUID->"361780bf-72f8-4321-9932-31bab05f6e92"],
Cell[CellGroupData[{
Cell[816594, 21680, 634, 12, 31, "Input",ExpressionUUID->"9a0fa36d-43ea-4879-b04c-fa56f0e61e8b"],
Cell[CellGroupData[{
Cell[817253, 21696, 211, 4, 25, "Print",ExpressionUUID->"fe58ae2a-0a00-4299-a7cd-5b62d48fa2a3"],
Cell[817467, 21702, 432, 11, 25, "Print",ExpressionUUID->"f509e0f3-3391-45ca-9121-afd085715afa"],
Cell[817902, 21715, 184, 2, 25, "Print",ExpressionUUID->"b3995345-bacc-4086-80e9-430553272a59"],
Cell[818089, 21719, 369, 8, 25, "Print",ExpressionUUID->"fdd6d819-4417-4d2f-8dc8-b5e84b79adb4"],
Cell[818461, 21729, 222, 4, 25, "Print",ExpressionUUID->"1f2193ab-443a-4270-b47f-039f26eb4c88"],
Cell[818686, 21735, 701, 15, 25, "Print",ExpressionUUID->"dce2c62e-85f8-4718-9682-43973eae23b5"],
Cell[819390, 21752, 302, 7, 25, "Print",ExpressionUUID->"e412859f-ef88-4675-b78b-1212f914ff4d"],
Cell[819695, 21761, 656, 14, 25, "Print",ExpressionUUID->"6a934348-38da-49b4-9ee8-6c8cdfadb4ba"],
Cell[820354, 21777, 201, 3, 25, "Print",ExpressionUUID->"560cedcc-f621-4d7b-828c-94a83e4afdfd"],
Cell[820558, 21782, 468, 12, 25, "Print",ExpressionUUID->"3f113df1-b12b-494f-a060-e52987a926e1"],
Cell[821029, 21796, 422, 11, 25, "Print",ExpressionUUID->"4be6fbc1-0872-4bfd-b616-09128544de59"],
Cell[821454, 21809, 398, 8, 25, "Print",ExpressionUUID->"d8a7e57c-72d7-4b1b-b52c-4acea451b74e"],
Cell[821855, 21819, 424, 11, 25, "Print",ExpressionUUID->"6a0a4864-bf59-4ca4-928a-c24e752cd305"],
Cell[822282, 21832, 378, 8, 25, "Print",ExpressionUUID->"1853c9ec-5b85-4028-9864-c9e559d7d17c"],
Cell[822663, 21842, 184, 3, 25, "Print",ExpressionUUID->"0f71ffac-d503-4cfd-8fec-aab8232ee751"],
Cell[822850, 21847, 210, 4, 25, "Print",ExpressionUUID->"5a2d8c71-0f8d-44e4-b3e0-2099d6976b7e"],
Cell[823063, 21853, 399, 8, 25, "Print",ExpressionUUID->"ced99ad0-a956-4681-9161-e7b7c3558b11"],
Cell[823465, 21863, 560, 11, 25, "Print",ExpressionUUID->"2a05df8b-f65a-4c9e-90fd-7a57dd319371"],
Cell[824028, 21876, 177, 2, 25, "Print",ExpressionUUID->"c0840fe8-5355-4dea-b2fd-92806bf20485"],
Cell[824208, 21880, 553, 12, 70, "Print",ExpressionUUID->"9c6dff32-4582-4748-b4e4-e49af40b4f7b"],
Cell[824764, 21894, 165, 3, 25, "Print",ExpressionUUID->"e893785c-29d4-41f1-aacd-5d2c394190ce"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[825002, 21905, 568, 8, 54, "Section",ExpressionUUID->"dff18824-64fe-402e-a2b6-ffdd05487f84"],
Cell[825573, 21915, 624, 13, 55, "Input",ExpressionUUID->"fffc0f3d-e195-4db5-9b42-fe30696ea923"],
Cell[CellGroupData[{
Cell[826222, 21932, 2447, 47, 78, "Input",ExpressionUUID->"c96967fe-d0ce-4def-9de2-967cfa4f2c84"],
Cell[CellGroupData[{
Cell[828694, 21983, 180, 3, 25, "Print",ExpressionUUID->"9871ae34-7d47-499b-b8f6-2767c6244486"],
Cell[828877, 21988, 593, 13, 25, "Print",ExpressionUUID->"621a76ce-3ad5-48ff-aeee-05184d1f5cb5"],
Cell[829473, 22003, 200, 3, 25, "Print",ExpressionUUID->"e9bae040-672c-46ca-885d-f8d852cd8006"],
Cell[829676, 22008, 189, 3, 25, "Print",ExpressionUUID->"1ac0528a-9197-4eee-a030-ddf20308ae0c"],
Cell[829868, 22013, 304, 7, 25, "Print",ExpressionUUID->"e99aa4aa-410c-4ac9-89f9-b0113d8dd468"],
Cell[830175, 22022, 169, 3, 25, "Print",ExpressionUUID->"f6c609b0-fbbd-4007-9e74-c22cb884ddc9"],
Cell[830347, 22027, 176, 3, 25, "Print",ExpressionUUID->"b584af75-12d7-4525-8c88-e7c83d3e492a"],
Cell[830526, 22032, 201, 3, 25, "Print",ExpressionUUID->"c932331d-9277-4f50-869e-6eacd129644b"],
Cell[830730, 22037, 206, 4, 25, "Print",ExpressionUUID->"acb1057f-b5b6-436f-bb1c-c0cbc406a53a"],
Cell[830939, 22043, 155, 2, 25, "Print",ExpressionUUID->"f343e017-8731-48df-baf6-22f4a668f317"],
Cell[831097, 22047, 188, 3, 25, "Print",ExpressionUUID->"e01db5e8-91cd-4c7b-9c32-8eff4fffaf00"],
Cell[831288, 22052, 193, 3, 25, "Print",ExpressionUUID->"70b9a06c-b121-4f7e-8a65-03d28c1475ca"],
Cell[831484, 22057, 191, 3, 25, "Print",ExpressionUUID->"dee15fcd-0aa5-44f8-8afa-ea2e5acb9ab6"],
Cell[831678, 22062, 359, 7, 48, "Print",ExpressionUUID->"1a58d854-59cf-4b03-ad20-ca69c77febc4"]
}, Open  ]]
}, Open  ]],
Cell[832064, 22073, 1574, 34, 55, "Input",ExpressionUUID->"3b334ef7-fec0-44dd-baaf-30b43ebbdc21"],
Cell[CellGroupData[{
Cell[833663, 22111, 566, 17, 58, "Subsection",ExpressionUUID->"d7f51e85-b244-4e02-bbdf-c79efb3815fd"],
Cell[834232, 22130, 522, 11, 31, "Input",ExpressionUUID->"b64a72d8-cd0b-46cf-ab1f-2d15f02058f7"],
Cell[CellGroupData[{
Cell[834779, 22145, 385, 11, 31, "Input",ExpressionUUID->"e4f2da7e-ab0c-42b3-b480-8274c60b7576"],
Cell[CellGroupData[{
Cell[835189, 22160, 264, 3, 25, "Print",ExpressionUUID->"ac9873ce-1826-4945-bbe3-eaf6b6a12f79"],
Cell[835456, 22165, 433, 9, 25, "Print",ExpressionUUID->"0b8cc4d1-cf59-4340-90e5-a8b14c334e61"],
Cell[835892, 22176, 431, 9, 25, "Print",ExpressionUUID->"9484a446-b4e6-43ce-982b-8bab9f4f93ae"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[836372, 22191, 1801, 36, 121, "Input",ExpressionUUID->"0646bcf0-e2c3-48ad-99b1-16feea6b5f9e"],
Cell[838176, 22229, 2361, 62, 65, "Output",ExpressionUUID->"2c969cc3-8325-4339-b0fb-19ffa6d99d4d"],
Cell[840540, 22293, 3223, 87, 70, "Output",ExpressionUUID->"d0b24693-b490-4bf2-8c24-1fb40eb65870"],
Cell[843766, 22382, 3628, 102, 82, "Output",ExpressionUUID->"3600052c-2748-4e90-a1f9-3ca2e60228a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[847431, 22489, 905, 26, 122, "Input",ExpressionUUID->"f4980fd6-ea42-4d15-8ae6-4f5314e10508"],
Cell[848339, 22517, 1481, 40, 65, "Output",ExpressionUUID->"7d60860e-b7a8-4a97-83cc-60c42b341b73"],
Cell[849823, 22559, 1954, 56, 70, "Output",ExpressionUUID->"5395b4f2-1183-453f-90ca-d4dee311aaee"],
Cell[851780, 22617, 2642, 78, 82, "Output",ExpressionUUID->"7fed0cfe-dc93-4b40-9ebb-974d879698fb"]
}, Open  ]],
Cell[854437, 22698, 152, 3, 31, "Input",ExpressionUUID->"b9f9880a-8747-4371-9cd2-a83ae65c4142"],
Cell[854592, 22703, 434, 12, 31, "Input",ExpressionUUID->"191d3bc4-eea9-4e3a-8e0a-b2107197a77b"],
Cell[CellGroupData[{
Cell[855051, 22719, 1291, 25, 78, "Input",ExpressionUUID->"07590436-e350-4503-b484-c7316c8eadb3"],
Cell[856345, 22746, 3308, 71, 67, "Output",ExpressionUUID->"ada966bb-c6cf-46f8-8bd5-7b8244de6740"],
Cell[859656, 22819, 2544, 49, 40, "Output",ExpressionUUID->"0f2a2f73-7aab-4ab5-b863-2c74130402cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[862237, 22873, 901, 26, 122, "Input",ExpressionUUID->"c51cb444-efd9-4b66-a54c-65cec7c0eeda"],
Cell[863141, 22901, 1408, 39, 67, "Output",ExpressionUUID->"9bed9348-e530-4b9f-9345-0b3b965b5513"],
Cell[864552, 22942, 1084, 31, 65, "Output",ExpressionUUID->"76b4b571-a50e-468b-9485-16fd645b522f"],
Cell[865639, 22975, 955, 28, 62, "Output",ExpressionUUID->"c3c86c78-c430-42ff-823c-c7e36701aa97"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[866643, 23009, 212, 3, 39, "Subsection",ExpressionUUID->"da0cc891-436c-4c15-8ef5-eaf946465a26"],
Cell[CellGroupData[{
Cell[866880, 23016, 682, 16, 150, "Input",ExpressionUUID->"eb669595-383a-47d0-93fb-d6ab3f503353"],
Cell[867565, 23034, 3264, 91, 70, "Output",ExpressionUUID->"75cee970-0bd3-4256-9cdc-62ea5dd43d1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[870866, 23130, 190, 4, 150, "Input",ExpressionUUID->"8b188c78-d7e1-417e-95d0-341977fb02a0"],
Cell[871059, 23136, 434, 11, 70, "Output",ExpressionUUID->"f530183e-92e4-476f-b2b0-3d4fe26e5f64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[871530, 23152, 684, 16, 168, "Input",ExpressionUUID->"cc5d8ea1-51f8-4072-ac64-be73d58c6c44"],
Cell[872217, 23170, 5871, 164, 70, "Output",ExpressionUUID->"e0a67780-11b8-4e08-8da3-168e5ec295ac"]
}, Open  ]],
Cell[878103, 23337, 246, 5, 158, "Text",ExpressionUUID->"f0600255-46b3-495d-a466-fb9950e91061"],
Cell[CellGroupData[{
Cell[878374, 23346, 554, 16, 366, "Input",ExpressionUUID->"4d30f3d1-0aa2-453c-87ad-29ae841bd168"],
Cell[878931, 23364, 1117, 32, 70, "Output",ExpressionUUID->"8f9c977d-cd52-403d-b3ba-7c916a698243"],
Cell[880051, 23398, 1434, 43, 70, "Output",ExpressionUUID->"da17b81e-22fb-4d26-a571-6d3f2540427c"]
}, Open  ]],
Cell[881500, 23444, 503, 14, 168, "Text",ExpressionUUID->"54db3760-c0d7-4b94-8528-713d08feaadf"],
Cell[CellGroupData[{
Cell[882028, 23462, 425, 12, 258, "Input",ExpressionUUID->"0ab581fa-70ab-495d-91a8-d75e3b1a772a"],
Cell[882456, 23476, 1321, 39, 70, "Output",ExpressionUUID->"7b8855f3-f575-4677-923e-66db27b5d9f4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[883826, 23521, 411, 9, 39, "Subsection",ExpressionUUID->"a9fa7c86-140c-4ae9-9148-0fbbe6d8224a"],
Cell[884240, 23532, 271, 8, 31, "Input",ExpressionUUID->"6f10f71f-a5a0-427b-b5a2-ba70df43c36a"],
Cell[CellGroupData[{
Cell[884536, 23544, 1011, 20, 31, "Input",ExpressionUUID->"3997fa46-2a4e-41bf-b27f-7da19b870f74"],
Cell[CellGroupData[{
Cell[885572, 23568, 430, 11, 25, "Print",ExpressionUUID->"c4569476-9fe1-4b07-8d16-8b3464561185"],
Cell[886005, 23581, 187, 3, 25, "Print",ExpressionUUID->"36abba1e-9dcb-4a64-a6f9-3a60c6108cc3"],
Cell[886195, 23586, 367, 8, 25, "Print",ExpressionUUID->"90cf04f0-40cc-44d5-91b0-457f6809b264"],
Cell[886565, 23596, 218, 4, 25, "Print",ExpressionUUID->"403d2679-18b7-4ce6-a021-f47f85ffdb31"],
Cell[886786, 23602, 694, 15, 25, "Print",ExpressionUUID->"048a50da-7fa9-4634-877b-856ec4bc5088"],
Cell[887483, 23619, 298, 7, 25, "Print",ExpressionUUID->"f5b06563-65bc-4222-8b53-c4f5652d7461"]
}, Open  ]],
Cell[887796, 23629, 30766, 751, 254, "Output",ExpressionUUID->"4bedfd76-07ce-498a-8592-3667df2434b1"]
}, Open  ]],
Cell[918577, 24383, 105, 1, 35, "Text",ExpressionUUID->"92a37850-ba58-4bc9-b09a-98ed85b564dd"],
Cell[CellGroupData[{
Cell[918707, 24388, 915, 23, 98, "Input",ExpressionUUID->"a7ee4570-6761-452c-ba60-994e4e00c1d7"],
Cell[919625, 24413, 1907, 52, 64, "Output",ExpressionUUID->"01b27544-4fa5-4388-93de-1d4d2fbf955a"],
Cell[921535, 24467, 1655, 44, 67, "Output",ExpressionUUID->"f220256c-6adf-4e6c-a530-09a498818b68"],
Cell[923193, 24513, 1859, 51, 74, "Output",ExpressionUUID->"a5626ab7-6381-4fa2-a252-58993c83a75a"]
}, Open  ]],
Cell[925067, 24567, 132, 1, 35, "Text",ExpressionUUID->"d6edb61e-86ee-45bc-a4f9-f67e175f7e31"],
Cell[CellGroupData[{
Cell[925224, 24572, 779, 21, 31, "Input",ExpressionUUID->"1747e576-2965-4296-8867-6436cdbea2da"],
Cell[926006, 24595, 674, 13, 25, "Print",ExpressionUUID->"f5a24736-3f70-415e-b7f6-011139582649"],
Cell[926683, 24610, 72768, 1749, 527, "Output",ExpressionUUID->"af0520b6-893d-4341-aa7e-388223c7d241"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[999500, 26365, 114, 1, 39, "Subsection",ExpressionUUID->"076a5fbe-2611-4fde-9354-2af3ac66b1e6"],
Cell[999617, 26368, 519, 11, 31, "Input",ExpressionUUID->"8d699341-7e16-4b0e-ad8b-322b805ea828"],
Cell[CellGroupData[{
Cell[1000161, 26383, 441, 12, 31, "Input",ExpressionUUID->"0cf1f12e-c836-4def-8403-813cdfd899a8"],
Cell[CellGroupData[{
Cell[1000627, 26399, 621, 14, 25, "Print",ExpressionUUID->"af8fdc55-15d1-478e-845e-9b7392b194c6"],
Cell[1001251, 26415, 376, 6, 25, "Print",ExpressionUUID->"ca0caffd-f374-495a-9cd9-845682e93750"],
Cell[1001630, 26423, 560, 11, 25, "Print",ExpressionUUID->"da0ede2a-bf73-4cfe-b788-2ad5d54321da"],
Cell[1002193, 26436, 409, 7, 25, "Print",ExpressionUUID->"21cf9ff6-635a-48a7-a784-fdda062db8ee"],
Cell[1002605, 26445, 885, 18, 25, "Print",ExpressionUUID->"e383cf82-adbd-47a3-b2fc-4788544d52ad"],
Cell[1003493, 26465, 489, 10, 25, "Print",ExpressionUUID->"26ebdd16-5cab-43e5-92e3-1fc0d1d2ae43"]
}, Open  ]],
Cell[1003997, 26478, 40421, 1066, 195, "Output",ExpressionUUID->"1ee6735c-d47d-4e76-a4df-94f672d19b2e"]
}, Open  ]],
Cell[1044433, 27547, 122, 1, 35, "Text",ExpressionUUID->"f11d3b1c-7fca-48ba-bfd2-86c7d02039e3"],
Cell[CellGroupData[{
Cell[1044580, 27552, 449, 14, 31, "Input",ExpressionUUID->"c2dbceb0-16ea-4898-86d0-98cbf49e5e18"],
Cell[1045032, 27568, 671, 13, 25, "Print",ExpressionUUID->"f9b3db37-f64b-4871-bc5f-98f260585624"],
Cell[1045706, 27583, 12372, 332, 193, "Output",ExpressionUUID->"3bf6baa3-2b99-486b-b8cf-f91058cb01b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1058115, 27920, 260, 7, 31, "Input",ExpressionUUID->"4467bda6-b4af-4f27-a728-6d435b1b6187"],
Cell[1058378, 27929, 7468, 195, 193, "Output",ExpressionUUID->"77470f04-9067-4899-84a8-a00c3c6441ca"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1065895, 28130, 152, 2, 39, "Subsection",ExpressionUUID->"89e4a0a7-8184-44fc-b515-32615e8c7f00"],
Cell[1066050, 28134, 422, 10, 74, "Text",ExpressionUUID->"8a2a47a4-4108-4c4a-a5e1-addacf7c3b77"],
Cell[CellGroupData[{
Cell[1066497, 28148, 884, 15, 31, "Input",ExpressionUUID->"cc7bade2-5cef-447d-9aa6-0b2579c429df"],
Cell[CellGroupData[{
Cell[1067406, 28167, 182, 3, 25, "Print",ExpressionUUID->"c6b651fd-e9d5-4d2d-bf50-1aa838c44a9e"],
Cell[1067591, 28172, 410, 11, 25, "Print",ExpressionUUID->"466f3660-57b9-4144-a59f-de136f000d27"],
Cell[1068004, 28185, 163, 3, 25, "Print",ExpressionUUID->"f9b24c56-9d5a-4ffd-9e01-ed77a07c527b"],
Cell[1068170, 28190, 345, 8, 25, "Print",ExpressionUUID->"1e3a564e-b470-450e-b8ea-f1712dffc6d7"],
Cell[1068518, 28200, 387, 9, 25, "Print",ExpressionUUID->"7e728990-ae42-48cf-9266-3959ba3020d6"],
Cell[1068908, 28211, 196, 4, 25, "Print",ExpressionUUID->"6d288fcf-daad-4814-8304-88d09c9d542c"],
Cell[1069107, 28217, 677, 15, 25, "Print",ExpressionUUID->"b3a04723-19ea-4e64-b733-5341e2c22f10"],
Cell[1069787, 28234, 278, 7, 25, "Print",ExpressionUUID->"2ac29189-c4b0-49d7-995b-4792bcb4f422"],
Cell[1070068, 28243, 632, 14, 25, "Print",ExpressionUUID->"7402432c-6115-4e25-b861-118b3c571326"],
Cell[1070703, 28259, 177, 3, 25, "Print",ExpressionUUID->"2217cda5-68ec-46a0-932f-f5440268644f"],
Cell[1070883, 28264, 444, 12, 25, "Print",ExpressionUUID->"0b30da22-1710-4612-955b-69d540439aee"],
Cell[1071330, 28278, 395, 10, 25, "Print",ExpressionUUID->"b093671d-b197-4ee5-9e74-2383dacaa8ba"],
Cell[1071728, 28290, 380, 8, 25, "Print",ExpressionUUID->"3fb9db8e-3b57-4556-9e67-aeef462795c3"],
Cell[1072111, 28300, 398, 11, 25, "Print",ExpressionUUID->"86609b49-c43d-41a7-ad91-c5c9f5dcc716"],
Cell[1072512, 28313, 358, 8, 25, "Print",ExpressionUUID->"801350a6-478e-4c05-802c-870f6b50c428"],
Cell[1072873, 28323, 162, 3, 25, "Print",ExpressionUUID->"9f536787-6a9b-4382-a7c8-0652b29adbf7"],
Cell[1073038, 28328, 186, 4, 25, "Print",ExpressionUUID->"e65d279f-52fb-4555-a769-274cd2fc8d18"],
Cell[1073227, 28334, 375, 8, 25, "Print",ExpressionUUID->"408eaf45-8fac-4b68-9f99-02c9fb59e1f5"],
Cell[1073605, 28344, 536, 11, 25, "Print",ExpressionUUID->"e193eb79-ead1-4ff1-b596-232da0f8f01e"],
Cell[1074144, 28357, 156, 3, 25, "Print",ExpressionUUID->"4708d449-d5f1-4193-a004-285528f82b1d"],
Cell[1074303, 28362, 531, 12, 70, "Print",ExpressionUUID->"74d50938-074f-435c-b316-0cdebbcb254f"],
Cell[1074837, 28376, 141, 3, 25, "Print",ExpressionUUID->"0c850f48-3937-4a59-ba98-2548cca7786d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1075051, 28387, 611, 9, 54, "Section",ExpressionUUID->"576f30b1-09bd-4c84-a3e3-3903c7acc668"],
Cell[1075665, 28398, 637, 13, 55, "Input",ExpressionUUID->"b8cfa8ee-c29c-499f-9d58-eb97f4753caf"],
Cell[CellGroupData[{
Cell[1076327, 28415, 2449, 47, 101, "Input",ExpressionUUID->"ca147f48-49c0-46ca-94e0-5a6f74474c82"],
Cell[CellGroupData[{
Cell[1078801, 28466, 182, 3, 25, "Print",ExpressionUUID->"8f177e06-a158-42cb-b4c8-06b202a26ba1"],
Cell[1078986, 28471, 632, 15, 25, "Print",ExpressionUUID->"39469039-2c6b-4a67-a136-103039ec695a"],
Cell[1079621, 28488, 202, 3, 25, "Print",ExpressionUUID->"3eb2d192-6b55-4bad-a65c-9d904730d64a"],
Cell[1079826, 28493, 189, 3, 25, "Print",ExpressionUUID->"5cf66519-d66f-4c9f-bfd6-9bd2625e07ba"],
Cell[1080018, 28498, 306, 7, 25, "Print",ExpressionUUID->"af161e64-e5b5-4c7b-a3a4-a91a3f9d31ca"],
Cell[1080327, 28507, 171, 3, 25, "Print",ExpressionUUID->"d1c054b0-26f9-494a-b831-e339d1b357aa"],
Cell[1080501, 28512, 178, 3, 25, "Print",ExpressionUUID->"b5fe5fc5-42c1-49d7-8b08-906bb738cf8e"],
Cell[1080682, 28517, 203, 3, 25, "Print",ExpressionUUID->"2b242a62-17b9-4fe5-9542-852691476a90"],
Cell[1080888, 28522, 208, 4, 25, "Print",ExpressionUUID->"9ca60e3e-7e36-4f42-9a4e-971aab6db25f"],
Cell[1081099, 28528, 160, 3, 25, "Print",ExpressionUUID->"6b811c3b-3cfe-49fd-8c34-9fd1a0b251a5"],
Cell[1081262, 28533, 190, 3, 25, "Print",ExpressionUUID->"9d4504fb-fda4-46e3-9c62-62e19c00e71c"],
Cell[1081455, 28538, 193, 3, 25, "Print",ExpressionUUID->"f66079f9-7152-4133-959d-9c4fb569a090"],
Cell[1081651, 28543, 188, 2, 25, "Print",ExpressionUUID->"ac151c67-5b55-4094-be76-cf3f436cdc98"],
Cell[1081842, 28547, 364, 8, 48, "Print",ExpressionUUID->"f1d2c690-3679-4603-aa9a-01a74ecb7650"]
}, Open  ]]
}, Open  ]],
Cell[1082233, 28559, 1574, 34, 78, "Input",ExpressionUUID->"b68ff3e6-cfaf-42b4-a85c-ed50e97d9bb8"],
Cell[CellGroupData[{
Cell[1083832, 28597, 566, 17, 58, "Subsection",ExpressionUUID->"a3383aef-b499-485d-858e-c4895d9b295c"],
Cell[1084401, 28616, 522, 11, 31, "Input",ExpressionUUID->"9c7cd592-0449-47b7-a179-c94462a779a0"],
Cell[CellGroupData[{
Cell[1084948, 28631, 385, 11, 31, "Input",ExpressionUUID->"c7054056-c199-4e84-baad-408c19b1262d"],
Cell[CellGroupData[{
Cell[1085358, 28646, 294, 5, 25, "Print",ExpressionUUID->"680713c3-7216-4d44-b0c7-675f3ab7859e"],
Cell[1085655, 28653, 456, 10, 25, "Print",ExpressionUUID->"fe468ea7-5953-4527-b09c-a827f8e71a9b"],
Cell[1086114, 28665, 458, 10, 25, "Print",ExpressionUUID->"c8b21f23-ab16-4b0c-b663-1b24b05ba891"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1086621, 28681, 1848, 37, 121, "Input",ExpressionUUID->"ea45b9db-e06c-416c-87db-65993721cc1b"],
Cell[1088472, 28720, 2385, 62, 65, "Output",ExpressionUUID->"35725e1f-e103-4df7-8188-911af3143b23"],
Cell[1090860, 28784, 2559, 68, 67, "Output",ExpressionUUID->"a69f9ff7-3739-48b6-80a1-5ad90cdf3327"],
Cell[1093422, 28854, 2886, 79, 74, "Output",ExpressionUUID->"5bbb8ca0-cfa9-4e7e-a838-ee0cee332a26"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1096345, 28938, 951, 27, 122, "Input",ExpressionUUID->"42c41f02-2424-4769-98fb-f60aed9f4acc"],
Cell[1097299, 28967, 1505, 40, 65, "Output",ExpressionUUID->"10961436-4624-4348-b0a9-4fd9fc01a716"],
Cell[1098807, 29009, 2274, 62, 67, "Output",ExpressionUUID->"b83c0063-07bd-4067-9db8-535ca128248c"],
Cell[1101084, 29073, 2304, 67, 83, "Output",ExpressionUUID->"edb5c467-ea5e-4374-a213-17576678f732"]
}, Open  ]],
Cell[1103403, 29143, 152, 3, 31, "Input",ExpressionUUID->"48f4a6a0-0208-449b-bd3c-08e37916f22c"],
Cell[1103558, 29148, 434, 12, 31, "Input",ExpressionUUID->"55070546-6783-42b9-836b-28eb11537caf"],
Cell[CellGroupData[{
Cell[1104017, 29164, 1569, 33, 121, "Input",ExpressionUUID->"e21d1a7f-bb8b-4ca7-ac26-27c7aa491ce9"],
Cell[1105589, 29199, 3331, 71, 67, "Output",ExpressionUUID->"377f4099-14b5-4051-9351-0f0c3315ecf8"],
Cell[1108923, 29272, 3809, 84, 69, "Output",ExpressionUUID->"ac5ceffb-b133-4d9e-8ddb-ce11b82fcfbe"],
Cell[1112735, 29358, 3899, 91, 66, "Output",ExpressionUUID->"cbd7fbf2-a376-4211-a7e1-d51390bcd28b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1116671, 29454, 947, 27, 122, "Input",ExpressionUUID->"716ca696-b7ef-4516-81d9-3da73a793e72"],
Cell[1117621, 29483, 1428, 39, 67, "Output",ExpressionUUID->"a41dd100-cf9e-48df-904d-b16216d5b30e"],
Cell[1119052, 29524, 1921, 52, 69, "Output",ExpressionUUID->"2c133b22-982f-4e58-a7a8-41e7ec2b87e0"],
Cell[1120976, 29578, 1996, 60, 66, "Output",ExpressionUUID->"c0b8bd6c-3d8d-434b-bf57-bc1054bdb7fb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1123021, 29644, 212, 3, 39, "Subsection",ExpressionUUID->"bb8740e4-fa39-466d-859b-ef87ee5f6b9f"],
Cell[CellGroupData[{
Cell[1123258, 29651, 682, 16, 150, "Input",ExpressionUUID->"7f03158f-cf4c-4e14-abc4-d5d7c5ea9326"],
Cell[1123943, 29669, 3311, 93, 70, "Output",ExpressionUUID->"09645b77-661f-4a7a-ba1a-831e22522421"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1127291, 29767, 190, 4, 150, "Input",ExpressionUUID->"94dac829-09f9-4c29-944b-cc3babf409ff"],
Cell[1127484, 29773, 460, 12, 70, "Output",ExpressionUUID->"039d44b9-3c7b-42cb-bd5c-9adae1446d7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1127981, 29790, 684, 16, 168, "Input",ExpressionUUID->"36b03974-bd4e-41b5-8c38-8cf84f3bef60"],
Cell[1128668, 29808, 5893, 164, 70, "Output",ExpressionUUID->"64a6493c-22dd-48a3-b7ef-5b5bac7da647"]
}, Open  ]],
Cell[1134576, 29975, 246, 5, 158, "Text",ExpressionUUID->"88d61b8d-7463-4542-8ff4-19aebfc2f933"],
Cell[CellGroupData[{
Cell[1134847, 29984, 600, 17, 366, "Input",ExpressionUUID->"94c3ebd8-3c6e-4af8-bcca-aefd56a8c01b"],
Cell[1135450, 30003, 1141, 32, 70, "Output",ExpressionUUID->"07f0c32d-fa88-4908-a52d-50b5ef148d8a"],
Cell[1136594, 30037, 1458, 43, 70, "Output",ExpressionUUID->"4cd1a919-d8e4-4fee-898e-028c259a575b"]
}, Open  ]],
Cell[1138067, 30083, 503, 14, 168, "Text",ExpressionUUID->"17b1015d-c808-4f71-9349-647e884e17fd"],
Cell[CellGroupData[{
Cell[1138595, 30101, 466, 12, 258, "Input",ExpressionUUID->"3be70be7-c90b-4f5f-a2c8-5b8efc629c5c"],
Cell[1139064, 30115, 1344, 39, 70, "Output",ExpressionUUID->"a0120f06-7bb0-4d9d-85d5-04c3e9102f0b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1140457, 30160, 411, 9, 39, "Subsection",ExpressionUUID->"0bc0836d-00fc-4cfe-90df-c4a4b5894a41"],
Cell[1140871, 30171, 271, 8, 31, "Input",ExpressionUUID->"324c2dfc-5255-4f3e-8064-f19e80a8f000"],
Cell[CellGroupData[{
Cell[1141167, 30183, 1011, 20, 31, "Input",ExpressionUUID->"b3dae78e-fd74-497d-83fa-f3fa31c363d9"],
Cell[CellGroupData[{
Cell[1142203, 30207, 498, 12, 25, "Print",ExpressionUUID->"d66e01e6-4d51-4eb6-8963-781791e00d7c"],
Cell[1142704, 30221, 255, 4, 25, "Print",ExpressionUUID->"d67ab65c-f140-4653-a05a-b0a788bd9ca8"],
Cell[1142962, 30227, 435, 9, 25, "Print",ExpressionUUID->"8c8ef279-7e00-4f8e-9d28-0886f3d1d145"],
Cell[1143400, 30238, 286, 5, 25, "Print",ExpressionUUID->"2df9a828-968c-4367-8da1-ab0eea1d2f1c"],
Cell[1143689, 30245, 762, 16, 25, "Print",ExpressionUUID->"8bb170bf-e073-4d4b-8177-42f294cb50a0"],
Cell[1144454, 30263, 366, 8, 25, "Print",ExpressionUUID->"e86a2a94-fb7f-41ca-8edb-6f57b4010c6a"]
}, Open  ]],
Cell[1144835, 30274, 30743, 751, 254, "Output",ExpressionUUID->"2a52de36-6b5c-4dfb-8266-ad905641d66c"]
}, Open  ]],
Cell[1175593, 31028, 105, 1, 35, "Text",ExpressionUUID->"4c460428-59e8-44f4-913f-158d19c28654"],
Cell[CellGroupData[{
Cell[1175723, 31033, 959, 23, 98, "Input",ExpressionUUID->"a6ae5607-7c03-4c9d-95d6-9913e2931f9d"],
Cell[1176685, 31058, 1906, 52, 64, "Output",ExpressionUUID->"21f18ce9-0dd6-49d2-a6a0-d25a0c22910c"],
Cell[1178594, 31112, 1652, 44, 67, "Output",ExpressionUUID->"045128fa-7f2a-428b-a8eb-8a31a60e9ddb"],
Cell[1180249, 31158, 1858, 51, 74, "Output",ExpressionUUID->"e654894f-ace0-483c-8177-8ea2793f113f"]
}, Open  ]],
Cell[1182122, 31212, 132, 1, 35, "Text",ExpressionUUID->"8944c7ca-4dd3-474c-948d-0db64831f6f8"],
Cell[CellGroupData[{
Cell[1182279, 31217, 726, 20, 31, "Input",ExpressionUUID->"bccbba0a-9509-431d-ae96-f9eac3b456ec"],
Cell[1183008, 31239, 652, 13, 25, "Print",ExpressionUUID->"48e32b36-ab87-4937-b1ee-201cc48cb549"],
Cell[1183663, 31254, 53868, 1323, 527, "Output",ExpressionUUID->"6357e402-8f81-40b6-bc04-639405c75434"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1237580, 32583, 114, 1, 39, "Subsection",ExpressionUUID->"3c99758d-542a-436f-9c5e-6cd680ee4b8e"],
Cell[1237697, 32586, 519, 11, 31, "Input",ExpressionUUID->"acb67596-bca4-4482-88ee-caa0773c60f5"],
Cell[CellGroupData[{
Cell[1238241, 32601, 441, 12, 31, "Input",ExpressionUUID->"183e4d0a-b205-4e56-94e1-09ecf07d6cb0"],
Cell[CellGroupData[{
Cell[1238707, 32617, 645, 14, 25, "Print",ExpressionUUID->"9faba4c7-8ed4-4094-9dbb-9c3485ffc717"],
Cell[1239355, 32633, 402, 6, 25, "Print",ExpressionUUID->"c3515c5a-91af-4e7a-9d18-96d9059a051c"],
Cell[1239760, 32641, 584, 11, 25, "Print",ExpressionUUID->"b68aa3c5-2379-40df-be9a-0d181bf8e6be"],
Cell[1240347, 32654, 435, 7, 25, "Print",ExpressionUUID->"ff5bb871-f8b8-4de5-a15c-fa2fc5f69231"],
Cell[1240785, 32663, 912, 18, 25, "Print",ExpressionUUID->"c02aa28f-9088-4447-ac84-6909bc37596a"],
Cell[1241700, 32683, 513, 10, 25, "Print",ExpressionUUID->"9e58f92a-77bf-492d-92f2-481ee0515a34"]
}, Open  ]],
Cell[1242228, 32696, 40443, 1066, 180, "Output",ExpressionUUID->"41ad1cc9-a3d8-4b2b-8127-077086a5d11e"]
}, Open  ]],
Cell[1282686, 33765, 122, 1, 35, "Text",ExpressionUUID->"8e290a94-c18c-47c1-acba-0bb20d4960ce"],
Cell[CellGroupData[{
Cell[1282833, 33770, 449, 14, 31, "Input",ExpressionUUID->"635fab1a-0e6e-4a99-9ae8-aeba1b6cea24"],
Cell[1283285, 33786, 695, 13, 25, "Print",ExpressionUUID->"68194df8-80e0-49f5-b725-0790709d5c92"],
Cell[1283983, 33801, 12395, 332, 178, "Output",ExpressionUUID->"273c4d39-03ad-4042-bcdc-7988151df9e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1296415, 34138, 308, 8, 31, "Input",ExpressionUUID->"0b31e8ee-d2b5-44c0-ba30-c14f51252f76"],
Cell[1296726, 34148, 7490, 195, 178, "Output",ExpressionUUID->"867e6f6d-c6a8-477d-8223-b0ead146e8c9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1304265, 34349, 150, 2, 39, "Subsection",ExpressionUUID->"78d37e1c-2c8c-4558-8a4b-05ce1685e2d2"],
Cell[1304418, 34353, 422, 10, 74, "Text",ExpressionUUID->"f468e2da-a4ba-4f28-bfac-7d49d152646b"],
Cell[CellGroupData[{
Cell[1304865, 34367, 784, 14, 31, "Input",ExpressionUUID->"7ba461c2-78db-45ff-abbc-8799a024d5ab"],
Cell[CellGroupData[{
Cell[1305674, 34385, 185, 4, 25, "Print",ExpressionUUID->"c719148b-9767-4b6a-a900-8b12c1abf597"],
Cell[1305862, 34391, 408, 11, 25, "Print",ExpressionUUID->"c4571380-4997-4d7d-83db-bb284e610a94"],
Cell[1306273, 34404, 165, 3, 25, "Print",ExpressionUUID->"452c0edc-f240-45fb-8d42-387d49b2c996"],
Cell[1306441, 34409, 345, 8, 25, "Print",ExpressionUUID->"3b9e01ed-1b73-4770-b82e-ab400d6c551c"],
Cell[1306789, 34419, 387, 9, 25, "Print",ExpressionUUID->"4fae7b29-6765-438d-9cc0-67818152a1a7"],
Cell[1307179, 34430, 198, 4, 25, "Print",ExpressionUUID->"9f802075-5f40-4c3c-8a2a-36f4f476c3a4"],
Cell[1307380, 34436, 673, 14, 25, "Print",ExpressionUUID->"8c7c609f-22c2-43ce-b39a-5efed776e152"],
Cell[1308056, 34452, 278, 7, 25, "Print",ExpressionUUID->"f58d8e74-a7e3-45b8-9775-74d4873395d7"],
Cell[1308337, 34461, 629, 13, 25, "Print",ExpressionUUID->"bb1b0b87-8395-4c72-9435-6119b466aa66"],
Cell[1308969, 34476, 179, 3, 25, "Print",ExpressionUUID->"e885d05d-35e5-4e9d-af15-08fa56fc7bcd"],
Cell[1309151, 34481, 444, 12, 25, "Print",ExpressionUUID->"286e2be9-4f30-404c-ab3a-dc548d5d369d"],
Cell[1309598, 34495, 395, 10, 25, "Print",ExpressionUUID->"e39d02c6-1588-4230-bd4d-cb3872fb5e01"],
Cell[1309996, 34507, 380, 8, 25, "Print",ExpressionUUID->"f63e4b2b-b696-4c11-bcd7-3cac5f394dd6"],
Cell[1310379, 34517, 398, 11, 25, "Print",ExpressionUUID->"60dbda23-bce3-412d-93d8-1bbd96de86ec"],
Cell[1310780, 34530, 358, 8, 25, "Print",ExpressionUUID->"74011a3d-1711-406e-9471-a7590424ea1c"],
Cell[1311141, 34540, 160, 3, 25, "Print",ExpressionUUID->"6b55a6d0-e573-444d-b42a-97ab76f8f0af"],
Cell[1311304, 34545, 186, 4, 25, "Print",ExpressionUUID->"70b32ba9-753b-45b9-bea6-96b03a370dce"],
Cell[1311493, 34551, 375, 8, 25, "Print",ExpressionUUID->"3ad76d6f-38e5-4650-bc69-94e711988918"],
Cell[1311871, 34561, 534, 11, 25, "Print",ExpressionUUID->"92382210-e5d9-4ab8-a049-1a08382b4f8f"],
Cell[1312408, 34574, 156, 3, 25, "Print",ExpressionUUID->"ce4708b0-3e89-4e10-9b45-5cee52da6414"],
Cell[1312567, 34579, 529, 12, 70, "Print",ExpressionUUID->"b71535c0-4d0f-41e6-945e-95d22f70e516"],
Cell[1313099, 34593, 141, 3, 25, "Print",ExpressionUUID->"0efc5e29-9f11-4ded-8f56-8ed8d01fb73b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

