SMEFT: SMEFTsim-setA.nb

File SMEFTsim-setA.nb, 1.3 MB (added by IlariaBrivio, 16 months ago)
Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[   1389509,      35687]
14NotebookOptionsPosition[   1313304,      34603]
15NotebookOutlinePosition[   1313743,      34620]
16CellTagsIndexPosition[   1313700,      34617]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["Demo notebook for the SMEFTsim models - set A", "Chapter",
24 CellChangeTimes->{{3.714472665588029*^9,
25  3.714472689729048*^9}},ExpressionUUID->"55c1d13a-0c0d-447f-a284-\
2691d63a91b5fa"],
27
28Cell[TextData[{
29 "Includes all the B conserving operators of the Warsaw basis, with kinetic \
30terms canonically normalized and shifts due to fixing an input scheme \
31automatically implemented.\nContains 6 models  =  3 flavor assumptions  x  2 \
32input scheme choices.\n\n",
33 StyleBox["Flavor assumptions available\n\tgeneral",
34  FontWeight->"Bold"],
35 ": Wilson coefficients of all the fermionic operators are arbitrary 3x3 or \
363x3x3x3 tensors",
37 StyleBox["\n\t",
38  FontWeight->"Bold"],
39 Cell[BoxData[
40  FormBox[
41   SuperscriptBox[
42    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],
43  FontWeight->"Bold",ExpressionUUID->"7720737d-7d93-4ec1-a70f-69ed94abbd43"],
44 StyleBox[": ",
45  FontWeight->"Bold"],
46 "flavor contractions fixed by an approximate ",
47 Cell[BoxData[
48  FormBox[
49   SuperscriptBox[
50    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
51  "c8398d99-20ec-4b11-a267-ba71bbfe0d50"],
52 " symmetry, broken only by Yukawa insertions in chirality flipping currents \
53(operators of classes 5,6,8d)",
54 StyleBox["\n\tMFV: ",
55  FontWeight->"Bold"],
56 "assumes an approximate ",
57 Cell[BoxData[
58  FormBox[
59   SuperscriptBox[
60    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
61  "1808da2d-d6d8-49c1-ae50-6e1366c612ac"],
62 "flavor symmetry + CP violation only from CKM phase. \n\t           Compared \
63to the ",
64 Cell[BoxData[
65  FormBox[
66   SuperscriptBox[
67    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
68  "ea16a9bc-c3e1-41d9-aa7f-b998c82fbbd3"],
69 " model, it contains the first order of flavor-breaking spurion insertions \
70and does not contain CP-odd bosonic operators. Moreover, all W. coefficients \
71are real",
72 StyleBox["\n\t\nInput schemes available\n\t",
73  FontWeight->"Bold"],
74 Cell[BoxData[
75  FormBox[
76   RowBox[{"{",
77    RowBox[{
78     SubscriptBox["\[Alpha]", "ew"], ",", " ",
79     SubscriptBox["m", "Z"], ",",
80     SubscriptBox["G", "F"]}], "}"}], TraditionalForm]],ExpressionUUID->
81  "c43d6df4-dcff-4ee7-bbdc-31e35d1ce7aa"],
82 "\n\t",
83 Cell[BoxData[
84  FormBox[
85   RowBox[{" ",
86    RowBox[{"{",
87     RowBox[{
88      SubscriptBox["m", "W"], ",", " ",
89      SubscriptBox["m", "Z"], ",", " ",
90      SubscriptBox["G", "F"]}], "}"}]}], TraditionalForm]],ExpressionUUID->
91  "94dd10fe-e732-4d35-8de5-a2cffc0a1a68"],
92 "\n"
93}], "Text",
94 CellChangeTimes->{{3.714472954178997*^9, 3.7144736611223793`*^9}, {
95  3.714473698561861*^9, 3.71447372916742*^9}, {3.7144737634682198`*^9,
96  3.7144737816286173`*^9}, {3.714473858289695*^9, 3.714473873154048*^9}, {
97  3.714474057975432*^9, 3.7144740595614223`*^9}, {3.7146519107109127`*^9,
98  3.714651942096879*^9}, {3.71465198688098*^9,
99  3.714652001317361*^9}},ExpressionUUID->"84b164ae-00f4-418b-92ed-\
100dac633b0a8d7"],
101
102Cell[TextData[{
103 "To select a model, specify the two flags Flavor and Scheme ",
104 StyleBox["before",
105  FontSlant->"Italic",
106  FontVariations->{"Underline"->True}],
107 " loading the .fr main file.\nAllowed values are :\n",
108 StyleBox["Flavor",
109  FontWeight->"Bold"],
110 " = general, U35, MFV\n",
111 StyleBox["Scheme",
112  FontWeight->"Bold"],
113 " = alphaScheme, MwScheme"
114}], "Text",
115 CellChangeTimes->{{3.714473764590843*^9, 3.714473773387807*^9}, {
116  3.714473838316639*^9, 3.714473840444023*^9}},
117 Background->RGBColor[
118  1, 0.9, 0.8],ExpressionUUID->"e8a0586e-7fc8-4807-aeb5-cce4fd6c051e"],
119
120Cell[TextData[{
121 StyleBox["Restriction files are available:",
122  FontVariations->{"Underline"->True}],
123 "\n",
124 StyleBox["CPconserving.rst ",
125  FontWeight->"Bold"],
126 "- sets to 0 the CKM phase, the coefficients of CP violating operators and \
127the phases of fermion operators\n",
128 StyleBox["massless.rst ",
129  FontWeight->"Bold"],
130 "- sets to 0 the masses and Yukawa couplings of all the fermions except top \
131and bottom quarks. \n                       In the ",
132 Cell[BoxData[
133  FormBox[
134   SuperscriptBox[
135    RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
136  "7b530443-4db1-4721-b5d2-889adf0a11a4"],
137 " and MFV models it sets additionally to 0 the coefficients of redundant \
138operators \n                       ",
139 Cell[BoxData[
140  FormBox[
141   RowBox[{"(",
142    SubscriptBox["Q", "eH"]}], TraditionalForm]],ExpressionUUID->
143  "b5df5418-17dd-4e72-bad5-e478fc01ee55"],
144 ", ",
145 Cell[BoxData[
146  FormBox[
147   SubscriptBox["Q", "eW"], TraditionalForm]],ExpressionUUID->
148  "ce10d9b0-4673-4a0c-99eb-c41611f7cacb"],
149 ", ",
150 Cell[BoxData[
151  FormBox[
152   SubscriptBox["Q", "eB"], TraditionalForm]],ExpressionUUID->
153  "1ceca9d4-2060-40b3-b742-63d762ee8f7a"],
154 ", ",
155 Cell[BoxData[
156  FormBox[
157   SubscriptBox["Q", "ledq"], TraditionalForm]],ExpressionUUID->
158  "7ab20918-5e1a-4040-b295-296ff7fa3431"],
159 ", ",
160 Cell[BoxData[
161  FormBox[
162   SuperscriptBox[
163    SubscriptBox["Q", "lequ"],
164    RowBox[{"(", "1", ")"}]], TraditionalForm]],ExpressionUUID->
165  "4580d1c4-ccd2-4b94-a6a6-d8b702ea689b"],
166 " ",
167 Cell[BoxData[
168  FormBox[
169   SuperscriptBox[
170    SubscriptBox["Q", "lequ"],
171    RowBox[{"(", "3", ")"}]], TraditionalForm]],ExpressionUUID->
172  "94a88322-cdbf-439f-bbf9-67eaca12b554"],
173 " and flavor diagonal spurions in classes 5, 6, 8d for MFV)\n",
174 StyleBox["Cabibbo.rst ",
175  FontWeight->"Bold"],
176 "- replaces the CKM in the Wolfenstein parameterization with the 2x2 \
177rotation by the Cabibbo angle"
178}], "Text",
179 CellChangeTimes->{{3.714473925700109*^9, 3.7144742310293493`*^9},
180   3.714474281906324*^9, {3.7146520708866587`*^9,
181   3.714652076958681*^9}},ExpressionUUID->"ef6ce449-903c-4f17-9b75-\
1827912d9c4ab1a"],
183
184Cell[BoxData["\[IndentingNewLine]"], "Input",
185 CellChangeTimes->{
186  3.714474265137045*^9},ExpressionUUID->"7e2bd107-2391-4afb-a870-\
18715da1292e912"],
188
189Cell[TextData[{
190 StyleBox["Lagrangians defined ",
191  FontVariations->{"Underline"->True}],
192 "\n\nLSM - SM Lagrangian\nLSMlinear - SM Lagrangian with linear shifts due \
193to canonically normalizing kinetic terms + choosing an input parameters set \
194in the SMEFT\nLSMloop - SM Higgs coupling to gg, \[Gamma]\[Gamma], Z\[Gamma] \
195at 1 loop\nLSMincl - LSMlinear + LSMloop\n\nL6clN - dimension six operators \
196of class N (see below)\nL6no4f - all dimension six operator apart from \
197four-fermions\nL6 - all dimension six operators\n\nLSMEFT - LSMincl + L6\n\n\
198",
199 StyleBox["Useful functions defined",
200  FontVariations->{"Underline"->True}],
201 "\n\nLinearWC[ ] - linearizes expressions in the Wilson coefficients and \
202shifts\nSMlimit[ ] - sets all the Wilson coefficients and shifts to zero\n\
203alphaShifts / MwShifts - replacements list to explicit the shifts as \
204functions of the Wilson coefficients (only one is available depending on the \
205scheme chosen)\n\n",
206 StyleBox["Classes of operators",
207  FontVariations->{"Underline"->True}],
208 "\n1 -  ",
209 Cell[BoxData[
210  FormBox[
211   SuperscriptBox["X", "3"], TraditionalForm]],ExpressionUUID->
212  "03a0f33c-5a22-4a37-a292-cfbe42a19a92"],
213 "\n2 - ",
214 Cell[BoxData[
215  FormBox[
216   SuperscriptBox[
217    RowBox[{"(",
218     RowBox[{
219      SuperscriptBox["H", "\[Dagger]"], "H"}], ")"}], "3"], TraditionalForm]],
220  ExpressionUUID->"46894640-fb43-45f0-a906-50f33e654ef0"],
221 "\n3 -  ",
222 Cell[BoxData[
223  FormBox[
224   RowBox[{
225    SuperscriptBox["H", "4"],
226    SuperscriptBox["D", "2"]}], TraditionalForm]],ExpressionUUID->
227  "194d75c5-17ef-4af5-a960-b228b32c3a21"],
228 "\n4 -  ",
229 Cell[BoxData[
230  FormBox[
231   RowBox[{
232    SuperscriptBox["H", "\[Dagger]"], "H"}], TraditionalForm]],
233  ExpressionUUID->"3e1a0456-54a7-4222-ab6d-579a310f70ab"],
234 " ",
235 Cell[BoxData[
236  FormBox[
237   SuperscriptBox["X", "2"], TraditionalForm]],ExpressionUUID->
238  "489840e7-8c20-4575-9bbb-6f60dd079e9a"],
239 "\n5 - ",
240 Cell[BoxData[
241  FormBox[
242   RowBox[{
243    SuperscriptBox["H", "\[Dagger]"], "H"}], TraditionalForm]],
244  ExpressionUUID->"5b23904a-e86a-47a3-9ada-fc9248bb106a"],
245 " ",
246 Cell[BoxData[
247  FormBox[
248   RowBox[{
249    OverscriptBox["\[Psi]", "_"], "\[Psi]"}], TraditionalForm]],
250  ExpressionUUID->"3787a9a9-3ad6-4125-bfcd-e613de59a6c0"],
251 "\t\t\n6 -  ",
252 Cell[BoxData[
253  FormBox[
254   RowBox[{
255    OverscriptBox["\[Psi]", "_"], "\[Psi]"}], TraditionalForm]],
256  ExpressionUUID->"70633437-ccf7-434b-9b2f-04af84694623"],
257 " X\t\t\n7 -  ",
258 Cell[BoxData[
259  FormBox[
260   RowBox[{
261    SuperscriptBox["H", "\[Dagger]"],
262    OverscriptBox["D", "\[LeftRightArrow]"], "H"}], TraditionalForm]],
263  ExpressionUUID->"9faf270e-5e4c-42a6-b270-60adfb801aca"],
264 " ",
265 Cell[BoxData[
266  FormBox[
267   RowBox[{
268    OverscriptBox["\[Psi]", "_"], "\[Psi]"}], TraditionalForm]],
269  ExpressionUUID->"d1127ff0-955f-4104-864e-bf843d6efd92"],
270 "\t\n8a -  (",
271 Cell[BoxData[
272  FormBox[
273   RowBox[{
274    RowBox[{
275     RowBox[{
276      OverscriptBox["L", "_"], "L"}], ")"}],
277    RowBox[{"(",
278     RowBox[{
279      OverscriptBox["L", "_"], "L"}], ")"}]}], TraditionalForm]],
280  ExpressionUUID->"20e21382-94a2-40b2-9b0e-420182c04b86"],
281 "\n8b -  (",
282 Cell[BoxData[
283  FormBox[
284   RowBox[{
285    RowBox[{
286     RowBox[{
287      OverscriptBox["R", "_"], "R"}], ")"}],
288    RowBox[{"(",
289     RowBox[{
290      OverscriptBox["R", "_"], "R"}], ")"}]}], TraditionalForm]],
291  ExpressionUUID->"405cb0a1-44b9-46db-bb2b-bed745159733"],
292 "\n8c - (",
293 Cell[BoxData[
294  FormBox[
295   RowBox[{
296    RowBox[{
297     RowBox[{
298      OverscriptBox["L", "_"], "L"}], ")"}],
299    RowBox[{"(",
300     RowBox[{
301      OverscriptBox["R", "_"], "R"}], ")"}]}], TraditionalForm]],
302  ExpressionUUID->"1cc09df5-038d-4c4a-8025-bc0d5b138659"],
303 "\n8d -  (",
304 Cell[BoxData[
305  FormBox[
306   RowBox[{
307    RowBox[{
308     RowBox[{
309      OverscriptBox["L", "_"], "R"}], ")"}],
310    RowBox[{"(",
311     RowBox[{
312      OverscriptBox["R", "_"], "L"}], ")"}], " ", "and", " ",
313    RowBox[{"(",
314     FormBox[
315      RowBox[{
316       RowBox[{
317        RowBox[{
318         OverscriptBox["L", "_"], "R"}], ")"}],
319       RowBox[{"(",
320        RowBox[{
321         OverscriptBox["L", "_"], "R"}], ")"}]}],
322      TraditionalForm]}]}], TraditionalForm]],ExpressionUUID->
323  "ae6fb6d7-27e9-40f7-8524-99ae9635431e"]
324}], "Text",
325 CellChangeTimes->{{3.696239302643662*^9, 3.6962395961998587`*^9}, {
326   3.6962426279211273`*^9, 3.6962426382382174`*^9}, {3.69624269955401*^9,
327   3.696242713138926*^9}, {3.697464963087976*^9, 3.697464974471815*^9}, {
328   3.697781321319046*^9, 3.697781411435602*^9}, {3.697781761740079*^9,
329   3.697781762068541*^9}, 3.7074035932516823`*^9, {3.714027372165451*^9,
330   3.714027386105159*^9}, {3.714037377699317*^9, 3.7140373790930023`*^9}, {
331   3.714472728601252*^9, 3.7144729472637987`*^9}, {3.714474312375147*^9,
332   3.7144743155330887`*^9}, {3.714474392406591*^9, 3.714474503350297*^9}, {
333   3.720526453472856*^9, 3.720526459966571*^9}},
334 Background->RGBColor[
335  0.94, 0.91, 0.88],ExpressionUUID->"5416058f-ee29-48d2-b23b-61a1e3603da8"],
336
337Cell[BoxData[
338 RowBox[{"Quit", "[", "]"}]], "Input",
339 CellChangeTimes->{{3.725884739461692*^9,
340  3.725884740533785*^9}},ExpressionUUID->"b080cac5-1c42-4c34-afad-\
3417262c6d76b03"],
342
343Cell[CellGroupData[{
344
345Cell["FeynRules initialization", "Section",
346 CellChangeTimes->{{3.696241144773179*^9, 3.696241150440773*^9}, {
347  3.6965809461276217`*^9, 3.6965809488385057`*^9}, {3.7144743309076147`*^9,
348  3.71447433315618*^9}},ExpressionUUID->"6b40f8de-f3c5-4e35-84b1-\
349190d4364205e"],
350
351Cell[CellGroupData[{
352
353Cell[BoxData[{
354 RowBox[{
355  RowBox[{"$FeynRulesPath", "=",
356   RowBox[{
357   "SetDirectory", "[", "\"\<~/Physics_Software/feynrules-current/\>\"",
358    "]"}]}], ";"}], "\[IndentingNewLine]",
359 RowBox[{
360  RowBox[{"<<", "FeynRules`"}], ";"}], "\[IndentingNewLine]",
361 RowBox[{
362  RowBox[{"SetDirectory", "[",
363   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]}], "Input",
364 CellChangeTimes->{{3.696317476858032*^9, 3.696317532305331*^9}, {
365  3.696317585426186*^9, 3.696317651962386*^9}, {3.696317751376432*^9,
366  3.696317754478887*^9}, {3.699103763682543*^9, 3.699103764190173*^9}, {
367  3.700454730267549*^9, 3.7004547312056913`*^9}, {3.7091007677573233`*^9,
368  3.709100768378248*^9}, {3.711808185969709*^9, 3.711808186635766*^9}, {
369  3.71395474575002*^9, 3.7139547485442657`*^9}, {3.713955083095767*^9,
370  3.713955084043654*^9}, {3.713965524381658*^9, 3.713965525049067*^9}, {
371  3.714018009358693*^9, 3.714018010217772*^9}, {3.714472650356134*^9,
372  3.714472652059746*^9}, {3.714472697973639*^9, 3.714472717882505*^9}, {
373  3.714661806497555*^9, 3.714661811386827*^9}, {3.714877230574012*^9,
374  3.71487724167309*^9}},ExpressionUUID->"7be60793-69f3-4c51-a69f-\
37586b265422a0f"],
376
377Cell[CellGroupData[{
378
379Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
380 CellChangeTimes->{
381  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
382   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
383   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
384   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
385   3.7295918409634857`*^9, 3.729608070997796*^9,
386   3.729611288122607*^9},ExpressionUUID->"36a8f0dd-c3e4-45e7-8d12-\
387a20ecf0d526f"],
388
389Cell[BoxData[
390 InterpretationBox[
391  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>",
392   "\[InvisibleSpace]",
393   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}],
394   "\[InvisibleSpace]", "\<\").\"\>"}],
395  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
396  Editable->False]], "Print",
397 CellChangeTimes->{
398  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
399   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
400   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
401   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
402   3.7295918409634857`*^9, 3.729608070997796*^9,
403   3.729611288124034*^9},ExpressionUUID->"b7ceaeb9-38fe-4bda-aa66-\
404e85f04b4bf2a"],
405
406Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
407B. Fuks\"\>"], "Print",
408 CellChangeTimes->{
409  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
410   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
411   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
412   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
413   3.7295918409634857`*^9, 3.729608070997796*^9,
414   3.729611288125313*^9},ExpressionUUID->"90d8d3a6-bab3-4906-9b53-\
41577fdba0131b3"],
416
417Cell[BoxData["\<\" \"\>"], "Print",
418 CellChangeTimes->{
419  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
420   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
421   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
422   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
423   3.7295918409634857`*^9, 3.729608070997796*^9,
424   3.729611288126482*^9},ExpressionUUID->"ad5c6f45-076a-4326-a7d8-\
425696c58130505"],
426
427Cell[BoxData["\<\"Please cite:\"\>"], "Print",
428 CellChangeTimes->{
429  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
430   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
431   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
432   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
433   3.7295918409634857`*^9, 3.729608070997796*^9,
434   3.7296112881276283`*^9},ExpressionUUID->"09efc52a-a4ee-4c62-a1ca-\
4359c5976c6442e"],
436
437Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
438(arXiv:1310.1921);\"\>"], "Print",
439 CellChangeTimes->{
440  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
441   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
442   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
443   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
444   3.7295918409634857`*^9, 3.729608070997796*^9,
445   3.729611288128785*^9},ExpressionUUID->"3ffaaf78-e9e9-4754-8eb4-\
446d9d9c7218033"],
447
448Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
449(arXiv:0806.4194).\"\>"], "Print",
450 CellChangeTimes->{
451  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
452   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
453   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
454   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
455   3.7295918409634857`*^9, 3.729608070997796*^9,
456   3.729611288130039*^9},ExpressionUUID->"35e26f16-0bea-437a-a704-\
4571b107d602e54"],
458
459Cell[BoxData["\<\" \"\>"], "Print",
460 CellChangeTimes->{
461  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
462   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
463   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
464   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
465   3.7295918409634857`*^9, 3.729608070997796*^9,
466   3.729611288131385*^9},ExpressionUUID->"96ae02b2-315c-44b5-8dc6-\
467a8c795f71327"],
468
469Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
470 CellChangeTimes->{
471  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
472   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
473   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
474   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
475   3.7295918409634857`*^9, 3.729608070997796*^9,
476   3.729611288132653*^9},ExpressionUUID->"684ae78a-cff6-4379-9926-\
477736038a09e6b"],
478
479Cell[BoxData["\<\" \"\>"], "Print",
480 CellChangeTimes->{
481  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
482   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
483   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
484   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
485   3.7295918409634857`*^9, 3.729608070997796*^9,
486   3.72961128813381*^9},ExpressionUUID->"6743691e-a2e4-4430-a43d-\
487c5270eb92258"],
488
489Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
490FRPalette[].\"\>"], "Print",
491 CellChangeTimes->{
492  3.7148772425387983`*^9, 3.725884578762884*^9, 3.725884744497532*^9,
493   3.7262244511979713`*^9, {3.7269065465995483`*^9, 3.7269065735782537`*^9},
494   3.72897028748578*^9, 3.72897109528732*^9, 3.728971405478077*^9,
495   3.729582918648344*^9, 3.72958559301866*^9, 3.729588412852356*^9,
496   3.7295918409634857`*^9, 3.729608070997796*^9,
497   3.7296112881350317`*^9},ExpressionUUID->"a88dafd5-011d-4773-8752-\
498fffec82966fc"]
499}, Open  ]]
500}, Open  ]]
501}, Open  ]],
502
503Cell[CellGroupData[{
504
505Cell["model flavor general \[Alpha] scheme", "Section",
506 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
507  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9,
508  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
509  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9,
510  3.7140273462258577`*^9}, {3.714034026337254*^9, 3.7140340306501093`*^9}, {
511  3.714654213687354*^9,
512  3.714654217554427*^9}},ExpressionUUID->"c53cebc8-6012-49be-b928-\
513d79e1a2ece39"],
514
515Cell[BoxData[{
516 RowBox[{
517  RowBox[{"Flavor", "=", "general"}], ";"}], "\[IndentingNewLine]",
518 RowBox[{
519  RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
520 CellChangeTimes->CompressedData["
5211:eJxTTMoPSmViYGAQBWIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
522BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
523BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
524gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
525oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
526tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDANABx9xdQ=
527 
528  "],ExpressionUUID->"dfc4c8d8-5aa2-4bda-a486-e292b29d50dd"],
529
530Cell[TextData[{
531 StyleBox["Warning!",
532  FontWeight->"Bold",
533  FontColor->RGBColor[1, 0, 0]],
534 " due to the large number of parameters, importing the flavor general model \
535might take  ~ 5 minutes"
536}], "Text",
537 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
538  3.714655094561593*^9, 3.714655094710567*^9}, {3.725885215761003*^9,
539  3.725885218189393*^9}, {3.726906855142788*^9, 3.72690687087689*^9}},
540 Background->RGBColor[
541  1, 1, 0.85],ExpressionUUID->"c110c552-09ea-4921-931f-2651ba8f78f9"],
542
543Cell[CellGroupData[{
544
545Cell[BoxData[{
546 RowBox[{
547  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}],
548  ";"}], "\[IndentingNewLine]",
549 RowBox[{
550  RowBox[{
551   RowBox[{"$Assumptions", "=",
552    RowBox[{
553     RowBox[{
554      RowBox[{
555       RowBox[{"cth", "^", "2"}], "+",
556       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&",
557     RowBox[{
558      RowBox[{"vevhat", "^", "2"}], "\[Equal]",
559      RowBox[{"1", "/",
560       RowBox[{"(",
561        RowBox[{
562         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}],
563  RowBox[{"(*",
564   RowBox[{
565   "definition", " ", "useful", " ", "for", " ", "algebraic", " ",
566    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
567 CellChangeTimes->{
568  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9},
569   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9},
570   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
571   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9,
572   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9},
573   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
574   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9,
575   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
576   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9,
577   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
578   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
579   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9,
580   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
581   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9,
582   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
583   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9,
584   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
585   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9,
586   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
587   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9,
588   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
589   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9,
590   3.713952603424769*^9},
591   3.714654600097947*^9},ExpressionUUID->"4da591a6-13d7-4ac1-921d-\
592674a71a54cc8"],
593
594Cell[CellGroupData[{
595
596Cell[BoxData["\<\"Flavor general framework selected\"\>"], "Print",
597 CellChangeTimes->{
598  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
599   3.728971412046321*^9},ExpressionUUID->"f7bf66d2-4e32-44ba-b456-\
60010f54b0c1aa0"],
601
602Cell[BoxData[
603 InterpretationBox[
604  RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", "\[Alpha]",
605   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]",
606   SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>",
607   "\[InvisibleSpace]",
608   SubscriptBox["G", "f"]}],
609  SequenceForm["Input parameters: ", FeynRules`\[Alpha], ", ",
610   Subscript[FeynRules`m, $CellContext`Z], ", ",
611   Subscript[FeynRules`G, FeynRules`f]],
612  Editable->False]], "Print",
613 CellChangeTimes->{
614  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
615   3.72897141204799*^9},ExpressionUUID->"fe1f5602-df35-488c-9407-\
616631835fc1f98"],
617
618Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
619 CellChangeTimes->{
620  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
621   3.728971412092065*^9},ExpressionUUID->"d22aff24-f341-465f-83ea-\
622af910f2aa404"],
623
624Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
625 CellChangeTimes->{
626  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
627   3.7289714120935373`*^9},ExpressionUUID->"282ea2cf-8cf6-46fc-94d1-\
628f4eac6ba6b55"],
629
630Cell[BoxData[
631 InterpretationBox[
632  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.0\"\>"}],
633  SequenceForm["Model Version: ", "2.0"],
634  Editable->False]], "Print",
635 CellChangeTimes->{
636  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
637   3.728971412095068*^9},ExpressionUUID->"40bf39db-8f45-4b41-9d1d-\
6382a9f94616f41"],
639
640Cell[BoxData["\<\"Please cite\"\>"], "Print",
641 CellChangeTimes->{
642  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
643   3.728971412096594*^9},ExpressionUUID->"e4510588-118f-4791-bdde-\
64491923b19f246"],
645
646Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
647 CellChangeTimes->{
648  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
649   3.72897141209805*^9},ExpressionUUID->"a32e1fb0-77fe-4ce7-a362-\
65023a60b923bf2"],
651
652Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
653 CellChangeTimes->{
654  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
655   3.728971412099581*^9},ExpressionUUID->"73b5a643-f19a-433b-b9f7-\
656a1ea92904c10"],
657
658Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
659"Print",
660 CellChangeTimes->{
661  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
662   3.728971412101636*^9},ExpressionUUID->"9d2e9a8b-b1c7-4087-b508-\
663a64c7a568b21"],
664
665Cell[BoxData["\<\"\"\>"], "Print",
666 CellChangeTimes->{
667  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
668   3.728971412103085*^9},ExpressionUUID->"1fc3cc74-e968-4132-9999-\
669af8e641e0fc1"],
670
671Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
672 CellChangeTimes->{
673  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
674   3.7289714121368427`*^9},ExpressionUUID->"d566f0f2-34a5-4144-bb20-\
67519b56ecf0797"],
676
677Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
678 CellChangeTimes->{
679  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
680   3.728971412265396*^9},ExpressionUUID->"363bd0c9-a249-4e77-b4cc-\
6813525b0160753"],
682
683Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
684 CellChangeTimes->{
685  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
686   3.728971412268067*^9},ExpressionUUID->"7240cc41-f3e7-4ab6-b174-\
687f63b49e6bef8"],
688
689Cell[BoxData[
690 InterpretationBox[
691  RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>",
692   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
693  SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
694  Editable->False]], "Print",
695 CellChangeTimes->{
696  3.725884752771562*^9, {3.726906554588174*^9, 3.726906577918921*^9},
697   3.728971712110046*^9},ExpressionUUID->"1cd7e254-a3cb-4fbb-8651-\
6984e58ee2d1a18"]
699}, Open  ]]
700}, Open  ]],
701
702Cell[BoxData[
703 RowBox[{
704  RowBox[{"(*", " ",
705   RowBox[{
706   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ",
707    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
708  RowBox[{
709   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=",
710   RowBox[{"Collect", "[",
711    RowBox[{
712     RowBox[{"Expand", "[", "x", "]"}], ",",
713     RowBox[{"Join", "[",
714      RowBox[{"WC6indices", ",",
715       RowBox[{"Conjugate", "/@", "WC6indices"}], ",",
716       RowBox[{"{",
717        RowBox[{
718        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
719          ",", "dgw"}], "}"}]}], "]"}], ",",
720     RowBox[{
721      RowBox[{"FullSimplify", "[",
722       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\
723
724 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
725   3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9,
726   3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
727   3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9,
728   3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
729   3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9,
730   3.6986454466349792`*^9}, {3.6990803840045652`*^9,
731   3.6990803931031227`*^9}, {3.707025063385503*^9, 3.707025074535533*^9}, {
732   3.707026201080791*^9, 3.707026206097932*^9}, {3.707733746790945*^9,
733   3.707733759745702*^9}, {3.711875906183223*^9, 3.71187590676577*^9}, {
734   3.712555385621932*^9, 3.712555393408392*^9}, 3.714654203616951*^9, {
735   3.7146550454382*^9,
736   3.714655049287825*^9}},ExpressionUUID->"f58736e1-2cb2-4219-859f-\
73768c4482f9ccd"],
738
739Cell[CellGroupData[{
740
741Cell[BoxData[
742 RowBox[{"(*",
743  RowBox[{"LoadRestriction", "[", "\"\<CPconserving.rst\>\"", "]"}],
744  "*)"}]], "Input",
745 CellChangeTimes->{{3.7258851910485983`*^9, 3.725885204222164*^9}, {
746  3.7269071410276833`*^9,
747  3.726907142642144*^9}},ExpressionUUID->"90113a27-38d6-45a4-a4b0-\
748d71fde76e1c7"],
749
750Cell[BoxData[
751 InterpretationBox[
752  RowBox[{"\<\"Loading restrictions from \"\>",
753   "\[InvisibleSpace]", "\<\"CPconserving.rst\"\>",
754   "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
755   DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
756    ImageSizeCache->{226., {2., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
757   "\[InvisibleSpace]", "420"}],
758  SequenceForm["Loading restrictions from ", "CPconserving.rst", " : ",
759   Dynamic[PRIVATE`FR$restrictionCounter], " / ", 420],
760  Editable->False]], "Print",
761 CellChangeTimes->{
762  3.725885208111805*^9},ExpressionUUID->"ce690e60-4f67-493b-bb7c-\
7637bfbf4e8b5a9"]
764}, Open  ]],
765
766Cell[CellGroupData[{
767
768Cell[BoxData[
769 RowBox[{
770  RowBox[{
771   RowBox[{"FeynmanRules", "[",
772    RowBox[{
773     RowBox[{"LSMloop", "+",
774      RowBox[{
775       RowBox[{"(",
776        RowBox[{
777         RowBox[{"cHG", " ", "OHG"}], " ", "+", " ",
778         RowBox[{"cHGtil", " ", "OHGtil"}]}], ")"}], "/",
779       RowBox[{"LambdaSMEFT", "^", "2"}]}]}], ",",
780     RowBox[{"SelectParticles", "\[Rule]",
781      RowBox[{"{",
782       RowBox[{
783        RowBox[{"{",
784         RowBox[{"G", ",", "G", ",", "H"}], "}"}], ",",
785        RowBox[{"{",
786         RowBox[{"G", ",", "G", ",", "H", ",", "H"}], "}"}]}], "}"}]}]}],
787    "]"}], "//", "WCsimplify"}], "//", "TableForm"}]], "Input",
788 CellChangeTimes->{{3.728970297972439*^9, 3.7289703559690847`*^9}, {
789  3.728970399289207*^9, 3.728970406625471*^9}, {3.728970695184454*^9,
790  3.7289707191795483`*^9}, {3.728970751408709*^9, 3.728970788144291*^9}, {
791  3.728970992696302*^9, 3.728971000670878*^9}, {3.728973223394101*^9,
792  3.728973237579611*^9}},ExpressionUUID->"e3bfaa60-bc5c-488b-83ed-\
793701b44dbe5ac"],
794
795Cell[CellGroupData[{
796
797Cell[BoxData[
798 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
799  StripOnInput->False,
800  LineColor->RGBColor[1, 0.5, 0],
801  FrontFaceColor->RGBColor[1, 0.5, 0],
802  BackFaceColor->RGBColor[1, 0.5, 0],
803  GraphicsColor->RGBColor[1, 0.5, 0],
804  FontWeight->Bold,
805  FontColor->RGBColor[1, 0.5, 0]]], "Print",
806 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9},
807   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
808   3.728973230540729*^9,
809   3.728973240444737*^9}},ExpressionUUID->"df5f5226-236a-4000-8e15-\
810cd66bda745cc"],
811
812Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
813 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9},
814   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
815   3.728973230540729*^9,
816   3.728973240446768*^9}},ExpressionUUID->"531b582b-a470-4ce1-a525-\
817ffc569fe411e"],
818
819Cell[BoxData[
820 InterpretationBox[
821  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
822   "\[InvisibleSpace]", "\<\" cores\"\>"}],
823  SequenceForm["Expanding the indices over ", 2, " cores"],
824  Editable->False]], "Print",
825 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9},
826   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
827   3.728973230540729*^9,
828   3.728973240449257*^9}},ExpressionUUID->"ab03436a-ba9c-4300-b656-\
82973722c07084d"],
830
831Cell[BoxData["\<\"Collecting the different structures that enter the \
832vertex.\"\>"], "Print",
833 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9},
834   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
835   3.728973230540729*^9,
836   3.728973242163278*^9}},ExpressionUUID->"b46ee0e2-304a-4e58-84f2-\
837973ff1cb5da4"],
838
839Cell[BoxData[
840 InterpretationBox[
841  RowBox[{
842  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
843-> starting the computation: \"\>", "\[InvisibleSpace]",
844   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
845    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
846   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
847  SequenceForm[
848  2, " possible non-zero vertices have been found -> starting the \
849computation: ",
850   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
851  Editable->False]], "Print",
852 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9},
853   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
854   3.728973230540729*^9,
855   3.728973242187127*^9}},ExpressionUUID->"8220978a-c6aa-444a-88b1-\
856ee5629827c5a"],
857
858Cell[BoxData[
859 InterpretationBox[
860  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
861  SequenceForm[2, " vertices obtained."],
862  Editable->False]], "Print",
863 CellChangeTimes->{{3.7289707543311996`*^9, 3.728970790039659*^9},
864   3.728971008533245*^9, 3.72897112722514*^9, 3.7289717315533524`*^9, {
865   3.728973230540729*^9,
866   3.728973242527041*^9}},ExpressionUUID->"bcee00b7-1748-4128-a0c2-\
867ac8114c91282"]
868}, Open  ]],
869
870Cell[BoxData[
871 InterpretationBox[GridBox[{
872    {GridBox[{
873       {"G", "1"},
874       {"G", "2"},
875       {"H", "3"}
876      },
877      GridBoxAlignment->{
878       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
879        "RowsIndexed" -> {}},
880      GridBoxSpacings->{"Columns" -> {
881          Offset[0.27999999999999997`], {
882           Offset[0.7]},
883          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
884          Offset[0.2], {
885           Offset[0.1]},
886          Offset[0.2]}, "RowsIndexed" -> {}}],
887     RowBox[{
888      RowBox[{"-",
889       FractionBox[
890        RowBox[{"2", " ", "\[ImaginaryI]", " ",
891         SubscriptBox["c",
892          RowBox[{"H", " ",
893           OverscriptBox["G", "~"]}]], " ",
894         OverscriptBox["v", "^"], " ",
895         SubscriptBox["\[Epsilon]",
896          RowBox[{
897           SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
898           SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",",
899           "\[Beta]1"}]], " ",
900         RowBox[{"(",
901          RowBox[{
902           RowBox[{
903            SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ",
904            SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"]}], "-",
905           RowBox[{
906            SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ",
907            SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"]}]}], ")"}], " ",
908         SubscriptBox["\[Delta]",
909          RowBox[{
910           SubscriptBox["\<\"a\"\>", "1"], ",",
911           SubscriptBox["\<\"a\"\>", "2"]}]]}],
912        SuperscriptBox["\[CapitalLambda]", "2"]]}], "+",
913      FractionBox[
914       RowBox[{"4", " ", "\[ImaginaryI]", " ",
915        SubscriptBox["g", "HGG"], " ",
916        SubscriptBox["\[Delta]",
917         RowBox[{
918          SubscriptBox["\<\"a\"\>", "1"], ",",
919          SubscriptBox["\<\"a\"\>", "2"]}]], " ",
920        RowBox[{"(",
921         RowBox[{
922          RowBox[{
923           SubsuperscriptBox["\<\"p\"\>", "1",
924            SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
925           SubsuperscriptBox["\<\"p\"\>", "2",
926            SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-",
927          RowBox[{
928           SubscriptBox["\[Eta]",
929            RowBox[{
930             SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
931             SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
932           RowBox[{
933            SubscriptBox["\<\"p\"\>", "1"], ".",
934            SubscriptBox["p", "2"]}]}]}], ")"}]}],
935       OverscriptBox["v", "^"]], "+",
936      FractionBox[
937       RowBox[{"4", " ", "\[ImaginaryI]", " ",
938        SubscriptBox["c", "HG"], " ",
939        OverscriptBox["v", "^"], " ",
940        SubscriptBox["\[Delta]",
941         RowBox[{
942          SubscriptBox["\<\"a\"\>", "1"], ",",
943          SubscriptBox["\<\"a\"\>", "2"]}]], " ",
944        RowBox[{"(",
945         RowBox[{
946          RowBox[{
947           SubsuperscriptBox["\<\"p\"\>", "1",
948            SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
949           SubsuperscriptBox["\<\"p\"\>", "2",
950            SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-",
951          RowBox[{
952           SubscriptBox["\[Eta]",
953            RowBox[{
954             SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
955             SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
956           RowBox[{
957            SubscriptBox["\<\"p\"\>", "1"], ".",
958            SubscriptBox["p", "2"]}]}]}], ")"}]}],
959       SuperscriptBox["\[CapitalLambda]", "2"]]}]},
960    {GridBox[{
961       {"G", "1"},
962       {"G", "2"},
963       {"H", "3"},
964       {"H", "4"}
965      },
966      GridBoxAlignment->{
967       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
968        "RowsIndexed" -> {}},
969      GridBoxSpacings->{"Columns" -> {
970          Offset[0.27999999999999997`], {
971           Offset[0.7]},
972          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
973          Offset[0.2], {
974           Offset[0.1]},
975          Offset[0.2]}, "RowsIndexed" -> {}}],
976     RowBox[{
977      RowBox[{"-",
978       FractionBox[
979        RowBox[{"2", " ", "\[ImaginaryI]", " ",
980         SubscriptBox["c",
981          RowBox[{"H", " ",
982           OverscriptBox["G", "~"]}]], " ",
983         SubscriptBox["\[Epsilon]",
984          RowBox[{
985           SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
986           SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",",
987           "\[Beta]1"}]], " ",
988         RowBox[{"(",
989          RowBox[{
990           RowBox[{
991            SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ",
992            SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"]}], "-",
993           RowBox[{
994            SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ",
995            SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"]}]}], ")"}], " ",
996         SubscriptBox["\[Delta]",
997          RowBox[{
998           SubscriptBox["\<\"a\"\>", "1"], ",",
999           SubscriptBox["\<\"a\"\>", "2"]}]]}],
1000        SuperscriptBox["\[CapitalLambda]", "2"]]}], "+",
1001      FractionBox[
1002       RowBox[{"4", " ", "\[ImaginaryI]", " ",
1003        SubscriptBox["c", "HG"], " ",
1004        SubscriptBox["\[Delta]",
1005         RowBox[{
1006          SubscriptBox["\<\"a\"\>", "1"], ",",
1007          SubscriptBox["\<\"a\"\>", "2"]}]], " ",
1008        RowBox[{"(",
1009         RowBox[{
1010          RowBox[{
1011           SubsuperscriptBox["\<\"p\"\>", "1",
1012            SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
1013           SubsuperscriptBox["\<\"p\"\>", "2",
1014            SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "-",
1015          RowBox[{
1016           SubscriptBox["\[Eta]",
1017            RowBox[{
1018             SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1019             SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
1020           RowBox[{
1021            SubscriptBox["\<\"p\"\>", "1"], ".",
1022            SubscriptBox["p", "2"]}]}]}], ")"}]}],
1023       SuperscriptBox["\[CapitalLambda]", "2"]]}]}
1024   },
1025   GridBoxAlignment->{
1026    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1027     "RowsIndexed" -> {}},
1028   GridBoxSpacings->{"Columns" -> {
1029       Offset[0.27999999999999997`], {
1030        Offset[2.0999999999999996`]},
1031       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1032       Offset[0.2], {
1033        Offset[0.4]},
1034       Offset[0.2]}, "RowsIndexed" -> {}}],
1035  TableForm[{{{{FeynRules`G, 1}, {FeynRules`G, 2}, {FeynRules`H, 3}},
1036     Complex[0, -2] $CellContext`cHGtil $CellContext`LambdaSMEFT^(-2) \
1037$CellContext`vevhat FeynRules`Eps[
1038        FeynRules`Index[FeynRules`Lorentz,
1039         FeynRules`Ext[1]],
1040        FeynRules`Index[FeynRules`Lorentz,
1041         FeynRules`Ext[2]],
1042        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1],
1043        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]] (
1044       FeynRules`FV[1,
1045          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]]
1046        FeynRules`FV[2,
1047          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]] -
1048       FeynRules`FV[1,
1049         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]]
1050       FeynRules`FV[2,
1051         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]])
1052      FeynRules`IndexDelta[
1053        FeynRules`Index[FeynRules`Gluon,
1054         FeynRules`Ext[1]],
1055        FeynRules`Index[FeynRules`Gluon,
1056         FeynRules`Ext[2]]] +
1057     Complex[0, 4] $CellContext`gHgg $CellContext`vevhat^(-1)
1058      FeynRules`IndexDelta[
1059        FeynRules`Index[FeynRules`Gluon,
1060         FeynRules`Ext[1]],
1061        FeynRules`Index[FeynRules`Gluon,
1062         FeynRules`Ext[2]]] (FeynRules`FV[1,
1063          FeynRules`Index[FeynRules`Lorentz,
1064           FeynRules`Ext[2]]] FeynRules`FV[2,
1065          FeynRules`Index[FeynRules`Lorentz,
1066           FeynRules`Ext[1]]] - FeynRules`ME[
1067         FeynRules`Index[FeynRules`Lorentz,
1068          FeynRules`Ext[1]],
1069         FeynRules`Index[FeynRules`Lorentz,
1070          FeynRules`Ext[2]]] FeynRules`SP[1, 2]) +
1071     Complex[0,
1072        4] $CellContext`cHG $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat
1073      FeynRules`IndexDelta[
1074        FeynRules`Index[FeynRules`Gluon,
1075         FeynRules`Ext[1]],
1076        FeynRules`Index[FeynRules`Gluon,
1077         FeynRules`Ext[2]]] (FeynRules`FV[1,
1078          FeynRules`Index[FeynRules`Lorentz,
1079           FeynRules`Ext[2]]] FeynRules`FV[2,
1080          FeynRules`Index[FeynRules`Lorentz,
1081           FeynRules`Ext[1]]] - FeynRules`ME[
1082         FeynRules`Index[FeynRules`Lorentz,
1083          FeynRules`Ext[1]],
1084         FeynRules`Index[FeynRules`Lorentz,
1085          FeynRules`Ext[2]]] FeynRules`SP[1, 2])}, {{{FeynRules`G, 1}, {
1086      FeynRules`G, 2}, {FeynRules`H, 3}, {FeynRules`H, 4}},
1087     Complex[0, -2] $CellContext`cHGtil $CellContext`LambdaSMEFT^(-2)
1088      FeynRules`Eps[
1089        FeynRules`Index[FeynRules`Lorentz,
1090         FeynRules`Ext[1]],
1091        FeynRules`Index[FeynRules`Lorentz,
1092         FeynRules`Ext[2]],
1093        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1],
1094        FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]] (
1095       FeynRules`FV[1,
1096          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]]
1097        FeynRules`FV[2,
1098          FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]] -
1099       FeynRules`FV[1,
1100         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Alpha]1]]
1101       FeynRules`FV[2,
1102         FeynRules`Index[FeynRules`Lorentz, $CellContext`\[Beta]1]])
1103      FeynRules`IndexDelta[
1104        FeynRules`Index[FeynRules`Gluon,
1105         FeynRules`Ext[1]],
1106        FeynRules`Index[FeynRules`Gluon,
1107         FeynRules`Ext[2]]] +
1108     Complex[0, 4] $CellContext`cHG $CellContext`LambdaSMEFT^(-2)
1109      FeynRules`IndexDelta[
1110        FeynRules`Index[FeynRules`Gluon,
1111         FeynRules`Ext[1]],
1112        FeynRules`Index[FeynRules`Gluon,
1113         FeynRules`Ext[2]]] (FeynRules`FV[1,
1114          FeynRules`Index[FeynRules`Lorentz,
1115           FeynRules`Ext[2]]] FeynRules`FV[2,
1116          FeynRules`Index[FeynRules`Lorentz,
1117           FeynRules`Ext[1]]] - FeynRules`ME[
1118         FeynRules`Index[FeynRules`Lorentz,
1119          FeynRules`Ext[1]],
1120         FeynRules`Index[FeynRules`Lorentz,
1121          FeynRules`Ext[2]]] FeynRules`SP[1, 2])}}]]], "Output",
1122 CellChangeTimes->{{3.728970692694235*^9, 3.7289707068657837`*^9}, {
1123   3.7289707493214817`*^9, 3.728970791702549*^9}, 3.7289710103695*^9,
1124   3.728971129066411*^9, 3.72897173367585*^9, {3.72897323325054*^9,
1125   3.728973243122398*^9}},ExpressionUUID->"48e161f3-55eb-4810-a978-\
1126c5b9945ccc8f"]
1127}, Open  ]],
1128
1129Cell[CellGroupData[{
1130
1131Cell[BoxData[{
1132 RowBox[{
1133  RowBox[{
1134   RowBox[{
1135    RowBox[{
1136     RowBox[{"FeynmanRules", "[",
1137      RowBox[{
1138       RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3"}], ",",
1139       RowBox[{"SelectParticles", "\[Rule]",
1140        RowBox[{"{",
1141         RowBox[{"H", ",", "H", ",", "H"}], "}"}]}]}], "]"}], "//.",
1142     RowBox[{
1143      RowBox[{"SP", "[",
1144       RowBox[{"x_", ",", "3"}], "]"}], "\[Rule]",
1145      RowBox[{
1146       RowBox[{"-",
1147        RowBox[{"SP", "[",
1148         RowBox[{"x", ",", "1"}], "]"}]}], "-",
1149       RowBox[{"SP", "[",
1150        RowBox[{"x", ",", "2"}], "]"}]}]}]}], "//", "OptimizeIndex"}], "//",
1151   "Simplify"}], "//", "TableForm"}], "\[IndentingNewLine]",
1152 RowBox[{
1153  RowBox[{
1154   RowBox[{"%", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//",
1155  "TableForm"}]}], "Input",
1156 CellChangeTimes->{{3.728970435493824*^9, 3.728970466450448*^9},
1157   3.7289708447957573`*^9, {3.7289709487547293`*^9, 3.728970949827463*^9}, {
1158   3.728971012122827*^9, 3.7289710127619467`*^9}, {3.728971187842832*^9,
1159   3.728971259986041*^9}, {3.7289713089680367`*^9,
1160   3.7289713601271553`*^9}},ExpressionUUID->"c26691ff-f632-4305-8671-\
11618cfd87db9120"],
1162
1163Cell[CellGroupData[{
1164
1165Cell[BoxData[
1166 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1167  StripOnInput->False,
1168  LineColor->RGBColor[1, 0.5, 0],
1169  FrontFaceColor->RGBColor[1, 0.5, 0],
1170  BackFaceColor->RGBColor[1, 0.5, 0],
1171  GraphicsColor->RGBColor[1, 0.5, 0],
1172  FontWeight->Bold,
1173  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1174 CellChangeTimes->{
1175  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9},
1176   3.728971336525646*^9, 3.728971370111155*^9,
1177   3.728971759852539*^9},ExpressionUUID->"862e9f62-b822-4440-861f-\
117880a24fe736f4"],
1179
1180Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1181 CellChangeTimes->{
1182  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9},
1183   3.728971336525646*^9, 3.728971370111155*^9,
1184   3.728971759854557*^9},ExpressionUUID->"4c2dea28-63a9-433f-9e47-\
1185c02fd2b087b3"],
1186
1187Cell[BoxData[
1188 InterpretationBox[
1189  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
1190   "\[InvisibleSpace]", "\<\" cores\"\>"}],
1191  SequenceForm["Expanding the indices over ", 2, " cores"],
1192  Editable->False]], "Print",
1193 CellChangeTimes->{
1194  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9},
1195   3.728971336525646*^9, 3.728971370111155*^9,
1196   3.7289717598563013`*^9},ExpressionUUID->"ab02d9c4-198e-4466-880b-\
11973264f55efc13"],
1198
1199Cell[BoxData["\<\"Collecting the different structures that enter the \
1200vertex.\"\>"], "Print",
1201 CellChangeTimes->{
1202  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9},
1203   3.728971336525646*^9, 3.728971370111155*^9,
1204   3.728971764279398*^9},ExpressionUUID->"b0a27050-2358-4326-903a-\
12054723d0867d46"],
1206
1207Cell[BoxData[
1208 InterpretationBox[
1209  RowBox[{
1210  "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1211-> starting the computation: \"\>", "\[InvisibleSpace]",
1212   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1213    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1214   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
1215  SequenceForm[
1216  1, " possible non-zero vertices have been found -> starting the \
1217computation: ",
1218   Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
1219  Editable->False]], "Print",
1220 CellChangeTimes->{
1221  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9},
1222   3.728971336525646*^9, 3.728971370111155*^9,
1223   3.7289717642830544`*^9},ExpressionUUID->"f7c50d97-5960-45b1-9d75-\
122471735bb47b63"],
1225
1226Cell[BoxData["\<\"1 vertex obtained.\"\>"], "Print",
1227 CellChangeTimes->{
1228  3.728971016126069*^9, {3.728971212356152*^9, 3.728971268915763*^9},
1229   3.728971336525646*^9, 3.728971370111155*^9,
1230   3.7289717643919487`*^9},ExpressionUUID->"26b2fd45-9526-426b-a79d-\
1231c21f149ee00e"]
1232}, Open  ]],
1233
1234Cell[BoxData[
1235 InterpretationBox[GridBox[{
1236    {GridBox[{
1237       {"H", "1"},
1238       {"H", "2"},
1239       {"H", "3"}
1240      },
1241      GridBoxAlignment->{
1242       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1243        "RowsIndexed" -> {}},
1244      GridBoxSpacings->{"Columns" -> {
1245          Offset[0.27999999999999997`], {
1246           Offset[0.7]},
1247          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1248          Offset[0.2], {
1249           Offset[0.1]},
1250          Offset[0.2]}, "RowsIndexed" -> {}}],
1251     RowBox[{
1252      FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1253      OverscriptBox["v", "^"], " ",
1254      RowBox[{"(",
1255       RowBox[{
1256        FractionBox[
1257         RowBox[{"12", " ", "dMH2", " ", "lam"}],
1258         SuperscriptBox["MH", "2"]], "+",
1259        FractionBox[
1260         RowBox[{
1261          RowBox[{"6", " ",
1262           RowBox[{"(",
1263            RowBox[{
1264             RowBox[{"-", "2"}], "+",
1265             RowBox[{
1266              SqrtBox["2"], " ", "dGf"}]}], ")"}], " ", "lam", " ",
1267           SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
1268          RowBox[{"30", " ",
1269           SubscriptBox["c", "H"], " ",
1270           SuperscriptBox[
1271            OverscriptBox["v", "^"], "2"]}], "+",
1272          RowBox[{"9", " ",
1273           RowBox[{"(",
1274            RowBox[{
1275             RowBox[{
1276              RowBox[{"-", "4"}], " ",
1277              SubscriptBox["c",
1278               RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
1279             SubscriptBox["c", "HD"]}], ")"}], " ", "lam", " ",
1280           SuperscriptBox[
1281            OverscriptBox["v", "^"], "2"]}], "-",
1282          RowBox[{"2", " ",
1283           RowBox[{"(",
1284            RowBox[{
1285             RowBox[{"4", " ",
1286              SubscriptBox["c",
1287               RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
1288             SubscriptBox["c", "HD"]}], ")"}], " ",
1289           RowBox[{"(",
1290            RowBox[{
1291             RowBox[{
1292              SubscriptBox["\<\"p\"\>", "1"], ".",
1293              SubscriptBox["p", "1"]}], "+",
1294             RowBox[{
1295              SubscriptBox["\<\"p\"\>", "1"], ".",
1296              SubscriptBox["p", "2"]}], "+",
1297             RowBox[{
1298              SubscriptBox["\<\"p\"\>", "2"], ".",
1299              SubscriptBox["p", "2"]}]}], ")"}]}]}],
1300         SuperscriptBox["\[CapitalLambda]", "2"]]}], ")"}]}]}
1301   },
1302   GridBoxAlignment->{
1303    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1304     "RowsIndexed" -> {}},
1305   GridBoxSpacings->{"Columns" -> {
1306       Offset[0.27999999999999997`], {
1307        Offset[2.0999999999999996`]},
1308       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1309       Offset[0.2], {
1310        Offset[0.4]},
1311       Offset[0.2]}, "RowsIndexed" -> {}}],
1312  TableForm[{{{{FeynRules`H, 1}, {FeynRules`H, 2}, {FeynRules`H, 3}},
1313     Complex[0,
1314       Rational[1, 2]] $CellContext`vevhat (
1315      12 $CellContext`dMH2 $CellContext`lam $CellContext`MH^(-2) + \
1316$CellContext`LambdaSMEFT^(-2) (
1317        6 (-2 + 2^
1318            Rational[
1319             1, 2] $CellContext`dGf) $CellContext`lam \
1320$CellContext`LambdaSMEFT^2 + 30 $CellContext`cH $CellContext`vevhat^2 +
1321        9 ((-4) $CellContext`cHbox + $CellContext`cHDD) $CellContext`lam \
1322$CellContext`vevhat^2 -
1323        2 (4 $CellContext`cHbox - $CellContext`cHDD) (FeynRules`SP[1, 1] +
1324         FeynRules`SP[1, 2] + FeynRules`SP[2, 2])))}}]]], "Output",
1325 CellChangeTimes->{
1326  3.728970842893005*^9, 3.728970946642741*^9, {3.728971004962888*^9,
1327   3.7289710163629932`*^9}, {3.728971216188095*^9, 3.72897127294965*^9},
1328   3.72897134064121*^9, 3.728971374582238*^9,
1329   3.7289717648919077`*^9},ExpressionUUID->"a3df65b3-abf0-47f5-9070-\
133070c6562c5c6b"],
1331
1332Cell[BoxData[
1333 InterpretationBox[GridBox[{
1334    {GridBox[{
1335       {"H", "1"},
1336       {"H", "2"},
1337       {"H", "3"}
1338      },
1339      GridBoxAlignment->{
1340       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1341        "RowsIndexed" -> {}},
1342      GridBoxSpacings->{"Columns" -> {
1343          Offset[0.27999999999999997`], {
1344           Offset[0.7]},
1345          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1346          Offset[0.2], {
1347           Offset[0.1]},
1348          Offset[0.2]}, "RowsIndexed" -> {}}],
1349     RowBox[{
1350      RowBox[{
1351       RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", "lam", " ",
1352       OverscriptBox["v", "^"]}], "+",
1353      FractionBox[
1354       RowBox[{"6", " ", "\[ImaginaryI]", " ",
1355        SubscriptBox["c", "H"], " ",
1356        SuperscriptBox[
1357         OverscriptBox["v", "^"], "3"]}],
1358       SuperscriptBox["\[CapitalLambda]", "2"]], "+",
1359      FractionBox[
1360       RowBox[{"3", " ", "\[ImaginaryI]", " ", "lam", " ",
1361        SuperscriptBox[
1362         OverscriptBox["v", "^"], "3"], " ",
1363        SubscriptBox["cHl3",
1364         RowBox[{"1", ",", "1"}]]}],
1365       SuperscriptBox["\[CapitalLambda]", "2"]], "+",
1366      FractionBox[
1367       RowBox[{"3", " ", "\[ImaginaryI]", " ", "lam", " ",
1368        SuperscriptBox[
1369         OverscriptBox["v", "^"], "3"], " ",
1370        SubscriptBox["cHl3",
1371         RowBox[{"2", ",", "2"}]]}],
1372       SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1373      FractionBox[
1374       RowBox[{"3", " ", "\[ImaginaryI]", " ", "lam", " ",
1375        SuperscriptBox[
1376         OverscriptBox["v", "^"], "3"], " ",
1377        SubscriptBox[
1378         SubscriptBox["c", "ll"],
1379         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
1380       SuperscriptBox["\[CapitalLambda]", "2"]], "-",
1381      FractionBox[
1382       RowBox[{"2", " ", "\[ImaginaryI]", " ",
1383        SubscriptBox["c",
1384         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
1385        OverscriptBox["v", "^"], " ",
1386        RowBox[{"(",
1387         RowBox[{
1388          RowBox[{"3", " ", "lam", " ",
1389           SuperscriptBox[
1390            OverscriptBox["v", "^"], "2"]}], "+",
1391          RowBox[{"2", " ",
1392           RowBox[{"(",
1393            RowBox[{
1394             RowBox[{
1395              SubscriptBox["\<\"p\"\>", "1"], ".",
1396              SubscriptBox["p", "1"]}], "+",
1397             RowBox[{
1398              SubscriptBox["\<\"p\"\>", "1"], ".",
1399              SubscriptBox["p", "2"]}], "+",
1400             RowBox[{
1401              SubscriptBox["\<\"p\"\>", "2"], ".",
1402              SubscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}],
1403       SuperscriptBox["\[CapitalLambda]", "2"]], "+",
1404      FractionBox[
1405       RowBox[{"\[ImaginaryI]", " ",
1406        SubscriptBox["c", "HD"], " ",
1407        OverscriptBox["v", "^"], " ",
1408        RowBox[{"(",
1409         RowBox[{
1410          RowBox[{"3", " ", "lam", " ",
1411           SuperscriptBox[
1412            OverscriptBox["v", "^"], "2"]}], "+",
1413          RowBox[{"2", " ",
1414           RowBox[{"(",
1415            RowBox[{
1416             RowBox[{
1417              SubscriptBox["\<\"p\"\>", "1"], ".",
1418              SubscriptBox["p", "1"]}], "+",
1419             RowBox[{
1420              SubscriptBox["\<\"p\"\>", "1"], ".",
1421              SubscriptBox["p", "2"]}], "+",
1422             RowBox[{
1423              SubscriptBox["\<\"p\"\>", "2"], ".",
1424              SubscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}],
1425       RowBox[{"2", " ",
1426        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
1427   },
1428   GridBoxAlignment->{
1429    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1430     "RowsIndexed" -> {}},
1431   GridBoxSpacings->{"Columns" -> {
1432       Offset[0.27999999999999997`], {
1433        Offset[2.0999999999999996`]},
1434       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1435       Offset[0.2], {
1436        Offset[0.4]},
1437       Offset[0.2]}, "RowsIndexed" -> {}}],
1438  TableForm[{{{{FeynRules`H, 1}, {FeynRules`H, 2}, {FeynRules`H, 3}},
1439     Complex[0, -6] $CellContext`lam $CellContext`vevhat +
1440     Complex[0,
1441        6] $CellContext`cH $CellContext`LambdaSMEFT^(-2) \
1442$CellContext`vevhat^3 +
1443     Complex[0,
1444        3] $CellContext`lam $CellContext`LambdaSMEFT^(-2) \
1445$CellContext`vevhat^3 $CellContext`cHl3[1, 1] +
1446     Complex[0,
1447        3] $CellContext`lam $CellContext`LambdaSMEFT^(-2) \
1448$CellContext`vevhat^3 $CellContext`cHl3[2, 2] +
1449     Complex[0, -3] $CellContext`lam $CellContext`LambdaSMEFT^(-2) \
1450$CellContext`vevhat^3 $CellContext`cll[1, 2, 2, 1] +
1451     Complex[0, -2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
1452$CellContext`vevhat (3 $CellContext`lam $CellContext`vevhat^2 +
1453       2 (FeynRules`SP[1, 1] + FeynRules`SP[1, 2] + FeynRules`SP[2, 2])) +
1454     Complex[0,
1455        Rational[
1456        1, 2]] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
1457$CellContext`vevhat (3 $CellContext`lam $CellContext`vevhat^2 +
1458       2 (FeynRules`SP[1, 1] + FeynRules`SP[1, 2] +
1459         FeynRules`SP[2, 2]))}}]]], "Output",
1460 CellChangeTimes->{
1461  3.728970842893005*^9, 3.728970946642741*^9, {3.728971004962888*^9,
1462   3.7289710163629932`*^9}, {3.728971216188095*^9, 3.72897127294965*^9},
1463   3.72897134064121*^9, 3.728971374582238*^9,
1464   3.7289717650484133`*^9},ExpressionUUID->"f2bed6c6-392f-42fb-8a56-\
14652aec031c4d53"]
1466}, Open  ]],
1467
1468Cell[CellGroupData[{
1469
1470Cell[BoxData[
1471 RowBox[{
1472  RowBox[{
1473   RowBox[{
1474    RowBox[{
1475     RowBox[{
1476      RowBox[{
1477       RowBox[{
1478        RowBox[{
1479         RowBox[{"FeynmanRules", "[",
1480          RowBox[{
1481           RowBox[{"LYukawa", "+", "L6cl5"}], ",",
1482           RowBox[{"SelectParticles", "\[Rule]",
1483            RowBox[{"{",
1484             RowBox[{
1485              RowBox[{"{",
1486               RowBox[{"uq", ",", "uqbar", ",", "H"}], "}"}], ",",
1487              RowBox[{"{",
1488               RowBox[{"uq", ",", "uqbar", ",", "H", ",", "H"}], "}"}]}],
1489             "}"}]}]}], "]"}], "//", "FlavorExpansion"}], "//", "LinearWC"}],
1490       "//",
1491       RowBox[{
1492        RowBox[{"ReplaceAll", "[",
1493         RowBox[{"#", ",", "alphaShifts"}], "]"}], "&"}]}], "//",
1494      "OptimizeIndex"}], "//", "Simplify"}], "//",
1495    RowBox[{
1496     RowBox[{"Collect", "[",
1497      RowBox[{"#", ",",
1498       RowBox[{"{",
1499        RowBox[{"cHDD", ",", "cHbox", ",",
1500         RowBox[{"cHl3", "[",
1501          RowBox[{
1502           RowBox[{"Index", "[",
1503            RowBox[{"Generation", ",", "1"}], "]"}], ",",
1504           RowBox[{"Index", "[",
1505            RowBox[{"Generation", ",", "1"}], "]"}]}], "]"}], ",",
1506         RowBox[{"cHl3", "[",
1507          RowBox[{
1508           RowBox[{"Index", "[",
1509            RowBox[{"Generation", ",", "2"}], "]"}], ",",
1510           RowBox[{"Index", "[",
1511            RowBox[{"Generation", ",", "2"}], "]"}]}], "]"}], ",",
1512         RowBox[{"cll", "[",
1513          RowBox[{
1514           RowBox[{"Index", "[",
1515            RowBox[{"Generation", ",", "1"}], "]"}], ",",
1516           RowBox[{"Index", "[",
1517            RowBox[{"Generation", ",", "2"}], "]"}], ",",
1518           RowBox[{"Index", "[",
1519            RowBox[{"Generation", ",", "2"}], "]"}], ",",
1520           RowBox[{"Index", "[",
1521            RowBox[{"Generation", ",", "1"}], "]"}]}], "]"}], ",", "cuH3x3",
1522         ",",
1523         RowBox[{"Conjugate", "[", "cuH3x3", "]"}]}], "}"}], ",",
1524       "Simplify"}], "]"}], "&"}]}], "//",
1525   RowBox[{
1526    RowBox[{"Select", "[",
1527     RowBox[{"#", ",",
1528      RowBox[{
1529       RowBox[{
1530        RowBox[{"!",
1531         RowBox[{"FreeQ", "[",
1532          RowBox[{"#", ",", "t"}], "]"}]}], "&&",
1533        RowBox[{"!",
1534         RowBox[{"FreeQ", "[",
1535          RowBox[{"#", ",", "tbar"}], "]"}]}]}], "&"}]}], "]"}], "&"}]}], "//",
1536   "TableForm"}]], "Input",
1537 CellChangeTimes->{{3.728970815855515*^9, 3.728970833321109*^9}, {
1538  3.728971211047118*^9, 3.728971212099345*^9}, {3.728971741957637*^9,
1539  3.728971754617878*^9}, {3.728971813251779*^9, 3.7289719099588757`*^9}, {
1540  3.728971950418058*^9, 3.7289719812964153`*^9}, {3.728972021293687*^9,
1541  3.728972067203093*^9}, {3.7289721012221622`*^9, 3.7289721053428173`*^9}, {
1542  3.7289721373650103`*^9, 3.7289721469216843`*^9}, {3.728972768804913*^9,
1543  3.728972769659342*^9}, {3.728972799680726*^9, 3.728972932463216*^9}, {
1544  3.728973008262121*^9, 3.728973045201191*^9}, {3.7289731352184887`*^9,
1545  3.728973178220443*^9}},ExpressionUUID->"00e5d10d-94d0-4412-925b-\
15461c616d997fec"],
1547
1548Cell[CellGroupData[{
1549
1550Cell[BoxData[
1551 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1552  StripOnInput->False,
1553  LineColor->RGBColor[1, 0.5, 0],
1554  FrontFaceColor->RGBColor[1, 0.5, 0],
1555  BackFaceColor->RGBColor[1, 0.5, 0],
1556  GraphicsColor->RGBColor[1, 0.5, 0],
1557  FontWeight->Bold,
1558  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1559 CellChangeTimes->{
1560  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1561   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1562   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1563   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1564   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1565   3.728973050205524*^9, 3.728973112406604*^9,
1566   3.72897318309711*^9},ExpressionUUID->"fae4aa60-1cf8-41f2-bc8f-\
15673622fb604dca"],
1568
1569Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1570 CellChangeTimes->{
1571  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1572   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1573   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1574   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1575   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1576   3.728973050205524*^9, 3.728973112406604*^9,
1577   3.7289731830986967`*^9},ExpressionUUID->"581111a9-9ef9-4e06-9c53-\
1578988d9edd599b"],
1579
1580Cell[BoxData[
1581 InterpretationBox[
1582  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
1583   "\[InvisibleSpace]", "\<\" cores\"\>"}],
1584  SequenceForm["Expanding the indices over ", 2, " cores"],
1585  Editable->False]], "Print",
1586 CellChangeTimes->{
1587  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1588   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1589   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1590   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1591   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1592   3.728973050205524*^9, 3.728973112406604*^9,
1593   3.728973183100377*^9},ExpressionUUID->"dcc42d6d-1d5c-45a7-81b2-\
1594ebffd37e862e"],
1595
1596Cell[BoxData["\<\"Collecting the different structures that enter the \
1597vertex.\"\>"], "Print",
1598 CellChangeTimes->{
1599  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1600   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1601   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1602   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1603   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1604   3.728973050205524*^9, 3.728973112406604*^9,
1605   3.7289731852674932`*^9},ExpressionUUID->"5a77f048-9f2f-4fd0-8c69-\
16068eb81729fdd5"],
1607
1608Cell[BoxData[
1609 InterpretationBox[
1610  RowBox[{
1611  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1612-> starting the computation: \"\>", "\[InvisibleSpace]",
1613   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1614    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1615   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
1616  SequenceForm[
1617  2, " possible non-zero vertices have been found -> starting the \
1618computation: ",
1619   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
1620  Editable->False]], "Print",
1621 CellChangeTimes->{
1622  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1623   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1624   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1625   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1626   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1627   3.728973050205524*^9, 3.728973112406604*^9,
1628   3.728973185270031*^9},ExpressionUUID->"5f523990-5a57-4bc4-9447-\
1629a590cc465c7b"],
1630
1631Cell[BoxData[
1632 InterpretationBox[
1633  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1634  SequenceForm[2, " vertices obtained."],
1635  Editable->False]], "Print",
1636 CellChangeTimes->{
1637  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1638   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1639   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1640   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1641   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1642   3.728973050205524*^9, 3.728973112406604*^9,
1643   3.728973185517642*^9},ExpressionUUID->"01983c43-06b4-486f-8377-\
1644a5fd27efc5a9"],
1645
1646Cell[BoxData[
1647 InterpretationBox[
1648  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
1649   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
1650    ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1651   "\[InvisibleSpace]", "2"}],
1652  SequenceForm["Flavor expansion of the vertices: ",
1653   Dynamic[FeynRules`FR$Count1], " / ", 2],
1654  Editable->False]], "Print",
1655 CellChangeTimes->{
1656  3.7289717723081512`*^9, {3.7289718196850653`*^9, 3.728971914655038*^9}, {
1657   3.728971957500403*^9, 3.728971986200815*^9}, 3.728972036769464*^9,
1658   3.728972071656636*^9, 3.728972110713676*^9, 3.7289721526771317`*^9,
1659   3.728972774459734*^9, {3.728972804652956*^9, 3.7289728286645317`*^9}, {
1660   3.728972907323544*^9, 3.728972937306514*^9}, 3.7289730126326027`*^9,
1661   3.728973050205524*^9, 3.728973112406604*^9,
1662   3.72897318584369*^9},ExpressionUUID->"5b46f11b-b9ff-47d4-9c75-\
1663be88314ec755"]
1664}, Open  ]],
1665
1666Cell[BoxData[
1667 InterpretationBox[GridBox[{
1668    {GridBox[{
1669       {"H", "1"},
1670       {"H", "2"},
1671       {
1672        OverscriptBox["t", "\<\"-\"\>"], "3"},
1673       {"t", "4"}
1674      },
1675      GridBoxAlignment->{
1676       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1677        "RowsIndexed" -> {}},
1678      GridBoxSpacings->{"Columns" -> {
1679          Offset[0.27999999999999997`], {
1680           Offset[0.7]},
1681          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1682          Offset[0.2], {
1683           Offset[0.1]},
1684          Offset[0.2]}, "RowsIndexed" -> {}}],
1685     RowBox[{
1686      FractionBox[
1687       RowBox[{"3", " ", "\[ImaginaryI]", " ",
1688        OverscriptBox["v", "^"], " ",
1689        SuperscriptBox["cuH3x3", "\<\"*\"\>"], " ",
1690        SubscriptBox["\[Delta]",
1691         RowBox[{
1692          SubscriptBox["\<\"m\"\>", "3"], ",",
1693          SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1694        SubscriptBox[
1695         SubscriptBox["P", "\<\"-\"\>"],
1696         RowBox[{
1697          SubscriptBox["\<\"s\"\>", "3"], ",",
1698          SubscriptBox["\<\"s\"\>", "4"]}]]}],
1699       RowBox[{
1700        SqrtBox["2"], " ",
1701        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
1702      FractionBox[
1703       RowBox[{"3", " ", "\[ImaginaryI]", " ", "cuH3x3", " ",
1704        OverscriptBox["v", "^"], " ",
1705        SubscriptBox["\[Delta]",
1706         RowBox[{
1707          SubscriptBox["\<\"m\"\>", "3"], ",",
1708          SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1709        SubscriptBox[
1710         SubscriptBox["P", "\<\"+\"\>"],
1711         RowBox[{
1712          SubscriptBox["\<\"s\"\>", "3"], ",",
1713          SubscriptBox["\<\"s\"\>", "4"]}]]}],
1714       RowBox[{
1715        SqrtBox["2"], " ",
1716        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
1717    {GridBox[{
1718       {"H", "1"},
1719       {
1720        OverscriptBox["t", "\<\"-\"\>"], "2"},
1721       {"t", "3"}
1722      },
1723      GridBoxAlignment->{
1724       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1725        "RowsIndexed" -> {}},
1726      GridBoxSpacings->{"Columns" -> {
1727          Offset[0.27999999999999997`], {
1728           Offset[0.7]},
1729          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1730          Offset[0.2], {
1731           Offset[0.1]},
1732          Offset[0.2]}, "RowsIndexed" -> {}}],
1733     RowBox[{
1734      RowBox[{"-",
1735       FractionBox[
1736        RowBox[{"\[ImaginaryI]", " ", "yt", " ",
1737         SubscriptBox["\[Delta]",
1738          RowBox[{
1739           SubscriptBox["\<\"m\"\>", "2"], ",",
1740           SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1741         SubscriptBox["\[Delta]",
1742          RowBox[{
1743           SubscriptBox["\<\"s\"\>", "2"], ",",
1744           SubscriptBox["\<\"s\"\>", "3"]}]]}],
1745        SqrtBox["2"]]}], "-",
1746      FractionBox[
1747       RowBox[{"\[ImaginaryI]", " ",
1748        SubscriptBox["c",
1749         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
1750        SuperscriptBox[
1751         OverscriptBox["v", "^"], "2"], " ", "yt", " ",
1752        SubscriptBox["\[Delta]",
1753         RowBox[{
1754          SubscriptBox["\<\"m\"\>", "2"], ",",
1755          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1756        SubscriptBox["\[Delta]",
1757         RowBox[{
1758          SubscriptBox["\<\"s\"\>", "2"], ",",
1759          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1760       RowBox[{
1761        SqrtBox["2"], " ",
1762        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
1763      FractionBox[
1764       RowBox[{"\[ImaginaryI]", " ",
1765        SubscriptBox["c", "HD"], " ",
1766        SuperscriptBox[
1767         OverscriptBox["v", "^"], "2"], " ", "yt", " ",
1768        SubscriptBox["\[Delta]",
1769         RowBox[{
1770          SubscriptBox["\<\"m\"\>", "2"], ",",
1771          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1772        SubscriptBox["\[Delta]",
1773         RowBox[{
1774          SubscriptBox["\<\"s\"\>", "2"], ",",
1775          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1776       RowBox[{"4", " ",
1777        SqrtBox["2"], " ",
1778        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
1779      FractionBox[
1780       RowBox[{"\[ImaginaryI]", " ",
1781        SuperscriptBox[
1782         OverscriptBox["v", "^"], "2"], " ", "yt", " ",
1783        SubscriptBox["cHl3",
1784         RowBox[{"1", ",", "1"}]], " ",
1785        SubscriptBox["\[Delta]",
1786         RowBox[{
1787          SubscriptBox["\<\"m\"\>", "2"], ",",
1788          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1789        SubscriptBox["\[Delta]",
1790         RowBox[{
1791          SubscriptBox["\<\"s\"\>", "2"], ",",
1792          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1793       RowBox[{"2", " ",
1794        SqrtBox["2"], " ",
1795        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
1796      FractionBox[
1797       RowBox[{"\[ImaginaryI]", " ",
1798        SuperscriptBox[
1799         OverscriptBox["v", "^"], "2"], " ", "yt", " ",
1800        SubscriptBox["cHl3",
1801         RowBox[{"2", ",", "2"}]], " ",
1802        SubscriptBox["\[Delta]",
1803         RowBox[{
1804          SubscriptBox["\<\"m\"\>", "2"], ",",
1805          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1806        SubscriptBox["\[Delta]",
1807         RowBox[{
1808          SubscriptBox["\<\"s\"\>", "2"], ",",
1809          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1810       RowBox[{"2", " ",
1811        SqrtBox["2"], " ",
1812        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
1813      FractionBox[
1814       RowBox[{"\[ImaginaryI]", " ",
1815        SuperscriptBox[
1816         OverscriptBox["v", "^"], "2"], " ", "yt", " ",
1817        SubscriptBox[
1818         SubscriptBox["c", "ll"],
1819         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]], " ",
1820        SubscriptBox["\[Delta]",
1821         RowBox[{
1822          SubscriptBox["\<\"m\"\>", "2"], ",",
1823          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1824        SubscriptBox["\[Delta]",
1825         RowBox[{
1826          SubscriptBox["\<\"s\"\>", "2"], ",",
1827          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1828       RowBox[{"2", " ",
1829        SqrtBox["2"], " ",
1830        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
1831      FractionBox[
1832       RowBox[{"\[ImaginaryI]", " ",
1833        SuperscriptBox[
1834         OverscriptBox["v", "^"], "2"], " ",
1835        SuperscriptBox["cuH3x3", "\<\"*\"\>"], " ",
1836        SubscriptBox["\[Delta]",
1837         RowBox[{
1838          SubscriptBox["\<\"m\"\>", "2"], ",",
1839          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1840        SubscriptBox[
1841         SubscriptBox["P", "\<\"-\"\>"],
1842         RowBox[{
1843          SubscriptBox["\<\"s\"\>", "2"], ",",
1844          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1845       RowBox[{
1846        SqrtBox["2"], " ",
1847        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
1848      FractionBox[
1849       RowBox[{"\[ImaginaryI]", " ", "cuH3x3", " ",
1850        SuperscriptBox[
1851         OverscriptBox["v", "^"], "2"], " ",
1852        SubscriptBox["\[Delta]",
1853         RowBox[{
1854          SubscriptBox["\<\"m\"\>", "2"], ",",
1855          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1856        SubscriptBox[
1857         SubscriptBox["P", "\<\"+\"\>"],
1858         RowBox[{
1859          SubscriptBox["\<\"s\"\>", "2"], ",",
1860          SubscriptBox["\<\"s\"\>", "3"]}]]}],
1861       RowBox[{
1862        SqrtBox["2"], " ",
1863        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
1864   },
1865   GridBoxAlignment->{
1866    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1867     "RowsIndexed" -> {}},
1868   GridBoxSpacings->{"Columns" -> {
1869       Offset[0.27999999999999997`], {
1870        Offset[2.0999999999999996`]},
1871       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1872       Offset[0.2], {
1873        Offset[0.4]},
1874       Offset[0.2]}, "RowsIndexed" -> {}}],
1875  TableForm[{{{{FeynRules`H, 1}, {FeynRules`H, 2}, {$CellContext`tbar, 3}, {
1876      FeynRules`t, 4}},
1877     Complex[0, 3]
1878      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat
1879      Conjugate[$CellContext`cuH3x3] FeynRules`IndexDelta[
1880        FeynRules`Index[FeynRules`Colour,
1881         FeynRules`Ext[3]],
1882        FeynRules`Index[FeynRules`Colour,
1883         FeynRules`Ext[4]]] FeynRules`ProjM[
1884        FeynRules`Index[FeynRules`Spin,
1885         FeynRules`Ext[3]],
1886        FeynRules`Index[FeynRules`Spin,
1887         FeynRules`Ext[4]]] +
1888     Complex[0, 3]
1889      2^Rational[-1,
1890         2] $CellContext`cuH3x3 $CellContext`LambdaSMEFT^(-2) \
1891$CellContext`vevhat FeynRules`IndexDelta[
1892        FeynRules`Index[FeynRules`Colour,
1893         FeynRules`Ext[3]],
1894        FeynRules`Index[FeynRules`Colour,
1895         FeynRules`Ext[4]]] FeynRules`ProjP[
1896        FeynRules`Index[FeynRules`Spin,
1897         FeynRules`Ext[3]],
1898        FeynRules`Index[FeynRules`Spin,
1899         FeynRules`Ext[4]]]}, {{{FeynRules`H, 1}, {$CellContext`tbar, 2}, {
1900      FeynRules`t, 3}},
1901     Complex[0, -1] 2^Rational[-1, 2] $CellContext`yt FeynRules`IndexDelta[
1902        FeynRules`Index[FeynRules`Colour,
1903         FeynRules`Ext[2]],
1904        FeynRules`Index[FeynRules`Colour,
1905         FeynRules`Ext[3]]] FeynRules`IndexDelta[
1906        FeynRules`Index[FeynRules`Spin,
1907         FeynRules`Ext[2]],
1908        FeynRules`Index[FeynRules`Spin,
1909         FeynRules`Ext[3]]] +
1910     Complex[0, -1]
1911      2^Rational[-1,
1912         2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
1913$CellContext`vevhat^2 $CellContext`yt FeynRules`IndexDelta[
1914        FeynRules`Index[FeynRules`Colour,
1915         FeynRules`Ext[2]],
1916        FeynRules`Index[FeynRules`Colour,
1917         FeynRules`Ext[3]]] FeynRules`IndexDelta[
1918        FeynRules`Index[FeynRules`Spin,
1919         FeynRules`Ext[2]],
1920        FeynRules`Index[FeynRules`Spin,
1921         FeynRules`Ext[3]]] + Complex[0,
1922        Rational[1, 4]]
1923      2^Rational[-1,
1924         2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
1925$CellContext`vevhat^2 $CellContext`yt FeynRules`IndexDelta[
1926        FeynRules`Index[FeynRules`Colour,
1927         FeynRules`Ext[2]],
1928        FeynRules`Index[FeynRules`Colour,
1929         FeynRules`Ext[3]]] FeynRules`IndexDelta[
1930        FeynRules`Index[FeynRules`Spin,
1931         FeynRules`Ext[2]],
1932        FeynRules`Index[FeynRules`Spin,
1933         FeynRules`Ext[3]]] + Complex[0,
1934        Rational[1, 2]]
1935      2^Rational[-1,
1936         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
1937$CellContext`yt $CellContext`cHl3[
1938        FeynRules`Index[$CellContext`Generation, 1],
1939        FeynRules`Index[$CellContext`Generation, 1]] FeynRules`IndexDelta[
1940        FeynRules`Index[FeynRules`Colour,
1941         FeynRules`Ext[2]],
1942        FeynRules`Index[FeynRules`Colour,
1943         FeynRules`Ext[3]]] FeynRules`IndexDelta[
1944        FeynRules`Index[FeynRules`Spin,
1945         FeynRules`Ext[2]],
1946        FeynRules`Index[FeynRules`Spin,
1947         FeynRules`Ext[3]]] + Complex[0,
1948        Rational[1, 2]]
1949      2^Rational[-1,
1950         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
1951$CellContext`yt $CellContext`cHl3[
1952        FeynRules`Index[$CellContext`Generation, 2],
1953        FeynRules`Index[$CellContext`Generation, 2]] FeynRules`IndexDelta[
1954        FeynRules`Index[FeynRules`Colour,
1955         FeynRules`Ext[2]],
1956        FeynRules`Index[FeynRules`Colour,
1957         FeynRules`Ext[3]]] FeynRules`IndexDelta[
1958        FeynRules`Index[FeynRules`Spin,
1959         FeynRules`Ext[2]],
1960        FeynRules`Index[FeynRules`Spin,
1961         FeynRules`Ext[3]]] + Complex[0,
1962        Rational[-1, 2]]
1963      2^Rational[-1,
1964         2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
1965$CellContext`yt $CellContext`cll[
1966        FeynRules`Index[$CellContext`Generation, 1],
1967        FeynRules`Index[$CellContext`Generation, 2],
1968        FeynRules`Index[$CellContext`Generation, 2],
1969        FeynRules`Index[$CellContext`Generation, 1]] FeynRules`IndexDelta[
1970        FeynRules`Index[FeynRules`Colour,
1971         FeynRules`Ext[2]],
1972        FeynRules`Index[FeynRules`Colour,
1973         FeynRules`Ext[3]]] FeynRules`IndexDelta[
1974        FeynRules`Index[FeynRules`Spin,
1975         FeynRules`Ext[2]],
1976        FeynRules`Index[FeynRules`Spin,
1977         FeynRules`Ext[3]]] +
1978     Complex[0, 1]
1979      2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
1980      Conjugate[$CellContext`cuH3x3] FeynRules`IndexDelta[
1981        FeynRules`Index[FeynRules`Colour,
1982         FeynRules`Ext[2]],
1983        FeynRules`Index[FeynRules`Colour,
1984         FeynRules`Ext[3]]] FeynRules`ProjM[
1985        FeynRules`Index[FeynRules`Spin,
1986         FeynRules`Ext[2]],
1987        FeynRules`Index[FeynRules`Spin,
1988         FeynRules`Ext[3]]] +
1989     Complex[0, 1]
1990      2^Rational[-1,
1991         2] $CellContext`cuH3x3 $CellContext`LambdaSMEFT^(-2) \
1992$CellContext`vevhat^2 FeynRules`IndexDelta[
1993        FeynRules`Index[FeynRules`Colour,
1994         FeynRules`Ext[2]],
1995        FeynRules`Index[FeynRules`Colour,
1996         FeynRules`Ext[3]]] FeynRules`ProjP[
1997        FeynRules`Index[FeynRules`Spin,
1998         FeynRules`Ext[2]],
1999        FeynRules`Index[FeynRules`Spin,
2000         FeynRules`Ext[3]]]}}]]], "Output",
2001 CellChangeTimes->{
2002  3.7289717746580753`*^9, {3.7289718225612707`*^9, 3.728971922158792*^9},
2003   3.7289719658579493`*^9, 3.728971997334771*^9, 3.728972047486012*^9,
2004   3.728972082401774*^9, 3.7289721216940536`*^9, 3.72897216344219*^9, {
2005   3.7289727859217157`*^9, 3.728972838069775*^9}, {3.728972919110672*^9,
2006   3.728972948602634*^9}, 3.7289730241886873`*^9, 3.7289730616976967`*^9,
2007   3.7289731243003893`*^9,
2008   3.728973193437202*^9},ExpressionUUID->"aef98f10-35a3-480d-bb6b-\
2009c13da457e161"]
2010}, Open  ]],
2011
2012Cell[CellGroupData[{
2013
2014Cell[TextData[{
2015 "Example - extraction of aTGC ",
2016 Cell[BoxData[
2017  FormBox[
2018   RowBox[{"(", " ",
2019    SuperscriptBox[
2020     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
2021  "af5b2e82-d577-4f50-8786-fb17255555f8"],
2022 ", ",
2023 Cell[BoxData[
2024  FormBox[
2025   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
2026  "ff57105e-9d23-459f-ae07-e0fcf7f77b3d"],
2027 " )"
2028}], "Subsection",
2029 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
2030  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9,
2031  3.714474881170227*^9}, {3.7146522087316093`*^9,
2032  3.7146522332696543`*^9}},ExpressionUUID->"86e4fb78-f3cd-47f5-a5f1-\
203333600a572f6e"],
2034
2035Cell[BoxData[
2036 RowBox[{
2037  RowBox[{"L1", " ", "=", " ",
2038   RowBox[{
2039    RowBox[{
2040     RowBox[{"LGauge", "+", "L6cl4"}], "/.",
2041     RowBox[{
2042      RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
2043     "OptimizeIndex"}]}], ";"}]], "Input",
2044 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
2045  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9,
2046  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
2047  3.7144751339781103`*^9,
2048  3.714475137908736*^9}},ExpressionUUID->"d2e56b81-6219-490c-982c-\
2049ee49a37c6877"],
2050
2051Cell[CellGroupData[{
2052
2053Cell[BoxData[
2054 RowBox[{
2055  RowBox[{"zww", "=",
2056   RowBox[{"GetInteractionTerms", "[",
2057    RowBox[{"L1", ",",
2058     RowBox[{"SelectParticles", "\[Rule]",
2059      RowBox[{"{",
2060       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}],
2061  ";"}]], "Input",
2062 CellChangeTimes->{{3.697355190045856*^9,
2063  3.697355204589117*^9}},ExpressionUUID->"dc9ad820-5590-4bac-81d4-\
2064d90c096f5f4b"],
2065
2066Cell[CellGroupData[{
2067
2068Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
2069eigenstates should be selected!\"\>"], "Print",
2070 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9,
2071  3.7146551421946583`*^9,
2072  3.7269070218952723`*^9},ExpressionUUID->"ad70eaad-70fd-45a9-a6c5-\
2073b0c905b0f808"],
2074
2075Cell[BoxData[
2076 InterpretationBox[
2077  RowBox[{"\<\"Neglecting all terms with more than \"\>",
2078   "\[InvisibleSpace]", "\<\"3\"\>",
2079   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
2080  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
2081  Editable->False]], "Print",
2082 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9,
2083  3.7146551421946583`*^9,
2084  3.726907021953415*^9},ExpressionUUID->"2e816367-f1aa-4573-bb39-\
2085a98038b0c1e5"],
2086
2087Cell[BoxData[
2088 InterpretationBox[
2089  RowBox[{"\<\"Neglecting all terms with less than \"\>",
2090   "\[InvisibleSpace]", "\<\"3\"\>",
2091   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
2092  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
2093  Editable->False]], "Print",
2094 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9,
2095  3.7146551421946583`*^9,
2096  3.726907021972106*^9},ExpressionUUID->"58981fbd-ec10-46f4-90bf-\
20971f347d509b2b"]
2098}, Open  ]]
2099}, Open  ]],
2100
2101Cell[CellGroupData[{
2102
2103Cell[BoxData[
2104 RowBox[{
2105  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]",
2106  RowBox[{
2107   RowBox[{
2108    RowBox[{"zww", "/.",
2109     RowBox[{
2110      RowBox[{"del", "[",
2111       RowBox[{
2112        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
2113     "Simplify"}], "\[IndentingNewLine]",
2114   RowBox[{
2115    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
2116   "\[IndentingNewLine]",
2117   RowBox[{
2118    RowBox[{"Simplify", "[",
2119     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
2120    RowBox[{"WCsimplify", "[",
2121     FractionBox["%",
2122      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
2123 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
2124   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9,
2125   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
2126   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9,
2127   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
2128   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9,
2129   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
2130   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9,
2131   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
2132   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9,
2133   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
2134   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9,
2135   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9,
2136   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
2137   3.714652412441049*^9, 3.714652464776884*^9}, 3.714652626095168*^9, {
2138   3.714654309590547*^9, 3.714654313029612*^9}, {3.714655034452681*^9,
2139   3.714655035524263*^9}},ExpressionUUID->"d013d0c4-7567-4fce-93f1-\
214084c03e773d99"],
2141
2142Cell[BoxData[
2143 RowBox[{"-",
2144  FractionBox[
2145   RowBox[{"\[ImaginaryI]", " ", "e", " ",
2146    RowBox[{"(",
2147     RowBox[{
2148      RowBox[{
2149       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2150       RowBox[{"(",
2151        RowBox[{
2152         RowBox[{"-", "2"}], "-",
2153         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
2154         RowBox[{"2", " ",
2155          RowBox[{"(",
2156           RowBox[{"1", "+", "dgw"}], ")"}], " ",
2157          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
2158      RowBox[{
2159       SubscriptBox["c", "HWB"], " ",
2160       SubscriptBox["c", "\[Theta]"], " ",
2161       SubscriptBox["s", "\[Theta]"], " ",
2162       SuperscriptBox[
2163        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
2164    RowBox[{"(",
2165     RowBox[{
2166      RowBox[{
2167       RowBox[{
2168        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2169        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
2170       RowBox[{"(",
2171        RowBox[{
2172         RowBox[{
2173          SubscriptBox["W", "mu$2"], " ",
2174          SubscriptBox["Z", "mu$1"]}], "-",
2175         RowBox[{
2176          SubscriptBox["W", "mu$1"], " ",
2177          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
2178      RowBox[{
2179       RowBox[{
2180        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2181        SubscriptBox["W", "mu$1"], "]"}], " ",
2182       RowBox[{"(",
2183        RowBox[{
2184         RowBox[{
2185          RowBox[{"-",
2186           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
2187          SubscriptBox["Z", "mu$1"]}], "+",
2188         RowBox[{
2189          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
2190          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
2191   RowBox[{"2", " ",
2192    SubscriptBox["c", "\[Theta]"], " ",
2193    SuperscriptBox["\[CapitalLambda]", "2"], " ",
2194    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
2195 CellChangeTimes->{
2196  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9,
2197   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9,
2198   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9,
2199   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9,
2200   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
2201   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9,
2202   3.714654392673708*^9, 3.7146551492705727`*^9,
2203   3.726907022293692*^9},ExpressionUUID->"ca8ff5a3-affc-4721-af81-\
220485a325536cd5"],
2205
2206Cell[BoxData[
2207 RowBox[{"-",
2208  FractionBox[
2209   RowBox[{"\[ImaginaryI]", " ", "e", " ",
2210    RowBox[{"(",
2211     RowBox[{
2212      RowBox[{"4", " ",
2213       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2214       RowBox[{"(",
2215        RowBox[{"1", "-",
2216         RowBox[{"3", " ",
2217          SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
2218         RowBox[{"2", " ",
2219          SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}], "+",
2220      RowBox[{
2221       SuperscriptBox[
2222        OverscriptBox["v", "^"], "2"], " ",
2223       RowBox[{"(",
2224        RowBox[{
2225         RowBox[{
2226          RowBox[{"-", "4"}], " ",
2227          SubscriptBox["c", "HWB"], " ",
2228          SubscriptBox["c", "\[Theta]"], " ",
2229          SubscriptBox["s", "\[Theta]"]}], "+",
2230         RowBox[{
2231          SubscriptBox["c", "HD"], " ",
2232          RowBox[{"(",
2233           RowBox[{
2234            RowBox[{"-", "1"}], "+",
2235            SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+",
2236         RowBox[{"2", " ",
2237          RowBox[{"(",
2238           RowBox[{
2239            RowBox[{"-", "1"}], "+",
2240            SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
2241          RowBox[{"(",
2242           RowBox[{
2243            SubscriptBox["cHl3",
2244             RowBox[{"1", ",", "1"}]], "+",
2245            SubscriptBox["cHl3",
2246             RowBox[{"2", ",", "2"}]], "-",
2247            SubscriptBox[
2248             SubscriptBox["c", "ll"],
2249             RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
2250        ")"}]}]}], ")"}], " ",
2251    RowBox[{"(",
2252     RowBox[{
2253      RowBox[{
2254       RowBox[{
2255        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2256        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
2257       RowBox[{"(",
2258        RowBox[{
2259         RowBox[{
2260          SubscriptBox["W", "mu$2"], " ",
2261          SubscriptBox["Z", "mu$1"]}], "-",
2262         RowBox[{
2263          SubscriptBox["W", "mu$1"], " ",
2264          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
2265      RowBox[{
2266       RowBox[{
2267        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2268        SubscriptBox["W", "mu$1"], "]"}], " ",
2269       RowBox[{"(",
2270        RowBox[{
2271         RowBox[{
2272          RowBox[{"-",
2273           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
2274          SubscriptBox["Z", "mu$1"]}], "+",
2275         RowBox[{
2276          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
2277          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
2278   RowBox[{"4", " ",
2279    SubscriptBox["c", "\[Theta]"], " ",
2280    SuperscriptBox["\[CapitalLambda]", "2"], " ",
2281    SubscriptBox["s", "\[Theta]"], " ",
2282    RowBox[{"(",
2283     RowBox[{
2284      RowBox[{"-", "1"}], "+",
2285      RowBox[{"2", " ",
2286       SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]], "Output",
2287 CellChangeTimes->{
2288  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9,
2289   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9,
2290   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9,
2291   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9,
2292   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
2293   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9,
2294   3.714654392673708*^9, 3.7146551492705727`*^9,
2295   3.72690702271329*^9},ExpressionUUID->"d1046564-350d-4edc-9eaa-\
2296ece071eaa65f"],
2297
2298Cell[BoxData[
2299 RowBox[{"-",
2300  FractionBox[
2301   RowBox[{"\[ImaginaryI]", " ", "e", " ",
2302    RowBox[{"(",
2303     RowBox[{
2304      RowBox[{"-", "1"}], "+",
2305      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
2306    RowBox[{"(",
2307     RowBox[{"1", "+",
2308      FractionBox[
2309       RowBox[{
2310        SubscriptBox["c", "HD"], " ",
2311        SuperscriptBox[
2312         OverscriptBox["v", "^"], "2"]}],
2313       RowBox[{"4", " ",
2314        SuperscriptBox["\[CapitalLambda]", "2"], " ",
2315        RowBox[{"(",
2316         RowBox[{
2317          RowBox[{"-", "1"}], "+",
2318          RowBox[{"2", " ",
2319           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "-",
2320      FractionBox[
2321       RowBox[{
2322        SubscriptBox["c", "HWB"], " ",
2323        SubscriptBox["c", "\[Theta]"], " ",
2324        SubscriptBox["s", "\[Theta]"], " ",
2325        SuperscriptBox[
2326         OverscriptBox["v", "^"], "2"]}],
2327       RowBox[{
2328        SuperscriptBox["\[CapitalLambda]", "2"], " ",
2329        RowBox[{"(",
2330         RowBox[{"1", "-",
2331          RowBox[{"3", " ",
2332           SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
2333          RowBox[{"2", " ",
2334           SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}]], "+",
2335      FractionBox[
2336       RowBox[{
2337        SuperscriptBox[
2338         OverscriptBox["v", "^"], "2"], " ",
2339        SubscriptBox["cHl3",
2340         RowBox[{"1", ",", "1"}]]}],
2341       RowBox[{"2", " ",
2342        SuperscriptBox["\[CapitalLambda]", "2"], " ",
2343        RowBox[{"(",
2344         RowBox[{
2345          RowBox[{"-", "1"}], "+",
2346          RowBox[{"2", " ",
2347           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
2348      FractionBox[
2349       RowBox[{
2350        SuperscriptBox[
2351         OverscriptBox["v", "^"], "2"], " ",
2352        SubscriptBox["cHl3",
2353         RowBox[{"2", ",", "2"}]]}],
2354       RowBox[{"2", " ",
2355        SuperscriptBox["\[CapitalLambda]", "2"], " ",
2356        RowBox[{"(",
2357         RowBox[{
2358          RowBox[{"-", "1"}], "+",
2359          RowBox[{"2", " ",
2360           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
2361      FractionBox[
2362       RowBox[{
2363        SuperscriptBox[
2364         OverscriptBox["v", "^"], "2"], " ",
2365        SubscriptBox[
2366         SubscriptBox["c", "ll"],
2367         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
2368       RowBox[{"2", " ",
2369        SuperscriptBox["\[CapitalLambda]", "2"], " ",
2370        RowBox[{"(",
2371         RowBox[{"1", "-",
2372          RowBox[{"2", " ",
2373           SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}],
2374    " ",
2375    RowBox[{"(",
2376     RowBox[{
2377      RowBox[{
2378       RowBox[{
2379        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2380        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
2381       RowBox[{"(",
2382        RowBox[{
2383         RowBox[{
2384          SubscriptBox["W", "mu$2"], " ",
2385          SubscriptBox["Z", "mu$1"]}], "-",
2386         RowBox[{
2387          SubscriptBox["W", "mu$1"], " ",
2388          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
2389      RowBox[{
2390       RowBox[{
2391        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2392        SubscriptBox["W", "mu$1"], "]"}], " ",
2393       RowBox[{"(",
2394        RowBox[{
2395         RowBox[{
2396          RowBox[{"-",
2397           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
2398          SubscriptBox["Z", "mu$1"]}], "+",
2399         RowBox[{
2400          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
2401          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
2402   RowBox[{
2403    SubscriptBox["c", "\[Theta]"], " ",
2404    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
2405 CellChangeTimes->{
2406  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9,
2407   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9,
2408   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9,
2409   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9,
2410   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
2411   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9,
2412   3.714654392673708*^9, 3.7146551492705727`*^9,
2413   3.726907022890486*^9},ExpressionUUID->"8dd59ff1-21b8-4aa1-9278-\
2414cd6ee80b4ca7"]
2415}, Open  ]],
2416
2417Cell[CellGroupData[{
2418
2419Cell[BoxData[
2420 RowBox[{
2421  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]",
2422  RowBox[{
2423   RowBox[{
2424    RowBox[{"zww", "/.",
2425     RowBox[{
2426      RowBox[{
2427       RowBox[{"del", "[",
2428        RowBox[{
2429         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|",
2430       RowBox[{"del", "[",
2431        RowBox[{
2432         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
2433      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
2434   RowBox[{
2435    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
2436   "\[IndentingNewLine]",
2437   RowBox[{
2438    RowBox[{"Simplify", "[",
2439     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
2440    RowBox[{"WCsimplify", "[",
2441     FractionBox["%",
2442      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
2443 CellChangeTimes->{{3.714652472649456*^9, 3.714652608904799*^9}, {
2444  3.7146543956773233`*^9, 3.714654397434864*^9}, {3.7146551775086193`*^9,
2445  3.714655183451696*^9}},ExpressionUUID->"777fafde-cd1a-4c6a-936e-\
244623ce19d1eaf8"],
2447
2448Cell[BoxData[
2449 FractionBox[
2450  RowBox[{"\[ImaginaryI]", " ", "e", " ",
2451   RowBox[{"(",
2452    RowBox[{
2453     RowBox[{
2454      SuperscriptBox["\[CapitalLambda]", "2"], " ",
2455      RowBox[{"(",
2456       RowBox[{
2457        RowBox[{"-", "2"}], "-",
2458        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
2459        RowBox[{"2", " ",
2460         RowBox[{"(",
2461          RowBox[{"1", "+", "dgw"}], ")"}], " ",
2462         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
2463     RowBox[{
2464      SubscriptBox["c", "HWB"], " ",
2465      SubscriptBox["c", "\[Theta]"], " ",
2466      SubscriptBox["s", "\[Theta]"], " ",
2467      SuperscriptBox[
2468       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
2469   RowBox[{
2470    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2471    SubscriptBox["Z", "mu$1"], "]"}], " ",
2472   RowBox[{"(",
2473    RowBox[{
2474     RowBox[{
2475      SubscriptBox["W", "mu$2"], " ",
2476      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
2477     RowBox[{
2478      SubscriptBox["W", "mu$1"], " ",
2479      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
2480  RowBox[{"2", " ",
2481   SubscriptBox["c", "\[Theta]"], " ",
2482   SuperscriptBox["\[CapitalLambda]", "2"], " ",
2483   SubscriptBox["s", "\[Theta]"]}]]], "Output",
2484 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
2485   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9,
2486   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9,
2487   3.726907023051642*^9},ExpressionUUID->"473bc550-7f3f-4e39-9e35-\
2488fbc389bd374c"],
2489
2490Cell[BoxData[
2491 FractionBox[
2492  RowBox[{"\[ImaginaryI]", " ", "e", " ",
2493   RowBox[{"(",
2494    RowBox[{
2495     RowBox[{"-", "1"}], "+",
2496     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
2497   RowBox[{"(",
2498    RowBox[{
2499     RowBox[{
2500      SuperscriptBox["\[CapitalLambda]", "2"], " ",
2501      RowBox[{"(",
2502       RowBox[{
2503        RowBox[{"-", "4"}], "+",
2504        RowBox[{"8", " ",
2505         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
2506     RowBox[{
2507      SuperscriptBox[
2508       OverscriptBox["v", "^"], "2"], " ",
2509      RowBox[{"(",
2510       RowBox[{
2511        SubscriptBox["c", "HD"], "+",
2512        RowBox[{"2", " ",
2513         RowBox[{"(",
2514          RowBox[{
2515           RowBox[{"4", " ",
2516            SubscriptBox["c", "HWB"], " ",
2517            SubscriptBox["c", "\[Theta]"], " ",
2518            SubscriptBox["s", "\[Theta]"]}], "+",
2519           SubscriptBox["cHl3",
2520            RowBox[{"1", ",", "1"}]], "+",
2521           SubscriptBox["cHl3",
2522            RowBox[{"2", ",", "2"}]], "-",
2523           SubscriptBox[
2524            SubscriptBox["c", "ll"],
2525            RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
2526       ")"}]}]}], ")"}], " ",
2527   RowBox[{
2528    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2529    SubscriptBox["Z", "mu$1"], "]"}], " ",
2530   RowBox[{"(",
2531    RowBox[{
2532     RowBox[{
2533      SubscriptBox["W", "mu$2"], " ",
2534      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
2535     RowBox[{
2536      SubscriptBox["W", "mu$1"], " ",
2537      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
2538  RowBox[{"4", " ",
2539   SubscriptBox["c", "\[Theta]"], " ",
2540   SuperscriptBox["\[CapitalLambda]", "2"], " ",
2541   SubscriptBox["s", "\[Theta]"], " ",
2542   RowBox[{"(",
2543    RowBox[{
2544     RowBox[{"-", "1"}], "+",
2545     RowBox[{"2", " ",
2546      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]], "Output",
2547 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
2548   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9,
2549   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9,
2550   3.726907023268084*^9},ExpressionUUID->"04e85cfc-7162-453b-bf06-\
255103c19b4aecba"],
2552
2553Cell[BoxData[
2554 FractionBox[
2555  RowBox[{"\[ImaginaryI]", " ", "e", " ",
2556   RowBox[{"(",
2557    RowBox[{
2558     RowBox[{"-", "1"}], "+",
2559     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
2560   RowBox[{"(",
2561    RowBox[{"1", "+",
2562     FractionBox[
2563      RowBox[{"2", " ",
2564       SubscriptBox["c", "HWB"], " ",
2565       SubscriptBox["c", "\[Theta]"], " ",
2566       SubscriptBox["s", "\[Theta]"], " ",
2567       SuperscriptBox[
2568        OverscriptBox["v", "^"], "2"]}],
2569      RowBox[{
2570       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2571       RowBox[{"(",
2572        RowBox[{
2573         RowBox[{"-", "1"}], "+",
2574         RowBox[{"2", " ",
2575          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
2576     FractionBox[
2577      RowBox[{
2578       SubscriptBox["c", "HD"], " ",
2579       SuperscriptBox[
2580        OverscriptBox["v", "^"], "2"]}],
2581      RowBox[{
2582       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2583       RowBox[{"(",
2584        RowBox[{
2585         RowBox[{"-", "4"}], "+",
2586         RowBox[{"8", " ",
2587          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
2588     FractionBox[
2589      RowBox[{"2", " ",
2590       SuperscriptBox[
2591        OverscriptBox["v", "^"], "2"], " ",
2592       SubscriptBox["cHl3",
2593        RowBox[{"1", ",", "1"}]]}],
2594      RowBox[{
2595       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2596       RowBox[{"(",
2597        RowBox[{
2598         RowBox[{"-", "4"}], "+",
2599         RowBox[{"8", " ",
2600          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
2601     FractionBox[
2602      RowBox[{"2", " ",
2603       SuperscriptBox[
2604        OverscriptBox["v", "^"], "2"], " ",
2605       SubscriptBox["cHl3",
2606        RowBox[{"2", ",", "2"}]]}],
2607      RowBox[{
2608       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2609       RowBox[{"(",
2610        RowBox[{
2611         RowBox[{"-", "4"}], "+",
2612         RowBox[{"8", " ",
2613          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
2614     FractionBox[
2615      RowBox[{"2", " ",
2616       SuperscriptBox[
2617        OverscriptBox["v", "^"], "2"], " ",
2618       SubscriptBox[
2619        SubscriptBox["c", "ll"],
2620        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
2621      RowBox[{
2622       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2623       RowBox[{"(",
2624        RowBox[{"4", "-",
2625         RowBox[{"8", " ",
2626          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], " ",
2627   RowBox[{
2628    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2629    SubscriptBox["Z", "mu$1"], "]"}], " ",
2630   RowBox[{"(",
2631    RowBox[{
2632     RowBox[{
2633      SubscriptBox["W", "mu$2"], " ",
2634      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
2635     RowBox[{
2636      SubscriptBox["W", "mu$1"], " ",
2637      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
2638  RowBox[{
2639   SubscriptBox["c", "\[Theta]"], " ",
2640   SubscriptBox["s", "\[Theta]"]}]]], "Output",
2641 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
2642   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9,
2643   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9,
2644   3.726907023393265*^9},ExpressionUUID->"18d9599e-0238-4e75-9e8a-\
2645a1d6bee374fa"]
2646}, Open  ]],
2647
2648Cell[BoxData[""], "Input",
2649 CellChangeTimes->{3.714652368810739*^9,
2650  3.7146524695105267`*^9},ExpressionUUID->"1ea0cb97-74b3-42c4-becf-\
265165e1c3ef0119"],
2652
2653Cell[BoxData[
2654 RowBox[{
2655  RowBox[{"aww", "=",
2656   RowBox[{"GetInteractionTerms", "[",
2657    RowBox[{"L1", ",",
2658     RowBox[{"SelectParticles", "\[Rule]",
2659      RowBox[{"{",
2660       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}],
2661  ";"}]], "Input",
2662 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
2663  3.697369511884927*^9,
2664  3.697369515354232*^9}},ExpressionUUID->"56eee9d8-93eb-4163-b606-\
2665e817d2dfec84"],
2666
2667Cell[CellGroupData[{
2668
2669Cell[BoxData[
2670 RowBox[{
2671  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]",
2672  RowBox[{
2673   RowBox[{
2674    RowBox[{"aww", "/.",
2675     RowBox[{
2676      RowBox[{"del", "[",
2677       RowBox[{
2678        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
2679     "Simplify"}], "\[IndentingNewLine]",
2680   RowBox[{
2681    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}]}]}]], "Input",
2682 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
2683   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9,
2684   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
2685   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9,
2686   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
2687   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9,
2688   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
2689   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9,
2690   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9},
2691   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
2692   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9,
2693   3.714652669421071*^9}, {3.714654403671623*^9, 3.714654416461287*^9}, {
2694   3.714655202079158*^9,
2695   3.714655208219514*^9}},ExpressionUUID->"2560bf02-b49c-47cc-ac7c-\
2696662814ae53c0"],
2697
2698Cell[BoxData[
2699 FractionBox[
2700  RowBox[{"\[ImaginaryI]", " ", "e", " ",
2701   RowBox[{"(",
2702    RowBox[{
2703     RowBox[{"dsth2", " ",
2704      SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
2705     RowBox[{
2706      SubscriptBox["s", "\[Theta]"], " ",
2707      RowBox[{"(",
2708       RowBox[{
2709        RowBox[{"2", " ",
2710         RowBox[{"(",
2711          RowBox[{"1", "+", "dgw"}], ")"}], " ",
2712         SuperscriptBox["\[CapitalLambda]", "2"], " ",
2713         SubscriptBox["s", "\[Theta]"]}], "-",
2714        RowBox[{
2715         SubscriptBox["c", "HWB"], " ",
2716         SubscriptBox["c", "\[Theta]"], " ",
2717         SuperscriptBox[
2718          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
2719   SubscriptBox["A", "mu$1"], " ",
2720   RowBox[{"(",
2721    RowBox[{
2722     RowBox[{
2723      RowBox[{
2724       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2725       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
2726      SubscriptBox["W", "mu$2"]}], "-",
2727     RowBox[{
2728      RowBox[{
2729       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
2730       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
2731      SubscriptBox["W", "mu$2"]}], "+",
2732     RowBox[{
2733      RowBox[{"(",
2734       RowBox[{
2735        RowBox[{"-",
2736         RowBox[{
2737          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2738          SubscriptBox["W", "mu$1"], "]"}]}], "+",
2739        RowBox[{
2740         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
2741         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
2742      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
2743  RowBox[{"2", " ",
2744   SuperscriptBox["\[CapitalLambda]", "2"], " ",
2745   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
2746 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
2747   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9,
2748   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9},
2749   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
2750   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9,
2751   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
2752   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9,
2753   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9},
2754   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9,
2755   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9},
2756   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9},
2757   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9},
2758   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9,
2759   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9,
2760   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9,
2761   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9,
2762   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
2763   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9,
2764   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9,
2765   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9,
2766   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
2767   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9,
2768   3.714655208705667*^9},
2769   3.726907035030443*^9},ExpressionUUID->"edcce4f6-c317-4a34-8918-\
2770dc3d7a5831ce"],
2771
2772Cell[BoxData[
2773 RowBox[{"\[ImaginaryI]", " ", "e", " ",
2774  SubscriptBox["A", "mu$1"], " ",
2775  RowBox[{"(",
2776   RowBox[{
2777    RowBox[{
2778     RowBox[{
2779      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2780      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
2781     SubscriptBox["W", "mu$2"]}], "-",
2782    RowBox[{
2783     RowBox[{
2784      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
2785      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
2786     SubscriptBox["W", "mu$2"]}], "+",
2787    RowBox[{
2788     RowBox[{"(",
2789      RowBox[{
2790       RowBox[{"-",
2791        RowBox[{
2792         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2793         SubscriptBox["W", "mu$1"], "]"}]}], "+",
2794       RowBox[{
2795        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
2796        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
2797     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
2798 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
2799   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9,
2800   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9},
2801   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
2802   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9,
2803   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
2804   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9,
2805   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9},
2806   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9,
2807   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9},
2808   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9},
2809   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9},
2810   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9,
2811   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9,
2812   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9,
2813   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9,
2814   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
2815   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9,
2816   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9,
2817   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9,
2818   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
2819   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9,
2820   3.714655208705667*^9},
2821   3.726907035104698*^9},ExpressionUUID->"323abe3e-a411-4c9b-8533-\
282271936f66be4c"]
2823}, Open  ]],
2824
2825Cell[CellGroupData[{
2826
2827Cell[BoxData[
2828 RowBox[{
2829  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]",
2830  RowBox[{
2831   RowBox[{
2832    RowBox[{"aww", "/.",
2833     RowBox[{
2834      RowBox[{
2835       RowBox[{"del", "[",
2836        RowBox[{
2837         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|",
2838       RowBox[{"del", "[",
2839        RowBox[{
2840         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
2841      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
2842   RowBox[{
2843    RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
2844   "\[IndentingNewLine]",
2845   RowBox[{
2846    RowBox[{"Simplify", "[",
2847     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
2848    RowBox[{"WCsimplify", "[",
2849     FractionBox["%",
2850      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
2851 CellChangeTimes->{{3.714652676781377*^9, 3.71465270986456*^9}, {
2852  3.714654407380022*^9, 3.714654408872603*^9}, {3.7146552117486067`*^9,
2853  3.714655212645193*^9}},ExpressionUUID->"c3ce482e-99ae-4de8-8127-\
2854f9b3ee83f0c0"],
2855
2856Cell[BoxData[
2857 RowBox[{"-",
2858  FractionBox[
2859   RowBox[{"\[ImaginaryI]", " ", "e", " ",
2860    RowBox[{"(",
2861     RowBox[{
2862      RowBox[{"dsth2", " ",
2863       SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
2864      RowBox[{
2865       SubscriptBox["s", "\[Theta]"], " ",
2866       RowBox[{"(",
2867        RowBox[{
2868         RowBox[{"2", " ",
2869          RowBox[{"(",
2870           RowBox[{"1", "+", "dgw"}], ")"}], " ",
2871          SuperscriptBox["\[CapitalLambda]", "2"], " ",
2872          SubscriptBox["s", "\[Theta]"]}], "+",
2873         RowBox[{
2874          SubscriptBox["c", "HWB"], " ",
2875          SubscriptBox["c", "\[Theta]"], " ",
2876          SuperscriptBox[
2877           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
2878    RowBox[{
2879     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2880     SubscriptBox["A", "mu$1"], "]"}], " ",
2881    RowBox[{"(",
2882     RowBox[{
2883      RowBox[{
2884       SubscriptBox["W", "mu$2"], " ",
2885       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
2886      RowBox[{
2887       SubscriptBox["W", "mu$1"], " ",
2888       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
2889   RowBox[{"2", " ",
2890    SuperscriptBox["\[CapitalLambda]", "2"], " ",
2891    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
2892 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9},
2893   3.714654409637148*^9, 3.7146552134605207`*^9,
2894   3.7269070380694733`*^9},ExpressionUUID->"9cdded33-69f8-4066-a855-\
28958723c4efdcfa"],
2896
2897Cell[BoxData[
2898 RowBox[{"-",
2899  FractionBox[
2900   RowBox[{"\[ImaginaryI]", " ", "e", " ",
2901    RowBox[{"(",
2902     RowBox[{
2903      RowBox[{
2904       SuperscriptBox["\[CapitalLambda]", "2"], " ",
2905       SubscriptBox["s", "\[Theta]"]}], "+",
2906      RowBox[{
2907       SubscriptBox["c", "HWB"], " ",
2908       SubscriptBox["c", "\[Theta]"], " ",
2909       SuperscriptBox[
2910        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
2911    RowBox[{
2912     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2913     SubscriptBox["A", "mu$1"], "]"}], " ",
2914    RowBox[{"(",
2915     RowBox[{
2916      RowBox[{
2917       SubscriptBox["W", "mu$2"], " ",
2918       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
2919      RowBox[{
2920       SubscriptBox["W", "mu$1"], " ",
2921       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
2922   RowBox[{
2923    SuperscriptBox["\[CapitalLambda]", "2"], " ",
2924    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
2925 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9},
2926   3.714654409637148*^9, 3.7146552134605207`*^9,
2927   3.726907038167432*^9},ExpressionUUID->"ffb7b391-f301-4e1d-94c0-\
29285328fe0872d0"],
2929
2930Cell[BoxData[
2931 RowBox[{
2932  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
2933  RowBox[{"(",
2934   RowBox[{"1", "+",
2935    FractionBox[
2936     RowBox[{
2937      SubscriptBox["c", "HWB"], " ",
2938      SubscriptBox["c", "\[Theta]"], " ",
2939      SuperscriptBox[
2940       OverscriptBox["v", "^"], "2"]}],
2941     RowBox[{
2942      SuperscriptBox["\[CapitalLambda]", "2"], " ",
2943      SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
2944  RowBox[{
2945   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
2946   SubscriptBox["A", "mu$1"], "]"}], " ",
2947  RowBox[{"(",
2948   RowBox[{
2949    RowBox[{
2950     SubscriptBox["W", "mu$2"], " ",
2951     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
2952    RowBox[{
2953     SubscriptBox["W", "mu$1"], " ",
2954     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
2955 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9},
2956   3.714654409637148*^9, 3.7146552134605207`*^9,
2957   3.7269070382159033`*^9},ExpressionUUID->"c38b0cc9-9282-4fea-b7cc-\
2958ff9b1df2efc8"]
2959}, Open  ]]
2960}, Closed]],
2961
2962Cell[CellGroupData[{
2963
2964Cell["Example : h Z Z coupling (CP even)", "Subsection",
2965 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
2966  3.71465313260557*^9,
2967  3.714653135145647*^9}},ExpressionUUID->"afdaa5d5-ec6e-441f-80a5-\
296829a2d7ad36b3"],
2969
2970Cell[CellGroupData[{
2971
2972Cell[BoxData[
2973 RowBox[{"hzz", "=",
2974  RowBox[{
2975   RowBox[{"GetInteractionTerms", "[",
2976    RowBox[{
2977     RowBox[{
2978      RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.",
2979      RowBox[{
2980       RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}],
2981     ",",
2982     RowBox[{"SelectParticles", "\[Rule]",
2983      RowBox[{"{",
2984       RowBox[{"{",
2985        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//",
2986   "Simplify"}]}]], "Input",
2987 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
2988  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9,
2989  3.697781973755425*^9}, {3.714653122093409*^9,
2990  3.714653151135909*^9}},ExpressionUUID->"20646313-9df5-4d6c-b179-\
2991c4a19db1e3ec"],
2992
2993Cell[BoxData[
2994 RowBox[{
2995  FractionBox["1",
2996   RowBox[{"16", " ",
2997    SubsuperscriptBox["c", "\[Theta]", "2"], " ",
2998    SuperscriptBox["\[CapitalLambda]", "2"], " ",
2999    SubsuperscriptBox["s", "\[Theta]", "2"]}]],
3000  RowBox[{"H", " ",
3001   OverscriptBox["v", "^"], " ",
3002   RowBox[{"(",
3003    RowBox[{
3004     RowBox[{
3005      RowBox[{"-", "32"}], " ",
3006      SubsuperscriptBox["s", "\[Theta]", "2"], " ",
3007      RowBox[{"(",
3008       RowBox[{
3009        RowBox[{"-", "1"}], "+",
3010        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3011      RowBox[{"(",
3012       RowBox[{
3013        SubscriptBox["c", "HW"], "+",
3014        RowBox[{
3015         SubscriptBox["c", "HWB"], " ",
3016         SubscriptBox["c", "\[Theta]"], " ",
3017         SubscriptBox["s", "\[Theta]"]}], "+",
3018        RowBox[{
3019         RowBox[{"(",
3020          RowBox[{
3021           SubscriptBox["c", "HB"], "-",
3022           SubscriptBox["c", "HW"]}], ")"}], " ",
3023         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
3024      SuperscriptBox[
3025       RowBox[{
3026        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
3027        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
3028     RowBox[{"32", " ",
3029      SubsuperscriptBox["s", "\[Theta]", "2"], " ",
3030      RowBox[{"(",
3031       RowBox[{
3032        RowBox[{"-", "1"}], "+",
3033        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3034      RowBox[{"(",
3035       RowBox[{
3036        SubscriptBox["c", "HW"], "+",
3037        RowBox[{
3038         SubscriptBox["c", "HWB"], " ",
3039         SubscriptBox["c", "\[Theta]"], " ",
3040         SubscriptBox["s", "\[Theta]"]}], "+",
3041        RowBox[{
3042         RowBox[{"(",
3043          RowBox[{
3044           SubscriptBox["c", "HB"], "-",
3045           SubscriptBox["c", "HW"]}], ")"}], " ",
3046         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
3047      RowBox[{
3048       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
3049       SubscriptBox["Z", "mu$1"], "]"}], " ",
3050      RowBox[{
3051       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
3052       SubscriptBox["Z", "mu$2"], "]"}]}], "+",
3053     RowBox[{
3054      SuperscriptBox["e", "2"], " ",
3055      RowBox[{"(",
3056       RowBox[{
3057        RowBox[{"2", " ",
3058         SuperscriptBox["\[CapitalLambda]", "2"], " ",
3059         RowBox[{"(",
3060          RowBox[{"2", "+",
3061           RowBox[{
3062            SqrtBox["2"], " ", "dGf"}], "+",
3063           RowBox[{"4", " ", "dgw"}], "+",
3064           RowBox[{"4", " ",
3065            RowBox[{"(",
3066             RowBox[{"dg1", "-", "dgw"}], ")"}], " ",
3067            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
3068        RowBox[{
3069         RowBox[{"(",
3070          RowBox[{
3071           RowBox[{"4", " ",
3072            SubscriptBox["c",
3073             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
3074           RowBox[{"3", " ",
3075            SubscriptBox["c", "HD"]}], "+",
3076           RowBox[{"8", " ",
3077            SubscriptBox["c", "HWB"], " ",
3078            SubscriptBox["c", "\[Theta]"], " ",
3079            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
3080         SuperscriptBox[
3081          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
3082      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}]}]], "Output",
3083 CellChangeTimes->{3.714653202225688*^9, 3.714654519287326*^9,
3084  3.714655351621037*^9,
3085  3.7269071052342587`*^9},ExpressionUUID->"5e625118-e135-42ef-b1b1-\
30862f7111bc041f"]
3087}, Open  ]],
3088
3089Cell[CellGroupData[{
3090
3091Cell[BoxData[
3092 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
3093 CellChangeTimes->{{3.714653438713478*^9,
3094  3.7146534431183643`*^9}},ExpressionUUID->"13a53d48-6c16-4925-9131-\
3095068868c51a55"],
3096
3097Cell[BoxData[
3098 FractionBox[
3099  RowBox[{
3100   SuperscriptBox["e", "2"], " ", "H", " ",
3101   OverscriptBox["v", "^"], " ",
3102   SubsuperscriptBox["Z", "mu$1", "2"]}],
3103  RowBox[{"4", " ",
3104   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3105   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
3106 CellChangeTimes->{3.71465344371563*^9, 3.714654519369021*^9,
3107  3.71465535176595*^9,
3108  3.726907105336083*^9},ExpressionUUID->"38cabc67-d39b-45cd-9265-\
3109b52cbb9724a8"]
3110}, Open  ]],
3111
3112Cell[CellGroupData[{
3113
3114Cell[BoxData[
3115 RowBox[{"Collect", "[",
3116  RowBox[{"hzz", ",", " ",
3117   RowBox[{"{",
3118    RowBox[{
3119     SuperscriptBox[
3120      RowBox[{"Z", "[", "_", "]"}], "2"], ",",
3121     RowBox[{"del", "[",
3122      RowBox[{
3123       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",",
3124   "WCsimplify"}], "]"}]], "Input",
3125 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
3126  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9,
3127  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
3128  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9,
3129  3.7146534351677427`*^9}},ExpressionUUID->"ae1cc0f7-b195-462b-9057-\
313078b3e5170a15"],
3131
3132Cell[BoxData[
3133 RowBox[{
3134  RowBox[{
3135   RowBox[{"(",
3136    RowBox[{
3137     RowBox[{"-",
3138      FractionBox[
3139       RowBox[{"2", " ",
3140        SubscriptBox["c", "HWB"], " ", "H", " ",
3141        SubscriptBox["s", "\[Theta]"], " ",
3142        RowBox[{"(",
3143         RowBox[{
3144          RowBox[{"-", "1"}], "+",
3145          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3146        OverscriptBox["v", "^"]}],
3147       RowBox[{
3148        SubscriptBox["c", "\[Theta]"], " ",
3149        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-",
3150     FractionBox[
3151      RowBox[{"2", " ",
3152       SubscriptBox["c", "HB"], " ", "H", " ",
3153       SubsuperscriptBox["s", "\[Theta]", "2"], " ",
3154       RowBox[{"(",
3155        RowBox[{
3156         RowBox[{"-", "1"}], "+",
3157         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3158       OverscriptBox["v", "^"]}],
3159      RowBox[{
3160       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3161       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
3162     FractionBox[
3163      RowBox[{"2", " ",
3164       SubscriptBox["c", "HW"], " ", "H", " ",
3165       SuperscriptBox[
3166        RowBox[{"(",
3167         RowBox[{
3168          RowBox[{"-", "1"}], "+",
3169          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
3170       OverscriptBox["v", "^"]}],
3171      RowBox[{
3172       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3173       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
3174   SuperscriptBox[
3175    RowBox[{
3176     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
3177     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
3178  RowBox[{
3179   RowBox[{"(",
3180    RowBox[{
3181     FractionBox[
3182      RowBox[{"2", " ",
3183       SubscriptBox["c", "HWB"], " ", "H", " ",
3184       SubscriptBox["s", "\[Theta]"], " ",
3185       RowBox[{"(",
3186        RowBox[{
3187         RowBox[{"-", "1"}], "+",
3188         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3189       OverscriptBox["v", "^"]}],
3190      RowBox[{
3191       SubscriptBox["c", "\[Theta]"], " ",
3192       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
3193     FractionBox[
3194      RowBox[{"2", " ",
3195       SubscriptBox["c", "HB"], " ", "H", " ",
3196       SubsuperscriptBox["s", "\[Theta]", "2"], " ",
3197       RowBox[{"(",
3198        RowBox[{
3199         RowBox[{"-", "1"}], "+",
3200         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3201       OverscriptBox["v", "^"]}],
3202      RowBox[{
3203       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3204       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
3205     FractionBox[
3206      RowBox[{"2", " ",
3207       SubscriptBox["c", "HW"], " ", "H", " ",
3208       SuperscriptBox[
3209        RowBox[{"(",
3210         RowBox[{
3211          RowBox[{"-", "1"}], "+",
3212          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
3213       OverscriptBox["v", "^"]}],
3214      RowBox[{
3215       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3216       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
3217   RowBox[{
3218    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
3219    SubscriptBox["Z", "mu$1"], "]"}], " ",
3220   RowBox[{
3221    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
3222    SubscriptBox["Z", "mu$2"], "]"}]}], "+",
3223  RowBox[{
3224   RowBox[{"(",
3225    RowBox[{
3226     FractionBox[
3227      RowBox[{"dg1", " ",
3228       SuperscriptBox["e", "2"], " ", "H", " ",
3229       OverscriptBox["v", "^"]}],
3230      RowBox[{"2", " ",
3231       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+",
3232     FractionBox[
3233      RowBox[{
3234       SuperscriptBox["e", "2"], " ", "H", " ",
3235       OverscriptBox["v", "^"]}],
3236      RowBox[{"4", " ",
3237       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3238       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
3239     FractionBox[
3240      RowBox[{"dGf", " ",
3241       SuperscriptBox["e", "2"], " ", "H", " ",
3242       OverscriptBox["v", "^"]}],
3243      RowBox[{"4", " ",
3244       SqrtBox["2"], " ",
3245       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3246       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-",
3247     FractionBox[
3248      RowBox[{"dgw", " ",
3249       SuperscriptBox["e", "2"], " ", "H", " ",
3250       RowBox[{"(",
3251        RowBox[{
3252         RowBox[{"-", "1"}], "+",
3253         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3254       OverscriptBox["v", "^"]}],
3255      RowBox[{"2", " ",
3256       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3257       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
3258     FractionBox[
3259      RowBox[{
3260       SubscriptBox["c",
3261        RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
3262       SuperscriptBox["e", "2"], " ", "H", " ",
3263       SuperscriptBox[
3264        OverscriptBox["v", "^"], "3"]}],
3265      RowBox[{"4", " ",
3266       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3267       SuperscriptBox["\[CapitalLambda]", "2"], " ",
3268       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
3269     FractionBox[
3270      RowBox[{"3", " ",
3271       SubscriptBox["c", "HD"], " ",
3272       SuperscriptBox["e", "2"], " ", "H", " ",
3273       SuperscriptBox[
3274        OverscriptBox["v", "^"], "3"]}],
3275      RowBox[{"16", " ",
3276       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3277       SuperscriptBox["\[CapitalLambda]", "2"], " ",
3278       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
3279     FractionBox[
3280      RowBox[{
3281       SubscriptBox["c", "HWB"], " ",
3282       SuperscriptBox["e", "2"], " ", "H", " ",
3283       SuperscriptBox[
3284        OverscriptBox["v", "^"], "3"]}],
3285      RowBox[{"2", " ",
3286       SubscriptBox["c", "\[Theta]"], " ",
3287       SuperscriptBox["\[CapitalLambda]", "2"], " ",
3288       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
3289   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
3290 CellChangeTimes->{
3291  3.7269071056239033`*^9},ExpressionUUID->"6a82512c-9c62-42c4-958a-\
32927a292f386077"]
3293}, Open  ]],
3294
3295Cell[BoxData[
3296 RowBox[{"Coefficient", " ", "for", " ",
3297  SubscriptBox["Z", "\[Mu]"],
3298  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
3299 CellChangeTimes->{{3.714653489006771*^9,
3300  3.714653533124165*^9}},ExpressionUUID->"82131644-0cd7-403b-9525-\
3301ffa8a13d74f7"],
3302
3303Cell[CellGroupData[{
3304
3305Cell[BoxData[{
3306 RowBox[{
3307  RowBox[{
3308   RowBox[{"hzz", "/.",
3309    RowBox[{
3310     RowBox[{"del", "[",
3311      RowBox[{
3312       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
3313    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
3314 RowBox[{
3315  RowBox[{"SMlimit", "[", "%", "]"}], " ",
3316  RowBox[{"WCsimplify", "[",
3317   FractionBox["%",
3318    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
3319 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
3320  3.714654543437923*^9, 3.7146545447538853`*^9}, {3.714655306071694*^9,
3321  3.7146553071723137`*^9}},ExpressionUUID->"40e8568f-4d3f-4322-95fa-\
3322f8754a3db27f"],
3323
3324Cell[BoxData[
3325 FractionBox[
3326  RowBox[{
3327   SuperscriptBox["e", "2"], " ", "H", " ",
3328   OverscriptBox["v", "^"], " ",
3329   RowBox[{"(",
3330    RowBox[{
3331     RowBox[{"4", " ",
3332      SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
3333     RowBox[{
3334      SuperscriptBox[
3335       OverscriptBox["v", "^"], "2"], " ",
3336      RowBox[{"(",
3337       RowBox[{
3338        RowBox[{"4", " ",
3339         SubscriptBox["c",
3340          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
3341        SubscriptBox["c", "HD"], "-",
3342        RowBox[{"2", " ",
3343         RowBox[{"(",
3344          RowBox[{
3345           SubscriptBox["cHl3",
3346            RowBox[{"1", ",", "1"}]], "+",
3347           SubscriptBox["cHl3",
3348            RowBox[{"2", ",", "2"}]], "-",
3349           SubscriptBox[
3350            SubscriptBox["c", "ll"],
3351            RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
3352       ")"}]}]}], ")"}], " ",
3353   SubsuperscriptBox["Z", "mu$1", "2"]}],
3354  RowBox[{"16", " ",
3355   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3356   SuperscriptBox["\[CapitalLambda]", "2"], " ",
3357   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
3358 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
3359   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9,
3360   3.7269071057558517`*^9},ExpressionUUID->"c8f5ef6d-f4bf-44bc-99b6-\
336189104dfcdeaf"],
3362
3363Cell[BoxData[
3364 FractionBox[
3365  RowBox[{
3366   SuperscriptBox["e", "2"], " ", "H", " ",
3367   OverscriptBox["v", "^"], " ",
3368   RowBox[{"(",
3369    RowBox[{"1", "+",
3370     FractionBox[
3371      RowBox[{
3372       SubscriptBox["c",
3373        RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
3374       SuperscriptBox[
3375        OverscriptBox["v", "^"], "2"]}],
3376      SuperscriptBox["\[CapitalLambda]", "2"]], "+",
3377     FractionBox[
3378      RowBox[{
3379       SubscriptBox["c", "HD"], " ",
3380       SuperscriptBox[
3381        OverscriptBox["v", "^"], "2"]}],
3382      RowBox[{"4", " ",
3383       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
3384     FractionBox[
3385      RowBox[{
3386       SuperscriptBox[
3387        OverscriptBox["v", "^"], "2"], " ",
3388       SubscriptBox["cHl3",
3389        RowBox[{"1", ",", "1"}]]}],
3390      RowBox[{"2", " ",
3391       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
3392     FractionBox[
3393      RowBox[{
3394       SuperscriptBox[
3395        OverscriptBox["v", "^"], "2"], " ",
3396       SubscriptBox["cHl3",
3397        RowBox[{"2", ",", "2"}]]}],
3398      RowBox[{"2", " ",
3399       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
3400     FractionBox[
3401      RowBox[{
3402       SuperscriptBox[
3403        OverscriptBox["v", "^"], "2"], " ",
3404       SubscriptBox[
3405        SubscriptBox["c", "ll"],
3406        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
3407      RowBox[{"2", " ",
3408       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
3409   SubsuperscriptBox["Z", "mu$1", "2"]}],
3410  RowBox[{"4", " ",
3411   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3412   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
3413 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
3414   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9,
3415   3.726907105837406*^9},ExpressionUUID->"61b0d309-681c-43a1-8aa3-\
341640b181d41071"]
3417}, Open  ]],
3418
3419Cell[BoxData[
3420 RowBox[{"Coefficient", " ", "for", " ",
3421  RowBox[{
3422   SubscriptBox["\[PartialD]", "\[Mu]"],
3423   SubscriptBox["Z", "\[Nu]"]}],
3424  RowBox[{"(",
3425   RowBox[{
3426    RowBox[{
3427     SuperscriptBox["\[PartialD]", "\[Mu]"],
3428     SuperscriptBox["Z", "\[Nu]"]}], "-",
3429    RowBox[{
3430     SuperscriptBox["\[PartialD]", "\[Nu]"],
3431     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
3432 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
3433  3.714653634026601*^9,
3434  3.714653660281114*^9}},ExpressionUUID->"f798344e-a1fc-48d2-8bd3-\
3435c6d74c3ee478"],
3436
3437Cell[CellGroupData[{
3438
3439Cell[BoxData[
3440 RowBox[{
3441  RowBox[{
3442   RowBox[{
3443    RowBox[{"hzz", "/.",
3444     RowBox[{
3445      SuperscriptBox[
3446       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.",
3447    "alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
3448 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
3449  3.714653677707417*^9, 3.714653739972247*^9}, {3.714654547788505*^9,
3450  3.7146545492474623`*^9}, {3.714655309451169*^9,
3451  3.714655311061563*^9}},ExpressionUUID->"eed85d85-a577-4a0e-aae1-\
34522a53560f57f5"],
3453
3454Cell[BoxData[
3455 FractionBox[
3456  RowBox[{"2", " ", "H", " ",
3457   RowBox[{"(",
3458    RowBox[{
3459     RowBox[{"-", "1"}], "+",
3460     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
3461   RowBox[{"(",
3462    RowBox[{
3463     SubscriptBox["c", "HW"], "+",
3464     RowBox[{
3465      SubscriptBox["c", "HWB"], " ",
3466      SubscriptBox["c", "\[Theta]"], " ",
3467      SubscriptBox["s", "\[Theta]"]}], "+",
3468     RowBox[{
3469      RowBox[{"(",
3470       RowBox[{
3471        SubscriptBox["c", "HB"], "-",
3472        SubscriptBox["c", "HW"]}], ")"}], " ",
3473      SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
3474   OverscriptBox["v", "^"], " ",
3475   RowBox[{
3476    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
3477    SubscriptBox["Z", "mu$1"], "]"}], " ",
3478   RowBox[{"(",
3479    RowBox[{
3480     RowBox[{"-",
3481      RowBox[{
3482       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
3483       SubscriptBox["Z", "mu$1"], "]"}]}], "+",
3484     RowBox[{
3485      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
3486      SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}],
3487  RowBox[{
3488   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
3489   SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
3490 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9},
3491   3.714654550173139*^9, 3.714655359366632*^9,
3492   3.7269071059732847`*^9},ExpressionUUID->"ffe09fee-e2ee-454e-8d69-\
3493a61d4d90f7ff"]
3494}, Open  ]]
3495}, Closed]],
3496
3497Cell[CellGroupData[{
3498
3499Cell[TextData[{
3500 "Example - Fermion Z ",
3501 Cell[BoxData[
3502  FormBox["couplings", TraditionalForm]],ExpressionUUID->
3503  "5682b4c6-9d96-4618-9945-5077a9720173"],
3504 " (non-dipole structures)"
3505}], "Subsection",
3506 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
3507  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9,
3508  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
3509  3.714474653133204*^9,
3510  3.7144746902228537`*^9}},ExpressionUUID->"83c232dc-9faf-43fc-a036-\
351195a43dea3d65"],
3512
3513Cell[BoxData[
3514 RowBox[{
3515  RowBox[{"L2", "=",
3516   RowBox[{
3517    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}],
3518  ";"}]], "Input",
3519 CellChangeTimes->{{3.714474671414948*^9,
3520  3.714474706220644*^9}},ExpressionUUID->"79c9d7a5-957c-4ec2-b127-\
35213e0d737ff0f9"],
3522
3523Cell[CellGroupData[{
3524
3525Cell[BoxData[
3526 RowBox[{"ZffCouplings", "=",
3527  RowBox[{
3528   RowBox[{
3529    RowBox[{
3530     RowBox[{"FeynmanRules", "[",
3531      RowBox[{"L2", ",",
3532       RowBox[{"Contains", "\[Rule]",
3533        RowBox[{"{", "Z", "}"}]}], ",",
3534       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//",
3535     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
3536 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
3537   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9,
3538   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
3539   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9,
3540   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
3541   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
3542   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9,
3543   3.714652756642342*^9}, {3.714652909302999*^9,
3544   3.7146529149076347`*^9}},ExpressionUUID->"b2d4aa91-e7b0-4a7d-bf00-\
354591cddf449bbd"],
3546
3547Cell[CellGroupData[{
3548
3549Cell[BoxData[
3550 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3551  StripOnInput->False,
3552  LineColor->RGBColor[1, 0.5, 0],
3553  FrontFaceColor->RGBColor[1, 0.5, 0],
3554  BackFaceColor->RGBColor[1, 0.5, 0],
3555  GraphicsColor->RGBColor[1, 0.5, 0],
3556  FontWeight->Bold,
3557  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3558 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
3559  3.714654452458597*^9,
3560  3.7146552514152517`*^9},ExpressionUUID->"083897d2-93cc-449d-b081-\
356157e606820f36"],
3562
3563Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3564 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
3565  3.714654452458597*^9,
3566  3.714655251416629*^9},ExpressionUUID->"88a44e95-7cfe-4b13-95c3-\
3567e8a36789a6f2"],
3568
3569Cell[BoxData[
3570 InterpretationBox[
3571  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
3572   "\[InvisibleSpace]", "\<\" cores\"\>"}],
3573  SequenceForm["Expanding the indices over ", 2, " cores"],
3574  Editable->False]], "Print",
3575 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
3576  3.714654452458597*^9,
3577  3.7146552514177647`*^9},ExpressionUUID->"12724ce2-faae-417b-b7af-\
35786536287ca318"],
3579
3580Cell[BoxData["\<\"Collecting the different structures that enter the \
3581vertex.\"\>"], "Print",
3582 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
3583  3.714654452458597*^9,
3584  3.714655261443171*^9},ExpressionUUID->"d4dda840-ae34-4ec5-9bc4-\
358518c9078662fb"],
3586
3587Cell[BoxData[
3588 InterpretationBox[
3589  RowBox[{
3590  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
3591-> starting the computation: \"\>", "\[InvisibleSpace]",
3592   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3593    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3594   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
3595  SequenceForm[
3596  4, " possible non-zero vertices have been found -> starting the \
3597computation: ",
3598   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
3599  Editable->False]], "Print",
3600 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
3601  3.714654452458597*^9,
3602  3.714655261542199*^9},ExpressionUUID->"cbefd825-4b48-4f08-a307-\
3603d80c8e5a5686"],
3604
3605Cell[BoxData[
3606 InterpretationBox[
3607  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3608  SequenceForm[4, " vertices obtained."],
3609  Editable->False]], "Print",
3610 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
3611  3.714654452458597*^9,
3612  3.714655264095261*^9},ExpressionUUID->"30c28d97-34f0-4a32-a095-\
361399a89eb67ca6"]
3614}, Open  ]],
3615
3616Cell[BoxData[
3617 InterpretationBox[GridBox[{
3618    {GridBox[{
3619       {
3620        OverscriptBox["dq", "\<\"-\"\>"], "1"},
3621       {"dq", "2"},
3622       {"Z", "3"}
3623      },
3624      GridBoxAlignment->{
3625       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
3626        "RowsIndexed" -> {}},
3627      GridBoxSpacings->{"Columns" -> {
3628          Offset[0.27999999999999997`], {
3629           Offset[0.7]},
3630          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
3631          Offset[0.2], {
3632           Offset[0.1]},
3633          Offset[0.2]}, "RowsIndexed" -> {}}],
3634     RowBox[{"-",
3635      FractionBox[
3636       RowBox[{"\[ImaginaryI]", " ", "e", " ",
3637        SubscriptBox["\[Delta]",
3638         RowBox[{
3639          SubscriptBox["\<\"m\"\>", "1"], ",",
3640          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
3641        RowBox[{"(",
3642         RowBox[{
3643          RowBox[{
3644           RowBox[{"-", "3"}], " ",
3645           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3646           SubscriptBox["\[Delta]",
3647            RowBox[{
3648             SubscriptBox["\<\"f\"\>", "1"], ",",
3649             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3650           SubscriptBox[
3651            RowBox[{
3652             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3653              "Superscript"], ".",
3654             SubscriptBox["P", "\<\"-\"\>"]}],
3655            RowBox[{
3656             SubscriptBox["\<\"s\"\>", "1"], ",",
3657             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
3658          RowBox[{"3", " ", "dgw", " ",
3659           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3660           SubscriptBox["\[Delta]",
3661            RowBox[{
3662             SubscriptBox["\<\"f\"\>", "1"], ",",
3663             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3664           SubscriptBox[
3665            RowBox[{
3666             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3667              "Superscript"], ".",
3668             SubscriptBox["P", "\<\"-\"\>"]}],
3669            RowBox[{
3670             SubscriptBox["\<\"s\"\>", "1"], ",",
3671             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3672          RowBox[{"dsth2", " ",
3673           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3674           SubscriptBox["\[Delta]",
3675            RowBox[{
3676             SubscriptBox["\<\"f\"\>", "1"], ",",
3677             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3678           SubscriptBox[
3679            RowBox[{
3680             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3681              "Superscript"], ".",
3682             SubscriptBox["P", "\<\"-\"\>"]}],
3683            RowBox[{
3684             SubscriptBox["\<\"s\"\>", "1"], ",",
3685             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3686          RowBox[{"dsth2", " ",
3687           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3688           SubscriptBox["\[Delta]",
3689            RowBox[{
3690             SubscriptBox["\<\"f\"\>", "1"], ",",
3691             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3692           SubscriptBox[
3693            RowBox[{
3694             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3695              "Superscript"], ".",
3696             SubscriptBox["P", "\<\"+\"\>"]}],
3697            RowBox[{
3698             SubscriptBox["\<\"s\"\>", "1"], ",",
3699             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3700          RowBox[{
3701           SubscriptBox["c", "HWB"], " ",
3702           SubscriptBox["c", "\[Theta]"], " ",
3703           SubscriptBox["s", "\[Theta]"], " ",
3704           SuperscriptBox[
3705            OverscriptBox["v", "^"], "2"], " ",
3706           SubscriptBox["\[Delta]",
3707            RowBox[{
3708             SubscriptBox["\<\"f\"\>", "1"], ",",
3709             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3710           RowBox[{"(",
3711            RowBox[{
3712             RowBox[{
3713              RowBox[{"-", "2"}], " ",
3714              SubscriptBox[
3715               RowBox[{
3716                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3717                 "Superscript"], ".",
3718                SubscriptBox["P", "\<\"-\"\>"]}],
3719               RowBox[{
3720                SubscriptBox["\<\"s\"\>", "1"], ",",
3721                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3722             SubscriptBox[
3723              RowBox[{
3724               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3725                "Superscript"], ".",
3726               SubscriptBox["P", "\<\"+\"\>"]}],
3727              RowBox[{
3728               SubscriptBox["\<\"s\"\>", "1"], ",",
3729               SubscriptBox["\<\"s\"\>", "2"]}]]}], ")"}]}], "+",
3730          RowBox[{
3731           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3732           SubsuperscriptBox["s", "\[Theta]", "2"], " ",
3733           SubscriptBox["\[Delta]",
3734            RowBox[{
3735             SubscriptBox["\<\"f\"\>", "1"], ",",
3736             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3737           RowBox[{"(",
3738            RowBox[{
3739             RowBox[{
3740              RowBox[{"(",
3741               RowBox[{"2", "-", "dg1", "+",
3742                RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
3743              SubscriptBox[
3744               RowBox[{
3745                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3746                 "Superscript"], ".",
3747                SubscriptBox["P", "\<\"-\"\>"]}],
3748               RowBox[{
3749                SubscriptBox["\<\"s\"\>", "1"], ",",
3750                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3751             RowBox[{"2", " ",
3752              RowBox[{"(",
3753               RowBox[{"1", "+", "dg1"}], ")"}], " ",
3754              SubscriptBox[
3755               RowBox[{
3756                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3757                 "Superscript"], ".",
3758                SubscriptBox["P", "\<\"+\"\>"]}],
3759               RowBox[{
3760                SubscriptBox["\<\"s\"\>", "1"], ",",
3761                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-",
3762          RowBox[{"3", " ",
3763           SuperscriptBox[
3764            OverscriptBox["v", "^"], "2"], " ",
3765           RowBox[{"(",
3766            RowBox[{
3767             RowBox[{
3768              SubscriptBox["cHq1",
3769               RowBox[{
3770                SubscriptBox["\<\"f\"\>", "1"], ",",
3771                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3772              SubscriptBox[
3773               RowBox[{
3774                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3775                 "Superscript"], ".",
3776                SubscriptBox["P", "\<\"-\"\>"]}],
3777               RowBox[{
3778                SubscriptBox["\<\"s\"\>", "1"], ",",
3779                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3780             RowBox[{
3781              SubscriptBox["cHq3",
3782               RowBox[{
3783                SubscriptBox["\<\"f\"\>", "1"], ",",
3784                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3785              SubscriptBox[
3786               RowBox[{
3787                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3788                 "Superscript"], ".",
3789                SubscriptBox["P", "\<\"-\"\>"]}],
3790               RowBox[{
3791                SubscriptBox["\<\"s\"\>", "1"], ",",
3792                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3793             RowBox[{
3794              SubscriptBox["cHd",
3795               RowBox[{
3796                SubscriptBox["\<\"f\"\>", "1"], ",",
3797                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3798              SubscriptBox[
3799               RowBox[{
3800                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3801                 "Superscript"], ".",
3802                SubscriptBox["P", "\<\"+\"\>"]}],
3803               RowBox[{
3804                SubscriptBox["\<\"s\"\>", "1"], ",",
3805                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}],
3806       RowBox[{"6", " ",
3807        SubscriptBox["c", "\[Theta]"], " ",
3808        SuperscriptBox["\[CapitalLambda]", "2"], " ",
3809        SubscriptBox["s", "\[Theta]"]}]]}]},
3810    {GridBox[{
3811       {
3812        OverscriptBox["l", "\<\"-\"\>"], "1"},
3813       {"l", "2"},
3814       {"Z", "3"}
3815      },
3816      GridBoxAlignment->{
3817       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
3818        "RowsIndexed" -> {}},
3819      GridBoxSpacings->{"Columns" -> {
3820          Offset[0.27999999999999997`], {
3821           Offset[0.7]},
3822          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
3823          Offset[0.2], {
3824           Offset[0.1]},
3825          Offset[0.2]}, "RowsIndexed" -> {}}],
3826     RowBox[{"-",
3827      FractionBox[
3828       RowBox[{"\[ImaginaryI]", " ", "e", " ",
3829        RowBox[{"(",
3830         RowBox[{
3831          RowBox[{
3832           RowBox[{"-",
3833            SuperscriptBox["\[CapitalLambda]", "2"]}], " ",
3834           SubscriptBox["\[Delta]",
3835            RowBox[{
3836             SubscriptBox["\<\"f\"\>", "1"], ",",
3837             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3838           SubscriptBox[
3839            RowBox[{
3840             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3841              "Superscript"], ".",
3842             SubscriptBox["P", "\<\"-\"\>"]}],
3843            RowBox[{
3844             SubscriptBox["\<\"s\"\>", "1"], ",",
3845             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
3846          RowBox[{"dgw", " ",
3847           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3848           SubscriptBox["\[Delta]",
3849            RowBox[{
3850             SubscriptBox["\<\"f\"\>", "1"], ",",
3851             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3852           SubscriptBox[
3853            RowBox[{
3854             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3855              "Superscript"], ".",
3856             SubscriptBox["P", "\<\"-\"\>"]}],
3857            RowBox[{
3858             SubscriptBox["\<\"s\"\>", "1"], ",",
3859             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3860          RowBox[{"dsth2", " ",
3861           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3862           SubscriptBox["\[Delta]",
3863            RowBox[{
3864             SubscriptBox["\<\"f\"\>", "1"], ",",
3865             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3866           SubscriptBox[
3867            RowBox[{
3868             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3869              "Superscript"], ".",
3870             SubscriptBox["P", "\<\"-\"\>"]}],
3871            RowBox[{
3872             SubscriptBox["\<\"s\"\>", "1"], ",",
3873             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3874          RowBox[{"dsth2", " ",
3875           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3876           SubscriptBox["\[Delta]",
3877            RowBox[{
3878             SubscriptBox["\<\"f\"\>", "1"], ",",
3879             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3880           SubscriptBox[
3881            RowBox[{
3882             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3883              "Superscript"], ".",
3884             SubscriptBox["P", "\<\"+\"\>"]}],
3885            RowBox[{
3886             SubscriptBox["\<\"s\"\>", "1"], ",",
3887             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3888          RowBox[{
3889           SubscriptBox["c", "HWB"], " ",
3890           SubscriptBox["c", "\[Theta]"], " ",
3891           SubscriptBox["s", "\[Theta]"], " ",
3892           SuperscriptBox[
3893            OverscriptBox["v", "^"], "2"], " ",
3894           SubscriptBox["\[Delta]",
3895            RowBox[{
3896             SubscriptBox["\<\"f\"\>", "1"], ",",
3897             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3898           SubscriptBox[
3899            RowBox[{
3900             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3901              "Superscript"], ".",
3902             SubscriptBox["P", "\<\"+\"\>"]}],
3903            RowBox[{
3904             SubscriptBox["\<\"s\"\>", "1"], ",",
3905             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3906          RowBox[{
3907           SuperscriptBox["\[CapitalLambda]", "2"], " ",
3908           SubsuperscriptBox["s", "\[Theta]", "2"], " ",
3909           SubscriptBox["\[Delta]",
3910            RowBox[{
3911             SubscriptBox["\<\"f\"\>", "1"], ",",
3912             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3913           RowBox[{"(",
3914            RowBox[{
3915             RowBox[{
3916              RowBox[{"(",
3917               RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ",
3918              SubscriptBox[
3919               RowBox[{
3920                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3921                 "Superscript"], ".",
3922                SubscriptBox["P", "\<\"-\"\>"]}],
3923               RowBox[{
3924                SubscriptBox["\<\"s\"\>", "1"], ",",
3925                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3926             RowBox[{"2", " ",
3927              RowBox[{"(",
3928               RowBox[{"1", "+", "dg1"}], ")"}], " ",
3929              SubscriptBox[
3930               RowBox[{
3931                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3932                 "Superscript"], ".",
3933                SubscriptBox["P", "\<\"+\"\>"]}],
3934               RowBox[{
3935                SubscriptBox["\<\"s\"\>", "1"], ",",
3936                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-",
3937          RowBox[{
3938           SuperscriptBox[
3939            OverscriptBox["v", "^"], "2"], " ",
3940           RowBox[{"(",
3941            RowBox[{
3942             RowBox[{
3943              SubscriptBox["cHl1",
3944               RowBox[{
3945                SubscriptBox["\<\"f\"\>", "1"], ",",
3946                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3947              SubscriptBox[
3948               RowBox[{
3949                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3950                 "Superscript"], ".",
3951                SubscriptBox["P", "\<\"-\"\>"]}],
3952               RowBox[{
3953                SubscriptBox["\<\"s\"\>", "1"], ",",
3954                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3955             RowBox[{
3956              SubscriptBox["cHl3",
3957               RowBox[{
3958                SubscriptBox["\<\"f\"\>", "1"], ",",
3959                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3960              SubscriptBox[
3961               RowBox[{
3962                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3963                 "Superscript"], ".",
3964                SubscriptBox["P", "\<\"-\"\>"]}],
3965               RowBox[{
3966                SubscriptBox["\<\"s\"\>", "1"], ",",
3967                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
3968             RowBox[{
3969              SubscriptBox["cHe",
3970               RowBox[{
3971                SubscriptBox["\<\"f\"\>", "1"], ",",
3972                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
3973              SubscriptBox[
3974               RowBox[{
3975                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
3976                 "Superscript"], ".",
3977                SubscriptBox["P", "\<\"+\"\>"]}],
3978               RowBox[{
3979                SubscriptBox["\<\"s\"\>", "1"], ",",
3980                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}],
3981       RowBox[{"2", " ",
3982        SubscriptBox["c", "\[Theta]"], " ",
3983        SuperscriptBox["\[CapitalLambda]", "2"], " ",
3984        SubscriptBox["s", "\[Theta]"]}]]}]},
3985    {GridBox[{
3986       {
3987        OverscriptBox["uq", "\<\"-\"\>"], "1"},
3988       {"uq", "2"},
3989       {"Z", "3"}
3990      },
3991      GridBoxAlignment->{
3992       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
3993        "RowsIndexed" -> {}},
3994      GridBoxSpacings->{"Columns" -> {
3995          Offset[0.27999999999999997`], {
3996           Offset[0.7]},
3997          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
3998          Offset[0.2], {
3999           Offset[0.1]},
4000          Offset[0.2]}, "RowsIndexed" -> {}}],
4001     FractionBox[
4002      RowBox[{"\[ImaginaryI]", " ", "e", " ",
4003       SubscriptBox["\[Delta]",
4004        RowBox[{
4005         SubscriptBox["\<\"m\"\>", "1"], ",",
4006         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
4007       RowBox[{"(",
4008        RowBox[{
4009         RowBox[{
4010          RowBox[{"-", "3"}], " ",
4011          SuperscriptBox["\[CapitalLambda]", "2"], " ",
4012          SubscriptBox["\[Delta]",
4013           RowBox[{
4014            SubscriptBox["\<\"f\"\>", "1"], ",",
4015            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4016          SubscriptBox[
4017           RowBox[{
4018            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4019             "Superscript"], ".",
4020            SubscriptBox["P", "\<\"-\"\>"]}],
4021           RowBox[{
4022            SubscriptBox["\<\"s\"\>", "1"], ",",
4023            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
4024         RowBox[{"3", " ", "dgw", " ",
4025          SuperscriptBox["\[CapitalLambda]", "2"], " ",
4026          SubscriptBox["\[Delta]",
4027           RowBox[{
4028            SubscriptBox["\<\"f\"\>", "1"], ",",
4029            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4030          SubscriptBox[
4031           RowBox[{
4032            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4033             "Superscript"], ".",
4034            SubscriptBox["P", "\<\"-\"\>"]}],
4035           RowBox[{
4036            SubscriptBox["\<\"s\"\>", "1"], ",",
4037            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
4038         RowBox[{"2", " ", "dsth2", " ",
4039          SuperscriptBox["\[CapitalLambda]", "2"], " ",
4040          SubscriptBox["\[Delta]",
4041           RowBox[{
4042            SubscriptBox["\<\"f\"\>", "1"], ",",
4043            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4044          SubscriptBox[
4045           RowBox[{
4046            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4047             "Superscript"], ".",
4048            SubscriptBox["P", "\<\"-\"\>"]}],
4049           RowBox[{
4050            SubscriptBox["\<\"s\"\>", "1"], ",",
4051            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
4052         RowBox[{
4053          SubscriptBox["c", "HWB"], " ",
4054          SubscriptBox["c", "\[Theta]"], " ",
4055          SubscriptBox["s", "\[Theta]"], " ",
4056          SuperscriptBox[
4057           OverscriptBox["v", "^"], "2"], " ",
4058          SubscriptBox["\[Delta]",
4059           RowBox[{
4060            SubscriptBox["\<\"f\"\>", "1"], ",",
4061            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4062          RowBox[{"(",
4063           RowBox[{
4064            SubscriptBox[
4065             RowBox[{
4066              TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4067               "Superscript"], ".",
4068              SubscriptBox["P", "\<\"-\"\>"]}],
4069             RowBox[{
4070              SubscriptBox["\<\"s\"\>", "1"], ",",
4071              SubscriptBox["\<\"s\"\>", "2"]}]], "-",
4072            RowBox[{"2", " ",
4073             SubscriptBox[
4074              RowBox[{
4075               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4076                "Superscript"], ".",
4077               SubscriptBox["P", "\<\"+\"\>"]}],
4078              RowBox[{
4079               SubscriptBox["\<\"s\"\>", "1"], ",",
4080               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+",
4081         RowBox[{"2", " ", "dsth2", " ",
4082          SuperscriptBox["\[CapitalLambda]", "2"], " ",
4083          SubscriptBox["\[Delta]",
4084           RowBox[{
4085            SubscriptBox["\<\"f\"\>", "1"], ",",
4086            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4087          SubscriptBox[
4088           RowBox[{
4089            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4090             "Superscript"], ".",
4091            SubscriptBox["P", "\<\"+\"\>"]}],
4092           RowBox[{
4093            SubscriptBox["\<\"s\"\>", "1"], ",",
4094            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
4095         RowBox[{
4096          SuperscriptBox["\[CapitalLambda]", "2"], " ",
4097          SubsuperscriptBox["s", "\[Theta]", "2"], " ",
4098          SubscriptBox["\[Delta]",
4099           RowBox[{
4100            SubscriptBox["\<\"f\"\>", "1"], ",",
4101            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4102          RowBox[{"(",
4103           RowBox[{
4104            RowBox[{
4105             RowBox[{"(",
4106              RowBox[{"4", "+", "dg1", "+",
4107               RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
4108             SubscriptBox[
4109              RowBox[{
4110               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4111                "Superscript"], ".",
4112               SubscriptBox["P", "\<\"-\"\>"]}],
4113              RowBox[{
4114               SubscriptBox["\<\"s\"\>", "1"], ",",
4115               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
4116            RowBox[{"4", " ",
4117             RowBox[{"(",
4118              RowBox[{"1", "+", "dg1"}], ")"}], " ",
4119             SubscriptBox[
4120              RowBox[{
4121               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4122                "Superscript"], ".",
4123               SubscriptBox["P", "\<\"+\"\>"]}],
4124              RowBox[{
4125               SubscriptBox["\<\"s\"\>", "1"], ",",
4126               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+",
4127         RowBox[{"3", " ",
4128          SuperscriptBox[
4129           OverscriptBox["v", "^"], "2"], " ",
4130          RowBox[{"(",
4131           RowBox[{
4132            RowBox[{
4133             SubscriptBox["cHq1",
4134              RowBox[{
4135               SubscriptBox["\<\"f\"\>", "1"], ",",
4136               SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4137             SubscriptBox[
4138              RowBox[{
4139               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4140                "Superscript"], ".",
4141               SubscriptBox["P", "\<\"-\"\>"]}],
4142              RowBox[{
4143               SubscriptBox["\<\"s\"\>", "1"], ",",
4144               SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
4145            RowBox[{
4146             SubscriptBox["cHq3",
4147              RowBox[{
4148               SubscriptBox["\<\"f\"\>", "1"], ",",
4149               SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4150             SubscriptBox[
4151              RowBox[{
4152               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4153                "Superscript"], ".",
4154               SubscriptBox["P", "\<\"-\"\>"]}],
4155              RowBox[{
4156               SubscriptBox["\<\"s\"\>", "1"], ",",
4157               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
4158            RowBox[{
4159             SubscriptBox["cHu",
4160              RowBox[{
4161               SubscriptBox["\<\"f\"\>", "1"], ",",
4162               SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4163             SubscriptBox[
4164              RowBox[{
4165               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4166                "Superscript"], ".",
4167               SubscriptBox["P", "\<\"+\"\>"]}],
4168              RowBox[{
4169               SubscriptBox["\<\"s\"\>", "1"], ",",
4170               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}],
4171      RowBox[{"6", " ",
4172       SubscriptBox["c", "\[Theta]"], " ",
4173       SuperscriptBox["\[CapitalLambda]", "2"], " ",
4174       SubscriptBox["s", "\[Theta]"]}]]},
4175    {GridBox[{
4176       {
4177        OverscriptBox["vl", "\<\"-\"\>"], "1"},
4178       {"vl", "2"},
4179       {"Z", "3"}
4180      },
4181      GridBoxAlignment->{
4182       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
4183        "RowsIndexed" -> {}},
4184      GridBoxSpacings->{"Columns" -> {
4185          Offset[0.27999999999999997`], {
4186           Offset[0.7]},
4187          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
4188          Offset[0.2], {
4189           Offset[0.1]},
4190          Offset[0.2]}, "RowsIndexed" -> {}}],
4191     FractionBox[
4192      RowBox[{"\[ImaginaryI]", " ", "e", " ",
4193       RowBox[{"(",
4194        RowBox[{
4195         RowBox[{
4196          SuperscriptBox[
4197           OverscriptBox["v", "^"], "2"], " ",
4198          SubscriptBox["cHl1",
4199           RowBox[{
4200            SubscriptBox["\<\"f\"\>", "1"], ",",
4201            SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
4202         RowBox[{
4203          SuperscriptBox[
4204           OverscriptBox["v", "^"], "2"], " ",
4205          SubscriptBox["cHl3",
4206           RowBox[{
4207            SubscriptBox["\<\"f\"\>", "1"], ",",
4208            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
4209         RowBox[{
4210          RowBox[{"(",
4211           RowBox[{
4212            RowBox[{
4213             SuperscriptBox["\[CapitalLambda]", "2"], " ",
4214             RowBox[{"(",
4215              RowBox[{
4216               RowBox[{"-", "1"}], "-", "dgw", "+",
4217               RowBox[{
4218                RowBox[{"(",
4219                 RowBox[{
4220                  RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
4221                SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
4222            RowBox[{
4223             SubscriptBox["c", "HWB"], " ",
4224             SubscriptBox["c", "\[Theta]"], " ",
4225             SubscriptBox["s", "\[Theta]"], " ",
4226             SuperscriptBox[
4227              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
4228          SubscriptBox["\[Delta]",
4229           RowBox[{
4230            SubscriptBox["\<\"f\"\>", "1"], ",",
4231            SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ",
4232       SubscriptBox[
4233        RowBox[{
4234         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4235          "Superscript"], ".",
4236         SubscriptBox["P", "\<\"-\"\>"]}],
4237        RowBox[{
4238         SubscriptBox["\<\"s\"\>", "1"], ",",
4239         SubscriptBox["\<\"s\"\>", "2"]}]]}],
4240      RowBox[{"2", " ",
4241       SubscriptBox["c", "\[Theta]"], " ",
4242       SuperscriptBox["\[CapitalLambda]", "2"], " ",
4243       SubscriptBox["s", "\[Theta]"]}]]}
4244   },
4245   GridBoxAlignment->{
4246    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
4247     "RowsIndexed" -> {}},
4248   GridBoxSpacings->{"Columns" -> {
4249       Offset[0.27999999999999997`], {
4250        Offset[2.0999999999999996`]},
4251       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
4252       Offset[0.2], {
4253        Offset[0.4]},
4254       Offset[0.2]}, "RowsIndexed" -> {}}],
4255  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
4256        3}}, (((((Complex[0,
4257            Rational[-1, 6]]/$CellContext`cth)
4258         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth)
4259      FeynRules`IndexDelta[
4260        FeynRules`Index[FeynRules`Colour,
4261         FeynRules`Ext[1]],
4262        FeynRules`Index[FeynRules`Colour,
4263         FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2)
4264        FeynRules`IndexDelta[
4265          FeynRules`Index[$CellContext`Generation,
4266           FeynRules`Ext[1]],
4267          FeynRules`Index[$CellContext`Generation,
4268           FeynRules`Ext[2]]]) FeynRules`TensDot[
4269         FeynRules`Ga[
4270          FeynRules`Index[FeynRules`Lorentz,
4271           FeynRules`Ext[3]]], FeynRules`ProjM][
4272         FeynRules`Index[FeynRules`Spin,
4273          FeynRules`Ext[1]],
4274         FeynRules`Index[FeynRules`Spin,
4275          FeynRules`Ext[2]]] - (((
4276         3 $CellContext`dgw) $CellContext`LambdaSMEFT^2)
4277       FeynRules`IndexDelta[
4278         FeynRules`Index[$CellContext`Generation,
4279          FeynRules`Ext[1]],
4280         FeynRules`Index[$CellContext`Generation,
4281          FeynRules`Ext[2]]]) FeynRules`TensDot[
4282        FeynRules`Ga[
4283         FeynRules`Index[FeynRules`Lorentz,
4284          FeynRules`Ext[3]]], FeynRules`ProjM][
4285        FeynRules`Index[FeynRules`Spin,
4286         FeynRules`Ext[1]],
4287        FeynRules`Index[FeynRules`Spin,
4288         FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
4289          FeynRules`IndexDelta[
4290          FeynRules`Index[$CellContext`Generation,
4291           FeynRules`Ext[1]],
4292          FeynRules`Index[$CellContext`Generation,
4293           FeynRules`Ext[2]]]) FeynRules`TensDot[
4294         FeynRules`Ga[
4295          FeynRules`Index[FeynRules`Lorentz,
4296           FeynRules`Ext[3]]], FeynRules`ProjM][
4297         FeynRules`Index[FeynRules`Spin,
4298          FeynRules`Ext[1]],
4299         FeynRules`Index[FeynRules`Spin,
4300          FeynRules`Ext[
4301          2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
4302        FeynRules`IndexDelta[
4303          FeynRules`Index[$CellContext`Generation,
4304           FeynRules`Ext[1]],
4305          FeynRules`Index[$CellContext`Generation,
4306           FeynRules`Ext[2]]]) FeynRules`TensDot[
4307         FeynRules`Ga[
4308          FeynRules`Index[FeynRules`Lorentz,
4309           FeynRules`Ext[3]]], FeynRules`ProjP][
4310         FeynRules`Index[FeynRules`Spin,
4311          FeynRules`Ext[1]],
4312         FeynRules`Index[FeynRules`Spin,
4313          FeynRules`Ext[
4314          2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
4315$CellContext`vevhat^2) FeynRules`IndexDelta[
4316          FeynRules`Index[$CellContext`Generation,
4317           FeynRules`Ext[1]],
4318          FeynRules`Index[$CellContext`Generation,
4319           FeynRules`Ext[2]]]) ((-2) FeynRules`TensDot[
4320           FeynRules`Ga[
4321            FeynRules`Index[FeynRules`Lorentz,
4322             FeynRules`Ext[3]]], FeynRules`ProjM][
4323           FeynRules`Index[FeynRules`Spin,
4324            FeynRules`Ext[1]],
4325           FeynRules`Index[FeynRules`Spin,
4326            FeynRules`Ext[2]]] + FeynRules`TensDot[
4327          FeynRules`Ga[
4328           FeynRules`Index[FeynRules`Lorentz,
4329            FeynRules`Ext[3]]], FeynRules`ProjP][
4330          FeynRules`Index[FeynRules`Spin,
4331           FeynRules`Ext[1]],
4332          FeynRules`Index[FeynRules`Spin,
4333           FeynRules`Ext[
4334           2]]]) + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2)
4335        FeynRules`IndexDelta[
4336          FeynRules`Index[$CellContext`Generation,
4337           FeynRules`Ext[1]],
4338          FeynRules`Index[$CellContext`Generation,
4339           FeynRules`Ext[2]]]) ((2 - $CellContext`dg1 + 3 $CellContext`dgw)
4340         FeynRules`TensDot[
4341           FeynRules`Ga[
4342            FeynRules`Index[FeynRules`Lorentz,
4343             FeynRules`Ext[3]]], FeynRules`ProjM][
4344           FeynRules`Index[FeynRules`Spin,
4345            FeynRules`Ext[1]],
4346           FeynRules`Index[FeynRules`Spin,
4347            FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1))
4348         FeynRules`TensDot[
4349           FeynRules`Ga[
4350            FeynRules`Index[FeynRules`Lorentz,
4351             FeynRules`Ext[3]]], FeynRules`ProjP][
4352           FeynRules`Index[FeynRules`Spin,
4353            FeynRules`Ext[1]],
4354           FeynRules`Index[FeynRules`Spin,
4355            FeynRules`Ext[2]]]) - (3 $CellContext`vevhat^2) ($CellContext`cHq1[
4356          FeynRules`Index[$CellContext`Generation,
4357           FeynRules`Ext[1]],
4358          FeynRules`Index[$CellContext`Generation,
4359           FeynRules`Ext[2]]] FeynRules`TensDot[
4360          FeynRules`Ga[
4361           FeynRules`Index[FeynRules`Lorentz,
4362            FeynRules`Ext[3]]], FeynRules`ProjM][
4363          FeynRules`Index[FeynRules`Spin,
4364           FeynRules`Ext[1]],
4365          FeynRules`Index[FeynRules`Spin,
4366           FeynRules`Ext[2]]] + $CellContext`cHq3[
4367          FeynRules`Index[$CellContext`Generation,
4368           FeynRules`Ext[1]],
4369          FeynRules`Index[$CellContext`Generation,
4370           FeynRules`Ext[2]]] FeynRules`TensDot[
4371          FeynRules`Ga[
4372           FeynRules`Index[FeynRules`Lorentz,
4373            FeynRules`Ext[3]]], FeynRules`ProjM][
4374          FeynRules`Index[FeynRules`Spin,
4375           FeynRules`Ext[1]],
4376          FeynRules`Index[FeynRules`Spin,
4377           FeynRules`Ext[2]]] + $CellContext`cHd[
4378          FeynRules`Index[$CellContext`Generation,
4379           FeynRules`Ext[1]],
4380          FeynRules`Index[$CellContext`Generation,
4381           FeynRules`Ext[2]]] FeynRules`TensDot[
4382          FeynRules`Ga[
4383           FeynRules`Index[FeynRules`Lorentz,
4384            FeynRules`Ext[3]]], FeynRules`ProjP][
4385          FeynRules`Index[FeynRules`Spin,
4386           FeynRules`Ext[1]],
4387          FeynRules`Index[FeynRules`Spin,
4388           FeynRules`Ext[2]]]))}, {{{$CellContext`lbar, 1}, {
4389      FeynRules`l, 2}, {$CellContext`Z, 3}}, ((((Complex[0,
4390           Rational[-1, 2]]/$CellContext`cth)
4391        FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
4392(((-$CellContext`LambdaSMEFT^2) FeynRules`IndexDelta[
4393          FeynRules`Index[$CellContext`Generation,
4394           FeynRules`Ext[1]],
4395          FeynRules`Index[$CellContext`Generation,
4396           FeynRules`Ext[2]]]) FeynRules`TensDot[
4397         FeynRules`Ga[
4398          FeynRules`Index[FeynRules`Lorentz,
4399           FeynRules`Ext[3]]], FeynRules`ProjM][
4400         FeynRules`Index[FeynRules`Spin,
4401          FeynRules`Ext[1]],
4402         FeynRules`Index[FeynRules`Spin,
4403          FeynRules`Ext[2]]] - (($CellContext`dgw $CellContext`LambdaSMEFT^2)
4404       FeynRules`IndexDelta[
4405         FeynRules`Index[$CellContext`Generation,
4406          FeynRules`Ext[1]],
4407         FeynRules`Index[$CellContext`Generation,
4408          FeynRules`Ext[2]]]) FeynRules`TensDot[
4409        FeynRules`Ga[
4410         FeynRules`Index[FeynRules`Lorentz,
4411          FeynRules`Ext[3]]], FeynRules`ProjM][
4412        FeynRules`Index[FeynRules`Spin,
4413         FeynRules`Ext[1]],
4414        FeynRules`Index[FeynRules`Spin,
4415         FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
4416          FeynRules`IndexDelta[
4417          FeynRules`Index[$CellContext`Generation,
4418           FeynRules`Ext[1]],
4419          FeynRules`Index[$CellContext`Generation,
4420           FeynRules`Ext[2]]]) FeynRules`TensDot[
4421         FeynRules`Ga[
4422          FeynRules`Index[FeynRules`Lorentz,
4423           FeynRules`Ext[3]]], FeynRules`ProjM][
4424         FeynRules`Index[FeynRules`Spin,
4425          FeynRules`Ext[1]],
4426         FeynRules`Index[FeynRules`Spin,
4427          FeynRules`Ext[
4428          2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
4429        FeynRules`IndexDelta[
4430          FeynRules`Index[$CellContext`Generation,
4431           FeynRules`Ext[1]],
4432          FeynRules`Index[$CellContext`Generation,
4433           FeynRules`Ext[2]]]) FeynRules`TensDot[
4434         FeynRules`Ga[
4435          FeynRules`Index[FeynRules`Lorentz,
4436           FeynRules`Ext[3]]], FeynRules`ProjP][
4437         FeynRules`Index[FeynRules`Spin,
4438          FeynRules`Ext[1]],
4439         FeynRules`Index[FeynRules`Spin,
4440          FeynRules`Ext[
4441          2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
4442$CellContext`vevhat^2) FeynRules`IndexDelta[
4443          FeynRules`Index[$CellContext`Generation,
4444           FeynRules`Ext[1]],
4445          FeynRules`Index[$CellContext`Generation,
4446           FeynRules`Ext[2]]]) FeynRules`TensDot[
4447         FeynRules`Ga[
4448          FeynRules`Index[FeynRules`Lorentz,
4449           FeynRules`Ext[3]]], FeynRules`ProjP][
4450         FeynRules`Index[FeynRules`Spin,
4451          FeynRules`Ext[1]],
4452         FeynRules`Index[FeynRules`Spin,
4453          FeynRules`Ext[
4454          2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2)
4455        FeynRules`IndexDelta[
4456          FeynRules`Index[$CellContext`Generation,
4457           FeynRules`Ext[1]],
4458          FeynRules`Index[$CellContext`Generation,
4459           FeynRules`Ext[2]]]) ((2 + $CellContext`dg1 + $CellContext`dgw)
4460         FeynRules`TensDot[
4461           FeynRules`Ga[
4462            FeynRules`Index[FeynRules`Lorentz,
4463             FeynRules`Ext[3]]], FeynRules`ProjM][
4464           FeynRules`Index[FeynRules`Spin,
4465            FeynRules`Ext[1]],
4466           FeynRules`Index[FeynRules`Spin,
4467            FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1))
4468         FeynRules`TensDot[
4469           FeynRules`Ga[
4470            FeynRules`Index[FeynRules`Lorentz,
4471             FeynRules`Ext[3]]], FeynRules`ProjP][
4472           FeynRules`Index[FeynRules`Spin,
4473            FeynRules`Ext[1]],
4474           FeynRules`Index[FeynRules`Spin,
4475            FeynRules`Ext[2]]]) - $CellContext`vevhat^2 ($CellContext`cHl1[
4476          FeynRules`Index[$CellContext`Generation,
4477           FeynRules`Ext[1]],
4478          FeynRules`Index[$CellContext`Generation,
4479           FeynRules`Ext[2]]] FeynRules`TensDot[
4480          FeynRules`Ga[
4481           FeynRules`Index[FeynRules`Lorentz,
4482            FeynRules`Ext[3]]], FeynRules`ProjM][
4483          FeynRules`Index[FeynRules`Spin,
4484           FeynRules`Ext[1]],
4485          FeynRules`Index[FeynRules`Spin,
4486           FeynRules`Ext[2]]] + $CellContext`cHl3[
4487          FeynRules`Index[$CellContext`Generation,
4488           FeynRules`Ext[1]],
4489          FeynRules`Index[$CellContext`Generation,
4490           FeynRules`Ext[2]]] FeynRules`TensDot[
4491          FeynRules`Ga[
4492           FeynRules`Index[FeynRules`Lorentz,
4493            FeynRules`Ext[3]]], FeynRules`ProjM][
4494          FeynRules`Index[FeynRules`Spin,
4495           FeynRules`Ext[1]],
4496          FeynRules`Index[FeynRules`Spin,
4497           FeynRules`Ext[2]]] + $CellContext`cHe[
4498          FeynRules`Index[$CellContext`Generation,
4499           FeynRules`Ext[1]],
4500          FeynRules`Index[$CellContext`Generation,
4501           FeynRules`Ext[2]]] FeynRules`TensDot[
4502          FeynRules`Ga[
4503           FeynRules`Index[FeynRules`Lorentz,
4504            FeynRules`Ext[3]]], FeynRules`ProjP][
4505          FeynRules`Index[FeynRules`Spin,
4506           FeynRules`Ext[1]],
4507          FeynRules`Index[FeynRules`Spin,
4508           FeynRules`Ext[2]]]))}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
4509        2}, {$CellContext`Z, 3}}, (((((Complex[0,
4510            Rational[1, 6]]/$CellContext`cth)
4511         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth)
4512      FeynRules`IndexDelta[
4513        FeynRules`Index[FeynRules`Colour,
4514         FeynRules`Ext[1]],
4515        FeynRules`Index[FeynRules`Colour,
4516         FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2)
4517        FeynRules`IndexDelta[
4518          FeynRules`Index[$CellContext`Generation,
4519           FeynRules`Ext[1]],
4520          FeynRules`Index[$CellContext`Generation,
4521           FeynRules`Ext[2]]]) FeynRules`TensDot[
4522         FeynRules`Ga[
4523          FeynRules`Index[FeynRules`Lorentz,
4524           FeynRules`Ext[3]]], FeynRules`ProjM][
4525         FeynRules`Index[FeynRules`Spin,
4526          FeynRules`Ext[1]],
4527         FeynRules`Index[FeynRules`Spin,
4528          FeynRules`Ext[2]]] - (((
4529         3 $CellContext`dgw) $CellContext`LambdaSMEFT^2)
4530       FeynRules`IndexDelta[
4531         FeynRules`Index[$CellContext`Generation,
4532          FeynRules`Ext[1]],
4533         FeynRules`Index[$CellContext`Generation,
4534          FeynRules`Ext[2]]]) FeynRules`TensDot[
4535        FeynRules`Ga[
4536         FeynRules`Index[FeynRules`Lorentz,
4537          FeynRules`Ext[3]]], FeynRules`ProjM][
4538        FeynRules`Index[FeynRules`Spin,
4539         FeynRules`Ext[1]],
4540        FeynRules`Index[FeynRules`Spin,
4541         FeynRules`Ext[
4542         2]]] + (((2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2)
4543        FeynRules`IndexDelta[
4544          FeynRules`Index[$CellContext`Generation,
4545           FeynRules`Ext[1]],
4546          FeynRules`Index[$CellContext`Generation,
4547           FeynRules`Ext[2]]]) FeynRules`TensDot[
4548         FeynRules`Ga[
4549          FeynRules`Index[FeynRules`Lorentz,
4550           FeynRules`Ext[3]]], FeynRules`ProjM][
4551         FeynRules`Index[FeynRules`Spin,
4552          FeynRules`Ext[1]],
4553         FeynRules`Index[FeynRules`Spin,
4554          FeynRules`Ext[
4555          2]]] - (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
4556$CellContext`vevhat^2) FeynRules`IndexDelta[
4557         FeynRules`Index[$CellContext`Generation,
4558          FeynRules`Ext[1]],
4559         FeynRules`Index[$CellContext`Generation,
4560          FeynRules`Ext[2]]]) (FeynRules`TensDot[
4561         FeynRules`Ga[
4562          FeynRules`Index[FeynRules`Lorentz,
4563           FeynRules`Ext[3]]], FeynRules`ProjM][
4564         FeynRules`Index[FeynRules`Spin,
4565          FeynRules`Ext[1]],
4566         FeynRules`Index[FeynRules`Spin,
4567          FeynRules`Ext[2]]] - 2 FeynRules`TensDot[
4568         FeynRules`Ga[
4569          FeynRules`Index[FeynRules`Lorentz,
4570           FeynRules`Ext[3]]], FeynRules`ProjP][
4571         FeynRules`Index[FeynRules`Spin,
4572          FeynRules`Ext[1]],
4573         FeynRules`Index[FeynRules`Spin,
4574          FeynRules`Ext[2]]]) + (((
4575          2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2)
4576        FeynRules`IndexDelta[
4577          FeynRules`Index[$CellContext`Generation,
4578           FeynRules`Ext[1]],
4579          FeynRules`Index[$CellContext`Generation,
4580           FeynRules`Ext[2]]]) FeynRules`TensDot[
4581         FeynRules`Ga[
4582          FeynRules`Index[FeynRules`Lorentz,
4583           FeynRules`Ext[3]]], FeynRules`ProjP][
4584         FeynRules`Index[FeynRules`Spin,
4585          FeynRules`Ext[1]],
4586         FeynRules`Index[FeynRules`Spin,
4587          FeynRules`Ext[
4588          2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2)
4589        FeynRules`IndexDelta[
4590          FeynRules`Index[$CellContext`Generation,
4591           FeynRules`Ext[1]],
4592          FeynRules`Index[$CellContext`Generation,
4593           FeynRules`Ext[2]]]) ((4 + $CellContext`dg1 + 3 $CellContext`dgw)
4594         FeynRules`TensDot[
4595           FeynRules`Ga[
4596            FeynRules`Index[FeynRules`Lorentz,
4597             FeynRules`Ext[3]]], FeynRules`ProjM][
4598           FeynRules`Index[FeynRules`Spin,
4599            FeynRules`Ext[1]],
4600           FeynRules`Index[FeynRules`Spin,
4601            FeynRules`Ext[2]]] + (4 (1 + $CellContext`dg1))
4602         FeynRules`TensDot[
4603           FeynRules`Ga[
4604            FeynRules`Index[FeynRules`Lorentz,
4605             FeynRules`Ext[3]]], FeynRules`ProjP][
4606           FeynRules`Index[FeynRules`Spin,
4607            FeynRules`Ext[1]],
4608           FeynRules`Index[FeynRules`Spin,
4609            FeynRules`Ext[2]]]) + (3 $CellContext`vevhat^2) ($CellContext`cHq1[
4610           FeynRules`Index[$CellContext`Generation,
4611            FeynRules`Ext[1]],
4612           FeynRules`Index[$CellContext`Generation,
4613            FeynRules`Ext[2]]] FeynRules`TensDot[
4614           FeynRules`Ga[
4615            FeynRules`Index[FeynRules`Lorentz,
4616             FeynRules`Ext[3]]], FeynRules`ProjM][
4617           FeynRules`Index[FeynRules`Spin,
4618            FeynRules`Ext[1]],
4619           FeynRules`Index[FeynRules`Spin,
4620            FeynRules`Ext[2]]] - $CellContext`cHq3[
4621          FeynRules`Index[$CellContext`Generation,
4622           FeynRules`Ext[1]],
4623          FeynRules`Index[$CellContext`Generation,
4624           FeynRules`Ext[2]]] FeynRules`TensDot[
4625          FeynRules`Ga[
4626           FeynRules`Index[FeynRules`Lorentz,
4627            FeynRules`Ext[3]]], FeynRules`ProjM][
4628          FeynRules`Index[FeynRules`Spin,
4629           FeynRules`Ext[1]],
4630          FeynRules`Index[FeynRules`Spin,
4631           FeynRules`Ext[2]]] + $CellContext`cHu[
4632           FeynRules`Index[$CellContext`Generation,
4633            FeynRules`Ext[1]],
4634           FeynRules`Index[$CellContext`Generation,
4635            FeynRules`Ext[2]]] FeynRules`TensDot[
4636           FeynRules`Ga[
4637            FeynRules`Index[FeynRules`Lorentz,
4638             FeynRules`Ext[3]]], FeynRules`ProjP][
4639           FeynRules`Index[FeynRules`Spin,
4640            FeynRules`Ext[1]],
4641           FeynRules`Index[FeynRules`Spin,
4642            FeynRules`Ext[2]]]))}, {{{$CellContext`vlbar,
4643       1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, (((((Complex[0,
4644            Rational[1, 2]]/$CellContext`cth)
4645         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
4646($CellContext`vevhat^2 $CellContext`cHl1[
4647          FeynRules`Index[$CellContext`Generation,
4648           FeynRules`Ext[1]],
4649          FeynRules`Index[$CellContext`Generation,
4650           FeynRules`Ext[2]]] - $CellContext`vevhat^2 $CellContext`cHl3[
4651         FeynRules`Index[$CellContext`Generation,
4652          FeynRules`Ext[1]],
4653         FeynRules`Index[$CellContext`Generation,
4654          FeynRules`Ext[
4655          2]]] + ($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
4656(-$CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
4657(($CellContext`cHWB $CellContext`cth) $CellContext`sth) $CellContext`vevhat^2)
4658          FeynRules`IndexDelta[
4659          FeynRules`Index[$CellContext`Generation,
4660           FeynRules`Ext[1]],
4661          FeynRules`Index[$CellContext`Generation,
4662           FeynRules`Ext[2]]])) FeynRules`TensDot[
4663       FeynRules`Ga[
4664        FeynRules`Index[FeynRules`Lorentz,
4665         FeynRules`Ext[3]]], FeynRules`ProjM][
4666       FeynRules`Index[FeynRules`Spin,
4667        FeynRules`Ext[1]],
4668       FeynRules`Index[FeynRules`Spin,
4669        FeynRules`Ext[2]]]}}]]], "Output",
4670 CellChangeTimes->{
4671  3.711173839167266*^9, 3.712483365603745*^9, 3.7139663983257236`*^9, {
4672   3.7146527464730873`*^9, 3.714652771211906*^9}, 3.7146529268852043`*^9,
4673   3.7146544666189938`*^9,
4674   3.714655268809128*^9},ExpressionUUID->"6414204a-9c5c-4aa8-bcb6-\
4675c7ce862cd250"]
4676}, Open  ]],
4677
4678Cell["neutrino coupling :", "Text",
4679 CellChangeTimes->{{3.7146528020724363`*^9,
4680  3.7146528092589808`*^9}},ExpressionUUID->"1ef17f73-f819-466d-a95a-\
46811107f3c7492d"],
4682
4683Cell[CellGroupData[{
4684
4685Cell[BoxData[{
4686 RowBox[{"ZffCouplings", "[",
4687  RowBox[{"[",
4688   RowBox[{"1", ",",
4689    RowBox[{"-", "1"}], ",",
4690    RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
4691 RowBox[{
4692  RowBox[{"%", "//.", "alphaShifts"}], "//",
4693  "Simplify"}], "\[IndentingNewLine]",
4694 RowBox[{
4695  RowBox[{"SMlimit", "[", "%", "]"}], " ",
4696  RowBox[{"WCsimplify", "[",
4697   RowBox[{
4698    FractionBox["%",
4699     RowBox[{"SMlimit", "[", "%", "]"}]], "/.",
4700    RowBox[{
4701     RowBox[{"IndexDelta", "[",
4702      RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
4703 CellChangeTimes->{{3.706961712640883*^9, 3.7069617312434893`*^9},
4704   3.711174006710514*^9, {3.711174069176218*^9, 3.711174078189027*^9}, {
4705   3.714475532098426*^9, 3.7144755376724243`*^9}, {3.714652781745085*^9,
4706   3.714652890708997*^9}, {3.714652953030558*^9, 3.7146530356237173`*^9}, {
4707   3.714654434479714*^9, 3.714654435996188*^9}, {3.714655230398345*^9,
4708   3.7146552321135807`*^9}},ExpressionUUID->"441230af-4a7a-4962-974c-\
4709957a6c20c6ca"],
4710
4711Cell[BoxData[
4712 FractionBox[
4713  RowBox[{"\[ImaginaryI]", " ", "e", " ",
4714   RowBox[{"(",
4715    RowBox[{
4716     RowBox[{
4717      SuperscriptBox[
4718       OverscriptBox["v", "^"], "2"], " ",
4719      SubscriptBox["cHl1",
4720       RowBox[{
4721        SubscriptBox["\<\"f\"\>", "1"], ",",
4722        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
4723     RowBox[{
4724      SuperscriptBox[
4725       OverscriptBox["v", "^"], "2"], " ",
4726      SubscriptBox["cHl3",
4727       RowBox[{
4728        SubscriptBox["\<\"f\"\>", "1"], ",",
4729        SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
4730     RowBox[{
4731      RowBox[{"(",
4732       RowBox[{
4733        RowBox[{
4734         SuperscriptBox["\[CapitalLambda]", "2"], " ",
4735         RowBox[{"(",
4736          RowBox[{
4737           RowBox[{"-", "1"}], "-", "dgw", "+",
4738           RowBox[{
4739            RowBox[{"(",
4740             RowBox[{
4741              RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
4742            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
4743        RowBox[{
4744         SubscriptBox["c", "HWB"], " ",
4745         SubscriptBox["c", "\[Theta]"], " ",
4746         SubscriptBox["s", "\[Theta]"], " ",
4747         SuperscriptBox[
4748          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
4749      SubscriptBox["\[Delta]",
4750       RowBox[{
4751        SubscriptBox["\<\"f\"\>", "1"], ",",
4752        SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ",
4753   SubscriptBox[
4754    RowBox[{
4755     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4756      "Superscript"], ".",
4757     SubscriptBox["P", "\<\"-\"\>"]}],
4758    RowBox[{
4759     SubscriptBox["\<\"s\"\>", "1"], ",",
4760     SubscriptBox["\<\"s\"\>", "2"]}]]}],
4761  RowBox[{"2", " ",
4762   SubscriptBox["c", "\[Theta]"], " ",
4763   SuperscriptBox["\[CapitalLambda]", "2"], " ",
4764   SubscriptBox["s", "\[Theta]"]}]]], "Output",
4765 CellChangeTimes->{
4766  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9,
4767   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9,
4768   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9,
4769   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
4770   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9,
4771   3.7146552688816023`*^9},ExpressionUUID->"36339ec0-439d-4b80-a4ef-\
4772ff9053b0b04b"],
4773
4774Cell[BoxData[
4775 FractionBox[
4776  RowBox[{"\[ImaginaryI]", " ", "e", " ",
4777   RowBox[{"(",
4778    RowBox[{
4779     RowBox[{"4", " ",
4780      SuperscriptBox[
4781       OverscriptBox["v", "^"], "2"], " ",
4782      SubscriptBox["cHl1",
4783       RowBox[{
4784        SubscriptBox["\<\"f\"\>", "1"], ",",
4785        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
4786     RowBox[{"4", " ",
4787      SuperscriptBox[
4788       OverscriptBox["v", "^"], "2"], " ",
4789      SubscriptBox["cHl3",
4790       RowBox[{
4791        SubscriptBox["\<\"f\"\>", "1"], ",",
4792        SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
4793     RowBox[{
4794      RowBox[{"(",
4795       RowBox[{
4796        RowBox[{"4", " ",
4797         SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
4798        RowBox[{
4799         SuperscriptBox[
4800          OverscriptBox["v", "^"], "2"], " ",
4801         RowBox[{"(",
4802          RowBox[{
4803           SubscriptBox["c", "HD"], "+",
4804           RowBox[{"2", " ",
4805            RowBox[{"(",
4806             RowBox[{
4807              SubscriptBox["cHl3",
4808               RowBox[{"1", ",", "1"}]], "+",
4809              SubscriptBox["cHl3",
4810               RowBox[{"2", ",", "2"}]], "-",
4811              SubscriptBox[
4812               SubscriptBox["c", "ll"],
4813               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
4814          ")"}]}]}], ")"}], " ",
4815      SubscriptBox["\[Delta]",
4816       RowBox[{
4817        SubscriptBox["\<\"f\"\>", "1"], ",",
4818        SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ",
4819   SubscriptBox[
4820    RowBox[{
4821     TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4822      "Superscript"], ".",
4823     SubscriptBox["P", "\<\"-\"\>"]}],
4824    RowBox[{
4825     SubscriptBox["\<\"s\"\>", "1"], ",",
4826     SubscriptBox["\<\"s\"\>", "2"]}]]}],
4827  RowBox[{"8", " ",
4828   SubscriptBox["c", "\[Theta]"], " ",
4829   SuperscriptBox["\[CapitalLambda]", "2"], " ",
4830   SubscriptBox["s", "\[Theta]"]}]]], "Output",
4831 CellChangeTimes->{
4832  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9,
4833   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9,
4834   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9,
4835   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
4836   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9,
4837   3.714655269316441*^9},ExpressionUUID->"08b24a4e-9037-4138-aaaa-\
483898d08b29d143"],
4839
4840Cell[BoxData[
4841 RowBox[{"-",
4842  FractionBox[
4843   RowBox[{"\[ImaginaryI]", " ", "e", " ",
4844    RowBox[{"(",
4845     RowBox[{"1", "-",
4846      FractionBox[
4847       RowBox[{
4848        SubscriptBox["c", "HD"], " ",
4849        SuperscriptBox[
4850         OverscriptBox["v", "^"], "2"]}],
4851       RowBox[{"4", " ",
4852        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
4853      FractionBox[
4854       RowBox[{
4855        SuperscriptBox[
4856         OverscriptBox["v", "^"], "2"], " ",
4857        SubscriptBox["cHl1",
4858         RowBox[{
4859          SubscriptBox["\<\"f\"\>", "1"], ",",
4860          SubscriptBox["\<\"f\"\>", "2"]}]]}],
4861       SuperscriptBox["\[CapitalLambda]", "2"]], "-",
4862      FractionBox[
4863       RowBox[{
4864        SuperscriptBox[
4865         OverscriptBox["v", "^"], "2"], " ",
4866        SubscriptBox["cHl3",
4867         RowBox[{"1", ",", "1"}]]}],
4868       RowBox[{"2", " ",
4869        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
4870      FractionBox[
4871       RowBox[{
4872        SuperscriptBox[
4873         OverscriptBox["v", "^"], "2"], " ",
4874        SubscriptBox["cHl3",
4875         RowBox[{"2", ",", "2"}]]}],
4876       RowBox[{"2", " ",
4877        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
4878      FractionBox[
4879       RowBox[{
4880        SuperscriptBox[
4881         OverscriptBox["v", "^"], "2"], " ",
4882        SubscriptBox["cHl3",
4883         RowBox[{
4884          SubscriptBox["\<\"f\"\>", "1"], ",",
4885          SubscriptBox["\<\"f\"\>", "2"]}]]}],
4886       SuperscriptBox["\[CapitalLambda]", "2"]], "+",
4887      FractionBox[
4888       RowBox[{
4889        SuperscriptBox[
4890         OverscriptBox["v", "^"], "2"], " ",
4891        SubscriptBox[
4892         SubscriptBox["c", "ll"],
4893         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
4894       RowBox[{"2", " ",
4895        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
4896    SubscriptBox["\[Delta]",
4897     RowBox[{
4898      SubscriptBox["\<\"f\"\>", "1"], ",",
4899      SubscriptBox["\<\"f\"\>", "2"]}]], " ",
4900    SubscriptBox[
4901     RowBox[{
4902      TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
4903       "Superscript"], ".",
4904      SubscriptBox["P", "\<\"-\"\>"]}],
4905     RowBox[{
4906      SubscriptBox["\<\"s\"\>", "1"], ",",
4907      SubscriptBox["\<\"s\"\>", "2"]}]]}],
4908   RowBox[{"2", " ",
4909    SubscriptBox["c", "\[Theta]"], " ",
4910    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
4911 CellChangeTimes->{
4912  3.70696194421089*^9, 3.7070240058781223`*^9, 3.707196912919736*^9,
4913   3.711173887621806*^9, 3.711174027036899*^9, {3.711174070317203*^9,
4914   3.711174089910508*^9}, 3.713966425055566*^9, {3.7146527858028727`*^9,
4915   3.714652829593679*^9}, {3.7146528633623133`*^9, 3.714652891316266*^9}, {
4916   3.714652929930028*^9, 3.7146530359952927`*^9}, 3.714654466678053*^9,
4917   3.714655269404749*^9},ExpressionUUID->"eb8a3b1b-5130-4de4-b1ac-\
49185b7672ea5d28"]
4919}, Open  ]]
4920}, Closed]],
4921
4922Cell[CellGroupData[{
4923
4924Cell["Example : Yukawa couplings", "Subsection",
4925 CellChangeTimes->{{3.714653803679809*^9,
4926  3.714653813127017*^9}},ExpressionUUID->"f6d3546a-fbb5-4086-80b2-\
49271fc305917cc1"],
4928
4929Cell[BoxData[
4930 RowBox[{
4931  RowBox[{"LYuk", " ", "=", " ",
4932   RowBox[{
4933    RowBox[{
4934     RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
4935     "LinearWC"}]}], ";"}]], "Input",
4936 CellChangeTimes->{{3.71465381867803*^9, 3.7146538339978323`*^9},
4937   3.714653880639667*^9, {3.7146539581117077`*^9,
4938   3.714653960288474*^9}},ExpressionUUID->"792b5b38-c9c2-4aeb-a3c1-\
4939f604b019622b"],
4940
4941Cell[CellGroupData[{
4942
4943Cell[BoxData[
4944 RowBox[{"hff", "=",
4945  RowBox[{
4946   RowBox[{
4947    RowBox[{"FeynmanRules", "[",
4948     RowBox[{"LYuk", ",",
4949      RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
4950      RowBox[{"Contains", "\[Rule]",
4951       RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//",
4952   "TableForm"}]}]], "Input",
4953 CellChangeTimes->{{3.714653838776801*^9,
4954  3.7146538891931353`*^9}},ExpressionUUID->"493e2d7f-a0fa-4447-a034-\
4955f54301d68b34"],
4956
4957Cell[CellGroupData[{
4958
4959Cell[BoxData[
4960 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
4961  StripOnInput->False,
4962  LineColor->RGBColor[1, 0.5, 0],
4963  FrontFaceColor->RGBColor[1, 0.5, 0],
4964  BackFaceColor->RGBColor[1, 0.5, 0],
4965  GraphicsColor->RGBColor[1, 0.5, 0],
4966  FontWeight->Bold,
4967  FontColor->RGBColor[1, 0.5, 0]]], "Print",
4968 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9},
4969   3.714653968951281*^9, 3.714654563696785*^9,
4970   3.714655375019299*^9},ExpressionUUID->"8a5ec32c-ce9e-42f4-bdbd-\
49716564e0fb7281"],
4972
4973Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
4974 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9},
4975   3.714653968951281*^9, 3.714654563696785*^9,
4976   3.714655375020409*^9},ExpressionUUID->"b577108e-e548-4c00-8fbd-\
497742bfeea45921"],
4978
4979Cell[BoxData[
4980 InterpretationBox[
4981  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
4982   "\[InvisibleSpace]", "\<\" cores\"\>"}],
4983  SequenceForm["Expanding the indices over ", 2, " cores"],
4984  Editable->False]], "Print",
4985 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9},
4986   3.714653968951281*^9, 3.714654563696785*^9,
4987   3.714655375021714*^9},ExpressionUUID->"d32c7d42-05f1-4f09-a4a0-\
4988818ba7faaa0f"],
4989
4990Cell[BoxData["\<\"Collecting the different structures that enter the \
4991vertex.\"\>"], "Print",
4992 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9},
4993   3.714653968951281*^9, 3.714654563696785*^9,
4994   3.714655377117202*^9},ExpressionUUID->"933f33be-86b0-4387-be13-\
4995a65944b94ac7"],
4996
4997Cell[BoxData[
4998 InterpretationBox[
4999  RowBox[{
5000  "3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
5001-> starting the computation: \"\>", "\[InvisibleSpace]",
5002   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5003    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5004   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
5005  SequenceForm[
5006  3, " possible non-zero vertices have been found -> starting the \
5007computation: ",
5008   Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
5009  Editable->False]], "Print",
5010 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9},
5011   3.714653968951281*^9, 3.714654563696785*^9,
5012   3.71465537715703*^9},ExpressionUUID->"85653527-27be-4220-b74a-\
5013051767b09216"],
5014
5015Cell[BoxData[
5016 InterpretationBox[
5017  RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5018  SequenceForm[3, " vertices obtained."],
5019  Editable->False]], "Print",
5020 CellChangeTimes->{{3.714653866931634*^9, 3.714653889861516*^9},
5021   3.714653968951281*^9, 3.714654563696785*^9,
5022   3.714655377663443*^9},ExpressionUUID->"b69e87e2-7771-46d8-964c-\
5023e9369243902f"]
5024}, Open  ]],
5025
5026Cell[BoxData[
5027 InterpretationBox[GridBox[{
5028    {GridBox[{
5029       {
5030        OverscriptBox["dq", "\<\"-\"\>"], "1"},
5031       {"dq", "2"},
5032       {"H", "3"}
5033      },
5034      GridBoxAlignment->{
5035       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5036        "RowsIndexed" -> {}},
5037      GridBoxSpacings->{"Columns" -> {
5038          Offset[0.27999999999999997`], {
5039           Offset[0.7]},
5040          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5041          Offset[0.2], {
5042           Offset[0.1]},
5043          Offset[0.2]}, "RowsIndexed" -> {}}],
5044     RowBox[{
5045      FractionBox[
5046       RowBox[{"3", " ", "\[ImaginaryI]", " ",
5047        SuperscriptBox[
5048         OverscriptBox["v", "^"], "2"], " ",
5049        SubsuperscriptBox[
5050         RowBox[{"(",
5051          SubscriptBox["c", "dH"], ")"}],
5052         RowBox[{
5053          SubscriptBox["\<\"f\"\>", "2"], ",",
5054          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
5055        SubscriptBox["\[Delta]",
5056         RowBox[{
5057          SubscriptBox["\<\"m\"\>", "1"], ",",
5058          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5059        SubscriptBox[
5060         SubscriptBox["P", "\<\"-\"\>"],
5061         RowBox[{
5062          SubscriptBox["\<\"s\"\>", "1"], ",",
5063          SubscriptBox["\<\"s\"\>", "2"]}]]}],
5064       RowBox[{"2", " ",
5065        SqrtBox["2"], " ",
5066        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5067      FractionBox[
5068       RowBox[{"3", " ", "\[ImaginaryI]", " ",
5069        SuperscriptBox[
5070         OverscriptBox["v", "^"], "2"], " ",
5071        SubscriptBox[
5072         SubscriptBox["c", "dH"],
5073         RowBox[{
5074          SubscriptBox["\<\"f\"\>", "1"], ",",
5075          SubscriptBox["\<\"f\"\>", "2"]}]], " ",
5076        SubscriptBox["\[Delta]",
5077         RowBox[{
5078          SubscriptBox["\<\"m\"\>", "1"], ",",
5079          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5080        SubscriptBox[
5081         SubscriptBox["P", "\<\"+\"\>"],
5082         RowBox[{
5083          SubscriptBox["\<\"s\"\>", "1"], ",",
5084          SubscriptBox["\<\"s\"\>", "2"]}]]}],
5085       RowBox[{"2", " ",
5086        SqrtBox["2"], " ",
5087        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5088      FractionBox[
5089       RowBox[{"\[ImaginaryI]", " ",
5090        SubscriptBox["c",
5091         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
5092        SuperscriptBox[
5093         OverscriptBox["v", "^"], "2"], " ",
5094        SubscriptBox["\[Delta]",
5095         RowBox[{
5096          SubscriptBox["\<\"m\"\>", "1"], ",",
5097          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5098        RowBox[{"(",
5099         RowBox[{
5100          RowBox[{
5101           SubscriptBox[
5102            SubscriptBox["P", "\<\"-\"\>"],
5103            RowBox[{
5104             SubscriptBox["\<\"s\"\>", "1"], ",",
5105             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5106           SubscriptBox[
5107            TemplateBox[{"y","d"},
5108             "Superscript"],
5109            RowBox[{
5110             SubscriptBox["\<\"f\"\>", "1"], ",",
5111             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
5112          RowBox[{
5113           SubscriptBox[
5114            SubscriptBox["P", "\<\"+\"\>"],
5115            RowBox[{
5116             SubscriptBox["\<\"s\"\>", "1"], ",",
5117             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5118           SubscriptBox[
5119            TemplateBox[{"y","d"},
5120             "Superscript"],
5121            RowBox[{
5122             SubscriptBox["\<\"f\"\>", "2"], ",",
5123             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
5124       RowBox[{
5125        SqrtBox["2"], " ",
5126        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5127      FractionBox[
5128       RowBox[{"\[ImaginaryI]", " ",
5129        SubscriptBox["c", "HD"], " ",
5130        SuperscriptBox[
5131         OverscriptBox["v", "^"], "2"], " ",
5132        SubscriptBox["\[Delta]",
5133         RowBox[{
5134          SubscriptBox["\<\"m\"\>", "1"], ",",
5135          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5136        RowBox[{"(",
5137         RowBox[{
5138          RowBox[{
5139           SubscriptBox[
5140            SubscriptBox["P", "\<\"-\"\>"],
5141            RowBox[{
5142             SubscriptBox["\<\"s\"\>", "1"], ",",
5143             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5144           SubscriptBox[
5145            TemplateBox[{"y","d"},
5146             "Superscript"],
5147            RowBox[{
5148             SubscriptBox["\<\"f\"\>", "1"], ",",
5149             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
5150          RowBox[{
5151           SubscriptBox[
5152            SubscriptBox["P", "\<\"+\"\>"],
5153            RowBox[{
5154             SubscriptBox["\<\"s\"\>", "1"], ",",
5155             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5156           SubscriptBox[
5157            TemplateBox[{"y","d"},
5158             "Superscript"],
5159            RowBox[{
5160             SubscriptBox["\<\"f\"\>", "2"], ",",
5161             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
5162       RowBox[{"4", " ",
5163        SqrtBox["2"], " ",
5164        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5165      FractionBox[
5166       RowBox[{"\[ImaginaryI]", " ",
5167        SubscriptBox["\[Delta]",
5168         RowBox[{
5169          SubscriptBox["\<\"m\"\>", "1"], ",",
5170          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5171        RowBox[{"(",
5172         RowBox[{
5173          RowBox[{
5174           SubsuperscriptBox["yd0",
5175            RowBox[{
5176             SubscriptBox["\<\"f\"\>", "2"], ",",
5177             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
5178           SubscriptBox[
5179            SubscriptBox["P", "\<\"+\"\>"],
5180            RowBox[{
5181             SubscriptBox["\<\"s\"\>", "1"], ",",
5182             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
5183          RowBox[{
5184           SubscriptBox[
5185            SubscriptBox["P", "\<\"-\"\>"],
5186            RowBox[{
5187             SubscriptBox["\<\"s\"\>", "1"], ",",
5188             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5189           SubscriptBox["yd0",
5190            RowBox[{
5191             SubscriptBox["\<\"f\"\>", "1"], ",",
5192             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
5193       SqrtBox["2"]]}]},
5194    {GridBox[{
5195       {
5196        OverscriptBox["l", "\<\"-\"\>"], "1"},
5197       {"l", "2"},
5198       {"H", "3"}
5199      },
5200      GridBoxAlignment->{
5201       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5202        "RowsIndexed" -> {}},
5203      GridBoxSpacings->{"Columns" -> {
5204          Offset[0.27999999999999997`], {
5205           Offset[0.7]},
5206          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5207          Offset[0.2], {
5208           Offset[0.1]},
5209          Offset[0.2]}, "RowsIndexed" -> {}}],
5210     RowBox[{
5211      FractionBox[
5212       RowBox[{"3", " ", "\[ImaginaryI]", " ",
5213        SuperscriptBox[
5214         OverscriptBox["v", "^"], "2"], " ",
5215        SubsuperscriptBox[
5216         RowBox[{"(",
5217          SubscriptBox["c", "eH"], ")"}],
5218         RowBox[{
5219          SubscriptBox["\<\"f\"\>", "2"], ",",
5220          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
5221        SubscriptBox[
5222         SubscriptBox["P", "\<\"-\"\>"],
5223         RowBox[{
5224          SubscriptBox["\<\"s\"\>", "1"], ",",
5225          SubscriptBox["\<\"s\"\>", "2"]}]]}],
5226       RowBox[{"2", " ",
5227        SqrtBox["2"], " ",
5228        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5229      FractionBox[
5230       RowBox[{"3", " ", "\[ImaginaryI]", " ",
5231        SuperscriptBox[
5232         OverscriptBox["v", "^"], "2"], " ",
5233        SubscriptBox[
5234         SubscriptBox["c", "eH"],
5235         RowBox[{
5236          SubscriptBox["\<\"f\"\>", "1"], ",",
5237          SubscriptBox["\<\"f\"\>", "2"]}]], " ",
5238        SubscriptBox[
5239         SubscriptBox["P", "\<\"+\"\>"],
5240         RowBox[{
5241          SubscriptBox["\<\"s\"\>", "1"], ",",
5242          SubscriptBox["\<\"s\"\>", "2"]}]]}],
5243       RowBox[{"2", " ",
5244        SqrtBox["2"], " ",
5245        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5246      FractionBox[
5247       RowBox[{"\[ImaginaryI]", " ",
5248        SubscriptBox["c",
5249         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
5250        SuperscriptBox[
5251         OverscriptBox["v", "^"], "2"], " ",
5252        RowBox[{"(",
5253         RowBox[{
5254          RowBox[{
5255           SubscriptBox[
5256            SubscriptBox["P", "\<\"-\"\>"],
5257            RowBox[{
5258             SubscriptBox["\<\"s\"\>", "1"], ",",
5259             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5260           SubscriptBox[
5261            TemplateBox[{"y","l"},
5262             "Superscript"],
5263            RowBox[{
5264             SubscriptBox["\<\"f\"\>", "1"], ",",
5265             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
5266          RowBox[{
5267           SubscriptBox[
5268            SubscriptBox["P", "\<\"+\"\>"],
5269            RowBox[{
5270             SubscriptBox["\<\"s\"\>", "1"], ",",
5271             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5272           SubscriptBox[
5273            TemplateBox[{"y","l"},
5274             "Superscript"],
5275            RowBox[{
5276             SubscriptBox["\<\"f\"\>", "2"], ",",
5277             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
5278       RowBox[{
5279        SqrtBox["2"], " ",
5280        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5281      FractionBox[
5282       RowBox[{"\[ImaginaryI]", " ",
5283        SubscriptBox["c", "HD"], " ",
5284        SuperscriptBox[
5285         OverscriptBox["v", "^"], "2"], " ",
5286        RowBox[{"(",
5287         RowBox[{
5288          RowBox[{
5289           SubscriptBox[
5290            SubscriptBox["P", "\<\"-\"\>"],
5291            RowBox[{
5292             SubscriptBox["\<\"s\"\>", "1"], ",",
5293             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5294           SubscriptBox[
5295            TemplateBox[{"y","l"},
5296             "Superscript"],
5297            RowBox[{
5298             SubscriptBox["\<\"f\"\>", "1"], ",",
5299             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
5300          RowBox[{
5301           SubscriptBox[
5302            SubscriptBox["P", "\<\"+\"\>"],
5303            RowBox[{
5304             SubscriptBox["\<\"s\"\>", "1"], ",",
5305             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5306           SubscriptBox[
5307            TemplateBox[{"y","l"},
5308             "Superscript"],
5309            RowBox[{
5310             SubscriptBox["\<\"f\"\>", "2"], ",",
5311             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
5312       RowBox[{"4", " ",
5313        SqrtBox["2"], " ",
5314        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5315      FractionBox[
5316       RowBox[{"\[ImaginaryI]", " ",
5317        RowBox[{"(",
5318         RowBox[{
5319          RowBox[{
5320           SubsuperscriptBox["yl0",
5321            RowBox[{
5322             SubscriptBox["\<\"f\"\>", "2"], ",",
5323             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
5324           SubscriptBox[
5325            SubscriptBox["P", "\<\"+\"\>"],
5326            RowBox[{
5327             SubscriptBox["\<\"s\"\>", "1"], ",",
5328             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
5329          RowBox[{
5330           SubscriptBox[
5331            SubscriptBox["P", "\<\"-\"\>"],
5332            RowBox[{
5333             SubscriptBox["\<\"s\"\>", "1"], ",",
5334             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5335           SubscriptBox["yl0",
5336            RowBox[{
5337             SubscriptBox["\<\"f\"\>", "1"], ",",
5338             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
5339       SqrtBox["2"]]}]},
5340    {GridBox[{
5341       {
5342        OverscriptBox["uq", "\<\"-\"\>"], "1"},
5343       {"uq", "2"},
5344       {"H", "3"}
5345      },
5346      GridBoxAlignment->{
5347       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5348        "RowsIndexed" -> {}},
5349      GridBoxSpacings->{"Columns" -> {
5350          Offset[0.27999999999999997`], {
5351           Offset[0.7]},
5352          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5353          Offset[0.2], {
5354           Offset[0.1]},
5355          Offset[0.2]}, "RowsIndexed" -> {}}],
5356     RowBox[{
5357      FractionBox[
5358       RowBox[{"3", " ", "\[ImaginaryI]", " ",
5359        SuperscriptBox[
5360         OverscriptBox["v", "^"], "2"], " ",
5361        SubsuperscriptBox[
5362         RowBox[{"(",
5363          SubscriptBox["c", "uH"], ")"}],
5364         RowBox[{
5365          SubscriptBox["\<\"f\"\>", "2"], ",",
5366          SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
5367        SubscriptBox["\[Delta]",
5368         RowBox[{
5369          SubscriptBox["\<\"m\"\>", "1"], ",",
5370          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5371        SubscriptBox[
5372         SubscriptBox["P", "\<\"-\"\>"],
5373         RowBox[{
5374          SubscriptBox["\<\"s\"\>", "1"], ",",
5375          SubscriptBox["\<\"s\"\>", "2"]}]]}],
5376       RowBox[{"2", " ",
5377        SqrtBox["2"], " ",
5378        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5379      FractionBox[
5380       RowBox[{"3", " ", "\[ImaginaryI]", " ",
5381        SuperscriptBox[
5382         OverscriptBox["v", "^"], "2"], " ",
5383        SubscriptBox[
5384         SubscriptBox["c", "uH"],
5385         RowBox[{
5386          SubscriptBox["\<\"f\"\>", "1"], ",",
5387          SubscriptBox["\<\"f\"\>", "2"]}]], " ",
5388        SubscriptBox["\[Delta]",
5389         RowBox[{
5390          SubscriptBox["\<\"m\"\>", "1"], ",",
5391          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5392        SubscriptBox[
5393         SubscriptBox["P", "\<\"+\"\>"],
5394         RowBox[{
5395          SubscriptBox["\<\"s\"\>", "1"], ",",
5396          SubscriptBox["\<\"s\"\>", "2"]}]]}],
5397       RowBox[{"2", " ",
5398        SqrtBox["2"], " ",
5399        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5400      FractionBox[
5401       RowBox[{"\[ImaginaryI]", " ",
5402        SubscriptBox["c",
5403         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
5404        SuperscriptBox[
5405         OverscriptBox["v", "^"], "2"], " ",
5406        SubscriptBox["\[Delta]",
5407         RowBox[{
5408          SubscriptBox["\<\"m\"\>", "1"], ",",
5409          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5410        RowBox[{"(",
5411         RowBox[{
5412          RowBox[{
5413           SubscriptBox[
5414            SubscriptBox["P", "\<\"-\"\>"],
5415            RowBox[{
5416             SubscriptBox["\<\"s\"\>", "1"], ",",
5417             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5418           SubscriptBox[
5419            TemplateBox[{"y","u"},
5420             "Superscript"],
5421            RowBox[{
5422             SubscriptBox["\<\"f\"\>", "1"], ",",
5423             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
5424          RowBox[{
5425           SubscriptBox[
5426            SubscriptBox["P", "\<\"+\"\>"],
5427            RowBox[{
5428             SubscriptBox["\<\"s\"\>", "1"], ",",
5429             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5430           SubscriptBox[
5431            TemplateBox[{"y","u"},
5432             "Superscript"],
5433            RowBox[{
5434             SubscriptBox["\<\"f\"\>", "2"], ",",
5435             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
5436       RowBox[{
5437        SqrtBox["2"], " ",
5438        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5439      FractionBox[
5440       RowBox[{"\[ImaginaryI]", " ",
5441        SubscriptBox["c", "HD"], " ",
5442        SuperscriptBox[
5443         OverscriptBox["v", "^"], "2"], " ",
5444        SubscriptBox["\[Delta]",
5445         RowBox[{
5446          SubscriptBox["\<\"m\"\>", "1"], ",",
5447          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5448        RowBox[{"(",
5449         RowBox[{
5450          RowBox[{
5451           SubscriptBox[
5452            SubscriptBox["P", "\<\"-\"\>"],
5453            RowBox[{
5454             SubscriptBox["\<\"s\"\>", "1"], ",",
5455             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5456           SubscriptBox[
5457            TemplateBox[{"y","u"},
5458             "Superscript"],
5459            RowBox[{
5460             SubscriptBox["\<\"f\"\>", "1"], ",",
5461             SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
5462          RowBox[{
5463           SubscriptBox[
5464            SubscriptBox["P", "\<\"+\"\>"],
5465            RowBox[{
5466             SubscriptBox["\<\"s\"\>", "1"], ",",
5467             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5468           SubscriptBox[
5469            TemplateBox[{"y","u"},
5470             "Superscript"],
5471            RowBox[{
5472             SubscriptBox["\<\"f\"\>", "2"], ",",
5473             SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
5474       RowBox[{"4", " ",
5475        SqrtBox["2"], " ",
5476        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5477      FractionBox[
5478       RowBox[{"\[ImaginaryI]", " ",
5479        SubscriptBox["\[Delta]",
5480         RowBox[{
5481          SubscriptBox["\<\"m\"\>", "1"], ",",
5482          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
5483        RowBox[{"(",
5484         RowBox[{
5485          RowBox[{
5486           SubsuperscriptBox["yu0",
5487            RowBox[{
5488             SubscriptBox["\<\"f\"\>", "2"], ",",
5489             SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
5490           SubscriptBox[
5491            SubscriptBox["P", "\<\"+\"\>"],
5492            RowBox[{
5493             SubscriptBox["\<\"s\"\>", "1"], ",",
5494             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
5495          RowBox[{
5496           SubscriptBox[
5497            SubscriptBox["P", "\<\"-\"\>"],
5498            RowBox[{
5499             SubscriptBox["\<\"s\"\>", "1"], ",",
5500             SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5501           SubscriptBox["yu0",
5502            RowBox[{
5503             SubscriptBox["\<\"f\"\>", "1"], ",",
5504             SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
5505       SqrtBox["2"]]}]}
5506   },
5507   GridBoxAlignment->{
5508    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5509     "RowsIndexed" -> {}},
5510   GridBoxSpacings->{"Columns" -> {
5511       Offset[0.27999999999999997`], {
5512        Offset[2.0999999999999996`]},
5513       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5514       Offset[0.2], {
5515        Offset[0.4]},
5516       Offset[0.2]}, "RowsIndexed" -> {}}],
5517  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
5518      FeynRules`H, 3}}, (((((Complex[0,
5519             Rational[3, 2]]
5520           2^Rational[-1,
5521              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2)
5522        Conjugate[
5523          $CellContext`cdH[
5524           FeynRules`Index[$CellContext`Generation,
5525            FeynRules`Ext[2]],
5526           FeynRules`Index[$CellContext`Generation,
5527            FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
5528         FeynRules`Index[FeynRules`Colour,
5529          FeynRules`Ext[1]],
5530         FeynRules`Index[FeynRules`Colour,
5531          FeynRules`Ext[2]]]) FeynRules`ProjM[
5532        FeynRules`Index[FeynRules`Spin,
5533         FeynRules`Ext[1]],
5534        FeynRules`Index[FeynRules`Spin,
5535         FeynRules`Ext[2]]] + (((((Complex[0,
5536             Rational[3, 2]]
5537           2^Rational[-1,
5538              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
5539$CellContext`cdH[
5540          FeynRules`Index[$CellContext`Generation,
5541           FeynRules`Ext[1]],
5542          FeynRules`Index[$CellContext`Generation,
5543           FeynRules`Ext[2]]]) FeynRules`IndexDelta[
5544         FeynRules`Index[FeynRules`Colour,
5545          FeynRules`Ext[1]],
5546         FeynRules`Index[FeynRules`Colour,
5547          FeynRules`Ext[2]]]) FeynRules`ProjP[
5548        FeynRules`Index[FeynRules`Spin,
5549         FeynRules`Ext[1]],
5550        FeynRules`Index[FeynRules`Spin,
5551         FeynRules`Ext[
5552         2]]] + (((((Complex[0, -1]
5553           2^Rational[-1,
5554              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
5555$CellContext`vevhat^2) FeynRules`IndexDelta[
5556         FeynRules`Index[FeynRules`Colour,
5557          FeynRules`Ext[1]],
5558         FeynRules`Index[FeynRules`Colour,
5559          FeynRules`Ext[2]]]) (FeynRules`ProjM[
5560          FeynRules`Index[FeynRules`Spin,
5561           FeynRules`Ext[1]],
5562          FeynRules`Index[FeynRules`Spin,
5563           FeynRules`Ext[2]]] $CellContext`yd[
5564          FeynRules`Index[$CellContext`Generation,
5565           FeynRules`Ext[1]],
5566          FeynRules`Index[$CellContext`Generation,
5567           FeynRules`Ext[2]]] + FeynRules`ProjP[
5568          FeynRules`Index[FeynRules`Spin,
5569           FeynRules`Ext[1]],
5570          FeynRules`Index[FeynRules`Spin,
5571           FeynRules`Ext[2]]] $CellContext`yd[
5572          FeynRules`Index[$CellContext`Generation,
5573           FeynRules`Ext[2]],
5574          FeynRules`Index[$CellContext`Generation,
5575           FeynRules`Ext[1]]]) + (((((Complex[0,
5576             Rational[1, 4]]
5577           2^Rational[-1,
5578              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
5579$CellContext`vevhat^2) FeynRules`IndexDelta[
5580         FeynRules`Index[FeynRules`Colour,
5581          FeynRules`Ext[1]],
5582         FeynRules`Index[FeynRules`Colour,
5583          FeynRules`Ext[2]]]) (FeynRules`ProjM[
5584          FeynRules`Index[FeynRules`Spin,
5585           FeynRules`Ext[1]],
5586          FeynRules`Index[FeynRules`Spin,
5587           FeynRules`Ext[2]]] $CellContext`yd[
5588          FeynRules`Index[$CellContext`Generation,
5589           FeynRules`Ext[1]],
5590          FeynRules`Index[$CellContext`Generation,
5591           FeynRules`Ext[2]]] + FeynRules`ProjP[
5592          FeynRules`Index[FeynRules`Spin,
5593           FeynRules`Ext[1]],
5594          FeynRules`Index[FeynRules`Spin,
5595           FeynRules`Ext[2]]] $CellContext`yd[
5596          FeynRules`Index[$CellContext`Generation,
5597           FeynRules`Ext[2]],
5598          FeynRules`Index[$CellContext`Generation,
5599           FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2])
5600       FeynRules`IndexDelta[
5601         FeynRules`Index[FeynRules`Colour,
5602          FeynRules`Ext[1]],
5603         FeynRules`Index[FeynRules`Colour,
5604          FeynRules`Ext[2]]]) (Conjugate[
5605          $CellContext`yd0[
5606           FeynRules`Index[$CellContext`Generation,
5607            FeynRules`Ext[2]],
5608           FeynRules`Index[$CellContext`Generation,
5609            FeynRules`Ext[1]]]] FeynRules`ProjP[
5610          FeynRules`Index[FeynRules`Spin,
5611           FeynRules`Ext[1]],
5612          FeynRules`Index[FeynRules`Spin,
5613           FeynRules`Ext[2]]] + FeynRules`ProjM[
5614          FeynRules`Index[FeynRules`Spin,
5615           FeynRules`Ext[1]],
5616          FeynRules`Index[FeynRules`Spin,
5617           FeynRules`Ext[2]]] $CellContext`yd0[
5618          FeynRules`Index[$CellContext`Generation,
5619           FeynRules`Ext[1]],
5620          FeynRules`Index[$CellContext`Generation,
5621           FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
5622      FeynRules`H, 3}}, ((((Complex[0,
5623            Rational[3, 2]]
5624          2^Rational[-1,
5625             2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2)
5626       Conjugate[
5627         $CellContext`ceH[
5628          FeynRules`Index[$CellContext`Generation,
5629           FeynRules`Ext[2]],
5630          FeynRules`Index[$CellContext`Generation,
5631           FeynRules`Ext[1]]]]) FeynRules`ProjM[
5632        FeynRules`Index[FeynRules`Spin,
5633         FeynRules`Ext[1]],
5634        FeynRules`Index[FeynRules`Spin,
5635         FeynRules`Ext[2]]] + ((((Complex[0,
5636            Rational[3, 2]]
5637          2^Rational[-1,
5638             2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
5639$CellContext`ceH[
5640         FeynRules`Index[$CellContext`Generation,
5641          FeynRules`Ext[1]],
5642         FeynRules`Index[$CellContext`Generation,
5643          FeynRules`Ext[2]]]) FeynRules`ProjP[
5644        FeynRules`Index[FeynRules`Spin,
5645         FeynRules`Ext[1]],
5646        FeynRules`Index[FeynRules`Spin,
5647         FeynRules`Ext[
5648         2]]] + ((((Complex[0, -1]
5649          2^Rational[-1,
5650             2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
5651$CellContext`vevhat^2) (FeynRules`ProjM[
5652          FeynRules`Index[FeynRules`Spin,
5653           FeynRules`Ext[1]],
5654          FeynRules`Index[FeynRules`Spin,
5655           FeynRules`Ext[2]]] $CellContext`yl[
5656          FeynRules`Index[$CellContext`Generation,
5657           FeynRules`Ext[1]],
5658          FeynRules`Index[$CellContext`Generation,
5659           FeynRules`Ext[2]]] + FeynRules`ProjP[
5660          FeynRules`Index[FeynRules`Spin,
5661           FeynRules`Ext[1]],
5662          FeynRules`Index[FeynRules`Spin,
5663           FeynRules`Ext[2]]] $CellContext`yl[
5664          FeynRules`Index[$CellContext`Generation,
5665           FeynRules`Ext[2]],
5666          FeynRules`Index[$CellContext`Generation,
5667           FeynRules`Ext[1]]]) + ((((Complex[0,
5668            Rational[1, 4]]
5669          2^Rational[-1,
5670             2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
5671$CellContext`vevhat^2) (FeynRules`ProjM[
5672          FeynRules`Index[FeynRules`Spin,
5673           FeynRules`Ext[1]],
5674          FeynRules`Index[FeynRules`Spin,
5675           FeynRules`Ext[2]]] $CellContext`yl[
5676          FeynRules`Index[$CellContext`Generation,
5677           FeynRules`Ext[1]],
5678          FeynRules`Index[$CellContext`Generation,
5679           FeynRules`Ext[2]]] + FeynRules`ProjP[
5680          FeynRules`Index[FeynRules`Spin,
5681           FeynRules`Ext[1]],
5682          FeynRules`Index[FeynRules`Spin,
5683           FeynRules`Ext[2]]] $CellContext`yl[
5684          FeynRules`Index[$CellContext`Generation,
5685           FeynRules`Ext[2]],
5686          FeynRules`Index[$CellContext`Generation,
5687           FeynRules`Ext[1]]]) + (Complex[0, -1] 2^Rational[-1, 2]) (Conjugate[
5688          $CellContext`yl0[
5689           FeynRules`Index[$CellContext`Generation,
5690            FeynRules`Ext[2]],
5691           FeynRules`Index[$CellContext`Generation,
5692            FeynRules`Ext[1]]]] FeynRules`ProjP[
5693          FeynRules`Index[FeynRules`Spin,
5694           FeynRules`Ext[1]],
5695          FeynRules`Index[FeynRules`Spin,
5696           FeynRules`Ext[2]]] + FeynRules`ProjM[
5697          FeynRules`Index[FeynRules`Spin,
5698           FeynRules`Ext[1]],
5699          FeynRules`Index[FeynRules`Spin,
5700           FeynRules`Ext[2]]] $CellContext`yl0[
5701          FeynRules`Index[$CellContext`Generation,
5702           FeynRules`Ext[1]],
5703          FeynRules`Index[$CellContext`Generation,
5704           FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
5705       2}, {FeynRules`H, 3}}, (((((Complex[0,
5706             Rational[3, 2]]
5707           2^Rational[-1,
5708              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2)
5709        Conjugate[
5710          $CellContext`cuH[
5711           FeynRules`Index[$CellContext`Generation,
5712            FeynRules`Ext[2]],
5713           FeynRules`Index[$CellContext`Generation,
5714            FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
5715         FeynRules`Index[FeynRules`Colour,
5716          FeynRules`Ext[1]],
5717         FeynRules`Index[FeynRules`Colour,
5718          FeynRules`Ext[2]]]) FeynRules`ProjM[
5719        FeynRules`Index[FeynRules`Spin,
5720         FeynRules`Ext[1]],
5721        FeynRules`Index[FeynRules`Spin,
5722         FeynRules`Ext[2]]] + (((((Complex[0,
5723             Rational[3, 2]]
5724           2^Rational[-1,
5725              2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
5726$CellContext`cuH[
5727          FeynRules`Index[$CellContext`Generation,
5728           FeynRules`Ext[1]],
5729          FeynRules`Index[$CellContext`Generation,
5730           FeynRules`Ext[2]]]) FeynRules`IndexDelta[
5731         FeynRules`Index[FeynRules`Colour,
5732          FeynRules`Ext[1]],
5733         FeynRules`Index[FeynRules`Colour,
5734          FeynRules`Ext[2]]]) FeynRules`ProjP[
5735        FeynRules`Index[FeynRules`Spin,
5736         FeynRules`Ext[1]],
5737        FeynRules`Index[FeynRules`Spin,
5738         FeynRules`Ext[
5739         2]]] + (((((Complex[0, -1]
5740           2^Rational[-1,
5741              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
5742$CellContext`vevhat^2) FeynRules`IndexDelta[
5743         FeynRules`Index[FeynRules`Colour,
5744          FeynRules`Ext[1]],
5745         FeynRules`Index[FeynRules`Colour,
5746          FeynRules`Ext[2]]]) (FeynRules`ProjM[
5747          FeynRules`Index[FeynRules`Spin,
5748           FeynRules`Ext[1]],
5749          FeynRules`Index[FeynRules`Spin,
5750           FeynRules`Ext[2]]] $CellContext`yu[
5751          FeynRules`Index[$CellContext`Generation,
5752           FeynRules`Ext[1]],
5753          FeynRules`Index[$CellContext`Generation,
5754           FeynRules`Ext[2]]] + FeynRules`ProjP[
5755          FeynRules`Index[FeynRules`Spin,
5756           FeynRules`Ext[1]],
5757          FeynRules`Index[FeynRules`Spin,
5758           FeynRules`Ext[2]]] $CellContext`yu[
5759          FeynRules`Index[$CellContext`Generation,
5760           FeynRules`Ext[2]],
5761          FeynRules`Index[$CellContext`Generation,
5762           FeynRules`Ext[1]]]) + (((((Complex[0,
5763             Rational[1, 4]]
5764           2^Rational[-1,
5765              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
5766$CellContext`vevhat^2) FeynRules`IndexDelta[
5767         FeynRules`Index[FeynRules`Colour,
5768          FeynRules`Ext[1]],
5769         FeynRules`Index[FeynRules`Colour,
5770          FeynRules`Ext[2]]]) (FeynRules`ProjM[
5771          FeynRules`Index[FeynRules`Spin,
5772           FeynRules`Ext[1]],
5773          FeynRules`Index[FeynRules`Spin,
5774           FeynRules`Ext[2]]] $CellContext`yu[
5775          FeynRules`Index[$CellContext`Generation,
5776           FeynRules`Ext[1]],
5777          FeynRules`Index[$CellContext`Generation,
5778           FeynRules`Ext[2]]] + FeynRules`ProjP[
5779          FeynRules`Index[FeynRules`Spin,
5780           FeynRules`Ext[1]],
5781          FeynRules`Index[FeynRules`Spin,
5782           FeynRules`Ext[2]]] $CellContext`yu[
5783          FeynRules`Index[$CellContext`Generation,
5784           FeynRules`Ext[2]],
5785          FeynRules`Index[$CellContext`Generation,
5786           FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2])
5787       FeynRules`IndexDelta[
5788         FeynRules`Index[FeynRules`Colour,
5789          FeynRules`Ext[1]],
5790         FeynRules`Index[FeynRules`Colour,
5791          FeynRules`Ext[2]]]) (Conjugate[
5792          $CellContext`yu0[
5793           FeynRules`Index[$CellContext`Generation,
5794            FeynRules`Ext[2]],
5795           FeynRules`Index[$CellContext`Generation,
5796            FeynRules`Ext[1]]]] FeynRules`ProjP[
5797          FeynRules`Index[FeynRules`Spin,
5798           FeynRules`Ext[1]],
5799          FeynRules`Index[FeynRules`Spin,
5800           FeynRules`Ext[2]]] + FeynRules`ProjM[
5801          FeynRules`Index[FeynRules`Spin,
5802           FeynRules`Ext[1]],
5803          FeynRules`Index[FeynRules`Spin,
5804           FeynRules`Ext[2]]] $CellContext`yu0[
5805          FeynRules`Index[$CellContext`Generation,
5806           FeynRules`Ext[1]],
5807          FeynRules`Index[$CellContext`Generation,
5808           FeynRules`Ext[2]]])}}]]], "Output",
5809 CellChangeTimes->{{3.714653869780055*^9, 3.714653893377253*^9},
5810   3.714653972746155*^9, 3.7146545673835583`*^9,
5811   3.7146553789929028`*^9},ExpressionUUID->"25b9a8b4-254c-4157-bd83-\
58127b584e3e875c"]
5813}, Open  ]],
5814
5815Cell["Flavor expansion for the leptons' case", "Text",
5816 CellChangeTimes->{{3.7146540002012587`*^9,
5817  3.714654016686934*^9}},ExpressionUUID->"a751ef31-da6e-4879-895f-\
58187a35e3428ef2"],
5819
5820Cell[CellGroupData[{
5821
5822Cell[BoxData[
5823 RowBox[{"hll", "=",
5824  RowBox[{
5825   RowBox[{
5826    RowBox[{
5827     RowBox[{
5828      RowBox[{"{",
5829       RowBox[{"hff", "[",
5830        RowBox[{"[",
5831         RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//",
5832      "FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//",
5833   "TableForm"}]}]], "Input",
5834 CellChangeTimes->{{3.714653897213532*^9,
5835  3.714653998430573*^9}},ExpressionUUID->"2a018274-5e6f-4420-bccb-\
5836031b97aded39"],
5837
5838Cell[BoxData[
5839 InterpretationBox[
5840  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
5841   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
5842    ImageSizeCache->{10., {0., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5843   "\[InvisibleSpace]", "1"}],
5844  SequenceForm["Flavor expansion of the vertices: ",
5845   Dynamic[FeynRules`FR$Count1], " / ", 1],
5846  Editable->False]], "Print",
5847 CellChangeTimes->{{3.714653911127839*^9, 3.714653919833921*^9}, {
5848   3.714653951564291*^9, 3.71465401970082*^9}, 3.714654567510392*^9,
5849   3.7146553837043056`*^9},ExpressionUUID->"334e87c9-4252-4cc9-a7ac-\
58502617823cbb0f"],
5851
5852Cell[BoxData[
5853 InterpretationBox[GridBox[{
5854    {GridBox[{
5855       {"H", "1"},
5856       {
5857        OverscriptBox["e", "\<\"-\"\>"], "2"},
5858       {"e", "3"}
5859      },
5860      GridBoxAlignment->{
5861       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5862        "RowsIndexed" -> {}},
5863      GridBoxSpacings->{"Columns" -> {
5864          Offset[0.27999999999999997`], {
5865           Offset[0.7]},
5866          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5867          Offset[0.2], {
5868           Offset[0.1]},
5869          Offset[0.2]}, "RowsIndexed" -> {}}],
5870     RowBox[{
5871      RowBox[{
5872       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye",
5873       " ",
5874       SubscriptBox["\[Delta]",
5875        RowBox[{
5876         SubscriptBox["\<\"s\"\>", "2"], ",",
5877         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
5878      FractionBox[
5879       RowBox[{"\[ImaginaryI]", " ",
5880        SubscriptBox["c",
5881         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
5882        SuperscriptBox[
5883         OverscriptBox["v", "^"], "2"], " ", "ye", " ",
5884        SubscriptBox["\[Delta]",
5885         RowBox[{
5886          SubscriptBox["\<\"s\"\>", "2"], ",",
5887          SubscriptBox["\<\"s\"\>", "3"]}]]}],
5888       RowBox[{
5889        SqrtBox["2"], " ",
5890        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
5891      FractionBox[
5892       RowBox[{"\[ImaginaryI]", " ",
5893        SubscriptBox["c", "HD"], " ",
5894        SuperscriptBox[
5895         OverscriptBox["v", "^"], "2"], " ", "ye", " ",
5896        SubscriptBox["\[Delta]",
5897         RowBox[{
5898          SubscriptBox["\<\"s\"\>", "2"], ",",
5899          SubscriptBox["\<\"s\"\>", "3"]}]]}],
5900       RowBox[{"4", " ",
5901        SqrtBox["2"], " ",
5902        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
5903      FractionBox[
5904       RowBox[{"\[ImaginaryI]", " ",
5905        RowBox[{"(",
5906         RowBox[{
5907          RowBox[{
5908           RowBox[{"(",
5909            RowBox[{
5910             RowBox[{
5911              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-",
5912             RowBox[{
5913              SuperscriptBox[
5914               OverscriptBox["v", "^"], "2"], " ",
5915              SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ",
5916           SubscriptBox[
5917            SubscriptBox["P", "\<\"-\"\>"],
5918            RowBox[{
5919             SubscriptBox["\<\"s\"\>", "2"], ",",
5920             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
5921          RowBox[{
5922           RowBox[{"(",
5923            RowBox[{
5924             RowBox[{
5925              RowBox[{"-", "ceH1x1"}], " ",
5926              SuperscriptBox[
5927               OverscriptBox["v", "^"], "2"]}], "+",
5928             RowBox[{
5929              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}],
5930           " ",
5931           SubscriptBox[
5932            SubscriptBox["P", "\<\"+\"\>"],
5933            RowBox[{
5934             SubscriptBox["\<\"s\"\>", "2"], ",",
5935             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
5936       RowBox[{
5937        SqrtBox["2"], " ",
5938        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
5939    {GridBox[{
5940       {"H", "1"},
5941       {
5942        OverscriptBox["e", "\<\"-\"\>"], "2"},
5943       {"mu", "3"}
5944      },
5945      GridBoxAlignment->{
5946       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5947        "RowsIndexed" -> {}},
5948      GridBoxSpacings->{"Columns" -> {
5949          Offset[0.27999999999999997`], {
5950           Offset[0.7]},
5951          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5952          Offset[0.2], {
5953           Offset[0.1]},
5954          Offset[0.2]}, "RowsIndexed" -> {}}],
5955     FractionBox[
5956      RowBox[{"\[ImaginaryI]", " ",
5957       SuperscriptBox[
5958        OverscriptBox["v", "^"], "2"], " ",
5959       RowBox[{"(",
5960        RowBox[{
5961         RowBox[{
5962          SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ",
5963          SubscriptBox[
5964           SubscriptBox["P", "\<\"-\"\>"],
5965           RowBox[{
5966            SubscriptBox["\<\"s\"\>", "2"], ",",
5967            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
5968         RowBox[{"ceH1x2", " ",
5969          SubscriptBox[
5970           SubscriptBox["P", "\<\"+\"\>"],
5971           RowBox[{
5972            SubscriptBox["\<\"s\"\>", "2"], ",",
5973            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
5974      RowBox[{
5975       SqrtBox["2"], " ",
5976       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
5977    {GridBox[{
5978       {"H", "1"},
5979       {
5980        OverscriptBox["e", "\<\"-\"\>"], "2"},
5981       {"ta", "3"}
5982      },
5983      GridBoxAlignment->{
5984       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
5985        "RowsIndexed" -> {}},
5986      GridBoxSpacings->{"Columns" -> {
5987          Offset[0.27999999999999997`], {
5988           Offset[0.7]},
5989          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
5990          Offset[0.2], {
5991           Offset[0.1]},
5992          Offset[0.2]}, "RowsIndexed" -> {}}],
5993     FractionBox[
5994      RowBox[{"\[ImaginaryI]", " ",
5995       SuperscriptBox[
5996        OverscriptBox["v", "^"], "2"], " ",
5997       RowBox[{"(",
5998        RowBox[{
5999         RowBox[{
6000          SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ",
6001          SubscriptBox[
6002           SubscriptBox["P", "\<\"-\"\>"],
6003           RowBox[{
6004            SubscriptBox["\<\"s\"\>", "2"], ",",
6005            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6006         RowBox[{"ceH1x3", " ",
6007          SubscriptBox[
6008           SubscriptBox["P", "\<\"+\"\>"],
6009           RowBox[{
6010            SubscriptBox["\<\"s\"\>", "2"], ",",
6011            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6012      RowBox[{
6013       SqrtBox["2"], " ",
6014       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6015    {GridBox[{
6016       {"H", "1"},
6017       {
6018        OverscriptBox["mu", "\<\"-\"\>"], "2"},
6019       {"e", "3"}
6020      },
6021      GridBoxAlignment->{
6022       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6023        "RowsIndexed" -> {}},
6024      GridBoxSpacings->{"Columns" -> {
6025          Offset[0.27999999999999997`], {
6026           Offset[0.7]},
6027          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6028          Offset[0.2], {
6029           Offset[0.1]},
6030          Offset[0.2]}, "RowsIndexed" -> {}}],
6031     FractionBox[
6032      RowBox[{"\[ImaginaryI]", " ",
6033       SuperscriptBox[
6034        OverscriptBox["v", "^"], "2"], " ",
6035       RowBox[{"(",
6036        RowBox[{
6037         RowBox[{
6038          SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ",
6039          SubscriptBox[
6040           SubscriptBox["P", "\<\"-\"\>"],
6041           RowBox[{
6042            SubscriptBox["\<\"s\"\>", "2"], ",",
6043            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6044         RowBox[{"ceH2x1", " ",
6045          SubscriptBox[
6046           SubscriptBox["P", "\<\"+\"\>"],
6047           RowBox[{
6048            SubscriptBox["\<\"s\"\>", "2"], ",",
6049            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6050      RowBox[{
6051       SqrtBox["2"], " ",
6052       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6053    {GridBox[{
6054       {"H", "1"},
6055       {
6056        OverscriptBox["mu", "\<\"-\"\>"], "2"},
6057       {"mu", "3"}
6058      },
6059      GridBoxAlignment->{
6060       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6061        "RowsIndexed" -> {}},
6062      GridBoxSpacings->{"Columns" -> {
6063          Offset[0.27999999999999997`], {
6064           Offset[0.7]},
6065          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6066          Offset[0.2], {
6067           Offset[0.1]},
6068          Offset[0.2]}, "RowsIndexed" -> {}}],
6069     RowBox[{
6070      RowBox[{
6071       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym",
6072       " ",
6073       SubscriptBox["\[Delta]",
6074        RowBox[{
6075         SubscriptBox["\<\"s\"\>", "2"], ",",
6076         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
6077      FractionBox[
6078       RowBox[{"\[ImaginaryI]", " ",
6079        SubscriptBox["c",
6080         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
6081        SuperscriptBox[
6082         OverscriptBox["v", "^"], "2"], " ", "ym", " ",
6083        SubscriptBox["\[Delta]",
6084         RowBox[{
6085          SubscriptBox["\<\"s\"\>", "2"], ",",
6086          SubscriptBox["\<\"s\"\>", "3"]}]]}],
6087       RowBox[{
6088        SqrtBox["2"], " ",
6089        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
6090      FractionBox[
6091       RowBox[{"\[ImaginaryI]", " ",
6092        SubscriptBox["c", "HD"], " ",
6093        SuperscriptBox[
6094         OverscriptBox["v", "^"], "2"], " ", "ym", " ",
6095        SubscriptBox["\[Delta]",
6096         RowBox[{
6097          SubscriptBox["\<\"s\"\>", "2"], ",",
6098          SubscriptBox["\<\"s\"\>", "3"]}]]}],
6099       RowBox[{"4", " ",
6100        SqrtBox["2"], " ",
6101        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
6102      FractionBox[
6103       RowBox[{"\[ImaginaryI]", " ",
6104        RowBox[{"(",
6105         RowBox[{
6106          RowBox[{
6107           RowBox[{"(",
6108            RowBox[{
6109             RowBox[{
6110              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-",
6111             RowBox[{
6112              SuperscriptBox[
6113               OverscriptBox["v", "^"], "2"], " ",
6114              SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ",
6115           SubscriptBox[
6116            SubscriptBox["P", "\<\"-\"\>"],
6117            RowBox[{
6118             SubscriptBox["\<\"s\"\>", "2"], ",",
6119             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6120          RowBox[{
6121           RowBox[{"(",
6122            RowBox[{
6123             RowBox[{
6124              RowBox[{"-", "ceH2x2"}], " ",
6125              SuperscriptBox[
6126               OverscriptBox["v", "^"], "2"]}], "+",
6127             RowBox[{
6128              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}],
6129           " ",
6130           SubscriptBox[
6131            SubscriptBox["P", "\<\"+\"\>"],
6132            RowBox[{
6133             SubscriptBox["\<\"s\"\>", "2"], ",",
6134             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6135       RowBox[{
6136        SqrtBox["2"], " ",
6137        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
6138    {GridBox[{
6139       {"H", "1"},
6140       {
6141        OverscriptBox["mu", "\<\"-\"\>"], "2"},
6142       {"ta", "3"}
6143      },
6144      GridBoxAlignment->{
6145       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6146        "RowsIndexed" -> {}},
6147      GridBoxSpacings->{"Columns" -> {
6148          Offset[0.27999999999999997`], {
6149           Offset[0.7]},
6150          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6151          Offset[0.2], {
6152           Offset[0.1]},
6153          Offset[0.2]}, "RowsIndexed" -> {}}],
6154     FractionBox[
6155      RowBox[{"\[ImaginaryI]", " ",
6156       SuperscriptBox[
6157        OverscriptBox["v", "^"], "2"], " ",
6158       RowBox[{"(",
6159        RowBox[{
6160         RowBox[{
6161          SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ",
6162          SubscriptBox[
6163           SubscriptBox["P", "\<\"-\"\>"],
6164           RowBox[{
6165            SubscriptBox["\<\"s\"\>", "2"], ",",
6166            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6167         RowBox[{"ceH2x3", " ",
6168          SubscriptBox[
6169           SubscriptBox["P", "\<\"+\"\>"],
6170           RowBox[{
6171            SubscriptBox["\<\"s\"\>", "2"], ",",
6172            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6173      RowBox[{
6174       SqrtBox["2"], " ",
6175       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6176    {GridBox[{
6177       {"H", "1"},
6178       {
6179        OverscriptBox["ta", "\<\"-\"\>"], "2"},
6180       {"e", "3"}
6181      },
6182      GridBoxAlignment->{
6183       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6184        "RowsIndexed" -> {}},
6185      GridBoxSpacings->{"Columns" -> {
6186          Offset[0.27999999999999997`], {
6187           Offset[0.7]},
6188          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6189          Offset[0.2], {
6190           Offset[0.1]},
6191          Offset[0.2]}, "RowsIndexed" -> {}}],
6192     FractionBox[
6193      RowBox[{"\[ImaginaryI]", " ",
6194       SuperscriptBox[
6195        OverscriptBox["v", "^"], "2"], " ",
6196       RowBox[{"(",
6197        RowBox[{
6198         RowBox[{
6199          SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ",
6200          SubscriptBox[
6201           SubscriptBox["P", "\<\"-\"\>"],
6202           RowBox[{
6203            SubscriptBox["\<\"s\"\>", "2"], ",",
6204            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6205         RowBox[{"ceH3x1", " ",
6206          SubscriptBox[
6207           SubscriptBox["P", "\<\"+\"\>"],
6208           RowBox[{
6209            SubscriptBox["\<\"s\"\>", "2"], ",",
6210            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6211      RowBox[{
6212       SqrtBox["2"], " ",
6213       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6214    {GridBox[{
6215       {"H", "1"},
6216       {
6217        OverscriptBox["ta", "\<\"-\"\>"], "2"},
6218       {"mu", "3"}
6219      },
6220      GridBoxAlignment->{
6221       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6222        "RowsIndexed" -> {}},
6223      GridBoxSpacings->{"Columns" -> {
6224          Offset[0.27999999999999997`], {
6225           Offset[0.7]},
6226          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6227          Offset[0.2], {
6228           Offset[0.1]},
6229          Offset[0.2]}, "RowsIndexed" -> {}}],
6230     FractionBox[
6231      RowBox[{"\[ImaginaryI]", " ",
6232       SuperscriptBox[
6233        OverscriptBox["v", "^"], "2"], " ",
6234       RowBox[{"(",
6235        RowBox[{
6236         RowBox[{
6237          SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ",
6238          SubscriptBox[
6239           SubscriptBox["P", "\<\"-\"\>"],
6240           RowBox[{
6241            SubscriptBox["\<\"s\"\>", "2"], ",",
6242            SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6243         RowBox[{"ceH3x2", " ",
6244          SubscriptBox[
6245           SubscriptBox["P", "\<\"+\"\>"],
6246           RowBox[{
6247            SubscriptBox["\<\"s\"\>", "2"], ",",
6248            SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6249      RowBox[{
6250       SqrtBox["2"], " ",
6251       SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6252    {GridBox[{
6253       {"H", "1"},
6254       {
6255        OverscriptBox["ta", "\<\"-\"\>"], "2"},
6256       {"ta", "3"}
6257      },
6258      GridBoxAlignment->{
6259       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6260        "RowsIndexed" -> {}},
6261      GridBoxSpacings->{"Columns" -> {
6262          Offset[0.27999999999999997`], {
6263           Offset[0.7]},
6264          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6265          Offset[0.2], {
6266           Offset[0.1]},
6267          Offset[0.2]}, "RowsIndexed" -> {}}],
6268     RowBox[{
6269      RowBox[{
6270       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau",
6271       " ",
6272       SubscriptBox["\[Delta]",
6273        RowBox[{
6274         SubscriptBox["\<\"s\"\>", "2"], ",",
6275         SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
6276      FractionBox[
6277       RowBox[{"\[ImaginaryI]", " ",
6278        SubscriptBox["c",
6279         RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
6280        SuperscriptBox[
6281         OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
6282        SubscriptBox["\[Delta]",
6283         RowBox[{
6284          SubscriptBox["\<\"s\"\>", "2"], ",",
6285          SubscriptBox["\<\"s\"\>", "3"]}]]}],
6286       RowBox[{
6287        SqrtBox["2"], " ",
6288        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
6289      FractionBox[
6290       RowBox[{"\[ImaginaryI]", " ",
6291        SubscriptBox["c", "HD"], " ",
6292        SuperscriptBox[
6293         OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
6294        SubscriptBox["\[Delta]",
6295         RowBox[{
6296          SubscriptBox["\<\"s\"\>", "2"], ",",
6297          SubscriptBox["\<\"s\"\>", "3"]}]]}],
6298       RowBox[{"4", " ",
6299        SqrtBox["2"], " ",
6300        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
6301      FractionBox[
6302       RowBox[{"\[ImaginaryI]", " ",
6303        RowBox[{"(",
6304         RowBox[{
6305          RowBox[{
6306           RowBox[{"(",
6307            RowBox[{
6308             RowBox[{
6309              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-",
6310             RowBox[{
6311              SuperscriptBox[
6312               OverscriptBox["v", "^"], "2"], " ",
6313              SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ",
6314           SubscriptBox[
6315            SubscriptBox["P", "\<\"-\"\>"],
6316            RowBox[{
6317             SubscriptBox["\<\"s\"\>", "2"], ",",
6318             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6319          RowBox[{
6320           RowBox[{"(",
6321            RowBox[{
6322             RowBox[{
6323              RowBox[{"-", "ceH3x3"}], " ",
6324              SuperscriptBox[
6325               OverscriptBox["v", "^"], "2"]}], "+",
6326             RowBox[{
6327              SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}], ")"}],
6328            " ",
6329           SubscriptBox[
6330            SubscriptBox["P", "\<\"+\"\>"],
6331            RowBox[{
6332             SubscriptBox["\<\"s\"\>", "2"], ",",
6333             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6334       RowBox[{
6335        SqrtBox["2"], " ",
6336        SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
6337   },
6338   GridBoxAlignment->{
6339    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6340     "RowsIndexed" -> {}},
6341   GridBoxSpacings->{"Columns" -> {
6342       Offset[0.27999999999999997`], {
6343        Offset[2.0999999999999996`]},
6344       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6345       Offset[0.2], {
6346        Offset[0.4]},
6347       Offset[0.2]}, "RowsIndexed" -> {}}],
6348  TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
6349      FeynRules`e, 3}}, ((Complex[0,
6350          Rational[1, 2]] $CellContext`dGf) $CellContext`ye)
6351      FeynRules`IndexDelta[
6352        FeynRules`Index[FeynRules`Spin,
6353         FeynRules`Ext[2]],
6354        FeynRules`Index[FeynRules`Spin,
6355         FeynRules`Ext[
6356         3]]] + (((((Complex[0, -1]
6357           2^Rational[-1,
6358              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
6359$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
6360        FeynRules`Index[FeynRules`Spin,
6361         FeynRules`Ext[2]],
6362        FeynRules`Index[FeynRules`Spin,
6363         FeynRules`Ext[3]]] + (((((Complex[0,
6364             Rational[1, 4]]
6365           2^Rational[-1,
6366              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
6367$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
6368        FeynRules`Index[FeynRules`Spin,
6369         FeynRules`Ext[2]],
6370        FeynRules`Index[FeynRules`Spin,
6371         FeynRules`Ext[3]]] + ((Complex[0, -1]
6372        2^Rational[-1,
6373           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
6374$CellContext`ye - $CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1])
6375        FeynRules`ProjM[
6376          FeynRules`Index[FeynRules`Spin,
6377           FeynRules`Ext[2]],
6378          FeynRules`Index[FeynRules`Spin,
6379           FeynRules`Ext[
6380           3]]] + ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
6381$CellContext`LambdaSMEFT^2 $CellContext`ye) FeynRules`ProjP[
6382          FeynRules`Index[FeynRules`Spin,
6383           FeynRules`Ext[2]],
6384          FeynRules`Index[FeynRules`Spin,
6385           FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
6386      FeynRules`mu,
6387       3}}, (((Complex[0, 1]
6388        2^Rational[-1,
6389           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
6390      Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
6391         FeynRules`Index[FeynRules`Spin,
6392          FeynRules`Ext[2]],
6393         FeynRules`Index[FeynRules`Spin,
6394          FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
6395         FeynRules`Index[FeynRules`Spin,
6396          FeynRules`Ext[2]],
6397         FeynRules`Index[FeynRules`Spin,
6398          FeynRules`Ext[3]]])}, {{{
6399      FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta,
6400       3}}, (((Complex[0, 1]
6401        2^Rational[-1,
6402           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
6403      Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
6404         FeynRules`Index[FeynRules`Spin,
6405          FeynRules`Ext[2]],
6406         FeynRules`Index[FeynRules`Spin,
6407          FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
6408         FeynRules`Index[FeynRules`Spin,
6409          FeynRules`Ext[2]],
6410         FeynRules`Index[FeynRules`Spin,
6411          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
6412      FeynRules`e,
6413       3}}, (((Complex[0, 1]
6414        2^Rational[-1,
6415           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
6416      Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
6417         FeynRules`Index[FeynRules`Spin,
6418          FeynRules`Ext[2]],
6419         FeynRules`Index[FeynRules`Spin,
6420          FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
6421         FeynRules`Index[FeynRules`Spin,
6422          FeynRules`Ext[2]],
6423         FeynRules`Index[FeynRules`Spin,
6424          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
6425      FeynRules`mu, 3}}, ((Complex[0,
6426          Rational[1, 2]] $CellContext`dGf) $CellContext`ym)
6427      FeynRules`IndexDelta[
6428        FeynRules`Index[FeynRules`Spin,
6429         FeynRules`Ext[2]],
6430        FeynRules`Index[FeynRules`Spin,
6431         FeynRules`Ext[
6432         3]]] + (((((Complex[0, -1]
6433           2^Rational[-1,
6434              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
6435$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
6436        FeynRules`Index[FeynRules`Spin,
6437         FeynRules`Ext[2]],
6438        FeynRules`Index[FeynRules`Spin,
6439         FeynRules`Ext[3]]] + (((((Complex[0,
6440             Rational[1, 4]]
6441           2^Rational[-1,
6442              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
6443$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
6444        FeynRules`Index[FeynRules`Spin,
6445         FeynRules`Ext[2]],
6446        FeynRules`Index[FeynRules`Spin,
6447         FeynRules`Ext[3]]] + ((Complex[0, -1]
6448        2^Rational[-1,
6449           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
6450$CellContext`ym - $CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2])
6451        FeynRules`ProjM[
6452          FeynRules`Index[FeynRules`Spin,
6453           FeynRules`Ext[2]],
6454          FeynRules`Index[FeynRules`Spin,
6455           FeynRules`Ext[
6456           3]]] + ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
6457$CellContext`LambdaSMEFT^2 $CellContext`ym) FeynRules`ProjP[
6458          FeynRules`Index[FeynRules`Spin,
6459           FeynRules`Ext[2]],
6460          FeynRules`Index[FeynRules`Spin,
6461           FeynRules`Ext[3]]])}, {{{
6462      FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta,
6463       3}}, (((Complex[0, 1]
6464        2^Rational[-1,
6465           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
6466      Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
6467         FeynRules`Index[FeynRules`Spin,
6468          FeynRules`Ext[2]],
6469         FeynRules`Index[FeynRules`Spin,
6470          FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
6471         FeynRules`Index[FeynRules`Spin,
6472          FeynRules`Ext[2]],
6473         FeynRules`Index[FeynRules`Spin,
6474          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
6475      FeynRules`e,
6476       3}}, (((Complex[0, 1]
6477        2^Rational[-1,
6478           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
6479      Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
6480         FeynRules`Index[FeynRules`Spin,
6481          FeynRules`Ext[2]],
6482         FeynRules`Index[FeynRules`Spin,
6483          FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
6484         FeynRules`Index[FeynRules`Spin,
6485          FeynRules`Ext[2]],
6486         FeynRules`Index[FeynRules`Spin,
6487          FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
6488      FeynRules`mu,
6489       3}}, (((Complex[0, 1]
6490        2^Rational[-1,
6491           2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
6492      Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
6493         FeynRules`Index[FeynRules`Spin,
6494          FeynRules`Ext[2]],
6495         FeynRules`Index[FeynRules`Spin,
6496          FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
6497         FeynRules`Index[FeynRules`Spin,
6498          FeynRules`Ext[2]],
6499         FeynRules`Index[FeynRules`Spin,
6500          FeynRules`Ext[3]]])}, {{{
6501      FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta,
6502       3}}, ((Complex[0,
6503          Rational[1, 2]] $CellContext`dGf) $CellContext`ytau)
6504      FeynRules`IndexDelta[
6505        FeynRules`Index[FeynRules`Spin,
6506         FeynRules`Ext[2]],
6507        FeynRules`Index[FeynRules`Spin,
6508         FeynRules`Ext[
6509         3]]] + (((((Complex[0, -1]
6510           2^Rational[-1,
6511              2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
6512$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
6513        FeynRules`Index[FeynRules`Spin,
6514         FeynRules`Ext[2]],
6515        FeynRules`Index[FeynRules`Spin,
6516         FeynRules`Ext[3]]] + (((((Complex[0,
6517             Rational[1, 4]]
6518           2^Rational[-1,
6519              2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
6520$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
6521        FeynRules`Index[FeynRules`Spin,
6522         FeynRules`Ext[2]],
6523        FeynRules`Index[FeynRules`Spin,
6524         FeynRules`Ext[3]]] + ((Complex[0, -1]
6525        2^Rational[-1,
6526           2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
6527$CellContext`ytau - $CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3])
6528        FeynRules`ProjM[
6529          FeynRules`Index[FeynRules`Spin,
6530           FeynRules`Ext[2]],
6531          FeynRules`Index[FeynRules`Spin,
6532           FeynRules`Ext[
6533           3]]] + ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
6534$CellContext`LambdaSMEFT^2 $CellContext`ytau) FeynRules`ProjP[
6535          FeynRules`Index[FeynRules`Spin,
6536           FeynRules`Ext[2]],
6537          FeynRules`Index[FeynRules`Spin,
6538           FeynRules`Ext[3]]])}}]]], "Output",
6539 CellChangeTimes->{{3.714653911402326*^9, 3.714653920602931*^9}, {
6540   3.714653952474135*^9, 3.714654020646657*^9}, 3.7146545684859324`*^9,
6541   3.714655387053323*^9},ExpressionUUID->"9d4f3251-a1bd-4d92-8a62-\
65428f49a3c05794"]
6543}, Open  ]],
6544
6545Cell[CellGroupData[{
6546
6547Cell[BoxData[
6548 RowBox[{
6549  RowBox[{
6550   RowBox[{"hll", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//",
6551  "TableForm"}]], "Input",
6552 CellChangeTimes->{{3.7146540238619328`*^9, 3.714654043748782*^9}, {
6553  3.714654567273402*^9, 3.714654569198159*^9}, {3.714655387772214*^9,
6554  3.714655388709861*^9}},ExpressionUUID->"7fbbf628-8230-4c3a-8d3d-\
6555e01aca0dd124"],
6556
6557Cell[BoxData[
6558 TagBox[
6559  InterpretationBox[GridBox[{
6560     {GridBox[{
6561        {"H", "1"},
6562        {
6563         OverscriptBox["e", "\<\"-\"\>"], "2"},
6564        {"e", "3"}
6565       },
6566       GridBoxAlignment->{
6567        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6568          "RowsIndexed" -> {}},
6569       GridBoxSpacings->{"Columns" -> {
6570           Offset[0.27999999999999997`], {
6571            Offset[0.7]},
6572           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6573           Offset[0.2], {
6574            Offset[0.1]},
6575           Offset[0.2]}, "RowsIndexed" -> {}}],
6576      RowBox[{"-",
6577       FractionBox[
6578        RowBox[{"\[ImaginaryI]", " ",
6579         RowBox[{"(",
6580          RowBox[{
6581           RowBox[{
6582            SuperscriptBox[
6583             OverscriptBox["v", "^"], "2"], " ", "ye", " ",
6584            RowBox[{"(",
6585             RowBox[{
6586              RowBox[{"4", " ",
6587               SubscriptBox["c",
6588                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
6589              SubscriptBox["c", "HD"], "-",
6590              RowBox[{"2", " ",
6591               RowBox[{"(",
6592                RowBox[{
6593                 SubscriptBox["cHl3",
6594                  RowBox[{"1", ",", "1"}]], "+",
6595                 SubscriptBox["cHl3",
6596                  RowBox[{"2", ",", "2"}]], "-",
6597                 SubscriptBox[
6598                  SubscriptBox["c", "ll"],
6599                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
6600             ")"}], " ",
6601            SubscriptBox["\[Delta]",
6602             RowBox[{
6603              SubscriptBox["\<\"s\"\>", "2"], ",",
6604              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6605           RowBox[{"4", " ",
6606            RowBox[{"(",
6607             RowBox[{
6608              RowBox[{
6609               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-",
6610              RowBox[{
6611               SuperscriptBox[
6612                OverscriptBox["v", "^"], "2"], " ",
6613               SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ",
6614            SubscriptBox[
6615             SubscriptBox["P", "\<\"-\"\>"],
6616             RowBox[{
6617              SubscriptBox["\<\"s\"\>", "2"], ",",
6618              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6619           RowBox[{"4", " ",
6620            RowBox[{"(",
6621             RowBox[{
6622              RowBox[{
6623               RowBox[{"-", "ceH1x1"}], " ",
6624               SuperscriptBox[
6625                OverscriptBox["v", "^"], "2"]}], "+",
6626              RowBox[{
6627               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}],
6628            " ",
6629            SubscriptBox[
6630             SubscriptBox["P", "\<\"+\"\>"],
6631             RowBox[{
6632              SubscriptBox["\<\"s\"\>", "2"], ",",
6633              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6634        RowBox[{"4", " ",
6635         SqrtBox["2"], " ",
6636         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
6637     {GridBox[{
6638        {"H", "1"},
6639        {
6640         OverscriptBox["e", "\<\"-\"\>"], "2"},
6641        {"mu", "3"}
6642       },
6643       GridBoxAlignment->{
6644        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6645          "RowsIndexed" -> {}},
6646       GridBoxSpacings->{"Columns" -> {
6647           Offset[0.27999999999999997`], {
6648            Offset[0.7]},
6649           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6650           Offset[0.2], {
6651            Offset[0.1]},
6652           Offset[0.2]}, "RowsIndexed" -> {}}],
6653      FractionBox[
6654       RowBox[{"\[ImaginaryI]", " ",
6655        SuperscriptBox[
6656         OverscriptBox["v", "^"], "2"], " ",
6657        RowBox[{"(",
6658         RowBox[{
6659          RowBox[{
6660           SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ",
6661           SubscriptBox[
6662            SubscriptBox["P", "\<\"-\"\>"],
6663            RowBox[{
6664             SubscriptBox["\<\"s\"\>", "2"], ",",
6665             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6666          RowBox[{"ceH1x2", " ",
6667           SubscriptBox[
6668            SubscriptBox["P", "\<\"+\"\>"],
6669            RowBox[{
6670             SubscriptBox["\<\"s\"\>", "2"], ",",
6671             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6672       RowBox[{
6673        SqrtBox["2"], " ",
6674        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6675     {GridBox[{
6676        {"H", "1"},
6677        {
6678         OverscriptBox["e", "\<\"-\"\>"], "2"},
6679        {"ta", "3"}
6680       },
6681       GridBoxAlignment->{
6682        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6683          "RowsIndexed" -> {}},
6684       GridBoxSpacings->{"Columns" -> {
6685           Offset[0.27999999999999997`], {
6686            Offset[0.7]},
6687           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6688           Offset[0.2], {
6689            Offset[0.1]},
6690           Offset[0.2]}, "RowsIndexed" -> {}}],
6691      FractionBox[
6692       RowBox[{"\[ImaginaryI]", " ",
6693        SuperscriptBox[
6694         OverscriptBox["v", "^"], "2"], " ",
6695        RowBox[{"(",
6696         RowBox[{
6697          RowBox[{
6698           SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ",
6699           SubscriptBox[
6700            SubscriptBox["P", "\<\"-\"\>"],
6701            RowBox[{
6702             SubscriptBox["\<\"s\"\>", "2"], ",",
6703             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6704          RowBox[{"ceH1x3", " ",
6705           SubscriptBox[
6706            SubscriptBox["P", "\<\"+\"\>"],
6707            RowBox[{
6708             SubscriptBox["\<\"s\"\>", "2"], ",",
6709             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6710       RowBox[{
6711        SqrtBox["2"], " ",
6712        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6713     {GridBox[{
6714        {"H", "1"},
6715        {
6716         OverscriptBox["mu", "\<\"-\"\>"], "2"},
6717        {"e", "3"}
6718       },
6719       GridBoxAlignment->{
6720        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6721          "RowsIndexed" -> {}},
6722       GridBoxSpacings->{"Columns" -> {
6723           Offset[0.27999999999999997`], {
6724            Offset[0.7]},
6725           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6726           Offset[0.2], {
6727            Offset[0.1]},
6728           Offset[0.2]}, "RowsIndexed" -> {}}],
6729      FractionBox[
6730       RowBox[{"\[ImaginaryI]", " ",
6731        SuperscriptBox[
6732         OverscriptBox["v", "^"], "2"], " ",
6733        RowBox[{"(",
6734         RowBox[{
6735          RowBox[{
6736           SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ",
6737           SubscriptBox[
6738            SubscriptBox["P", "\<\"-\"\>"],
6739            RowBox[{
6740             SubscriptBox["\<\"s\"\>", "2"], ",",
6741             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6742          RowBox[{"ceH2x1", " ",
6743           SubscriptBox[
6744            SubscriptBox["P", "\<\"+\"\>"],
6745            RowBox[{
6746             SubscriptBox["\<\"s\"\>", "2"], ",",
6747             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6748       RowBox[{
6749        SqrtBox["2"], " ",
6750        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6751     {GridBox[{
6752        {"H", "1"},
6753        {
6754         OverscriptBox["mu", "\<\"-\"\>"], "2"},
6755        {"mu", "3"}
6756       },
6757       GridBoxAlignment->{
6758        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6759          "RowsIndexed" -> {}},
6760       GridBoxSpacings->{"Columns" -> {
6761           Offset[0.27999999999999997`], {
6762            Offset[0.7]},
6763           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6764           Offset[0.2], {
6765            Offset[0.1]},
6766           Offset[0.2]}, "RowsIndexed" -> {}}],
6767      RowBox[{"-",
6768       FractionBox[
6769        RowBox[{"\[ImaginaryI]", " ",
6770         RowBox[{"(",
6771          RowBox[{
6772           RowBox[{
6773            SuperscriptBox[
6774             OverscriptBox["v", "^"], "2"], " ", "ym", " ",
6775            RowBox[{"(",
6776             RowBox[{
6777              RowBox[{"4", " ",
6778               SubscriptBox["c",
6779                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
6780              SubscriptBox["c", "HD"], "-",
6781              RowBox[{"2", " ",
6782               RowBox[{"(",
6783                RowBox[{
6784                 SubscriptBox["cHl3",
6785                  RowBox[{"1", ",", "1"}]], "+",
6786                 SubscriptBox["cHl3",
6787                  RowBox[{"2", ",", "2"}]], "-",
6788                 SubscriptBox[
6789                  SubscriptBox["c", "ll"],
6790                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
6791             ")"}], " ",
6792            SubscriptBox["\[Delta]",
6793             RowBox[{
6794              SubscriptBox["\<\"s\"\>", "2"], ",",
6795              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6796           RowBox[{"4", " ",
6797            RowBox[{"(",
6798             RowBox[{
6799              RowBox[{
6800               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-",
6801              RowBox[{
6802               SuperscriptBox[
6803                OverscriptBox["v", "^"], "2"], " ",
6804               SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ",
6805            SubscriptBox[
6806             SubscriptBox["P", "\<\"-\"\>"],
6807             RowBox[{
6808              SubscriptBox["\<\"s\"\>", "2"], ",",
6809              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6810           RowBox[{"4", " ",
6811            RowBox[{"(",
6812             RowBox[{
6813              RowBox[{
6814               RowBox[{"-", "ceH2x2"}], " ",
6815               SuperscriptBox[
6816                OverscriptBox["v", "^"], "2"]}], "+",
6817              RowBox[{
6818               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}],
6819            " ",
6820            SubscriptBox[
6821             SubscriptBox["P", "\<\"+\"\>"],
6822             RowBox[{
6823              SubscriptBox["\<\"s\"\>", "2"], ",",
6824              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6825        RowBox[{"4", " ",
6826         SqrtBox["2"], " ",
6827         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
6828     {GridBox[{
6829        {"H", "1"},
6830        {
6831         OverscriptBox["mu", "\<\"-\"\>"], "2"},
6832        {"ta", "3"}
6833       },
6834       GridBoxAlignment->{
6835        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6836          "RowsIndexed" -> {}},
6837       GridBoxSpacings->{"Columns" -> {
6838           Offset[0.27999999999999997`], {
6839            Offset[0.7]},
6840           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6841           Offset[0.2], {
6842            Offset[0.1]},
6843           Offset[0.2]}, "RowsIndexed" -> {}}],
6844      FractionBox[
6845       RowBox[{"\[ImaginaryI]", " ",
6846        SuperscriptBox[
6847         OverscriptBox["v", "^"], "2"], " ",
6848        RowBox[{"(",
6849         RowBox[{
6850          RowBox[{
6851           SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ",
6852           SubscriptBox[
6853            SubscriptBox["P", "\<\"-\"\>"],
6854            RowBox[{
6855             SubscriptBox["\<\"s\"\>", "2"], ",",
6856             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6857          RowBox[{"ceH2x3", " ",
6858           SubscriptBox[
6859            SubscriptBox["P", "\<\"+\"\>"],
6860            RowBox[{
6861             SubscriptBox["\<\"s\"\>", "2"], ",",
6862             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6863       RowBox[{
6864        SqrtBox["2"], " ",
6865        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6866     {GridBox[{
6867        {"H", "1"},
6868        {
6869         OverscriptBox["ta", "\<\"-\"\>"], "2"},
6870        {"e", "3"}
6871       },
6872       GridBoxAlignment->{
6873        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6874          "RowsIndexed" -> {}},
6875       GridBoxSpacings->{"Columns" -> {
6876           Offset[0.27999999999999997`], {
6877            Offset[0.7]},
6878           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6879           Offset[0.2], {
6880            Offset[0.1]},
6881           Offset[0.2]}, "RowsIndexed" -> {}}],
6882      FractionBox[
6883       RowBox[{"\[ImaginaryI]", " ",
6884        SuperscriptBox[
6885         OverscriptBox["v", "^"], "2"], " ",
6886        RowBox[{"(",
6887         RowBox[{
6888          RowBox[{
6889           SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ",
6890           SubscriptBox[
6891            SubscriptBox["P", "\<\"-\"\>"],
6892            RowBox[{
6893             SubscriptBox["\<\"s\"\>", "2"], ",",
6894             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6895          RowBox[{"ceH3x1", " ",
6896           SubscriptBox[
6897            SubscriptBox["P", "\<\"+\"\>"],
6898            RowBox[{
6899             SubscriptBox["\<\"s\"\>", "2"], ",",
6900             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6901       RowBox[{
6902        SqrtBox["2"], " ",
6903        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6904     {GridBox[{
6905        {"H", "1"},
6906        {
6907         OverscriptBox["ta", "\<\"-\"\>"], "2"},
6908        {"mu", "3"}
6909       },
6910       GridBoxAlignment->{
6911        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6912          "RowsIndexed" -> {}},
6913       GridBoxSpacings->{"Columns" -> {
6914           Offset[0.27999999999999997`], {
6915            Offset[0.7]},
6916           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6917           Offset[0.2], {
6918            Offset[0.1]},
6919           Offset[0.2]}, "RowsIndexed" -> {}}],
6920      FractionBox[
6921       RowBox[{"\[ImaginaryI]", " ",
6922        SuperscriptBox[
6923         OverscriptBox["v", "^"], "2"], " ",
6924        RowBox[{"(",
6925         RowBox[{
6926          RowBox[{
6927           SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ",
6928           SubscriptBox[
6929            SubscriptBox["P", "\<\"-\"\>"],
6930            RowBox[{
6931             SubscriptBox["\<\"s\"\>", "2"], ",",
6932             SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6933          RowBox[{"ceH3x2", " ",
6934           SubscriptBox[
6935            SubscriptBox["P", "\<\"+\"\>"],
6936            RowBox[{
6937             SubscriptBox["\<\"s\"\>", "2"], ",",
6938             SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
6939       RowBox[{
6940        SqrtBox["2"], " ",
6941        SuperscriptBox["\[CapitalLambda]", "2"]}]]},
6942     {GridBox[{
6943        {"H", "1"},
6944        {
6945         OverscriptBox["ta", "\<\"-\"\>"], "2"},
6946        {"ta", "3"}
6947       },
6948       GridBoxAlignment->{
6949        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
6950          "RowsIndexed" -> {}},
6951       GridBoxSpacings->{"Columns" -> {
6952           Offset[0.27999999999999997`], {
6953            Offset[0.7]},
6954           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
6955           Offset[0.2], {
6956            Offset[0.1]},
6957           Offset[0.2]}, "RowsIndexed" -> {}}],
6958      RowBox[{"-",
6959       FractionBox[
6960        RowBox[{"\[ImaginaryI]", " ",
6961         RowBox[{"(",
6962          RowBox[{
6963           RowBox[{
6964            SuperscriptBox[
6965             OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
6966            RowBox[{"(",
6967             RowBox[{
6968              RowBox[{"4", " ",
6969               SubscriptBox["c",
6970                RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
6971              SubscriptBox["c", "HD"], "-",
6972              RowBox[{"2", " ",
6973               RowBox[{"(",
6974                RowBox[{
6975                 SubscriptBox["cHl3",
6976                  RowBox[{"1", ",", "1"}]], "+",
6977                 SubscriptBox["cHl3",
6978                  RowBox[{"2", ",", "2"}]], "-",
6979                 SubscriptBox[
6980                  SubscriptBox["c", "ll"],
6981                  RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
6982             ")"}], " ",
6983            SubscriptBox["\[Delta]",
6984             RowBox[{
6985              SubscriptBox["\<\"s\"\>", "2"], ",",
6986              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
6987           RowBox[{"4", " ",
6988            RowBox[{"(",
6989             RowBox[{
6990              RowBox[{
6991               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-",
6992              RowBox[{
6993               SuperscriptBox[
6994                OverscriptBox["v", "^"], "2"], " ",
6995               SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ",
6996            SubscriptBox[
6997             SubscriptBox["P", "\<\"-\"\>"],
6998             RowBox[{
6999              SubscriptBox["\<\"s\"\>", "2"], ",",
7000              SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
7001           RowBox[{"4", " ",
7002            RowBox[{"(",
7003             RowBox[{
7004              RowBox[{
7005               RowBox[{"-", "ceH3x3"}], " ",
7006               SuperscriptBox[
7007                OverscriptBox["v", "^"], "2"]}], "+",
7008              RowBox[{
7009               SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}],
7010             ")"}], " ",
7011            SubscriptBox[
7012             SubscriptBox["P", "\<\"+\"\>"],
7013             RowBox[{
7014              SubscriptBox["\<\"s\"\>", "2"], ",",
7015              SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
7016        RowBox[{"4", " ",
7017         SqrtBox["2"], " ",
7018         SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
7019    },
7020    GridBoxAlignment->{
7021     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
7022      "RowsIndexed" -> {}},
7023    GridBoxSpacings->{"Columns" -> {
7024        Offset[0.27999999999999997`], {
7025         Offset[2.0999999999999996`]},
7026        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
7027        Offset[0.2], {
7028         Offset[0.4]},
7029        Offset[0.2]}, "RowsIndexed" -> {}}],
7030   TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
7031       FeynRules`e, 3}}, ((Complex[0,
7032          Rational[-1, 4]]
7033        2^Rational[-1,
7034           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
7035$CellContext`ye) (4 $CellContext`cHbox - $CellContext`cHD -
7036          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
7037            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
7038          FeynRules`Index[FeynRules`Spin,
7039           FeynRules`Ext[2]],
7040          FeynRules`Index[FeynRules`Spin,
7041           FeynRules`Ext[3]]] + (
7042         4 ($CellContext`LambdaSMEFT^2 $CellContext`ye - \
7043$CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1])) FeynRules`ProjM[
7044          FeynRules`Index[FeynRules`Spin,
7045           FeynRules`Ext[2]],
7046          FeynRules`Index[FeynRules`Spin,
7047           FeynRules`Ext[3]]] + (
7048         4 ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
7049$CellContext`LambdaSMEFT^2 $CellContext`ye)) FeynRules`ProjP[
7050          FeynRules`Index[FeynRules`Spin,
7051           FeynRules`Ext[2]],
7052          FeynRules`Index[FeynRules`Spin,
7053           FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
7054       FeynRules`mu,
7055        3}}, (((Complex[0, 1]
7056         2^Rational[-1,
7057            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
7058       Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
7059          FeynRules`Index[FeynRules`Spin,
7060           FeynRules`Ext[2]],
7061          FeynRules`Index[FeynRules`Spin,
7062           FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
7063          FeynRules`Index[FeynRules`Spin,
7064           FeynRules`Ext[2]],
7065          FeynRules`Index[FeynRules`Spin,
7066           FeynRules`Ext[3]]])}, {{{
7067       FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta,
7068        3}}, (((Complex[0, 1]
7069         2^Rational[-1,
7070            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
7071       Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
7072          FeynRules`Index[FeynRules`Spin,
7073           FeynRules`Ext[2]],
7074          FeynRules`Index[FeynRules`Spin,
7075           FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
7076          FeynRules`Index[FeynRules`Spin,
7077           FeynRules`Ext[2]],
7078          FeynRules`Index[FeynRules`Spin,
7079           FeynRules`Ext[3]]])}, {{{
7080       FeynRules`H, 1}, {$CellContext`mubar, 2}, {
7081       FeynRules`e,
7082        3}}, (((Complex[0, 1]
7083         2^Rational[-1,
7084            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
7085       Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
7086          FeynRules`Index[FeynRules`Spin,
7087           FeynRules`Ext[2]],
7088          FeynRules`Index[FeynRules`Spin,
7089           FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
7090          FeynRules`Index[FeynRules`Spin,
7091           FeynRules`Ext[2]],
7092          FeynRules`Index[FeynRules`Spin,
7093           FeynRules`Ext[3]]])}, {{{
7094       FeynRules`H, 1}, {$CellContext`mubar, 2}, {
7095       FeynRules`mu, 3}}, ((Complex[0,
7096          Rational[-1, 4]]
7097        2^Rational[-1,
7098           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
7099$CellContext`ym) (4 $CellContext`cHbox - $CellContext`cHD -
7100          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
7101            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
7102          FeynRules`Index[FeynRules`Spin,
7103           FeynRules`Ext[2]],
7104          FeynRules`Index[FeynRules`Spin,
7105           FeynRules`Ext[3]]] + (
7106         4 ($CellContext`LambdaSMEFT^2 $CellContext`ym - \
7107$CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2])) FeynRules`ProjM[
7108          FeynRules`Index[FeynRules`Spin,
7109           FeynRules`Ext[2]],
7110          FeynRules`Index[FeynRules`Spin,
7111           FeynRules`Ext[3]]] + (
7112         4 ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
7113$CellContext`LambdaSMEFT^2 $CellContext`ym)) FeynRules`ProjP[
7114          FeynRules`Index[FeynRules`Spin,
7115           FeynRules`Ext[2]],
7116          FeynRules`Index[FeynRules`Spin,
7117           FeynRules`Ext[3]]])}, {{{
7118       FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta,
7119        3}}, (((Complex[0, 1]
7120         2^Rational[-1,
7121            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
7122       Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
7123          FeynRules`Index[FeynRules`Spin,
7124           FeynRules`Ext[2]],
7125          FeynRules`Index[FeynRules`Spin,
7126           FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
7127          FeynRules`Index[FeynRules`Spin,
7128           FeynRules`Ext[2]],
7129          FeynRules`Index[FeynRules`Spin,
7130           FeynRules`Ext[3]]])}, {{{
7131       FeynRules`H, 1}, {$CellContext`tabar, 2}, {
7132       FeynRules`e,
7133        3}}, (((Complex[0, 1]
7134         2^Rational[-1,
7135            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
7136       Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
7137          FeynRules`Index[FeynRules`Spin,
7138           FeynRules`Ext[2]],
7139          FeynRules`Index[FeynRules`Spin,
7140           FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
7141          FeynRules`Index[FeynRules`Spin,
7142           FeynRules`Ext[2]],
7143          FeynRules`Index[FeynRules`Spin,
7144           FeynRules`Ext[3]]])}, {{{
7145       FeynRules`H, 1}, {$CellContext`tabar, 2}, {
7146       FeynRules`mu,
7147        3}}, (((Complex[0, 1]
7148         2^Rational[-1,
7149            2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
7150       Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
7151          FeynRules`Index[FeynRules`Spin,
7152           FeynRules`Ext[2]],
7153          FeynRules`Index[FeynRules`Spin,
7154           FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
7155          FeynRules`Index[FeynRules`Spin,
7156           FeynRules`Ext[2]],
7157          FeynRules`Index[FeynRules`Spin,
7158           FeynRules`Ext[3]]])}, {{{
7159       FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, ((
7160        Complex[0,
7161          Rational[-1, 4]]
7162        2^Rational[-1,
7163           2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
7164$CellContext`ytau) (4 $CellContext`cHbox - $CellContext`cHD -
7165          2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
7166            2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
7167          FeynRules`Index[FeynRules`Spin,
7168           FeynRules`Ext[2]],
7169          FeynRules`Index[FeynRules`Spin,
7170           FeynRules`Ext[3]]] + (
7171         4 ($CellContext`LambdaSMEFT^2 $CellContext`ytau - \
7172$CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3])) FeynRules`ProjM[
7173          FeynRules`Index[FeynRules`Spin,
7174           FeynRules`Ext[2]],
7175          FeynRules`Index[FeynRules`Spin,
7176           FeynRules`Ext[3]]] + (
7177         4 ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
7178$CellContext`LambdaSMEFT^2 $CellContext`ytau)) FeynRules`ProjP[
7179          FeynRules`Index[FeynRules`Spin,
7180           FeynRules`Ext[2]],
7181          FeynRules`Index[FeynRules`Spin,
7182           FeynRules`Ext[3]]])}}]],
7183  Function[BoxForm`e$,
7184   TableForm[BoxForm`e$]]]], "Output",
7185 CellChangeTimes->{{3.71465403609652*^9, 3.714654045478115*^9},
7186   3.7146545725892477`*^9,
7187   3.7146553926199627`*^9},ExpressionUUID->"2d6d55cf-523a-4931-8433-\
71887d34103d0a0f"]
7189}, Open  ]]
7190}, Closed]],
7191
7192Cell[CellGroupData[{
7193
7194Cell["Export to UFO", "Subsection",
7195 CellChangeTimes->{{3.697464870154114*^9, 3.697464873666815*^9}, {
7196  3.714654206955551*^9,
7197  3.7146542085195227`*^9}},ExpressionUUID->"44bd2bd5-c92e-4f5a-b2c0-\
71982aaa3c513670"],
7199
7200Cell[TextData[{
7201 StyleBox["Warning!",
7202  FontWeight->"Bold",
7203  FontColor->RGBColor[1, 0, 0]],
7204 " Exporting the flavor general model to UFO in the most general case might \
7205take a long time (~ 2 hours) \nThe time is significantly reduced using the \
7206massless restriction"
7207}], "Text",
7208 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
7209  3.714654761972848*^9, 3.714654820650289*^9}, {3.7146548571674767`*^9,
7210  3.714654861694016*^9}},
7211 Background->RGBColor[
7212  1, 1, 0.85],ExpressionUUID->"8012e7e9-d5fd-4218-be89-a52e130401da"],
7213
7214Cell[CellGroupData[{
7215
7216Cell[BoxData[
7217 RowBox[{"WriteUFO", "[",
7218  RowBox[{"LSMEFT", ",",
7219   RowBox[{"MaxParticles", "\[Rule]", "4"}], ",",
7220   RowBox[{
7221   "Output", "\[Rule]", "\"\<SMEFTsim_A_general_alphaScheme_UFO\>\""}]}],
7222  "]"}]], "Input",
7223 CellChangeTimes->{{3.711357093610547*^9, 3.7113570956332912`*^9}, {
7224  3.713541847073875*^9, 3.713541858645399*^9}, {3.713966972373098*^9,
7225  3.713966987928933*^9}, {3.7139684888375883`*^9, 3.713968491954339*^9}, {
7226  3.714027305929933*^9, 3.7140273182314863`*^9}, {3.714027352553897*^9,
7227  3.714027353791733*^9}, {3.7140340581231403`*^9, 3.714034062356689*^9}, {
7228  3.714654875023568*^9,
7229  3.714654875374014*^9}},ExpressionUUID->"c4e3c4c6-947f-4622-94e4-\
72303956e372f48c"],
7231
7232Cell[CellGroupData[{
7233
7234Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
7235"Print",
7236 CellChangeTimes->{
7237  3.714052922477131*^9},ExpressionUUID->"6fd019b7-fe5e-41da-b4d5-\
72387d7c08339e67"],
7239
7240Cell[BoxData[
7241 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
7242  StripOnInput->False,
7243  LineColor->RGBColor[1, 0.5, 0],
7244  FrontFaceColor->RGBColor[1, 0.5, 0],
7245  BackFaceColor->RGBColor[1, 0.5, 0],
7246  GraphicsColor->RGBColor[1, 0.5, 0],
7247  FontWeight->Bold,
7248  FontColor->RGBColor[1, 0.5, 0]]], "Print",
7249 CellChangeTimes->{
7250  3.714053031318115*^9},ExpressionUUID->"eba9d290-2fe8-41f7-b3ae-\
7251d028e4124108"],
7252
7253Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7254 CellChangeTimes->{
7255  3.714053031319613*^9},ExpressionUUID->"39f8fcdc-8ac2-4f23-ab6a-\
7256ca8bd347deba"],
7257
7258Cell[BoxData[
7259 InterpretationBox[
7260  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
7261   "\[InvisibleSpace]", "\<\" cores\"\>"}],
7262  SequenceForm["Expanding the indices over ", 2, " cores"],
7263  Editable->False]], "Print",
7264 CellChangeTimes->{
7265  3.714053031320487*^9},ExpressionUUID->"26068711-abf9-42a1-b65a-\
726651a2a77c099b"],
7267
7268Cell[BoxData[
7269 InterpretationBox[
7270  RowBox[{"\<\"Neglecting all terms with more than \"\>",
7271   "\[InvisibleSpace]", "\<\"4\"\>",
7272   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
7273  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
7274  Editable->False]], "Print",
7275 CellChangeTimes->{
7276  3.7140530315391493`*^9},ExpressionUUID->"dbda856c-24f7-40d8-9923-\
727777da05a643cd"],
7278
7279Cell[BoxData["\<\"Collecting the different structures that enter the \
7280vertex.\"\>"], "Print",
7281 CellChangeTimes->{
7282  3.714053146925672*^9},ExpressionUUID->"a5e0fc81-6f03-4a24-a1ad-\
72837554973f3a20"],
7284
7285Cell[BoxData[
7286 InterpretationBox[
7287  RowBox[{
7288  "82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
7289-> starting the computation: \"\>", "\[InvisibleSpace]",
7290   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
7291    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7292   "\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
7293  SequenceForm[
7294  82, " possible non-zero vertices have been found -> starting the \
7295computation: ",
7296   Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
7297  Editable->False]], "Print",
7298 CellChangeTimes->{
7299  3.714053147397628*^9},ExpressionUUID->"636bb010-1431-46f9-a55c-\
7300f33f99478e52"],
7301
7302Cell[BoxData[
7303 InterpretationBox[
7304  RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
7305  SequenceForm[82, " vertices obtained."],
7306  Editable->False]], "Print",
7307 CellChangeTimes->{
7308  3.71405321621478*^9},ExpressionUUID->"bed2ea70-76c4-4075-b9c7-2dee1624642f"],
7309
7310Cell[BoxData[
7311 InterpretationBox[
7312  RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
7313   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
7314   "\[InvisibleSpace]",
7315   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
7316    ImageSizeCache->{86., {2., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7317   "\[InvisibleSpace]", "82"}],
7318  SequenceForm[
7319  "Flavor expansion of the vertices distributed over ", 2, " cores: ",
7320   Dynamic[FeynRules`FR$Count1], " / ", 82],
7321  Editable->False]], "Print",
7322 CellChangeTimes->{
7323  3.714053260680738*^9},ExpressionUUID->"b1a231ee-0764-4d1b-9ee2-\
7324f1687e3dada8"],
7325
7326Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
7327 CellChangeTimes->{
7328  3.714053771152417*^9},ExpressionUUID->"d373f064-530f-4efa-8ef8-\
73290bab0a7b5f27"],
7330
7331Cell[BoxData[
7332 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
7333decays: \"\>",
7334  StripOnInput->False,
7335  LineColor->RGBColor[1, 0.5, 0],
7336  FrontFaceColor->RGBColor[1, 0.5, 0],
7337  BackFaceColor->RGBColor[1, 0.5, 0],
7338  GraphicsColor->RGBColor[1, 0.5, 0],
7339  FontWeight->Bold,
7340  FontColor->RGBColor[1, 0.5, 0]]], "Print",
7341 CellChangeTimes->{
7342  3.714053771362775*^9},ExpressionUUID->"2cb0c055-a28c-4574-b57d-\
73432e694fa71152"],
7344
7345Cell[BoxData[
7346 InterpretationBox[
7347  RowBox[{
7348   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
7349    ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7350   "\[InvisibleSpace]", "138"}],
7351  SequenceForm[
7352   Dynamic[PRIVATE`mycounter], " / ", 138],
7353  Editable->False]], "Print",
7354 CellChangeTimes->{
7355  3.714053771418955*^9},ExpressionUUID->"b3d28bdf-1102-4b3e-bbde-\
735630a58aae5747"],
7357
7358Cell[BoxData[
7359 InterpretationBox[
7360  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
7361   "2228.008`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
7362  SequenceForm["Squared matrix elent compute in ", 2228.008, " seconds."],
7363  Editable->False]], "Print",
7364 CellChangeTimes->{
7365  3.71405785442106*^9},ExpressionUUID->"da08975b-e39b-49f2-8515-d308767a3a86"],
7366
7367Cell[BoxData[
7368 InterpretationBox[
7369  RowBox[{
7370   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
7371    ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
7372   "\[InvisibleSpace]", "181"}],
7373  SequenceForm[
7374   Dynamic[PRIVATE`mycounter], " / ", 181],
7375  Editable->False]], "Print",
7376 CellChangeTimes->{
7377  3.714057854431982*^9},ExpressionUUID->"2ce5e037-b7e9-4f92-8a3b-\
737847e3e39286dd"],
7379
7380Cell[BoxData[
7381 InterpretationBox[
7382  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "145.5`",
7383   "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
7384  SequenceForm["Decay widths computed in ", 145.5, " seconds."],
7385  Editable->False]], "Print",
7386 CellChangeTimes->{
7387  3.714058028376902*^9},ExpressionUUID->"d54e6a93-8f6b-4061-99af-\
73884ac8cf16039f"],
7389
7390Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
7391 CellChangeTimes->{
7392  3.714058028391108*^9},ExpressionUUID->"1a6f8ca3-bb08-48b2-928b-\
739315a7f499f9ff"],
7394
7395Cell[BoxData[
7396 StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
7397supported!\"\>",
7398  StripOnInput->False,
7399  LineColor->RGBColor[1, 0, 0],
7400  FrontFaceColor->RGBColor[1, 0, 0],
7401  BackFaceColor->RGBColor[1, 0, 0],
7402  GraphicsColor->RGBColor[1, 0, 0],
7403  FontColor->RGBColor[1, 0, 0]]], "Print",
7404 CellChangeTimes->{
7405  3.714058038663063*^9},ExpressionUUID->"87a973db-332d-40cc-bfed-\
7406b71775f59fae"],
7407
7408Cell[BoxData[
7409 StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
7410supported!\"\>",
7411  StripOnInput->False,
7412  LineColor->RGBColor[1, 0, 0],
7413  FrontFaceColor->RGBColor[1, 0, 0],
7414  BackFaceColor->RGBColor[1, 0, 0],
7415  GraphicsColor->RGBColor[1, 0, 0],
7416  FontColor->RGBColor[1, 0, 0]]], "Print",
7417 CellChangeTimes->{
7418  3.7140580388137827`*^9},ExpressionUUID->"ec00051b-2100-4f4f-a9b1-\
7419a631132bd675"],
7420
7421Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
7422"Print",
7423 CellChangeTimes->{
7424  3.71405804145577*^9},ExpressionUUID->"5918ca2d-0cfb-47d9-8df4-23e7f31e6cf8"],
7425
7426Cell[BoxData[
7427 InterpretationBox[
7428  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
7429   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
7430  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
7431  Editable->False]], "Print",
7432 CellChangeTimes->{
7433  3.714058043481329*^9},ExpressionUUID->"cc50ec4a-7e44-48c0-a211-\
7434f1528905f7cf"],
7435
7436Cell[BoxData[
7437 InterpretationBox[
7438  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
7439   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
7440    ImageSizeCache->{278., {3., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>",
7441   "\[InvisibleSpace]", "1224", "\[InvisibleSpace]", "\<\" .\"\>"}],
7442  SequenceForm["    - Optimizing: ",
7443   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 1224, " ."],
7444  Editable->False]], "Print",
7445 CellChangeTimes->{
7446  3.714058092845045*^9},ExpressionUUID->"a3c3da5f-e603-4e4d-91b8-\
7447fb82482fb5fe"],
7448
7449Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
7450 CellChangeTimes->{
7451  3.714058167814595*^9},ExpressionUUID->"a69eb6fc-7648-4845-b4f0-\
74522c1fea175864"],
7453
7454Cell[BoxData[
7455 StyleBox["\<\"Warning: Non positive interaction order QED.\\n                \
7456This might reduce the efficiency of certain matrix element generators.\\n     \
7457           See logfile for more details.\"\>",
7458  StripOnInput->False,
7459  LineColor->RGBColor[1, 0, 0],
7460  FrontFaceColor->RGBColor[1, 0, 0],
7461  BackFaceColor->RGBColor[1, 0, 0],
7462  GraphicsColor->RGBColor[1, 0, 0],
7463  FontColor->RGBColor[1, 0, 0]]], "Print",
7464 CellChangeTimes->{
7465  3.714058235291553*^9},ExpressionUUID->"0fb19be5-daa0-43df-86ef-\
7466337a756a3616"],
7467
7468Cell[BoxData["\<\"Done!\"\>"], "Print",
7469 CellChangeTimes->{
7470  3.714058492255684*^9},ExpressionUUID->"63e9fc37-649d-4d0e-bbc9-\
7471bf388a83f21c"]
7472}, Open  ]]
7473}, Open  ]]
7474}, Closed]]
7475}, Closed]],
7476
7477Cell[CellGroupData[{
7478
7479Cell["model flavor general Mw scheme", "Section",
7480 CellChangeTimes->{{3.696681316130834*^9, 3.696681320670103*^9}, {
7481  3.6972641901616383`*^9, 3.697264190714314*^9}, {3.6977796250127287`*^9,
7482  3.697779628134873*^9}, {3.7008119849361362`*^9, 3.7008119864866343`*^9}, {
7483  3.713951624097616*^9, 3.7139516319877872`*^9}, {3.714027345519704*^9,
7484  3.7140273462258577`*^9}, {3.714034026337254*^9, 3.7140340306501093`*^9}, {
7485  3.714067647572143*^9, 3.714067648104774*^9}, {3.714654226031218*^9,
7486  3.7146542296799393`*^9}},ExpressionUUID->"f1e9cbd0-c5f5-4213-91e7-\
74876614c43503b7"],
7488
7489Cell[BoxData[{
7490 RowBox[{
7491  RowBox[{"Flavor", "=", "general"}], ";"}], "\[IndentingNewLine]",
7492 RowBox[{
7493  RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
7494 CellChangeTimes->CompressedData["
74951:eJxTTMoPSmViYGAQA2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
7496BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
7497BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
7498gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
7499oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
7500tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA9y6F0Buua144GfEvANAC3T8zw
7501
7502  "],ExpressionUUID->"a74b312e-d3dd-4df5-a34b-d90455eb1ede"],
7503
7504Cell[TextData[{
7505 StyleBox["Warning!",
7506  FontWeight->"Bold",
7507  FontColor->RGBColor[1, 0, 0]],
7508 " due to the large number of parameters, importing the flavor general model \
7509might take  ~ 5 minutes"
7510}], "Text",
7511 CellChangeTimes->{{3.714654622630918*^9, 3.714654684037245*^9}, {
7512  3.714655110274064*^9, 3.714655110451108*^9}, {3.725885224501438*^9,
7513  3.725885227149221*^9}, {3.726906863305984*^9, 3.7269068669813423`*^9}},
7514 Background->RGBColor[
7515  1, 1, 0.85],ExpressionUUID->"3200b1e5-c61d-47dd-ae11-192fde7c8756"],
7516
7517Cell[BoxData[{
7518 RowBox[{
7519  RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}],
7520  ";"}], "\[IndentingNewLine]",
7521 RowBox[{
7522  RowBox[{
7523   RowBox[{"$Assumptions", "=",
7524    RowBox[{
7525     RowBox[{
7526      RowBox[{
7527       RowBox[{"cth", "^", "2"}], "+",
7528       RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&",
7529     RowBox[{
7530      RowBox[{"vevhat", "^", "2"}], "\[Equal]",
7531      RowBox[{"1", "/",
7532       RowBox[{"(",
7533        RowBox[{
7534         RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}],
7535  RowBox[{"(*",
7536   RowBox[{
7537   "definition", " ", "useful", " ", "for", " ", "algebraic", " ",
7538    "simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
7539 CellChangeTimes->{
7540  3.696317675402779*^9, {3.6965773165572453`*^9, 3.696577319156142*^9},
7541   3.696580983074707*^9, {3.6965948918072433`*^9, 3.696594894707777*^9},
7542   3.6966709211488647`*^9, {3.69667828323773*^9, 3.696678323509939*^9}, {
7543   3.69667951035196*^9, 3.6966795109895697`*^9}, {3.696681436195228*^9,
7544   3.696681438987885*^9}, {3.6972650726318893`*^9, 3.697265101991671*^9},
7545   3.697287098417327*^9, {3.6973604685824413`*^9, 3.69736046890945*^9}, {
7546   3.697779635251266*^9, 3.69777963758922*^9}, {3.698645426547124*^9,
7547   3.698645426699171*^9}, {3.699076691858276*^9, 3.699076748603301*^9}, {
7548   3.6990805929555798`*^9, 3.6990805933718987`*^9}, {3.699103784843251*^9,
7549   3.699103787233872*^9}, {3.699174414331218*^9, 3.699174423137232*^9}, {
7550   3.700810602928831*^9, 3.700810603791377*^9}, 3.700811190650639*^9, {
7551   3.700811373469302*^9, 3.70081137419092*^9}, {3.700811543944695*^9,
7552   3.700811545171196*^9}, {3.7008116427840242`*^9, 3.7008116439630938`*^9}, {
7553   3.700811709403363*^9, 3.700811710009871*^9}, {3.700811988139593*^9,
7554   3.700811989085125*^9}, {3.706958250209116*^9, 3.706958253094596*^9}, {
7555   3.70719446793911*^9, 3.7071944683318357`*^9}, {3.707196963096757*^9,
7556   3.7071969641085587`*^9}, {3.7073968274735537`*^9, 3.707396828325622*^9}, {
7557   3.7074043139801292`*^9, 3.707404317755911*^9}, {3.7074053023188467`*^9,
7558   3.707405302915038*^9}, {3.707730114023314*^9, 3.707730124419199*^9}, {
7559   3.7077337383961143`*^9, 3.707733741518713*^9}, {3.713951635803303*^9,
7560   3.71395165206149*^9}, {3.713951695549211*^9, 3.713951695853513*^9}, {
7561   3.71395173874929*^9, 3.7139517413107147`*^9}, {3.713952603189982*^9,
7562   3.713952603424769*^9},
7563   3.714654233774664*^9},ExpressionUUID->"d54a8bd7-1be4-4724-aa37-\
7564d90efc53c0b9"],
7565
7566Cell[BoxData[
7567 RowBox[{
7568  RowBox[{"(*", " ",
7569   RowBox[{
7570   "simplify", " ", "collecting", " ", "the", " ", "Wilson", " ",
7571    "coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
7572  RowBox[{
7573   RowBox[{"WCsimplify", "[", "x_", "]"}], ":=",
7574   RowBox[{"Collect", "[",
7575    RowBox[{
7576     RowBox[{"Expand", "[", "x", "]"}], ",",
7577     RowBox[{"Join", "[",
7578      RowBox[{"WC6indices", ",",
7579       RowBox[{"Conjugate", "/@", "WC6indices"}], ",",
7580       RowBox[{"{",
7581        RowBox[{
7582        "dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
7583          ",", "dgw"}], "}"}]}], "]"}], ",",
7584     RowBox[{
7585      RowBox[{"FullSimplify", "[",
7586       RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\
7587
7588 CellChangeTimes->{{3.69727251229317*^9, 3.697272539780883*^9}, {
7589   3.6972725951948023`*^9, 3.6972726157586107`*^9}, {3.6973553500832977`*^9,
7590   3.697355359264447*^9}, {3.697355426066744*^9, 3.697355428425048*^9}, {
7591   3.697359800031402*^9, 3.697359816794314*^9}, {3.697361185105711*^9,
7592   3.697361198769485*^9}, {3.697367251862154*^9, 3.697367258246785*^9}, {
7593   3.697536724781671*^9, 3.697536725470097*^9}, {3.698645443776215*^9,
7594   3.6986454466349792`*^9}, {3.6990803840045652`*^9,
7595   3.6990803931031227`*^9}, {3.707025063385503*^9, 3.707025074535533*^9}, {
7596   3.707026201080791*^9, 3.707026206097932*^9}, {3.707733746790945*^9,
7597   3.707733759745702*^9}, {3.711875906183223*^9, 3.71187590676577*^9}, {
7598   3.712555385621932*^9, 3.712555393408392*^9}, 3.7146542372472677`*^9, {
7599   3.714655265220942*^9,
7600   3.714655268951293*^9}},ExpressionUUID->"8582f134-6a65-42f5-817f-\
7601442cc2ea589e"],
7602
7603Cell[CellGroupData[{
7604
7605Cell[TextData[{
7606 "Example - extraction of aTGC ",
7607 Cell[BoxData[
7608  FormBox[
7609   RowBox[{"(", " ",
7610    SuperscriptBox[
7611     SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
7612  "baa967f5-ef6f-4f75-9807-d639bf97d44c"],
7613 ", ",
7614 Cell[BoxData[
7615  FormBox[
7616   SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
7617  "272ade19-fee3-483e-9012-875dd660f095"],
7618 " )"
7619}], "Subsection",
7620 CellChangeTimes->{{3.697366338889289*^9, 3.697366341458261*^9}, {
7621  3.714474539132268*^9, 3.71447454549291*^9}, {3.7144748778381844`*^9,
7622  3.714474881170227*^9}, {3.7146522087316093`*^9,
7623  3.7146522332696543`*^9}},ExpressionUUID->"2900fc3f-7d26-4cde-8476-\
7624948941db76e3"],
7625
7626Cell[BoxData[
7627 RowBox[{
7628  RowBox[{"L1", " ", "=", " ",
7629   RowBox[{
7630    RowBox[{
7631     RowBox[{"LGauge", "+", "L6cl4"}], "/.",
7632     RowBox[{
7633      RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
7634     "OptimizeIndex"}]}], ";"}]], "Input",
7635 CellChangeTimes->{{3.714474548996854*^9, 3.714474607567834*^9}, {
7636  3.714474713747148*^9, 3.7144747165634403`*^9}, {3.714474885107195*^9,
7637  3.714474885248617*^9}, {3.7144750445122128`*^9, 3.714475058126898*^9}, {
7638  3.7144751339781103`*^9,
7639  3.714475137908736*^9}},ExpressionUUID->"e2b4e349-4851-41a9-9764-\
764084be0d49ec34"],
7641
7642Cell[CellGroupData[{
7643
7644Cell[BoxData[
7645 RowBox[{
7646  RowBox[{"zww", "=",
7647   RowBox[{"GetInteractionTerms", "[",
7648    RowBox[{"L1", ",",
7649     RowBox[{"SelectParticles", "\[Rule]",
7650      RowBox[{"{",
7651       RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}],
7652  ";"}]], "Input",
7653 CellChangeTimes->{{3.697355190045856*^9,
7654  3.697355204589117*^9}},ExpressionUUID->"620c9793-5dd1-4198-b7bb-\
7655e94aee5f9f62"],
7656
7657Cell[CellGroupData[{
7658
7659Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
7660eigenstates should be selected!\"\>"], "Print",
7661 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9,
7662  3.7146551421946583`*^9,
7663  3.714655838059554*^9},ExpressionUUID->"88c6795a-274d-4247-aa07-\
7664295c0c4423cc"],
7665
7666Cell[BoxData[
7667 InterpretationBox[
7668  RowBox[{"\<\"Neglecting all terms with more than \"\>",
7669   "\[InvisibleSpace]", "\<\"3\"\>",
7670   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
7671  SequenceForm["Neglecting all terms with more than ", "3", " particles."],
7672  Editable->False]], "Print",
7673 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9,
7674  3.7146551421946583`*^9,
7675  3.714655838135293*^9},ExpressionUUID->"4d790ee9-1a20-4da5-adb6-\
76767536692f852c"],
7677
7678Cell[BoxData[
7679 InterpretationBox[
7680  RowBox[{"\<\"Neglecting all terms with less than \"\>",
7681   "\[InvisibleSpace]", "\<\"3\"\>",
7682   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
7683  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
7684  Editable->False]], "Print",
7685 CellChangeTimes->{3.714652273867529*^9, 3.714654388395363*^9,
7686  3.7146551421946583`*^9,
7687  3.71465583817999*^9},ExpressionUUID->"629e3faa-64cb-4a5b-8149-3cfc6b8ead4e"]
7688}, Open  ]]
7689}, Open  ]],
7690
7691Cell[CellGroupData[{
7692
7693Cell[BoxData[
7694 RowBox[{
7695  RowBox[{"(*", " ", "g1z", " ", "*)"}], "\[IndentingNewLine]",
7696  RowBox[{
7697   RowBox[{
7698    RowBox[{"zww", "/.",
7699     RowBox[{
7700      RowBox[{"del", "[",
7701       RowBox[{
7702        RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
7703     "Simplify"}], "\[IndentingNewLine]",
7704   RowBox[{
7705    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
7706   "\[IndentingNewLine]",
7707   RowBox[{
7708    RowBox[{"Simplify", "[",
7709     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
7710    RowBox[{"WCsimplify", "[",
7711     FractionBox["%",
7712      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
7713 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
7714   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9,
7715   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
7716   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9,
7717   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
7718   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9,
7719   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
7720   3.697366570896222*^9, 3.697366573045783*^9}, {3.697371239528208*^9,
7721   3.697371253607347*^9}, {3.697779754300777*^9, 3.6977797626704483`*^9}, {
7722   3.70081318564122*^9, 3.700813191980774*^9}, {3.700813246330406*^9,
7723   3.700813285428583*^9}, {3.7077337321979713`*^9, 3.707733734591858*^9}, {
7724   3.714474619041273*^9, 3.7144746223430567`*^9}, {3.714474993096156*^9,
7725   3.7144750018697557`*^9}, 3.7146522446651382`*^9, {3.7146522849326553`*^9,
7726   3.7146523139288273`*^9}, {3.714652367401491*^9, 3.714652379324503*^9}, {
7727   3.714652412441049*^9, 3.714652464776884*^9}, 3.714652626095168*^9, {
7728   3.714654309590547*^9, 3.714654313029612*^9}, {3.714655034452681*^9,
7729   3.714655035524263*^9}, {3.714655726528235*^9,
7730   3.7146557280301332`*^9}},ExpressionUUID->"7620b1d3-cbfa-42ad-96e8-\
7731c15a2e830050"],
7732
7733Cell[BoxData[
7734 RowBox[{"-",
7735  FractionBox[
7736   RowBox[{"\[ImaginaryI]", " ", "e", " ",
7737    RowBox[{"(",
7738     RowBox[{
7739      RowBox[{
7740       SuperscriptBox["\[CapitalLambda]", "2"], " ",
7741       RowBox[{"(",
7742        RowBox[{
7743         RowBox[{"-", "2"}], "-",
7744         RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
7745         RowBox[{"2", " ",
7746          RowBox[{"(",
7747           RowBox[{"1", "+", "dgw"}], ")"}], " ",
7748          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
7749      RowBox[{
7750       SubscriptBox["c", "HWB"], " ",
7751       SubscriptBox["c", "\[Theta]"], " ",
7752       SubscriptBox["s", "\[Theta]"], " ",
7753       SuperscriptBox[
7754        OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
7755    RowBox[{"(",
7756     RowBox[{
7757      RowBox[{
7758       RowBox[{
7759        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
7760        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
7761       RowBox[{"(",
7762        RowBox[{
7763         RowBox[{
7764          SubscriptBox["W", "mu$2"], " ",
7765          SubscriptBox["Z", "mu$1"]}], "-",
7766         RowBox[{
7767          SubscriptBox["W", "mu$1"], " ",
7768          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
7769      RowBox[{
7770       RowBox[{
7771        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
7772        SubscriptBox["W", "mu$1"], "]"}], " ",
7773       RowBox[{"(",
7774        RowBox[{
7775         RowBox[{
7776          RowBox[{"-",
7777           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
7778          SubscriptBox["Z", "mu$1"]}], "+",
7779         RowBox[{
7780          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
7781          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
7782   RowBox[{"2", " ",
7783    SubscriptBox["c", "\[Theta]"], " ",
7784    SuperscriptBox["\[CapitalLambda]", "2"], " ",
7785    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
7786 CellChangeTimes->{
7787  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9,
7788   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9,
7789   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9,
7790   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9,
7791   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
7792   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9,
7793   3.714654392673708*^9, 3.7146551492705727`*^9,
7794   3.714655838514673*^9},ExpressionUUID->"9e0200c5-c98c-4ef0-aab4-\
779524d19241d06f"],
7796
7797Cell[BoxData[
7798 RowBox[{"-",
7799  FractionBox[
7800   RowBox[{"\[ImaginaryI]", " ", "e", " ",
7801    RowBox[{"(",
7802     RowBox[{
7803      RowBox[{"-", "1"}], "+",
7804      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
7805    RowBox[{"(",
7806     RowBox[{
7807      RowBox[{"4", " ",
7808       SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
7809      RowBox[{
7810       SuperscriptBox[
7811        OverscriptBox["v", "^"], "2"], " ",
7812       RowBox[{"(",
7813        RowBox[{
7814         SubscriptBox["c", "HD"], "+",
7815         RowBox[{"8", " ",
7816          SubscriptBox["c", "HWB"], " ",
7817          SubscriptBox["c", "\[Theta]"], " ",
7818          SubscriptBox["s", "\[Theta]"]}], "-",
7819         RowBox[{"2", " ",
7820          SubscriptBox["cHl3",
7821           RowBox[{"1", ",", "1"}]]}], "-",
7822         RowBox[{"2", " ",
7823          SubscriptBox["cHl3",
7824           RowBox[{"2", ",", "2"}]]}], "+",
7825         RowBox[{"2", " ",
7826          SubscriptBox[
7827           SubscriptBox["c", "ll"],
7828           RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}]}], ")"}]}]}], ")"}],
7829     " ",
7830    RowBox[{"(",
7831     RowBox[{
7832      RowBox[{
7833       RowBox[{
7834        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
7835        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
7836       RowBox[{"(",
7837        RowBox[{
7838         RowBox[{
7839          SubscriptBox["W", "mu$2"], " ",
7840          SubscriptBox["Z", "mu$1"]}], "-",
7841         RowBox[{
7842          SubscriptBox["W", "mu$1"], " ",
7843          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
7844      RowBox[{
7845       RowBox[{
7846        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
7847        SubscriptBox["W", "mu$1"], "]"}], " ",
7848       RowBox[{"(",
7849        RowBox[{
7850         RowBox[{
7851          RowBox[{"-",
7852           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
7853          SubscriptBox["Z", "mu$1"]}], "+",
7854         RowBox[{
7855          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
7856          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
7857   RowBox[{"4", " ",
7858    SubscriptBox["c", "\[Theta]"], " ",
7859    SuperscriptBox["\[CapitalLambda]", "2"], " ",
7860    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
7861 CellChangeTimes->{
7862  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9,
7863   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9,
7864   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9,
7865   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9,
7866   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
7867   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9,
7868   3.714654392673708*^9, 3.7146551492705727`*^9,
7869   3.714655838854701*^9},ExpressionUUID->"e32c75a8-2193-4221-b968-\
78709bf99f6df866"],
7871
7872Cell[BoxData[
7873 RowBox[{"-",
7874  FractionBox[
7875   RowBox[{"\[ImaginaryI]", " ", "e", " ",
7876    RowBox[{"(",
7877     RowBox[{
7878      RowBox[{"-", "1"}], "+",
7879      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
7880    RowBox[{"(",
7881     RowBox[{"1", "+",
7882      FractionBox[
7883       RowBox[{
7884        SubscriptBox["c", "HD"], " ",
7885        SuperscriptBox[
7886         OverscriptBox["v", "^"], "2"]}],
7887       RowBox[{"4", " ",
7888        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
7889      FractionBox[
7890       RowBox[{"2", " ",
7891        SubscriptBox["c", "HWB"], " ",
7892        SubscriptBox["c", "\[Theta]"], " ",
7893        SubscriptBox["s", "\[Theta]"], " ",
7894        SuperscriptBox[
7895         OverscriptBox["v", "^"], "2"]}],
7896       SuperscriptBox["\[CapitalLambda]", "2"]], "-",
7897      FractionBox[
7898       RowBox[{
7899        SuperscriptBox[
7900         OverscriptBox["v", "^"], "2"], " ",
7901        SubscriptBox["cHl3",
7902         RowBox[{"1", ",", "1"}]]}],
7903       RowBox[{"2", " ",
7904        SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
7905      FractionBox[
7906       RowBox[{
7907        SuperscriptBox[
7908         OverscriptBox["v", "^"], "2"], " ",
7909        SubscriptBox["cHl3",
7910         RowBox[{"2", ",", "2"}]]}],
7911       RowBox[{"2", " ",
7912        SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
7913      FractionBox[
7914       RowBox[{
7915        SuperscriptBox[
7916         OverscriptBox["v", "^"], "2"], " ",
7917        SubscriptBox[
7918         SubscriptBox["c", "ll"],
7919         RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
7920       RowBox[{"2", " ",
7921        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
7922    RowBox[{"(",
7923     RowBox[{
7924      RowBox[{
7925       RowBox[{
7926        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
7927        SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
7928       RowBox[{"(",
7929        RowBox[{
7930         RowBox[{
7931          SubscriptBox["W", "mu$2"], " ",
7932          SubscriptBox["Z", "mu$1"]}], "-",
7933         RowBox[{
7934          SubscriptBox["W", "mu$1"], " ",
7935          SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
7936      RowBox[{
7937       RowBox[{
7938        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
7939        SubscriptBox["W", "mu$1"], "]"}], " ",
7940       RowBox[{"(",
7941        RowBox[{
7942         RowBox[{
7943          RowBox[{"-",
7944           SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
7945          SubscriptBox["Z", "mu$1"]}], "+",
7946         RowBox[{
7947          SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
7948          SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
7949   RowBox[{
7950    SubscriptBox["c", "\[Theta]"], " ",
7951    SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
7952 CellChangeTimes->{
7953  3.700893279666334*^9, 3.7071966956066923`*^9, 3.707733723497389*^9,
7954   3.7077338940130663`*^9, 3.707734286441903*^9, 3.707734385577182*^9,
7955   3.7111736975917177`*^9, 3.713966271969263*^9, {3.714474986321164*^9,
7956   3.7144750081662188`*^9}, 3.714475229510091*^9, {3.7146522881667643`*^9,
7957   3.714652314436377*^9}, {3.714652368593678*^9, 3.7146523798063517`*^9}, {
7958   3.714652413596797*^9, 3.714652465351494*^9}, 3.714652627092247*^9,
7959   3.714654392673708*^9, 3.7146551492705727`*^9,
7960   3.714655838992814*^9},ExpressionUUID->"ac3f4e83-7f94-48d3-8b62-\
7961cc8cc43ec24c"]
7962}, Open  ]],
7963
7964Cell[CellGroupData[{
7965
7966Cell[BoxData[
7967 RowBox[{
7968  RowBox[{"(*", " ", "\[Kappa]z", " ", "*)"}], "\[IndentingNewLine]",
7969  RowBox[{
7970   RowBox[{
7971    RowBox[{"zww", "/.",
7972     RowBox[{
7973      RowBox[{
7974       RowBox[{"del", "[",
7975        RowBox[{
7976         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|",
7977       RowBox[{"del", "[",
7978        RowBox[{
7979         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
7980      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
7981   RowBox[{
7982    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
7983   "\[IndentingNewLine]",
7984   RowBox[{
7985    RowBox[{"Simplify", "[",
7986     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
7987    RowBox[{"WCsimplify", "[",
7988     FractionBox["%",
7989      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
7990 CellChangeTimes->{{3.714652472649456*^9, 3.714652608904799*^9}, {
7991  3.7146543956773233`*^9, 3.714654397434864*^9}, {3.7146551775086193`*^9,
7992  3.714655183451696*^9}, {3.714655730911145*^9,
7993  3.714655732396365*^9}},ExpressionUUID->"d5e19631-70bc-484b-adaf-\
7994aec64f831484"],
7995
7996Cell[BoxData[
7997 FractionBox[
7998  RowBox[{"\[ImaginaryI]", " ", "e", " ",
7999   RowBox[{"(",
8000    RowBox[{
8001     RowBox[{
8002      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8003      RowBox[{"(",
8004       RowBox[{
8005        RowBox[{"-", "2"}], "-",
8006        RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
8007        RowBox[{"2", " ",
8008         RowBox[{"(",
8009          RowBox[{"1", "+", "dgw"}], ")"}], " ",
8010         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
8011     RowBox[{
8012      SubscriptBox["c", "HWB"], " ",
8013      SubscriptBox["c", "\[Theta]"], " ",
8014      SubscriptBox["s", "\[Theta]"], " ",
8015      SuperscriptBox[
8016       OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
8017   RowBox[{
8018    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8019    SubscriptBox["Z", "mu$1"], "]"}], " ",
8020   RowBox[{"(",
8021    RowBox[{
8022     RowBox[{
8023      SubscriptBox["W", "mu$2"], " ",
8024      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
8025     RowBox[{
8026      SubscriptBox["W", "mu$1"], " ",
8027      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
8028  RowBox[{"2", " ",
8029   SubscriptBox["c", "\[Theta]"], " ",
8030   SuperscriptBox["\[CapitalLambda]", "2"], " ",
8031   SubscriptBox["s", "\[Theta]"]}]]], "Output",
8032 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
8033   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9,
8034   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9,
8035   3.7146558391981688`*^9},ExpressionUUID->"a4280911-c4eb-4d68-bc92-\
8036e4eec1161287"],
8037
8038Cell[BoxData[
8039 FractionBox[
8040  RowBox[{"\[ImaginaryI]", " ", "e", " ",
8041   RowBox[{"(",
8042    RowBox[{
8043     RowBox[{"4", " ",
8044      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8045      RowBox[{"(",
8046       RowBox[{
8047        RowBox[{"-", "1"}], "+",
8048        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+",
8049     RowBox[{
8050      SuperscriptBox[
8051       OverscriptBox["v", "^"], "2"], " ",
8052      RowBox[{"(",
8053       RowBox[{
8054        RowBox[{
8055         SubscriptBox["c", "HD"], " ",
8056         RowBox[{"(",
8057          RowBox[{
8058           RowBox[{"-", "1"}], "+",
8059           SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+",
8060        RowBox[{"2", " ",
8061         RowBox[{"(",
8062          RowBox[{
8063           RowBox[{
8064            SubscriptBox["c", "HWB"], " ",
8065            SubscriptBox["c", "\[Theta]"], " ",
8066            RowBox[{"(",
8067             RowBox[{
8068              RowBox[{
8069               RowBox[{"-", "2"}], " ",
8070               SubscriptBox["s", "\[Theta]"]}], "+",
8071              RowBox[{"4", " ",
8072               SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}]}], "-",
8073           RowBox[{
8074            RowBox[{"(",
8075             RowBox[{
8076              RowBox[{"-", "1"}], "+",
8077              SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8078            RowBox[{"(",
8079             RowBox[{
8080              SubscriptBox["cHl3",
8081               RowBox[{"1", ",", "1"}]], "+",
8082              SubscriptBox["cHl3",
8083               RowBox[{"2", ",", "2"}]], "-",
8084              SubscriptBox[
8085               SubscriptBox["c", "ll"],
8086               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
8087          ")"}]}]}], ")"}]}]}], ")"}], " ",
8088   RowBox[{
8089    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8090    SubscriptBox["Z", "mu$1"], "]"}], " ",
8091   RowBox[{"(",
8092    RowBox[{
8093     RowBox[{
8094      SubscriptBox["W", "mu$2"], " ",
8095      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
8096     RowBox[{
8097      SubscriptBox["W", "mu$1"], " ",
8098      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
8099  RowBox[{"4", " ",
8100   SubscriptBox["c", "\[Theta]"], " ",
8101   SuperscriptBox["\[CapitalLambda]", "2"], " ",
8102   SubscriptBox["s", "\[Theta]"]}]]], "Output",
8103 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
8104   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9,
8105   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9,
8106   3.714655839493932*^9},ExpressionUUID->"eab90755-70f9-4d39-aa1b-\
8107fa4365817ca1"],
8108
8109Cell[BoxData[
8110 FractionBox[
8111  RowBox[{"\[ImaginaryI]", " ", "e", " ",
8112   RowBox[{"(",
8113    RowBox[{
8114     RowBox[{"-", "1"}], "+",
8115     SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8116   RowBox[{"(",
8117    RowBox[{"1", "+",
8118     FractionBox[
8119      RowBox[{
8120       SubscriptBox["c", "HD"], " ",
8121       SuperscriptBox[
8122        OverscriptBox["v", "^"], "2"]}],
8123      RowBox[{"4", " ",
8124       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
8125     FractionBox[
8126      RowBox[{
8127       SubscriptBox["c", "HWB"], " ",
8128       SubscriptBox["c", "\[Theta]"], " ",
8129       SubscriptBox["s", "\[Theta]"], " ",
8130       RowBox[{"(",
8131        RowBox[{
8132         RowBox[{"-", "1"}], "+",
8133         RowBox[{"2", " ",
8134          SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
8135       SuperscriptBox[
8136        OverscriptBox["v", "^"], "2"]}],
8137      RowBox[{
8138       SuperscriptBox["\[CapitalLambda]", "2"], " ",
8139       RowBox[{"(",
8140        RowBox[{
8141         RowBox[{"-", "1"}], "+",
8142         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}]], "-",
8143     FractionBox[
8144      RowBox[{
8145       SuperscriptBox[
8146        OverscriptBox["v", "^"], "2"], " ",
8147       SubscriptBox["cHl3",
8148        RowBox[{"1", ",", "1"}]]}],
8149      RowBox[{"2", " ",
8150       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
8151     FractionBox[
8152      RowBox[{
8153       SuperscriptBox[
8154        OverscriptBox["v", "^"], "2"], " ",
8155       SubscriptBox["cHl3",
8156        RowBox[{"2", ",", "2"}]]}],
8157      RowBox[{"2", " ",
8158       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
8159     FractionBox[
8160      RowBox[{
8161       SuperscriptBox[
8162        OverscriptBox["v", "^"], "2"], " ",
8163       SubscriptBox[
8164        SubscriptBox["c", "ll"],
8165        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
8166      RowBox[{"2", " ",
8167       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
8168   RowBox[{
8169    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8170    SubscriptBox["Z", "mu$1"], "]"}], " ",
8171   RowBox[{"(",
8172    RowBox[{
8173     RowBox[{
8174      SubscriptBox["W", "mu$2"], " ",
8175      SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
8176     RowBox[{
8177      SubscriptBox["W", "mu$1"], " ",
8178      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
8179  RowBox[{
8180   SubscriptBox["c", "\[Theta]"], " ",
8181   SubscriptBox["s", "\[Theta]"]}]]], "Output",
8182 CellChangeTimes->{{3.7146524762328167`*^9, 3.7146525136762342`*^9}, {
8183   3.714652549082369*^9, 3.714652563355587*^9}, {3.714652594505663*^9,
8184   3.714652609565043*^9}, 3.714654398253759*^9, 3.7146551848936567`*^9,
8185   3.714655839631296*^9},ExpressionUUID->"fcd0c235-b9a7-4315-bea0-\
8186c54df04861ff"]
8187}, Open  ]],
8188
8189Cell[BoxData[""], "Input",
8190 CellChangeTimes->{3.714652368810739*^9,
8191  3.7146524695105267`*^9},ExpressionUUID->"5032158e-c686-4b06-b08a-\
8192894cfc40cd19"],
8193
8194Cell[BoxData[
8195 RowBox[{
8196  RowBox[{"aww", "=",
8197   RowBox[{"GetInteractionTerms", "[",
8198    RowBox[{"L1", ",",
8199     RowBox[{"SelectParticles", "\[Rule]",
8200      RowBox[{"{",
8201       RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}],
8202  ";"}]], "Input",
8203 CellChangeTimes->{{3.697355190045856*^9, 3.697355204589117*^9}, {
8204  3.697369511884927*^9,
8205  3.697369515354232*^9}},ExpressionUUID->"fb933098-b0f6-49b1-a537-\
82061388f6e90427"],
8207
8208Cell[CellGroupData[{
8209
8210Cell[BoxData[
8211 RowBox[{
8212  RowBox[{"(*", "g1\[Gamma]", "*)"}], "\[IndentingNewLine]",
8213  RowBox[{
8214   RowBox[{
8215    RowBox[{"aww", "/.",
8216     RowBox[{
8217      RowBox[{"del", "[",
8218       RowBox[{
8219        RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
8220     "Simplify"}], "\[IndentingNewLine]",
8221   RowBox[{
8222    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
8223   "\[IndentingNewLine]",
8224   RowBox[{
8225    RowBox[{"Simplify", "[",
8226     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
8227    RowBox[{"WCsimplify", "[",
8228     FractionBox["%",
8229      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
8230 CellChangeTimes->{{3.697354674749395*^9, 3.6973547040678988`*^9}, {
8231   3.697354788393664*^9, 3.697354888284493*^9}, {3.697354959353713*^9,
8232   3.697354964732182*^9}, {3.697355088279593*^9, 3.697355129066331*^9}, {
8233   3.69735516302254*^9, 3.697355168084354*^9}, {3.697355208346438*^9,
8234   3.697355217629507*^9}, {3.6973552529570923`*^9, 3.69735534156024*^9}, {
8235   3.697355373005555*^9, 3.697355527757762*^9}, {3.697366167616441*^9,
8236   3.697366173885779*^9}, {3.697366474184607*^9, 3.697366480945156*^9}, {
8237   3.697366570896222*^9, 3.697366573045783*^9}, {3.697369517344802*^9,
8238   3.697369545423195*^9}, {3.6973696026572323`*^9, 3.697369618340808*^9},
8239   3.6974392939947577`*^9, {3.697779796502404*^9, 3.6977798017864113`*^9}, {
8240   3.700813620506486*^9, 3.700813621426474*^9}, {3.714652643567873*^9,
8241   3.714652669421071*^9}, {3.714654403671623*^9, 3.714654416461287*^9}, {
8242   3.714655202079158*^9, 3.714655208219514*^9}, {3.7146557359855347`*^9,
8243   3.714655741373683*^9}},ExpressionUUID->"5b756f62-ea6a-4ff8-aee1-\
824416f2b262a5f8"],
8245
8246Cell[BoxData[
8247 FractionBox[
8248  RowBox[{"\[ImaginaryI]", " ", "e", " ",
8249   RowBox[{"(",
8250    RowBox[{
8251     RowBox[{"dsth2", " ",
8252      SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
8253     RowBox[{
8254      SubscriptBox["s", "\[Theta]"], " ",
8255      RowBox[{"(",
8256       RowBox[{
8257        RowBox[{"2", " ",
8258         RowBox[{"(",
8259          RowBox[{"1", "+", "dgw"}], ")"}], " ",
8260         SuperscriptBox["\[CapitalLambda]", "2"], " ",
8261         SubscriptBox["s", "\[Theta]"]}], "-",
8262        RowBox[{
8263         SubscriptBox["c", "HWB"], " ",
8264         SubscriptBox["c", "\[Theta]"], " ",
8265         SuperscriptBox[
8266          OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
8267   SubscriptBox["A", "mu$1"], " ",
8268   RowBox[{"(",
8269    RowBox[{
8270     RowBox[{
8271      RowBox[{
8272       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8273       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
8274      SubscriptBox["W", "mu$2"]}], "-",
8275     RowBox[{
8276      RowBox[{
8277       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8278       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
8279      SubscriptBox["W", "mu$2"]}], "+",
8280     RowBox[{
8281      RowBox[{"(",
8282       RowBox[{
8283        RowBox[{"-",
8284         RowBox[{
8285          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8286          SubscriptBox["W", "mu$1"], "]"}]}], "+",
8287        RowBox[{
8288         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8289         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
8290      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
8291  RowBox[{"2", " ",
8292   SuperscriptBox["\[CapitalLambda]", "2"], " ",
8293   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
8294 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
8295   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9,
8296   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9},
8297   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
8298   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9,
8299   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
8300   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9,
8301   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9},
8302   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9,
8303   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9},
8304   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9},
8305   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9},
8306   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9,
8307   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9,
8308   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9,
8309   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9,
8310   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
8311   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9,
8312   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9,
8313   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9,
8314   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
8315   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9,
8316   3.714655208705667*^9},
8317   3.714655846618425*^9},ExpressionUUID->"e0c97172-94c2-4955-8e05-\
8318df95431809c7"],
8319
8320Cell[BoxData[
8321 RowBox[{
8322  FractionBox["1",
8323   RowBox[{"4", " ",
8324    SuperscriptBox["\[CapitalLambda]", "2"], " ",
8325    SubsuperscriptBox["s", "\[Theta]", "2"]}]],
8326  RowBox[{"\[ImaginaryI]", " ", "e", " ",
8327   SubscriptBox["A", "mu$1"], " ",
8328   RowBox[{"(",
8329    RowBox[{
8330     RowBox[{"4", " ",
8331      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8332      SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
8333     RowBox[{
8334      SuperscriptBox[
8335       OverscriptBox["v", "^"], "2"], " ",
8336      RowBox[{"(",
8337       RowBox[{
8338        RowBox[{"-",
8339         SubscriptBox["c", "HD"]}], "-",
8340        RowBox[{"8", " ",
8341         SubscriptBox["c", "HWB"], " ",
8342         SubscriptBox["c", "\[Theta]"], " ",
8343         SubscriptBox["s", "\[Theta]"]}], "+",
8344        RowBox[{"8", " ",
8345         SubscriptBox["c", "HWB"], " ",
8346         SubscriptBox["c", "\[Theta]"], " ",
8347         SubsuperscriptBox["s", "\[Theta]", "3"]}], "+",
8348        RowBox[{
8349         SubsuperscriptBox["s", "\[Theta]", "2"], " ",
8350         RowBox[{"(",
8351          RowBox[{
8352           SubscriptBox["c", "HD"], "-",
8353           RowBox[{"2", " ",
8354            RowBox[{"(",
8355             RowBox[{
8356              SubscriptBox["cHl3",
8357               RowBox[{"1", ",", "1"}]], "+",
8358              SubscriptBox["cHl3",
8359               RowBox[{"2", ",", "2"}]], "-",
8360              SubscriptBox[
8361               SubscriptBox["c", "ll"],
8362               RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
8363          ")"}]}]}], ")"}]}]}], ")"}], " ",
8364   RowBox[{"(",
8365    RowBox[{
8366     RowBox[{
8367      RowBox[{
8368       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8369       SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
8370      SubscriptBox["W", "mu$2"]}], "-",
8371     RowBox[{
8372      RowBox[{
8373       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8374       SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
8375      SubscriptBox["W", "mu$2"]}], "+",
8376     RowBox[{
8377      RowBox[{"(",
8378       RowBox[{
8379        RowBox[{"-",
8380         RowBox[{
8381          SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8382          SubscriptBox["W", "mu$1"], "]"}]}], "+",
8383        RowBox[{
8384         SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8385         SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
8386      SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]}]], "Output",
8387 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
8388   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9,
8389   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9},
8390   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
8391   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9,
8392   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
8393   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9,
8394   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9},
8395   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9,
8396   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9},
8397   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9},
8398   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9},
8399   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9,
8400   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9,
8401   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9,
8402   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9,
8403   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
8404   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9,
8405   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9,
8406   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9,
8407   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
8408   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9,
8409   3.714655208705667*^9},
8410   3.714655846909459*^9},ExpressionUUID->"8019b515-9398-4428-8168-\
84119a58c49bd0fa"],
8412
8413Cell[BoxData[
8414 RowBox[{"\[ImaginaryI]", " ", "e", " ",
8415  SubscriptBox["A", "mu$1"], " ",
8416  RowBox[{"(",
8417   RowBox[{"1", "+",
8418    FractionBox[
8419     RowBox[{
8420      SubscriptBox["c", "HD"], " ",
8421      RowBox[{"(",
8422       RowBox[{
8423        RowBox[{"-", "1"}], "+",
8424        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8425      SuperscriptBox[
8426       OverscriptBox["v", "^"], "2"]}],
8427     RowBox[{"4", " ",
8428      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8429      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
8430    FractionBox[
8431     RowBox[{"2", " ",
8432      SubscriptBox["c", "HWB"], " ",
8433      SubscriptBox["c", "\[Theta]"], " ",
8434      RowBox[{"(",
8435       RowBox[{
8436        RowBox[{"-", "1"}], "+",
8437        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8438      SuperscriptBox[
8439       OverscriptBox["v", "^"], "2"]}],
8440     RowBox[{
8441      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8442      SubscriptBox["s", "\[Theta]"]}]], "-",
8443    FractionBox[
8444     RowBox[{
8445      SuperscriptBox[
8446       OverscriptBox["v", "^"], "2"], " ",
8447      SubscriptBox["cHl3",
8448       RowBox[{"1", ",", "1"}]]}],
8449     RowBox[{"2", " ",
8450      SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
8451    FractionBox[
8452     RowBox[{
8453      SuperscriptBox[
8454       OverscriptBox["v", "^"], "2"], " ",
8455      SubscriptBox["cHl3",
8456       RowBox[{"2", ",", "2"}]]}],
8457     RowBox[{"2", " ",
8458      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
8459    FractionBox[
8460     RowBox[{
8461      SuperscriptBox[
8462       OverscriptBox["v", "^"], "2"], " ",
8463      SubscriptBox[
8464       SubscriptBox["c", "ll"],
8465       RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
8466     RowBox[{"2", " ",
8467      SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
8468  RowBox[{"(",
8469   RowBox[{
8470    RowBox[{
8471     RowBox[{
8472      SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8473      SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
8474     SubscriptBox["W", "mu$2"]}], "-",
8475    RowBox[{
8476     RowBox[{
8477      SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8478      SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
8479     SubscriptBox["W", "mu$2"]}], "+",
8480    RowBox[{
8481     RowBox[{"(",
8482      RowBox[{
8483       RowBox[{"-",
8484        RowBox[{
8485         SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8486         SubscriptBox["W", "mu$1"], "]"}]}], "+",
8487       RowBox[{
8488        SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8489        SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
8490     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
8491 CellChangeTimes->{{3.69735477355079*^9, 3.69735483777607*^9}, {
8492   3.6973548749018717`*^9, 3.697354912003601*^9}, {3.697354951823205*^9,
8493   3.697354976653989*^9}, {3.697355040336031*^9, 3.69735506271215*^9},
8494   3.6973550991893473`*^9, 3.6973551353504972`*^9, 3.697355173570112*^9, {
8495   3.697355212856141*^9, 3.697355217896731*^9}, {3.6973552655731707`*^9,
8496   3.697355335565867*^9}, {3.6973553753832903`*^9, 3.697355528685162*^9}, {
8497   3.6973618809639997`*^9, 3.6973618884523478`*^9}, 3.69736254544621*^9,
8498   3.697366175220421*^9, {3.697366477031822*^9, 3.6973664872469378`*^9},
8499   3.697366573839696*^9, 3.697367425291477*^9, {3.697369540208457*^9,
8500   3.6973695457160273`*^9}, {3.697369608320189*^9, 3.697369618895755*^9},
8501   3.697371350774935*^9, {3.697435587855359*^9, 3.6974355951215067`*^9},
8502   3.697437120380061*^9, {3.697439279398834*^9, 3.6974392944268293`*^9},
8503   3.69743999827137*^9, 3.6974409502283916`*^9, 3.6974454917219887`*^9,
8504   3.697448077977255*^9, 3.697449197095973*^9, 3.6974492998733587`*^9,
8505   3.697449349239826*^9, 3.697449993336981*^9, 3.6974500481121063`*^9,
8506   3.6974501386861067`*^9, 3.697450841892688*^9, 3.697451046672083*^9,
8507   3.697462126771233*^9, 3.697538077327023*^9, 3.6975385314050303`*^9, {
8508   3.6977797927289677`*^9, 3.6977798026372766`*^9}, {3.7008136163606367`*^9,
8509   3.700813622538437*^9}, 3.7008932950681887`*^9, 3.707196709860269*^9,
8510   3.707734406116391*^9, 3.711173707660508*^9, 3.7139662839070787`*^9,
8511   3.714475236456897*^9, {3.714652644431587*^9, 3.714652670158429*^9}, {
8512   3.7146544056319647`*^9, 3.714654417046577*^9}, {3.714655205785631*^9,
8513   3.714655208705667*^9},
8514   3.714655847017538*^9},ExpressionUUID->"ee5783c0-e4f3-4f88-b11d-\
851585db2776f5eb"]
8516}, Open  ]],
8517
8518Cell[CellGroupData[{
8519
8520Cell[BoxData[
8521 RowBox[{
8522  RowBox[{"(*", "\[Kappa]\[Gamma]", "*)"}], "\[IndentingNewLine]",
8523  RowBox[{
8524   RowBox[{
8525    RowBox[{"aww", "/.",
8526     RowBox[{
8527      RowBox[{
8528       RowBox[{"del", "[",
8529        RowBox[{
8530         RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "|",
8531       RowBox[{"del", "[",
8532        RowBox[{
8533         RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
8534      "0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
8535   RowBox[{
8536    RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
8537   "\[IndentingNewLine]",
8538   RowBox[{
8539    RowBox[{"Simplify", "[",
8540     RowBox[{"SMlimit", "[", "%", "]"}], "]"}], "  ",
8541    RowBox[{"WCsimplify", "[",
8542     FractionBox["%",
8543      RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
8544 CellChangeTimes->{{3.714652676781377*^9, 3.71465270986456*^9}, {
8545  3.714654407380022*^9, 3.714654408872603*^9}, {3.7146552117486067`*^9,
8546  3.714655212645193*^9}, {3.714655743538422*^9,
8547  3.7146557449565773`*^9}},ExpressionUUID->"822cdbd1-c65d-4cb7-a9f9-\
8548c10a464b6158"],
8549
8550Cell[BoxData[
8551 RowBox[{"-",
8552  FractionBox[
8553   RowBox[{"\[ImaginaryI]", " ", "e", " ",
8554    RowBox[{"(",
8555     RowBox[{
8556      RowBox[{"dsth2", " ",
8557       SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
8558      RowBox[{
8559       SubscriptBox["s", "\[Theta]"], " ",
8560       RowBox[{"(",
8561        RowBox[{
8562         RowBox[{"2", " ",
8563          RowBox[{"(",
8564           RowBox[{"1", "+", "dgw"}], ")"}], " ",
8565          SuperscriptBox["\[CapitalLambda]", "2"], " ",
8566          SubscriptBox["s", "\[Theta]"]}], "+",
8567         RowBox[{
8568          SubscriptBox["c", "HWB"], " ",
8569          SubscriptBox["c", "\[Theta]"], " ",
8570          SuperscriptBox[
8571           OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
8572    RowBox[{
8573     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8574     SubscriptBox["A", "mu$1"], "]"}], " ",
8575    RowBox[{"(",
8576     RowBox[{
8577      RowBox[{
8578       SubscriptBox["W", "mu$2"], " ",
8579       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
8580      RowBox[{
8581       SubscriptBox["W", "mu$1"], " ",
8582       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
8583   RowBox[{"2", " ",
8584    SuperscriptBox["\[CapitalLambda]", "2"], " ",
8585    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
8586 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9},
8587   3.714654409637148*^9, 3.7146552134605207`*^9,
8588   3.714655849856295*^9},ExpressionUUID->"a27f8ca2-f5ac-4549-9565-\
85897eb84c25c5af"],
8590
8591Cell[BoxData[
8592 RowBox[{"-",
8593  FractionBox[
8594   RowBox[{"\[ImaginaryI]", " ", "e", " ",
8595    RowBox[{"(",
8596     RowBox[{
8597      RowBox[{"4", " ",
8598       SuperscriptBox["\[CapitalLambda]", "2"], " ",
8599       SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
8600      RowBox[{
8601       SuperscriptBox[
8602        OverscriptBox["v", "^"], "2"], " ",
8603       RowBox[{"(",
8604        RowBox[{
8605         RowBox[{"-",
8606          SubscriptBox["c", "HD"]}], "-",
8607         RowBox[{"4", " ",
8608          SubscriptBox["c", "HWB"], " ",
8609          SubscriptBox["c", "\[Theta]"], " ",
8610          SubscriptBox["s", "\[Theta]"]}], "+",
8611         RowBox[{"8", " ",
8612          SubscriptBox["c", "HWB"], " ",
8613          SubscriptBox["c", "\[Theta]"], " ",
8614          SubsuperscriptBox["s", "\[Theta]", "3"]}], "+",
8615         RowBox[{
8616          SubsuperscriptBox["s", "\[Theta]", "2"], " ",
8617          RowBox[{"(",
8618           RowBox[{
8619            SubscriptBox["c", "HD"], "-",
8620            RowBox[{"2", " ",
8621             RowBox[{"(",
8622              RowBox[{
8623               SubscriptBox["cHl3",
8624                RowBox[{"1", ",", "1"}]], "+",
8625               SubscriptBox["cHl3",
8626                RowBox[{"2", ",", "2"}]], "-",
8627               SubscriptBox[
8628                SubscriptBox["c", "ll"],
8629                RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
8630           ")"}]}]}], ")"}]}]}], ")"}], " ",
8631    RowBox[{
8632     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8633     SubscriptBox["A", "mu$1"], "]"}], " ",
8634    RowBox[{"(",
8635     RowBox[{
8636      RowBox[{
8637       SubscriptBox["W", "mu$2"], " ",
8638       SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
8639      RowBox[{
8640       SubscriptBox["W", "mu$1"], " ",
8641       SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
8642   RowBox[{"4", " ",
8643    SuperscriptBox["\[CapitalLambda]", "2"], " ",
8644    SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
8645 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9},
8646   3.714654409637148*^9, 3.7146552134605207`*^9,
8647   3.7146558500384407`*^9},ExpressionUUID->"8046183b-0929-4782-8d1e-\
8648004160c839e6"],
8649
8650Cell[BoxData[
8651 RowBox[{
8652  RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
8653  RowBox[{"(",
8654   RowBox[{"1", "+",
8655    FractionBox[
8656     RowBox[{
8657      SubscriptBox["c", "HD"], " ",
8658      RowBox[{"(",
8659       RowBox[{
8660        RowBox[{"-", "1"}], "+",
8661        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8662      SuperscriptBox[
8663       OverscriptBox["v", "^"], "2"]}],
8664     RowBox[{"4", " ",
8665      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8666      SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
8667    FractionBox[
8668     RowBox[{
8669      SubscriptBox["c", "HWB"], " ",
8670      SubscriptBox["c", "\[Theta]"], " ",
8671      RowBox[{"(",
8672       RowBox[{
8673        RowBox[{"-", "1"}], "+",
8674        RowBox[{"2", " ",
8675         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
8676      SuperscriptBox[
8677       OverscriptBox["v", "^"], "2"]}],
8678     RowBox[{
8679      SuperscriptBox["\[CapitalLambda]", "2"], " ",
8680      SubscriptBox["s", "\[Theta]"]}]], "-",
8681    FractionBox[
8682     RowBox[{
8683      SuperscriptBox[
8684       OverscriptBox["v", "^"], "2"], " ",
8685      SubscriptBox["cHl3",
8686       RowBox[{"1", ",", "1"}]]}],
8687     RowBox[{"2", " ",
8688      SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
8689    FractionBox[
8690     RowBox[{
8691      SuperscriptBox[
8692       OverscriptBox["v", "^"], "2"], " ",
8693      SubscriptBox["cHl3",
8694       RowBox[{"2", ",", "2"}]]}],
8695     RowBox[{"2", " ",
8696      SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
8697    FractionBox[
8698     RowBox[{
8699      SuperscriptBox[
8700       OverscriptBox["v", "^"], "2"], " ",
8701      SubscriptBox[
8702       SubscriptBox["c", "ll"],
8703       RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
8704     RowBox[{"2", " ",
8705      SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
8706  RowBox[{
8707   SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8708   SubscriptBox["A", "mu$1"], "]"}], " ",
8709  RowBox[{"(",
8710   RowBox[{
8711    RowBox[{
8712     SubscriptBox["W", "mu$2"], " ",
8713     SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
8714    RowBox[{
8715     SubscriptBox["W", "mu$1"], " ",
8716     SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
8717 CellChangeTimes->{{3.714652686916037*^9, 3.714652710522811*^9},
8718   3.714654409637148*^9, 3.7146552134605207`*^9,
8719   3.7146558501109123`*^9},ExpressionUUID->"f325bee0-7907-47fb-b763-\
87200232782bd0ef"]
8721}, Open  ]]
8722}, Closed]],
8723
8724Cell[CellGroupData[{
8725
8726Cell["Example : h Z Z coupling (CP even)", "Subsection",
8727 CellChangeTimes->{{3.714653069350562*^9, 3.714653080585577*^9}, {
8728  3.71465313260557*^9,
8729  3.714653135145647*^9}},ExpressionUUID->"dccca1b7-c070-4426-bd77-\
8730fdccf9f25336"],
8731
8732Cell[CellGroupData[{
8733
8734Cell[BoxData[
8735 RowBox[{"hzz", "=",
8736  RowBox[{
8737   RowBox[{"GetInteractionTerms", "[",
8738    RowBox[{
8739     RowBox[{
8740      RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.",
8741      RowBox[{
8742       RowBox[{"cHWtil", "|", "cHBtil", "|", "cHWBtil"}], "\[Rule]", "0"}]}],
8743     ",",
8744     RowBox[{"SelectParticles", "\[Rule]",
8745      RowBox[{"{",
8746       RowBox[{"{",
8747        RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//",
8748   "Simplify"}]}]], "Input",
8749 CellChangeTimes->{{3.697540540429167*^9, 3.697540577497007*^9}, {
8750  3.697542681098937*^9, 3.6975427025673847`*^9}, {3.697781972728959*^9,
8751  3.697781973755425*^9}, {3.714653122093409*^9,
8752  3.714653151135909*^9}},ExpressionUUID->"0f2372c7-e8a2-4577-9a08-\
8753d0add110c8a5"],
8754
8755Cell[BoxData[
8756 RowBox[{
8757  FractionBox["1",
8758   RowBox[{"16", " ",
8759    SubsuperscriptBox["c", "\[Theta]", "2"], " ",
8760    SuperscriptBox["\[CapitalLambda]", "2"], " ",
8761    SubsuperscriptBox["s", "\[Theta]", "2"]}]],
8762  RowBox[{"H", " ",
8763   OverscriptBox["v", "^"], " ",
8764   RowBox[{"(",
8765    RowBox[{
8766     RowBox[{
8767      RowBox[{"-", "32"}], " ",
8768      SubsuperscriptBox["s", "\[Theta]", "2"], " ",
8769      RowBox[{"(",
8770       RowBox[{
8771        RowBox[{"-", "1"}], "+",
8772        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8773      RowBox[{"(",
8774       RowBox[{
8775        SubscriptBox["c", "HW"], "+",
8776        RowBox[{
8777         SubscriptBox["c", "HWB"], " ",
8778         SubscriptBox["c", "\[Theta]"], " ",
8779         SubscriptBox["s", "\[Theta]"]}], "+",
8780        RowBox[{
8781         RowBox[{"(",
8782          RowBox[{
8783           SubscriptBox["c", "HB"], "-",
8784           SubscriptBox["c", "HW"]}], ")"}], " ",
8785         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
8786      SuperscriptBox[
8787       RowBox[{
8788        SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8789        SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
8790     RowBox[{"32", " ",
8791      SubsuperscriptBox["s", "\[Theta]", "2"], " ",
8792      RowBox[{"(",
8793       RowBox[{
8794        RowBox[{"-", "1"}], "+",
8795        SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8796      RowBox[{"(",
8797       RowBox[{
8798        SubscriptBox["c", "HW"], "+",
8799        RowBox[{
8800         SubscriptBox["c", "HWB"], " ",
8801         SubscriptBox["c", "\[Theta]"], " ",
8802         SubscriptBox["s", "\[Theta]"]}], "+",
8803        RowBox[{
8804         RowBox[{"(",
8805          RowBox[{
8806           SubscriptBox["c", "HB"], "-",
8807           SubscriptBox["c", "HW"]}], ")"}], " ",
8808         SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
8809      RowBox[{
8810       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8811       SubscriptBox["Z", "mu$1"], "]"}], " ",
8812      RowBox[{
8813       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8814       SubscriptBox["Z", "mu$2"], "]"}]}], "+",
8815     RowBox[{
8816      SuperscriptBox["e", "2"], " ",
8817      RowBox[{"(",
8818       RowBox[{
8819        RowBox[{"2", " ",
8820         SuperscriptBox["\[CapitalLambda]", "2"], " ",
8821         RowBox[{"(",
8822          RowBox[{"2", "+",
8823           RowBox[{
8824            SqrtBox["2"], " ", "dGf"}], "+",
8825           RowBox[{"4", " ", "dgw"}], "+",
8826           RowBox[{"4", " ",
8827            RowBox[{"(",
8828             RowBox[{"dg1", "-", "dgw"}], ")"}], " ",
8829            SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
8830        RowBox[{
8831         RowBox[{"(",
8832          RowBox[{
8833           RowBox[{"4", " ",
8834            SubscriptBox["c",
8835             RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
8836           RowBox[{"3", " ",
8837            SubscriptBox["c", "HD"]}], "+",
8838           RowBox[{"8", " ",
8839            SubscriptBox["c", "HWB"], " ",
8840            SubscriptBox["c", "\[Theta]"], " ",
8841            SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
8842         SuperscriptBox[
8843          OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
8844      SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}]}]], "Output",
8845 CellChangeTimes->{3.714653202225688*^9, 3.714654519287326*^9,
8846  3.714655351621037*^9,
8847  3.7146560182283907`*^9},ExpressionUUID->"5542b313-12f4-4cbf-9c24-\
8848ffdedbb4b84d"]
8849}, Open  ]],
8850
8851Cell[CellGroupData[{
8852
8853Cell[BoxData[
8854 RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
8855 CellChangeTimes->{{3.714653438713478*^9,
8856  3.7146534431183643`*^9}},ExpressionUUID->"0e3c2ec2-99d8-4980-bdd7-\
88573c555ccea1f1"],
8858
8859Cell[BoxData[
8860 FractionBox[
8861  RowBox[{
8862   SuperscriptBox["e", "2"], " ", "H", " ",
8863   OverscriptBox["v", "^"], " ",
8864   SubsuperscriptBox["Z", "mu$1", "2"]}],
8865  RowBox[{"4", " ",
8866   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
8867   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
8868 CellChangeTimes->{3.71465344371563*^9, 3.714654519369021*^9,
8869  3.71465535176595*^9,
8870  3.714656018387211*^9},ExpressionUUID->"aea69444-7d21-447f-b2fc-\
8871babd5a52309b"]
8872}, Open  ]],
8873
8874Cell[CellGroupData[{
8875
8876Cell[BoxData[
8877 RowBox[{"Collect", "[",
8878  RowBox[{"hzz", ",", " ",
8879   RowBox[{"{",
8880    RowBox[{
8881     SuperscriptBox[
8882      RowBox[{"Z", "[", "_", "]"}], "2"], ",",
8883     RowBox[{"del", "[",
8884      RowBox[{
8885       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",",
8886   "WCsimplify"}], "]"}]], "Input",
8887 CellChangeTimes->{{3.6975405853373423`*^9, 3.697540591707506*^9}, {
8888  3.697541657728915*^9, 3.697541658783434*^9}, {3.697780136114642*^9,
8889  3.697780142223364*^9}, {3.7146531763975058`*^9, 3.714653240146103*^9}, {
8890  3.714653274464172*^9, 3.7146533884198837`*^9}, {3.714653429727*^9,
8891  3.7146534351677427`*^9}},ExpressionUUID->"19ac2af8-e620-424a-a0da-\
8892662bb26beadf"],
8893
8894Cell[BoxData[
8895 RowBox[{
8896  RowBox[{
8897   RowBox[{"(",
8898    RowBox[{
8899     RowBox[{"-",
8900      FractionBox[
8901       RowBox[{"2", " ",
8902        SubscriptBox["c", "HWB"], " ", "H", " ",
8903        SubscriptBox["s", "\[Theta]"], " ",
8904        RowBox[{"(",
8905         RowBox[{
8906          RowBox[{"-", "1"}], "+",
8907          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8908        OverscriptBox["v", "^"]}],
8909       RowBox[{
8910        SubscriptBox["c", "\[Theta]"], " ",
8911        SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-",
8912     FractionBox[
8913      RowBox[{"2", " ",
8914       SubscriptBox["c", "HB"], " ", "H", " ",
8915       SubsuperscriptBox["s", "\[Theta]", "2"], " ",
8916       RowBox[{"(",
8917        RowBox[{
8918         RowBox[{"-", "1"}], "+",
8919         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8920       OverscriptBox["v", "^"]}],
8921      RowBox[{
8922       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
8923       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
8924     FractionBox[
8925      RowBox[{"2", " ",
8926       SubscriptBox["c", "HW"], " ", "H", " ",
8927       SuperscriptBox[
8928        RowBox[{"(",
8929         RowBox[{
8930          RowBox[{"-", "1"}], "+",
8931          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
8932       OverscriptBox["v", "^"]}],
8933      RowBox[{
8934       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
8935       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
8936   SuperscriptBox[
8937    RowBox[{
8938     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8939     SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
8940  RowBox[{
8941   RowBox[{"(",
8942    RowBox[{
8943     FractionBox[
8944      RowBox[{"2", " ",
8945       SubscriptBox["c", "HWB"], " ", "H", " ",
8946       SubscriptBox["s", "\[Theta]"], " ",
8947       RowBox[{"(",
8948        RowBox[{
8949         RowBox[{"-", "1"}], "+",
8950         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8951       OverscriptBox["v", "^"]}],
8952      RowBox[{
8953       SubscriptBox["c", "\[Theta]"], " ",
8954       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
8955     FractionBox[
8956      RowBox[{"2", " ",
8957       SubscriptBox["c", "HB"], " ", "H", " ",
8958       SubsuperscriptBox["s", "\[Theta]", "2"], " ",
8959       RowBox[{"(",
8960        RowBox[{
8961         RowBox[{"-", "1"}], "+",
8962         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
8963       OverscriptBox["v", "^"]}],
8964      RowBox[{
8965       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
8966       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
8967     FractionBox[
8968      RowBox[{"2", " ",
8969       SubscriptBox["c", "HW"], " ", "H", " ",
8970       SuperscriptBox[
8971        RowBox[{"(",
8972         RowBox[{
8973          RowBox[{"-", "1"}], "+",
8974          SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
8975       OverscriptBox["v", "^"]}],
8976      RowBox[{
8977       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
8978       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
8979   RowBox[{
8980    SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
8981    SubscriptBox["Z", "mu$1"], "]"}], " ",
8982   RowBox[{
8983    SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
8984    SubscriptBox["Z", "mu$2"], "]"}]}], "+",
8985  RowBox[{
8986   RowBox[{"(",
8987    RowBox[{
8988     FractionBox[
8989      RowBox[{"dg1", " ",
8990       SuperscriptBox["e", "2"], " ", "H", " ",
8991       OverscriptBox["v", "^"]}],
8992      RowBox[{"2", " ",
8993       SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+",
8994     FractionBox[
8995      RowBox[{
8996       SuperscriptBox["e", "2"], " ", "H", " ",
8997       OverscriptBox["v", "^"]}],
8998      RowBox[{"4", " ",
8999       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9000       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
9001     FractionBox[
9002      RowBox[{"dGf", " ",
9003       SuperscriptBox["e", "2"], " ", "H", " ",
9004       OverscriptBox["v", "^"]}],
9005      RowBox[{"4", " ",
9006       SqrtBox["2"], " ",
9007       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9008       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-",
9009     FractionBox[
9010      RowBox[{"dgw", " ",
9011       SuperscriptBox["e", "2"], " ", "H", " ",
9012       RowBox[{"(",
9013        RowBox[{
9014         RowBox[{"-", "1"}], "+",
9015         SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
9016       OverscriptBox["v", "^"]}],
9017      RowBox[{"2", " ",
9018       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9019       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
9020     FractionBox[
9021      RowBox[{
9022       SubscriptBox["c",
9023        RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
9024       SuperscriptBox["e", "2"], " ", "H", " ",
9025       SuperscriptBox[
9026        OverscriptBox["v", "^"], "3"]}],
9027      RowBox[{"4", " ",
9028       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9029       SuperscriptBox["\[CapitalLambda]", "2"], " ",
9030       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
9031     FractionBox[
9032      RowBox[{"3", " ",
9033       SubscriptBox["c", "HD"], " ",
9034       SuperscriptBox["e", "2"], " ", "H", " ",
9035       SuperscriptBox[
9036        OverscriptBox["v", "^"], "3"]}],
9037      RowBox[{"16", " ",
9038       SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9039       SuperscriptBox["\[CapitalLambda]", "2"], " ",
9040       SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
9041     FractionBox[
9042      RowBox[{
9043       SubscriptBox["c", "HWB"], " ",
9044       SuperscriptBox["e", "2"], " ", "H", " ",
9045       SuperscriptBox[
9046        OverscriptBox["v", "^"], "3"]}],
9047      RowBox[{"2", " ",
9048       SubscriptBox["c", "\[Theta]"], " ",
9049       SuperscriptBox["\[CapitalLambda]", "2"], " ",
9050       SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
9051   SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
9052 CellChangeTimes->{
9053  3.700893354200268*^9, 3.712654290029169*^9, 3.71396688057451*^9, {
9054   3.714653206742526*^9, 3.71465324075095*^9}, {3.714653297211488*^9,
9055   3.7146533889881983`*^9}, {3.714653430663045*^9, 3.714653435702468*^9},
9056   3.7146545370910273`*^9, 3.714655352028936*^9,
9057   3.714656019165577*^9},ExpressionUUID->"41cbaec5-9feb-4ebf-9ad8-\
905878ec22e04261"]
9059}, Open  ]],
9060
9061Cell[BoxData[
9062 RowBox[{"Coefficient", " ", "for", " ",
9063  SubscriptBox["Z", "\[Mu]"],
9064  SuperscriptBox["Z", "\[Mu]"]}]], "Text",
9065 CellChangeTimes->{{3.714653489006771*^9,
9066  3.714653533124165*^9}},ExpressionUUID->"99536040-e5c7-49c7-9e61-\
906739c8b773d61f"],
9068
9069Cell[CellGroupData[{
9070
9071Cell[BoxData[{
9072 RowBox[{
9073  RowBox[{
9074   RowBox[{"hzz", "/.",
9075    RowBox[{
9076     RowBox[{"del", "[",
9077      RowBox[{
9078       RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
9079    "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
9080 RowBox[{
9081  RowBox[{"SMlimit", "[", "%", "]"}], " ",
9082  RowBox[{"WCsimplify", "[",
9083   FractionBox["%",
9084    RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
9085 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
9086  3.714654543437923*^9, 3.7146545447538853`*^9}, {3.714655306071694*^9,
9087  3.7146553071723137`*^9}, {3.714656021653838*^9,
9088  3.714656023475349*^9}},ExpressionUUID->"f150dc1a-55cc-41a6-a0fe-\
9089cb5a384e7722"],
9090
9091Cell[BoxData[
9092 FractionBox[
9093  RowBox[{
9094   SuperscriptBox["e", "2"], " ", "H", " ",
9095   OverscriptBox["v", "^"], " ",
9096   RowBox[{"(",
9097    RowBox[{
9098     RowBox[{"4", " ",
9099      SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
9100     RowBox[{
9101      SuperscriptBox[
9102       OverscriptBox["v", "^"], "2"], " ",
9103      RowBox[{"(",
9104       RowBox[{
9105        RowBox[{"4", " ",
9106         SubscriptBox["c",
9107          RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
9108        SubscriptBox["c", "HD"], "-",
9109        RowBox[{"2", " ",
9110         RowBox[{"(",
9111          RowBox[{
9112           SubscriptBox["cHl3",
9113            RowBox[{"1", ",", "1"}]], "+",
9114           SubscriptBox["cHl3",
9115            RowBox[{"2", ",", "2"}]], "-",
9116           SubscriptBox[
9117            SubscriptBox["c", "ll"],
9118            RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
9119       ")"}]}]}], ")"}], " ",
9120   SubsuperscriptBox["Z", "mu$1", "2"]}],
9121  RowBox[{"16", " ",
9122   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9123   SuperscriptBox["\[CapitalLambda]", "2"], " ",
9124   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
9125 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
9126   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9,
9127   3.714656034585371*^9},ExpressionUUID->"9ef38bb3-605f-46e9-b758-\
9128a4397eeff8a8"],
9129
9130Cell[BoxData[
9131 FractionBox[
9132  RowBox[{
9133   SuperscriptBox["e", "2"], " ", "H", " ",
9134   OverscriptBox["v", "^"], " ",
9135   RowBox[{"(",
9136    RowBox[{"1", "+",
9137     FractionBox[
9138      RowBox[{
9139       SubscriptBox["c",
9140        RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
9141       SuperscriptBox[
9142        OverscriptBox["v", "^"], "2"]}],
9143      SuperscriptBox["\[CapitalLambda]", "2"]], "+",
9144     FractionBox[
9145      RowBox[{
9146       SubscriptBox["c", "HD"], " ",
9147       SuperscriptBox[
9148        OverscriptBox["v", "^"], "2"]}],
9149      RowBox[{"4", " ",
9150       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
9151     FractionBox[
9152      RowBox[{
9153       SuperscriptBox[
9154        OverscriptBox["v", "^"], "2"], " ",
9155       SubscriptBox["cHl3",
9156        RowBox[{"1", ",", "1"}]]}],
9157      RowBox[{"2", " ",
9158       SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
9159     FractionBox[
9160      RowBox[{
9161       SuperscriptBox[
9162        OverscriptBox["v", "^"], "2"], " ",
9163       SubscriptBox["cHl3",
9164        RowBox[{"2", ",", "2"}]]}],
9165      RowBox[{"2", " ",
9166       SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
9167     FractionBox[
9168      RowBox[{
9169       SuperscriptBox[
9170        OverscriptBox["v", "^"], "2"], " ",
9171       SubscriptBox[
9172        SubscriptBox["c", "ll"],
9173        RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
9174      RowBox[{"2", " ",
9175       SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
9176   SubsuperscriptBox["Z", "mu$1", "2"]}],
9177  RowBox[{"4", " ",
9178   SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9179   SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
9180 CellChangeTimes->{{3.714653545156804*^9, 3.714653586602043*^9}, {
9181   3.714654540813074*^9, 3.714654545238611*^9}, 3.7146553562699957`*^9,
9182   3.714656034643857*^9},ExpressionUUID->"b279fe75-ba8b-426b-9cf8-\
91835a30a386215e"]
9184}, Open  ]],
9185
9186Cell[BoxData[
9187 RowBox[{"Coefficient", " ", "for", " ",
9188  RowBox[{
9189   SubscriptBox["\[PartialD]", "\[Mu]"],
9190   SubscriptBox["Z", "\[Nu]"]}],
9191  RowBox[{"(",
9192   RowBox[{
9193    RowBox[{
9194     SuperscriptBox["\[PartialD]", "\[Mu]"],
9195     SuperscriptBox["Z", "\[Nu]"]}], "-",
9196    RowBox[{
9197     SuperscriptBox["\[PartialD]", "\[Nu]"],
9198     SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
9199 CellChangeTimes->{{3.714653489006771*^9, 3.714653533124165*^9}, {
9200  3.714653634026601*^9,
9201  3.714653660281114*^9}},ExpressionUUID->"dbe73921-c372-4df1-a7c5-\
9202aadd5f35e981"],
9203
9204Cell[CellGroupData[{
9205
9206Cell[BoxData[
9207 RowBox[{
9208  RowBox[{
9209   RowBox[{
9210    RowBox[{"hzz", "/.",
9211     RowBox[{
9212      SuperscriptBox[
9213       RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", "MwShifts"}],
9214    "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
9215 CellChangeTimes->{{3.714653537675856*^9, 3.714653585931526*^9}, {
9216  3.714653677707417*^9, 3.714653739972247*^9}, {3.714654547788505*^9,
9217  3.7146545492474623`*^9}, {3.714655309451169*^9, 3.714655311061563*^9}, {
9218  3.714656031011059*^9,
9219  3.714656032602417*^9}},ExpressionUUID->"868a5c71-a036-43ce-84cc-\
92205e2a7aed83a1"],
9221
9222Cell[BoxData[
9223 RowBox[{"-",
9224  FractionBox[
9225   RowBox[{"2", " ", "H", " ",
9226    RowBox[{"(",
9227     RowBox[{
9228      RowBox[{"-", "1"}], "+",
9229      SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
9230    RowBox[{"(",
9231     RowBox[{
9232      SubscriptBox["c", "HW"], "+",
9233      RowBox[{
9234       SubscriptBox["c", "HWB"], " ",
9235       SubscriptBox["c", "\[Theta]"], " ",
9236       SubscriptBox["s", "\[Theta]"]}], "+",
9237      RowBox[{
9238       RowBox[{"(",
9239        RowBox[{
9240         SubscriptBox["c", "HB"], "-",
9241         SubscriptBox["c", "HW"]}], ")"}], " ",
9242       SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
9243    OverscriptBox["v", "^"], " ",
9244    RowBox[{
9245     SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
9246     SubscriptBox["Z", "mu$1"], "]"}], " ",
9247    RowBox[{"(",
9248     RowBox[{
9249      RowBox[{
9250       SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
9251       SubscriptBox["Z", "mu$1"], "]"}], "-",
9252      RowBox[{
9253       SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
9254       SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}],
9255   RowBox[{
9256    SubsuperscriptBox["c", "\[Theta]", "2"], " ",
9257    SuperscriptBox["\[CapitalLambda]", "2"]}]]}]], "Output",
9258 CellChangeTimes->{{3.714653685513557*^9, 3.714653740251841*^9},
9259   3.714654550173139*^9, 3.714655359366632*^9,
9260   3.714656036656455*^9},ExpressionUUID->"8920bd06-a434-41e2-aa04-\
92611faea577b7d8"]
9262}, Open  ]]
9263}, Closed]],
9264
9265Cell[CellGroupData[{
9266
9267Cell[TextData[{
9268 "Example - Fermion Z ",
9269 Cell[BoxData[
9270  FormBox["couplings", TraditionalForm]],ExpressionUUID->
9271  "bff01123-673c-4472-9297-f6cf39d4e011"],
9272 " (non-dipole structures)"
9273}], "Subsection",
9274 CellChangeTimes->{{3.6974638309413443`*^9, 3.697463841478889*^9}, {
9275  3.707196728078579*^9, 3.707196728973489*^9}, {3.709116189885594*^9,
9276  3.7091161899213247`*^9}, {3.7111737190476913`*^9, 3.711173721023136*^9}, {
9277  3.714474653133204*^9,
9278  3.7144746902228537`*^9}},ExpressionUUID->"09009831-4fe1-41d2-af7b-\
927930ca0415f3f3"],
9280
9281Cell[BoxData[
9282 RowBox[{
9283  RowBox[{"L2", "=",
9284   RowBox[{
9285    RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}],
9286  ";"}]], "Input",
9287 CellChangeTimes->{{3.714474671414948*^9,
9288  3.714474706220644*^9}},ExpressionUUID->"9e5acf37-8814-4ce1-a4ee-\
928941717bcc47c9"],
9290
9291Cell[CellGroupData[{
9292
9293Cell[BoxData[
9294 RowBox[{"ZffCouplings", "=",
9295  RowBox[{
9296   RowBox[{
9297    RowBox[{
9298     RowBox[{"FeynmanRules", "[",
9299      RowBox[{"L2", ",",
9300       RowBox[{"Contains", "\[Rule]",
9301        RowBox[{"{", "Z", "}"}]}], ",",
9302       RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//",
9303     "OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
9304 CellChangeTimes->{{3.697463857630127*^9, 3.697463897475298*^9}, {
9305   3.697464136487383*^9, 3.6974641367049007`*^9}, {3.6974642201407433`*^9,
9306   3.697464224325818*^9}, {3.697779806045223*^9, 3.6977798069672327`*^9}, {
9307   3.697781531384438*^9, 3.6977815317278852`*^9}, {3.706961693077465*^9,
9308   3.7069617104980583`*^9}, {3.70696208279708*^9, 3.706962082840859*^9}, {
9309   3.70702385358392*^9, 3.707023854145379*^9}, 3.71423999167645*^9, {
9310   3.714475504960969*^9, 3.714475525688051*^9}, {3.7146527509492188`*^9,
9311   3.714652756642342*^9}, {3.714652909302999*^9,
9312   3.7146529149076347`*^9}},ExpressionUUID->"8438ec3d-1833-432f-99cc-\
9313dbdfd8657eca"],
9314
9315Cell[CellGroupData[{
9316
9317Cell[BoxData[
9318 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
9319  StripOnInput->False,
9320  LineColor->RGBColor[1, 0.5, 0],
9321  FrontFaceColor->RGBColor[1, 0.5, 0],
9322  BackFaceColor->RGBColor[1, 0.5, 0],
9323  GraphicsColor->RGBColor[1, 0.5, 0],
9324  FontWeight->Bold,
9325  FontColor->RGBColor[1, 0.5, 0]]], "Print",
9326 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
9327  3.714654452458597*^9, 3.7146552514152517`*^9,
9328  3.714655896870522*^9},ExpressionUUID->"2e91e535-c5b4-4f2c-9bc0-\
93297213a77f650d"],
9330
9331Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
9332 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
9333  3.714654452458597*^9, 3.7146552514152517`*^9,
9334  3.714655896873229*^9},ExpressionUUID->"cbee1a60-5871-4e58-98b6-\
9335a1ba884f87cc"],
9336
9337Cell[BoxData[
9338 InterpretationBox[
9339  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
9340   "\[InvisibleSpace]", "\<\" cores\"\>"}],
9341  SequenceForm["Expanding the indices over ", 2, " cores"],
9342  Editable->False]], "Print",
9343 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
9344  3.714654452458597*^9, 3.7146552514152517`*^9,
9345  3.7146558968749228`*^9},ExpressionUUID->"0a6bfba2-7adb-4ef9-8364-\
9346f5b4d18b6274"],
9347
9348Cell[BoxData["\<\"Collecting the different structures that enter the \
9349vertex.\"\>"], "Print",
9350 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
9351  3.714654452458597*^9, 3.7146552514152517`*^9,
9352  3.7146559065796337`*^9},ExpressionUUID->"64b56ce8-052c-4426-9250-\
935380c12f64274b"],
9354
9355Cell[BoxData[
9356 InterpretationBox[
9357  RowBox[{
9358  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
9359-> starting the computation: \"\>", "\[InvisibleSpace]",
9360   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
9361    ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
9362   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
9363  SequenceForm[
9364  4, " possible non-zero vertices have been found -> starting the \
9365computation: ",
9366   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
9367  Editable->False]], "Print",
9368 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
9369  3.714654452458597*^9, 3.7146552514152517`*^9,
9370  3.7146559066255713`*^9},ExpressionUUID->"4f38d04b-378b-445c-85d9-\
93713b3b6c0d5e57"],
9372
9373Cell[BoxData[
9374 InterpretationBox[
9375  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
9376  SequenceForm[4, " vertices obtained."],
9377  Editable->False]], "Print",
9378 CellChangeTimes->{3.714652757165369*^9, 3.714652915517042*^9,
9379  3.714654452458597*^9, 3.7146552514152517`*^9,
9380  3.714655908638564*^9},ExpressionUUID->"6f09f1b3-3f95-4a69-b45e-\
93816476cec4e798"]
9382}, Open  ]],
9383
9384Cell[BoxData[
9385 InterpretationBox[GridBox[{
9386    {GridBox[{
9387       {
9388        OverscriptBox["dq", "\<\"-\"\>"], "1"},
9389       {"dq", "2"},
9390       {"Z", "3"}
9391      },
9392      GridBoxAlignment->{
9393       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
9394        "RowsIndexed" -> {}},
9395      GridBoxSpacings->{"Columns" -> {
9396          Offset[0.27999999999999997`], {
9397           Offset[0.7]},
9398          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
9399          Offset[0.2], {
9400           Offset[0.1]},
9401          Offset[0.2]}, "RowsIndexed" -> {}}],
9402     RowBox[{"-",
9403      FractionBox[
9404       RowBox[{"\[ImaginaryI]", " ", "e", " ",
9405        SubscriptBox["\[Delta]",
9406         RowBox[{
9407          SubscriptBox["\<\"m\"\>", "1"], ",",
9408          SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9409        RowBox[{"(",
9410         RowBox[{
9411          RowBox[{
9412           RowBox[{"-", "3"}], " ",
9413           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9414           SubscriptBox["\[Delta]",
9415            RowBox[{
9416             SubscriptBox["\<\"f\"\>", "1"], ",",
9417             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9418           SubscriptBox[
9419            RowBox[{
9420             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9421              "Superscript"], ".",
9422             SubscriptBox["P", "\<\"-\"\>"]}],
9423            RowBox[{
9424             SubscriptBox["\<\"s\"\>", "1"], ",",
9425             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
9426          RowBox[{"3", " ", "dgw", " ",
9427           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9428           SubscriptBox["\[Delta]",
9429            RowBox[{
9430             SubscriptBox["\<\"f\"\>", "1"], ",",
9431             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9432           SubscriptBox[
9433            RowBox[{
9434             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9435              "Superscript"], ".",
9436             SubscriptBox["P", "\<\"-\"\>"]}],
9437            RowBox[{
9438             SubscriptBox["\<\"s\"\>", "1"], ",",
9439             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9440          RowBox[{"dsth2", " ",
9441           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9442           SubscriptBox["\[Delta]",
9443            RowBox[{
9444             SubscriptBox["\<\"f\"\>", "1"], ",",
9445             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9446           SubscriptBox[
9447            RowBox[{
9448             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9449              "Superscript"], ".",
9450             SubscriptBox["P", "\<\"-\"\>"]}],
9451            RowBox[{
9452             SubscriptBox["\<\"s\"\>", "1"], ",",
9453             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9454          RowBox[{"dsth2", " ",
9455           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9456           SubscriptBox["\[Delta]",
9457            RowBox[{
9458             SubscriptBox["\<\"f\"\>", "1"], ",",
9459             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9460           SubscriptBox[
9461            RowBox[{
9462             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9463              "Superscript"], ".",
9464             SubscriptBox["P", "\<\"+\"\>"]}],
9465            RowBox[{
9466             SubscriptBox["\<\"s\"\>", "1"], ",",
9467             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9468          RowBox[{
9469           SubscriptBox["c", "HWB"], " ",
9470           SubscriptBox["c", "\[Theta]"], " ",
9471           SubscriptBox["s", "\[Theta]"], " ",
9472           SuperscriptBox[
9473            OverscriptBox["v", "^"], "2"], " ",
9474           SubscriptBox["\[Delta]",
9475            RowBox[{
9476             SubscriptBox["\<\"f\"\>", "1"], ",",
9477             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9478           RowBox[{"(",
9479            RowBox[{
9480             RowBox[{
9481              RowBox[{"-", "2"}], " ",
9482              SubscriptBox[
9483               RowBox[{
9484                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9485                 "Superscript"], ".",
9486                SubscriptBox["P", "\<\"-\"\>"]}],
9487               RowBox[{
9488                SubscriptBox["\<\"s\"\>", "1"], ",",
9489                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9490             SubscriptBox[
9491              RowBox[{
9492               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9493                "Superscript"], ".",
9494               SubscriptBox["P", "\<\"+\"\>"]}],
9495              RowBox[{
9496               SubscriptBox["\<\"s\"\>", "1"], ",",
9497               SubscriptBox["\<\"s\"\>", "2"]}]]}], ")"}]}], "+",
9498          RowBox[{
9499           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9500           SubsuperscriptBox["s", "\[Theta]", "2"], " ",
9501           SubscriptBox["\[Delta]",
9502            RowBox[{
9503             SubscriptBox["\<\"f\"\>", "1"], ",",
9504             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9505           RowBox[{"(",
9506            RowBox[{
9507             RowBox[{
9508              RowBox[{"(",
9509               RowBox[{"2", "-", "dg1", "+",
9510                RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
9511              SubscriptBox[
9512               RowBox[{
9513                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9514                 "Superscript"], ".",
9515                SubscriptBox["P", "\<\"-\"\>"]}],
9516               RowBox[{
9517                SubscriptBox["\<\"s\"\>", "1"], ",",
9518                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9519             RowBox[{"2", " ",
9520              RowBox[{"(",
9521               RowBox[{"1", "+", "dg1"}], ")"}], " ",
9522              SubscriptBox[
9523               RowBox[{
9524                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9525                 "Superscript"], ".",
9526                SubscriptBox["P", "\<\"+\"\>"]}],
9527               RowBox[{
9528                SubscriptBox["\<\"s\"\>", "1"], ",",
9529                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-",
9530          RowBox[{"3", " ",
9531           SuperscriptBox[
9532            OverscriptBox["v", "^"], "2"], " ",
9533           RowBox[{"(",
9534            RowBox[{
9535             RowBox[{
9536              SubscriptBox["cHq1",
9537               RowBox[{
9538                SubscriptBox["\<\"f\"\>", "1"], ",",
9539                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9540              SubscriptBox[
9541               RowBox[{
9542                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9543                 "Superscript"], ".",
9544                SubscriptBox["P", "\<\"-\"\>"]}],
9545               RowBox[{
9546                SubscriptBox["\<\"s\"\>", "1"], ",",
9547                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9548             RowBox[{
9549              SubscriptBox["cHq3",
9550               RowBox[{
9551                SubscriptBox["\<\"f\"\>", "1"], ",",
9552                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9553              SubscriptBox[
9554               RowBox[{
9555                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9556                 "Superscript"], ".",
9557                SubscriptBox["P", "\<\"-\"\>"]}],
9558               RowBox[{
9559                SubscriptBox["\<\"s\"\>", "1"], ",",
9560                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9561             RowBox[{
9562              SubscriptBox["cHd",
9563               RowBox[{
9564                SubscriptBox["\<\"f\"\>", "1"], ",",
9565                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9566              SubscriptBox[
9567               RowBox[{
9568                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9569                 "Superscript"], ".",
9570                SubscriptBox["P", "\<\"+\"\>"]}],
9571               RowBox[{
9572                SubscriptBox["\<\"s\"\>", "1"], ",",
9573                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}],
9574       RowBox[{"6", " ",
9575        SubscriptBox["c", "\[Theta]"], " ",
9576        SuperscriptBox["\[CapitalLambda]", "2"], " ",
9577        SubscriptBox["s", "\[Theta]"]}]]}]},
9578    {GridBox[{
9579       {
9580        OverscriptBox["l", "\<\"-\"\>"], "1"},
9581       {"l", "2"},
9582       {"Z", "3"}
9583      },
9584      GridBoxAlignment->{
9585       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
9586        "RowsIndexed" -> {}},
9587      GridBoxSpacings->{"Columns" -> {
9588          Offset[0.27999999999999997`], {
9589           Offset[0.7]},
9590          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
9591          Offset[0.2], {
9592           Offset[0.1]},
9593          Offset[0.2]}, "RowsIndexed" -> {}}],
9594     RowBox[{"-",
9595      FractionBox[
9596       RowBox[{"\[ImaginaryI]", " ", "e", " ",
9597        RowBox[{"(",
9598         RowBox[{
9599          RowBox[{
9600           RowBox[{"-",
9601            SuperscriptBox["\[CapitalLambda]", "2"]}], " ",
9602           SubscriptBox["\[Delta]",
9603            RowBox[{
9604             SubscriptBox["\<\"f\"\>", "1"], ",",
9605             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9606           SubscriptBox[
9607            RowBox[{
9608             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9609              "Superscript"], ".",
9610             SubscriptBox["P", "\<\"-\"\>"]}],
9611            RowBox[{
9612             SubscriptBox["\<\"s\"\>", "1"], ",",
9613             SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
9614          RowBox[{"dgw", " ",
9615           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9616           SubscriptBox["\[Delta]",
9617            RowBox[{
9618             SubscriptBox["\<\"f\"\>", "1"], ",",
9619             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9620           SubscriptBox[
9621            RowBox[{
9622             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9623              "Superscript"], ".",
9624             SubscriptBox["P", "\<\"-\"\>"]}],
9625            RowBox[{
9626             SubscriptBox["\<\"s\"\>", "1"], ",",
9627             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9628          RowBox[{"dsth2", " ",
9629           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9630           SubscriptBox["\[Delta]",
9631            RowBox[{
9632             SubscriptBox["\<\"f\"\>", "1"], ",",
9633             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9634           SubscriptBox[
9635            RowBox[{
9636             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9637              "Superscript"], ".",
9638             SubscriptBox["P", "\<\"-\"\>"]}],
9639            RowBox[{
9640             SubscriptBox["\<\"s\"\>", "1"], ",",
9641             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9642          RowBox[{"dsth2", " ",
9643           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9644           SubscriptBox["\[Delta]",
9645            RowBox[{
9646             SubscriptBox["\<\"f\"\>", "1"], ",",
9647             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9648           SubscriptBox[
9649            RowBox[{
9650             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9651              "Superscript"], ".",
9652             SubscriptBox["P", "\<\"+\"\>"]}],
9653            RowBox[{
9654             SubscriptBox["\<\"s\"\>", "1"], ",",
9655             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9656          RowBox[{
9657           SubscriptBox["c", "HWB"], " ",
9658           SubscriptBox["c", "\[Theta]"], " ",
9659           SubscriptBox["s", "\[Theta]"], " ",
9660           SuperscriptBox[
9661            OverscriptBox["v", "^"], "2"], " ",
9662           SubscriptBox["\[Delta]",
9663            RowBox[{
9664             SubscriptBox["\<\"f\"\>", "1"], ",",
9665             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9666           SubscriptBox[
9667            RowBox[{
9668             TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9669              "Superscript"], ".",
9670             SubscriptBox["P", "\<\"+\"\>"]}],
9671            RowBox[{
9672             SubscriptBox["\<\"s\"\>", "1"], ",",
9673             SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9674          RowBox[{
9675           SuperscriptBox["\[CapitalLambda]", "2"], " ",
9676           SubsuperscriptBox["s", "\[Theta]", "2"], " ",
9677           SubscriptBox["\[Delta]",
9678            RowBox[{
9679             SubscriptBox["\<\"f\"\>", "1"], ",",
9680             SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9681           RowBox[{"(",
9682            RowBox[{
9683             RowBox[{
9684              RowBox[{"(",
9685               RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ",
9686              SubscriptBox[
9687               RowBox[{
9688                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9689                 "Superscript"], ".",
9690                SubscriptBox["P", "\<\"-\"\>"]}],
9691               RowBox[{
9692                SubscriptBox["\<\"s\"\>", "1"], ",",
9693                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9694             RowBox[{"2", " ",
9695              RowBox[{"(",
9696               RowBox[{"1", "+", "dg1"}], ")"}], " ",
9697              SubscriptBox[
9698               RowBox[{
9699                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9700                 "Superscript"], ".",
9701                SubscriptBox["P", "\<\"+\"\>"]}],
9702               RowBox[{
9703                SubscriptBox["\<\"s\"\>", "1"], ",",
9704                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-",
9705          RowBox[{
9706           SuperscriptBox[
9707            OverscriptBox["v", "^"], "2"], " ",
9708           RowBox[{"(",
9709            RowBox[{
9710             RowBox[{
9711              SubscriptBox["cHl1",
9712               RowBox[{
9713                SubscriptBox["\<\"f\"\>", "1"], ",",
9714                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9715              SubscriptBox[
9716               RowBox[{
9717                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9718                 "Superscript"], ".",
9719                SubscriptBox["P", "\<\"-\"\>"]}],
9720               RowBox[{
9721                SubscriptBox["\<\"s\"\>", "1"], ",",
9722                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9723             RowBox[{
9724              SubscriptBox["cHl3",
9725               RowBox[{
9726                SubscriptBox["\<\"f\"\>", "1"], ",",
9727                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9728              SubscriptBox[
9729               RowBox[{
9730                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9731                 "Superscript"], ".",
9732                SubscriptBox["P", "\<\"-\"\>"]}],
9733               RowBox[{
9734                SubscriptBox["\<\"s\"\>", "1"], ",",
9735                SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9736             RowBox[{
9737              SubscriptBox["cHe",
9738               RowBox[{
9739                SubscriptBox["\<\"f\"\>", "1"], ",",
9740                SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9741              SubscriptBox[
9742               RowBox[{
9743                TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9744                 "Superscript"], ".",
9745                SubscriptBox["P", "\<\"+\"\>"]}],
9746               RowBox[{
9747                SubscriptBox["\<\"s\"\>", "1"], ",",
9748                SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}],
9749       RowBox[{"2", " ",
9750        SubscriptBox["c", "\[Theta]"], " ",
9751        SuperscriptBox["\[CapitalLambda]", "2"], " ",
9752        SubscriptBox["s", "\[Theta]"]}]]}]},
9753    {GridBox[{
9754       {
9755        OverscriptBox["uq", "\<\"-\"\>"], "1"},
9756       {"uq", "2"},
9757       {"Z", "3"}
9758      },
9759      GridBoxAlignment->{
9760       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
9761        "RowsIndexed" -> {}},
9762      GridBoxSpacings->{"Columns" -> {
9763          Offset[0.27999999999999997`], {
9764           Offset[0.7]},
9765          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
9766          Offset[0.2], {
9767           Offset[0.1]},
9768          Offset[0.2]}, "RowsIndexed" -> {}}],
9769     FractionBox[
9770      RowBox[{"\[ImaginaryI]", " ", "e", " ",
9771       SubscriptBox["\[Delta]",
9772        RowBox[{
9773         SubscriptBox["\<\"m\"\>", "1"], ",",
9774         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
9775       RowBox[{"(",
9776        RowBox[{
9777         RowBox[{
9778          RowBox[{"-", "3"}], " ",
9779          SuperscriptBox["\[CapitalLambda]", "2"], " ",
9780          SubscriptBox["\[Delta]",
9781           RowBox[{
9782            SubscriptBox["\<\"f\"\>", "1"], ",",
9783            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9784          SubscriptBox[
9785           RowBox[{
9786            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9787             "Superscript"], ".",
9788            SubscriptBox["P", "\<\"-\"\>"]}],
9789           RowBox[{
9790            SubscriptBox["\<\"s\"\>", "1"], ",",
9791            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
9792         RowBox[{"3", " ", "dgw", " ",
9793          SuperscriptBox["\[CapitalLambda]", "2"], " ",
9794          SubscriptBox["\[Delta]",
9795           RowBox[{
9796            SubscriptBox["\<\"f\"\>", "1"], ",",
9797            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9798          SubscriptBox[
9799           RowBox[{
9800            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9801             "Superscript"], ".",
9802            SubscriptBox["P", "\<\"-\"\>"]}],
9803           RowBox[{
9804            SubscriptBox["\<\"s\"\>", "1"], ",",
9805            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9806         RowBox[{"2", " ", "dsth2", " ",
9807          SuperscriptBox["\[CapitalLambda]", "2"], " ",
9808          SubscriptBox["\[Delta]",
9809           RowBox[{
9810            SubscriptBox["\<\"f\"\>", "1"], ",",
9811            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9812          SubscriptBox[
9813           RowBox[{
9814            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9815             "Superscript"], ".",
9816            SubscriptBox["P", "\<\"-\"\>"]}],
9817           RowBox[{
9818            SubscriptBox["\<\"s\"\>", "1"], ",",
9819            SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
9820         RowBox[{
9821          SubscriptBox["c", "HWB"], " ",
9822          SubscriptBox["c", "\[Theta]"], " ",
9823          SubscriptBox["s", "\[Theta]"], " ",
9824          SuperscriptBox[
9825           OverscriptBox["v", "^"], "2"], " ",
9826          SubscriptBox["\[Delta]",
9827           RowBox[{
9828            SubscriptBox["\<\"f\"\>", "1"], ",",
9829            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9830          RowBox[{"(",
9831           RowBox[{
9832            SubscriptBox[
9833             RowBox[{
9834              TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9835               "Superscript"], ".",
9836              SubscriptBox["P", "\<\"-\"\>"]}],
9837             RowBox[{
9838              SubscriptBox["\<\"s\"\>", "1"], ",",
9839              SubscriptBox["\<\"s\"\>", "2"]}]], "-",
9840            RowBox[{"2", " ",
9841             SubscriptBox[
9842              RowBox[{
9843               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9844                "Superscript"], ".",
9845               SubscriptBox["P", "\<\"+\"\>"]}],
9846              RowBox[{
9847               SubscriptBox["\<\"s\"\>", "1"], ",",
9848               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+",
9849         RowBox[{"2", " ", "dsth2", " ",
9850          SuperscriptBox["\[CapitalLambda]", "2"], " ",
9851          SubscriptBox["\[Delta]",
9852           RowBox[{
9853            SubscriptBox["\<\"f\"\>", "1"], ",",
9854            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9855          SubscriptBox[
9856           RowBox[{
9857            TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9858             "Superscript"], ".",
9859            SubscriptBox["P", "\<\"+\"\>"]}],
9860           RowBox[{
9861            SubscriptBox["\<\"s\"\>", "1"], ",",
9862            SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9863         RowBox[{
9864          SuperscriptBox["\[CapitalLambda]", "2"], " ",
9865          SubsuperscriptBox["s", "\[Theta]", "2"], " ",
9866          SubscriptBox["\[Delta]",
9867           RowBox[{
9868            SubscriptBox["\<\"f\"\>", "1"], ",",
9869            SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9870          RowBox[{"(",
9871           RowBox[{
9872            RowBox[{
9873             RowBox[{"(",
9874              RowBox[{"4", "+", "dg1", "+",
9875               RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
9876             SubscriptBox[
9877              RowBox[{
9878               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9879                "Superscript"], ".",
9880               SubscriptBox["P", "\<\"-\"\>"]}],
9881              RowBox[{
9882               SubscriptBox["\<\"s\"\>", "1"], ",",
9883               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9884            RowBox[{"4", " ",
9885             RowBox[{"(",
9886              RowBox[{"1", "+", "dg1"}], ")"}], " ",
9887             SubscriptBox[
9888              RowBox[{
9889               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9890                "Superscript"], ".",
9891               SubscriptBox["P", "\<\"+\"\>"]}],
9892              RowBox[{
9893               SubscriptBox["\<\"s\"\>", "1"], ",",
9894               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+",
9895         RowBox[{"3", " ",
9896          SuperscriptBox[
9897           OverscriptBox["v", "^"], "2"], " ",
9898          RowBox[{"(",
9899           RowBox[{
9900            RowBox[{
9901             SubscriptBox["cHq1",
9902              RowBox[{
9903               SubscriptBox["\<\"f\"\>", "1"], ",",
9904               SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9905             SubscriptBox[
9906              RowBox[{
9907               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9908                "Superscript"], ".",
9909               SubscriptBox["P", "\<\"-\"\>"]}],
9910              RowBox[{
9911               SubscriptBox["\<\"s\"\>", "1"], ",",
9912               SubscriptBox["\<\"s\"\>", "2"]}]]}], "-",
9913            RowBox[{
9914             SubscriptBox["cHq3",
9915              RowBox[{
9916               SubscriptBox["\<\"f\"\>", "1"], ",",
9917               SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9918             SubscriptBox[
9919              RowBox[{
9920               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9921                "Superscript"], ".",
9922               SubscriptBox["P", "\<\"-\"\>"]}],
9923              RowBox[{
9924               SubscriptBox["\<\"s\"\>", "1"], ",",
9925               SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
9926            RowBox[{
9927             SubscriptBox["cHu",
9928              RowBox[{
9929               SubscriptBox["\<\"f\"\>", "1"], ",",
9930               SubscriptBox["\<\"f\"\>", "2"]}]], " ",
9931             SubscriptBox[
9932              RowBox[{
9933               TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
9934                "Superscript"], ".",
9935               SubscriptBox["P", "\<\"+\"\>"]}],
9936              RowBox[{
9937               SubscriptBox["\<\"s\"\>", "1"], ",",
9938               SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}],
9939      RowBox[{"6", " ",
9940       SubscriptBox["c", "\[Theta]"], " ",
9941       SuperscriptBox["\[CapitalLambda]", "2"], " ",
9942       SubscriptBox["s", "\[Theta]"]}]]},
9943    {GridBox[{
9944       {
9945        OverscriptBox["vl", "\<\"-\"\>"], "1"},
9946       {"vl", "2"},
9947       {"Z", "3"}
9948      },
9949      GridBoxAlignment->{
9950       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
9951        "RowsIndexed" -> {}},
9952      GridBoxSpacings->{"Columns" -> {
9953          Offset[0.27999999999999997`], {
9954           Offset[0.7]},
9955          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
9956          Offset[0.2], {
9957           Offset[0.1]},
9958          Offset[0.2]}, "RowsIndexed" -> {}}],
9959     FractionBox[
9960      RowBox[{"\[ImaginaryI]", " ", "e", " ",
9961       RowBox[{"(",
9962        RowBox[{
9963         RowBox[{
9964          SuperscriptBox[
9965           OverscriptBox["v", "^"], "2"], " ",
9966          SubscriptBox["cHl1",
9967           RowBox[{
9968            SubscriptBox["\<\"f\"\>", "1"], ",",
9969            SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
9970         RowBox[{
9971          SuperscriptBox[
9972           OverscriptBox["v", "^"], "2"], " ",
9973          SubscriptBox["cHl3",
9974           RowBox[{
9975            SubscriptBox["\<\"f\"\>", "1"], ",",
9976            SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
9977         RowBox[{
9978          RowBox[{"(",
9979           RowBox[{
9980            RowBox[{
9981             SuperscriptBox["\[CapitalLambda]", "2"], " ",
9982             RowBox[{"(",
9983              RowBox[{
9984               RowBox[{"-", "1"}], "-", "dgw", "+",
9985               RowBox[{
9986                RowBox[{"(",
9987                 RowBox[{
9988                  RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
9989                SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
9990            RowBox[{
9991             SubscriptBox["c", "HWB"], " ",
9992             SubscriptBox["c", "\[Theta]"], " ",
9993             SubscriptBox["s", "\[Theta]"], " ",
9994             SuperscriptBox[
9995              OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
9996          SubscriptBox["\[Delta]",
9997           RowBox[{
9998            SubscriptBox["\<\"f\"\>", "1"], ",",
9999            SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ",
10000       SubscriptBox[
10001        RowBox[{
10002         TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
10003          "Superscript"], ".",
10004         SubscriptBox["P", "\<\"-\"\>"]}],
10005        RowBox[{
10006         SubscriptBox["\<\"s\"\>", "1"], ",",
10007         SubscriptBox["\<\"s\"\>", "2"]}]]}],
10008      RowBox[{"2", " ",
10009       SubscriptBox["c", "\[Theta]"], " ",
10010       SuperscriptBox["\[CapitalLambda]", "2"], " ",
10011       SubscriptBox["s", "\[Theta]"]}]]}
10012   },
10013   GridBoxAlignment->{
10014    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
10015     "RowsIndexed" -> {}},
10016   GridBoxSpacings->{"Columns" -> {
10017       Offset[0.27999999999999997`], {
10018        Offset[2.0999999999999996`]},
10019       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
10020       Offset[0.2], {
10021        Offset[0.4]},
10022       Offset[0.2]}, "RowsIndexed" -> {}}],
10023  TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
10024        3}}, (((((Complex[0,
10025            Rational[-1, 6]]/$CellContext`cth)
10026         FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth)
10027      FeynRules`IndexDelta[
10028        FeynRules`Index[FeynRules`Colour,
10029         FeynRules`Ext[1]],