Context Navigation

Back to SMEFT

SMEFT: SMEFTsim-setA.nb

File SMEFTsim-setA.nb, 1.3 MB (added by Ilaria Brivio, 7 years 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 1389509, 35687]
14	NotebookOptionsPosition[ 1313304, 34603]
15	NotebookOutlinePosition[ 1313743, 34620]
16	CellTagsIndexPosition[ 1313700, 34617]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["Demo notebook for the SMEFTsim models - set A", "Chapter",
24	CellChangeTimes->{{3.714472665588029*^9,
25	3.714472689729048*^9}},ExpressionUUID->"55c1d13a-0c0d-447f-a284-\
26	91d63a91b5fa"],
27
28	Cell[TextData[{
29	"Includes all the B conserving operators of the Warsaw basis, with kinetic \
30	terms canonically normalized and shifts due to fixing an input scheme \
31	automatically implemented.\nContains 6 models = 3 flavor assumptions x 2 \
32	input 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 \
36	3x3x3x3 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 \
63	to 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 \
70	and does not contain CP-odd bosonic operators. Moreover, all W. coefficients \
71	are 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-\
100	dac633b0a8d7"],
101
102	Cell[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
120	Cell[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 \
127	the 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 \
131	and 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 \
138	operators \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 \
177	rotation 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-\
182	7912d9c4ab1a"],
183
184	Cell[BoxData["\[IndentingNewLine]"], "Input",
185	CellChangeTimes->{
186	3.714474265137045*^9},ExpressionUUID->"7e2bd107-2391-4afb-a870-\
187	15da1292e912"],
188
189	Cell[TextData[{
190	StyleBox["Lagrangians defined ",
191	FontVariations->{"Underline"->True}],
192	"\n\nLSM - SM Lagrangian\nLSMlinear - SM Lagrangian with linear shifts due \
193	to canonically normalizing kinetic terms + choosing an input parameters set \
194	in the SMEFT\nLSMloop - SM Higgs coupling to gg, \[Gamma]\[Gamma], Z\[Gamma] \
195	at 1 loop\nLSMincl - LSMlinear + LSMloop\n\nL6clN - dimension six operators \
196	of class N (see below)\nL6no4f - all dimension six operator apart from \
197	four-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 \
202	shifts\nSMlimit[ ] - sets all the Wilson coefficients and shifts to zero\n\
203	alphaShifts / MwShifts - replacements list to explicit the shifts as \
204	functions of the Wilson coefficients (only one is available depending on the \
205	scheme 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
337	Cell[BoxData[
338	RowBox[{"Quit", "[", "]"}]], "Input",
339	CellChangeTimes->{{3.725884739461692*^9,
340	3.725884740533785*^9}},ExpressionUUID->"b080cac5-1c42-4c34-afad-\
341	7262c6d76b03"],
342
343	Cell[CellGroupData[{
344
345	Cell["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-\
349	190d4364205e"],
350
351	Cell[CellGroupData[{
352
353	Cell[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-\
375	86b265422a0f"],
376
377	Cell[CellGroupData[{
378
379	Cell[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-\
387	a20ecf0d526f"],
388
389	Cell[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-\
404	e85f04b4bf2a"],
405
406	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
407	B. 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-\
415	77fdba0131b3"],
416
417	Cell[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-\
425	696c58130505"],
426
427	Cell[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-\
435	9c5976c6442e"],
436
437	Cell[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-\
446	d9d9c7218033"],
447
448	Cell[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-\
457	1b107d602e54"],
458
459	Cell[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-\
467	a8c795f71327"],
468
469	Cell[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-\
477	736038a09e6b"],
478
479	Cell[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-\
487	c5270eb92258"],
488
489	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
490	FRPalette[].\"\>"], "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-\
498	fffec82966fc"]
499	}, Open ]]
500	}, Open ]]
501	}, Open ]],
502
503	Cell[CellGroupData[{
504
505	Cell["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-\
513	d79e1a2ece39"],
514
515	Cell[BoxData[{
516	RowBox[{
517	RowBox[{"Flavor", "=", "general"}], ";"}], "\[IndentingNewLine]",
518	RowBox[{
519	RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
520	CellChangeTimes->CompressedData["
521	1:eJxTTMoPSmViYGAQBWIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
522	BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
523	BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
524	gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
525	oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
526	tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDANABx9xdQ=
527
528	"],ExpressionUUID->"dfc4c8d8-5aa2-4bda-a486-e292b29d50dd"],
529
530	Cell[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 \
535	might 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
543	Cell[CellGroupData[{
544
545	Cell[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-\
592	674a71a54cc8"],
593
594	Cell[CellGroupData[{
595
596	Cell[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-\
600	10f54b0c1aa0"],
601
602	Cell[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-\
616	631835fc1f98"],
617
618	Cell[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-\
622	af910f2aa404"],
623
624	Cell[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-\
628	f4eac6ba6b55"],
629
630	Cell[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-\
638	2a9f94616f41"],
639
640	Cell[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-\
644	91923b19f246"],
645
646	Cell[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-\
650	23a60b923bf2"],
651
652	Cell[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-\
656	a1ea92904c10"],
657
658	Cell[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-\
663	a64c7a568b21"],
664
665	Cell[BoxData["\<\"\"\>"], "Print",
666	CellChangeTimes->{
667	3.725884752771562^9, {3.726906554588174^9, 3.726906577918921*^9},
668	3.728971412103085*^9},ExpressionUUID->"1fc3cc74-e968-4132-9999-\
669	af8e641e0fc1"],
670
671	Cell[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-\
675	19b56ecf0797"],
676
677	Cell[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-\
681	3525b0160753"],
682
683	Cell[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-\
687	f63b49e6bef8"],
688
689	Cell[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-\
698	4e58ee2d1a18"]
699	}, Open ]]
700	}, Open ]],
701
702	Cell[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-\
737	68c4482f9ccd"],
738
739	Cell[CellGroupData[{
740
741	Cell[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-\
748	d71fde76e1c7"],
749
750	Cell[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-\
763	7bfbf4e8b5a9"]
764	}, Open ]],
765
766	Cell[CellGroupData[{
767
768	Cell[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-\
793	701b44dbe5ac"],
794
795	Cell[CellGroupData[{
796
797	Cell[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-\
810	cd66bda745cc"],
811
812	Cell[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-\
817	ffc569fe411e"],
818
819	Cell[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-\
829	73722c07084d"],
830
831	Cell[BoxData["\<\"Collecting the different structures that enter the \
832	vertex.\"\>"], "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-\
837	973ff1cb5da4"],
838
839	Cell[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 \
849	computation: ",
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-\
856	ee5629827c5a"],
857
858	Cell[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-\
867	ac8114c91282"]
868	}, Open ]],
869
870	Cell[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-\
1126	c5b9945ccc8f"]
1127	}, Open ]],
1128
1129	Cell[CellGroupData[{
1130
1131	Cell[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-\
1161	8cfd87db9120"],
1162
1163	Cell[CellGroupData[{
1164
1165	Cell[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-\
1178	80a24fe736f4"],
1179
1180	Cell[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-\
1185	c02fd2b087b3"],
1186
1187	Cell[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-\
1197	3264f55efc13"],
1198
1199	Cell[BoxData["\<\"Collecting the different structures that enter the \
1200	vertex.\"\>"], "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-\
1205	4723d0867d46"],
1206
1207	Cell[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 \
1217	computation: ",
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-\
1224	71735bb47b63"],
1225
1226	Cell[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-\
1231	c21f149ee00e"]
1232	}, Open ]],
1233
1234	Cell[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-\
1330	70c6562c5c6b"],
1331
1332	Cell[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-\
1465	2aec031c4d53"]
1466	}, Open ]],
1467
1468	Cell[CellGroupData[{
1469
1470	Cell[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-\
1546	1c616d997fec"],
1547
1548	Cell[CellGroupData[{
1549
1550	Cell[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-\
1567	3622fb604dca"],
1568
1569	Cell[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-\
1578	988d9edd599b"],
1579
1580	Cell[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-\
1594	ebffd37e862e"],
1595
1596	Cell[BoxData["\<\"Collecting the different structures that enter the \
1597	vertex.\"\>"], "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-\
1606	8eb81729fdd5"],
1607
1608	Cell[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 \
1618	computation: ",
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-\
1629	a590cc465c7b"],
1630
1631	Cell[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-\
1644	a5fd27efc5a9"],
1645
1646	Cell[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-\
1663	be88314ec755"]
1664	}, Open ]],
1665
1666	Cell[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-\
2009	c13da457e161"]
2010	}, Open ]],
2011
2012	Cell[CellGroupData[{
2013
2014	Cell[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-\
2033	33600a572f6e"],
2034
2035	Cell[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-\
2049	ee49a37c6877"],
2050
2051	Cell[CellGroupData[{
2052
2053	Cell[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-\
2064	d90c096f5f4b"],
2065
2066	Cell[CellGroupData[{
2067
2068	Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
2069	eigenstates 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-\
2073	b0c905b0f808"],
2074
2075	Cell[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-\
2085	a98038b0c1e5"],
2086
2087	Cell[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-\
2097	1f347d509b2b"]
2098	}, Open ]]
2099	}, Open ]],
2100
2101	Cell[CellGroupData[{
2102
2103	Cell[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-\
2140	84c03e773d99"],
2141
2142	Cell[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-\
2204	85a325536cd5"],
2205
2206	Cell[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-\
2296	ece071eaa65f"],
2297
2298	Cell[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-\
2414	cd6ee80b4ca7"]
2415	}, Open ]],
2416
2417	Cell[CellGroupData[{
2418
2419	Cell[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-\
2446	23ce19d1eaf8"],
2447
2448	Cell[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-\
2488	fbc389bd374c"],
2489
2490	Cell[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-\
2551	03c19b4aecba"],
2552
2553	Cell[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-\
2645	a1d6bee374fa"]
2646	}, Open ]],
2647
2648	Cell[BoxData[""], "Input",
2649	CellChangeTimes->{3.714652368810739*^9,
2650	3.7146524695105267`*^9},ExpressionUUID->"1ea0cb97-74b3-42c4-becf-\
2651	65e1c3ef0119"],
2652
2653	Cell[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-\
2665	e817d2dfec84"],
2666
2667	Cell[CellGroupData[{
2668
2669	Cell[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-\
2696	662814ae53c0"],
2697
2698	Cell[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-\
2770	dc3d7a5831ce"],
2771
2772	Cell[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-\
2822	71936f66be4c"]
2823	}, Open ]],
2824
2825	Cell[CellGroupData[{
2826
2827	Cell[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-\
2854	f9b3ee83f0c0"],
2855
2856	Cell[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-\
2895	8723c4efdcfa"],
2896
2897	Cell[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-\
2928	5328fe0872d0"],
2929
2930	Cell[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-\
2958	ff9b1df2efc8"]
2959	}, Open ]]
2960	}, Closed]],
2961
2962	Cell[CellGroupData[{
2963
2964	Cell["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-\
2968	29a2d7ad36b3"],
2969
2970	Cell[CellGroupData[{
2971
2972	Cell[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-\
2991	c4a19db1e3ec"],
2992
2993	Cell[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-\
3086	2f7111bc041f"]
3087	}, Open ]],
3088
3089	Cell[CellGroupData[{
3090
3091	Cell[BoxData[
3092	RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
3093	CellChangeTimes->{{3.714653438713478*^9,
3094	3.7146534431183643`*^9}},ExpressionUUID->"13a53d48-6c16-4925-9131-\
3095	068868c51a55"],
3096
3097	Cell[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-\
3109	b52cbb9724a8"]
3110	}, Open ]],
3111
3112	Cell[CellGroupData[{
3113
3114	Cell[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-\
3130	78b3e5170a15"],
3131
3132	Cell[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-\
3292	7a292f386077"]
3293	}, Open ]],
3294
3295	Cell[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-\
3301	ffa8a13d74f7"],
3302
3303	Cell[CellGroupData[{
3304
3305	Cell[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-\
3322	f8754a3db27f"],
3323
3324	Cell[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-\
3361	89104dfcdeaf"],
3362
3363	Cell[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-\
3416	40b181d41071"]
3417	}, Open ]],
3418
3419	Cell[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-\
3435	c6d74c3ee478"],
3436
3437	Cell[CellGroupData[{
3438
3439	Cell[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-\
3452	2a53560f57f5"],
3453
3454	Cell[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-\
3493	a61d4d90f7ff"]
3494	}, Open ]]
3495	}, Closed]],
3496
3497	Cell[CellGroupData[{
3498
3499	Cell[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-\
3511	95a43dea3d65"],
3512
3513	Cell[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-\
3521	3e0d737ff0f9"],
3522
3523	Cell[CellGroupData[{
3524
3525	Cell[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-\
3545	91cddf449bbd"],
3546
3547	Cell[CellGroupData[{
3548
3549	Cell[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-\
3561	57e606820f36"],
3562
3563	Cell[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-\
3567	e8a36789a6f2"],
3568
3569	Cell[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-\
3578	6536287ca318"],
3579
3580	Cell[BoxData["\<\"Collecting the different structures that enter the \
3581	vertex.\"\>"], "Print",
3582	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
3583	3.714654452458597*^9,
3584	3.714655261443171*^9},ExpressionUUID->"d4dda840-ae34-4ec5-9bc4-\
3585	18c9078662fb"],
3586
3587	Cell[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 \
3597	computation: ",
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-\
3603	d80c8e5a5686"],
3604
3605	Cell[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-\
3613	99a89eb67ca6"]
3614	}, Open ]],
3615
3616	Cell[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-\
4675	c7ce862cd250"]
4676	}, Open ]],
4677
4678	Cell["neutrino coupling :", "Text",
4679	CellChangeTimes->{{3.7146528020724363`*^9,
4680	3.7146528092589808`*^9}},ExpressionUUID->"1ef17f73-f819-466d-a95a-\
4681	1107f3c7492d"],
4682
4683	Cell[CellGroupData[{
4684
4685	Cell[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-\
4709	957a6c20c6ca"],
4710
4711	Cell[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-\
4772	ff9053b0b04b"],
4773
4774	Cell[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-\
4838	98d08b29d143"],
4839
4840	Cell[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-\
4918	5b7672ea5d28"]
4919	}, Open ]]
4920	}, Closed]],
4921
4922	Cell[CellGroupData[{
4923
4924	Cell["Example : Yukawa couplings", "Subsection",
4925	CellChangeTimes->{{3.714653803679809*^9,
4926	3.714653813127017*^9}},ExpressionUUID->"f6d3546a-fbb5-4086-80b2-\
4927	1fc305917cc1"],
4928
4929	Cell[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-\
4939	f604b019622b"],
4940
4941	Cell[CellGroupData[{
4942
4943	Cell[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-\
4955	f54301d68b34"],
4956
4957	Cell[CellGroupData[{
4958
4959	Cell[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-\
4971	6564e0fb7281"],
4972
4973	Cell[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-\
4977	42bfeea45921"],
4978
4979	Cell[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-\
4988	818ba7faaa0f"],
4989
4990	Cell[BoxData["\<\"Collecting the different structures that enter the \
4991	vertex.\"\>"], "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-\
4995	a65944b94ac7"],
4996
4997	Cell[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 \
5007	computation: ",
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-\
5013	051767b09216"],
5014
5015	Cell[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-\
5023	e9369243902f"]
5024	}, Open ]],
5025
5026	Cell[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-\
5812	7b584e3e875c"]
5813	}, Open ]],
5814
5815	Cell["Flavor expansion for the leptons' case", "Text",
5816	CellChangeTimes->{{3.7146540002012587`*^9,
5817	3.714654016686934*^9}},ExpressionUUID->"a751ef31-da6e-4879-895f-\
5818	7a35e3428ef2"],
5819
5820	Cell[CellGroupData[{
5821
5822	Cell[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-\
5836	031b97aded39"],
5837
5838	Cell[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-\
5850	2617823cbb0f"],
5851
5852	Cell[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-\
6542	8f49a3c05794"]
6543	}, Open ]],
6544
6545	Cell[CellGroupData[{
6546
6547	Cell[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-\
6555	e01aca0dd124"],
6556
6557	Cell[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-\
7188	7d34103d0a0f"]
7189	}, Open ]]
7190	}, Closed]],
7191
7192	Cell[CellGroupData[{
7193
7194	Cell["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-\
7198	2aaa3c513670"],
7199
7200	Cell[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 \
7205	take a long time (~ 2 hours) \nThe time is significantly reduced using the \
7206	massless 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
7214	Cell[CellGroupData[{
7215
7216	Cell[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-\
7230	3956e372f48c"],
7231
7232	Cell[CellGroupData[{
7233
7234	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
7235	"Print",
7236	CellChangeTimes->{
7237	3.714052922477131*^9},ExpressionUUID->"6fd019b7-fe5e-41da-b4d5-\
7238	7d7c08339e67"],
7239
7240	Cell[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-\
7251	d028e4124108"],
7252
7253	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
7254	CellChangeTimes->{
7255	3.714053031319613*^9},ExpressionUUID->"39f8fcdc-8ac2-4f23-ab6a-\
7256	ca8bd347deba"],
7257
7258	Cell[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-\
7266	51a2a77c099b"],
7267
7268	Cell[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-\
7277	77da05a643cd"],
7278
7279	Cell[BoxData["\<\"Collecting the different structures that enter the \
7280	vertex.\"\>"], "Print",
7281	CellChangeTimes->{
7282	3.714053146925672*^9},ExpressionUUID->"a5e0fc81-6f03-4a24-a1ad-\
7283	7554973f3a20"],
7284
7285	Cell[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 \
7295	computation: ",
7296	Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
7297	Editable->False]], "Print",
7298	CellChangeTimes->{
7299	3.714053147397628*^9},ExpressionUUID->"636bb010-1431-46f9-a55c-\
7300	f33f99478e52"],
7301
7302	Cell[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
7310	Cell[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-\
7324	f1687e3dada8"],
7325
7326	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
7327	CellChangeTimes->{
7328	3.714053771152417*^9},ExpressionUUID->"d373f064-530f-4efa-8ef8-\
7329	0bab0a7b5f27"],
7330
7331	Cell[BoxData[
7332	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
7333	decays: \"\>",
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-\
7343	2e694fa71152"],
7344
7345	Cell[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-\
7356	30a58aae5747"],
7357
7358	Cell[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
7367	Cell[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-\
7378	47e3e39286dd"],
7379
7380	Cell[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-\
7388	4ac8cf16039f"],
7389
7390	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
7391	CellChangeTimes->{
7392	3.714058028391108*^9},ExpressionUUID->"1a6f8ca3-bb08-48b2-928b-\
7393	15a7f499f9ff"],
7394
7395	Cell[BoxData[
7396	StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
7397	supported!\"\>",
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-\
7406	b71775f59fae"],
7407
7408	Cell[BoxData[
7409	StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
7410	supported!\"\>",
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-\
7419	a631132bd675"],
7420
7421	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
7422	"Print",
7423	CellChangeTimes->{
7424	3.71405804145577*^9},ExpressionUUID->"5918ca2d-0cfb-47d9-8df4-23e7f31e6cf8"],
7425
7426	Cell[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-\
7434	f1528905f7cf"],
7435
7436	Cell[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-\
7447	fb82482fb5fe"],
7448
7449	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
7450	CellChangeTimes->{
7451	3.714058167814595*^9},ExpressionUUID->"a69eb6fc-7648-4845-b4f0-\
7452	2c1fea175864"],
7453
7454	Cell[BoxData[
7455	StyleBox["\<\"Warning: Non positive interaction order QED.\\n \
7456	This 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-\
7466	337a756a3616"],
7467
7468	Cell[BoxData["\<\"Done!\"\>"], "Print",
7469	CellChangeTimes->{
7470	3.714058492255684*^9},ExpressionUUID->"63e9fc37-649d-4d0e-bbc9-\
7471	bf388a83f21c"]
7472	}, Open ]]
7473	}, Open ]]
7474	}, Closed]]
7475	}, Closed]],
7476
7477	Cell[CellGroupData[{
7478
7479	Cell["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-\
7487	6614c43503b7"],
7488
7489	Cell[BoxData[{
7490	RowBox[{
7491	RowBox[{"Flavor", "=", "general"}], ";"}], "\[IndentingNewLine]",
7492	RowBox[{
7493	RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
7494	CellChangeTimes->CompressedData["
7495	1:eJxTTMoPSmViYGAQA2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
7496	BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
7497	BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
7498	gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
7499	oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
7500	tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA9y6F0Buua144GfEvANAC3T8zw
7501
7502	"],ExpressionUUID->"a74b312e-d3dd-4df5-a34b-d90455eb1ede"],
7503
7504	Cell[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 \
7509	might 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
7517	Cell[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-\
7564	d90efc53c0b9"],
7565
7566	Cell[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-\
7601	442cc2ea589e"],
7602
7603	Cell[CellGroupData[{
7604
7605	Cell[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-\
7624	948941db76e3"],
7625
7626	Cell[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-\
7640	84be0d49ec34"],
7641
7642	Cell[CellGroupData[{
7643
7644	Cell[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-\
7655	e94aee5f9f62"],
7656
7657	Cell[CellGroupData[{
7658
7659	Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
7660	eigenstates 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-\
7664	295c0c4423cc"],
7665
7666	Cell[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-\
7676	7536692f852c"],
7677
7678	Cell[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
7691	Cell[CellGroupData[{
7692
7693	Cell[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-\
7731	c15a2e830050"],
7732
7733	Cell[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-\
7795	24d19241d06f"],
7796
7797	Cell[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-\
7870	9bf99f6df866"],
7871
7872	Cell[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-\
7961	cc8cc43ec24c"]
7962	}, Open ]],
7963
7964	Cell[CellGroupData[{
7965
7966	Cell[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-\
7994	aec64f831484"],
7995
7996	Cell[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-\
8036	e4eec1161287"],
8037
8038	Cell[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-\
8107	fa4365817ca1"],
8108
8109	Cell[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-\
8186	c54df04861ff"]
8187	}, Open ]],
8188
8189	Cell[BoxData[""], "Input",
8190	CellChangeTimes->{3.714652368810739*^9,
8191	3.7146524695105267`*^9},ExpressionUUID->"5032158e-c686-4b06-b08a-\
8192	894cfc40cd19"],
8193
8194	Cell[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-\
8206	1388f6e90427"],
8207
8208	Cell[CellGroupData[{
8209
8210	Cell[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-\
8244	16f2b262a5f8"],
8245
8246	Cell[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-\
8318	df95431809c7"],
8319
8320	Cell[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-\
8411	9a58c49bd0fa"],
8412
8413	Cell[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-\
8515	85db2776f5eb"]
8516	}, Open ]],
8517
8518	Cell[CellGroupData[{
8519
8520	Cell[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-\
8548	c10a464b6158"],
8549
8550	Cell[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-\
8589	7eb84c25c5af"],
8590
8591	Cell[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-\
8648	004160c839e6"],
8649
8650	Cell[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-\
8720	0232782bd0ef"]
8721	}, Open ]]
8722	}, Closed]],
8723
8724	Cell[CellGroupData[{
8725
8726	Cell["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-\
8730	fdccf9f25336"],
8731
8732	Cell[CellGroupData[{
8733
8734	Cell[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-\
8753	d0add110c8a5"],
8754
8755	Cell[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-\
8848	ffdedbb4b84d"]
8849	}, Open ]],
8850
8851	Cell[CellGroupData[{
8852
8853	Cell[BoxData[
8854	RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
8855	CellChangeTimes->{{3.714653438713478*^9,
8856	3.7146534431183643`*^9}},ExpressionUUID->"0e3c2ec2-99d8-4980-bdd7-\
8857	3c555ccea1f1"],
8858
8859	Cell[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-\
8871	babd5a52309b"]
8872	}, Open ]],
8873
8874	Cell[CellGroupData[{
8875
8876	Cell[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-\
8892	662bb26beadf"],
8893
8894	Cell[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-\
9058	78ec22e04261"]
9059	}, Open ]],
9060
9061	Cell[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-\
9067	39c8b773d61f"],
9068
9069	Cell[CellGroupData[{
9070
9071	Cell[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-\
9089	cb5a384e7722"],
9090
9091	Cell[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-\
9128	a4397eeff8a8"],
9129
9130	Cell[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-\
9183	5a30a386215e"]
9184	}, Open ]],
9185
9186	Cell[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-\
9202	aadd5f35e981"],
9203
9204	Cell[CellGroupData[{
9205
9206	Cell[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-\
9220	5e2a7aed83a1"],
9221
9222	Cell[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-\
9261	1faea577b7d8"]
9262	}, Open ]]
9263	}, Closed]],
9264
9265	Cell[CellGroupData[{
9266
9267	Cell[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-\
9279	30ca0415f3f3"],
9280
9281	Cell[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-\
9289	41717bcc47c9"],
9290
9291	Cell[CellGroupData[{
9292
9293	Cell[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-\
9313	dbdfd8657eca"],
9314
9315	Cell[CellGroupData[{
9316
9317	Cell[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-\
9329	7213a77f650d"],
9330
9331	Cell[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-\
9335	a1ba884f87cc"],
9336
9337	Cell[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-\
9346	f5b4d18b6274"],
9347
9348	Cell[BoxData["\<\"Collecting the different structures that enter the \
9349	vertex.\"\>"], "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-\
9353	80c12f64274b"],
9354
9355	Cell[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 \
9365	computation: ",
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-\
9371	3b3b6c0d5e57"],
9372
9373	Cell[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-\
9381	6476cec4e798"]
9382	}, Open ]],
9383
9384	Cell[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]],
10030	FeynRules`Index[FeynRules`Colour,
10031	FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2)
10032	FeynRules`IndexDelta[
10033	FeynRules`Index[$CellContext`Generation,
10034	FeynRules`Ext[1]],
10035	FeynRules`Index[$CellContext`Generation,
10036	FeynRules`Ext[2]]]) FeynRules`TensDot[
10037	FeynRules`Ga[
10038	FeynRules`Index[FeynRules`Lorentz,
10039	FeynRules`Ext[3]]], FeynRules`ProjM][
10040	FeynRules`Index[FeynRules`Spin,
10041	FeynRules`Ext[1]],
10042	FeynRules`Index[FeynRules`Spin,
10043	FeynRules`Ext[2]]] - (((
10044	3 $CellContext`dgw) $CellContext`LambdaSMEFT^2)
10045	FeynRules`IndexDelta[
10046	FeynRules`Index[$CellContext`Generation,
10047	FeynRules`Ext[1]],
10048	FeynRules`Index[$CellContext`Generation,
10049	FeynRules`Ext[2]]]) FeynRules`TensDot[
10050	FeynRules`Ga[
10051	FeynRules`Index[FeynRules`Lorentz,
10052	FeynRules`Ext[3]]], FeynRules`ProjM][
10053	FeynRules`Index[FeynRules`Spin,
10054	FeynRules`Ext[1]],
10055	FeynRules`Index[FeynRules`Spin,
10056	FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
10057	FeynRules`IndexDelta[
10058	FeynRules`Index[$CellContext`Generation,
10059	FeynRules`Ext[1]],
10060	FeynRules`Index[$CellContext`Generation,
10061	FeynRules`Ext[2]]]) FeynRules`TensDot[
10062	FeynRules`Ga[
10063	FeynRules`Index[FeynRules`Lorentz,
10064	FeynRules`Ext[3]]], FeynRules`ProjM][
10065	FeynRules`Index[FeynRules`Spin,
10066	FeynRules`Ext[1]],
10067	FeynRules`Index[FeynRules`Spin,
10068	FeynRules`Ext[
10069	2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
10070	FeynRules`IndexDelta[
10071	FeynRules`Index[$CellContext`Generation,
10072	FeynRules`Ext[1]],
10073	FeynRules`Index[$CellContext`Generation,
10074	FeynRules`Ext[2]]]) FeynRules`TensDot[
10075	FeynRules`Ga[
10076	FeynRules`Index[FeynRules`Lorentz,
10077	FeynRules`Ext[3]]], FeynRules`ProjP][
10078	FeynRules`Index[FeynRules`Spin,
10079	FeynRules`Ext[1]],
10080	FeynRules`Index[FeynRules`Spin,
10081	FeynRules`Ext[
10082	2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
10083	$CellContext`vevhat^2) FeynRules`IndexDelta[
10084	FeynRules`Index[$CellContext`Generation,
10085	FeynRules`Ext[1]],
10086	FeynRules`Index[$CellContext`Generation,
10087	FeynRules`Ext[2]]]) ((-2) FeynRules`TensDot[
10088	FeynRules`Ga[
10089	FeynRules`Index[FeynRules`Lorentz,
10090	FeynRules`Ext[3]]], FeynRules`ProjM][
10091	FeynRules`Index[FeynRules`Spin,
10092	FeynRules`Ext[1]],
10093	FeynRules`Index[FeynRules`Spin,
10094	FeynRules`Ext[2]]] + FeynRules`TensDot[
10095	FeynRules`Ga[
10096	FeynRules`Index[FeynRules`Lorentz,
10097	FeynRules`Ext[3]]], FeynRules`ProjP][
10098	FeynRules`Index[FeynRules`Spin,
10099	FeynRules`Ext[1]],
10100	FeynRules`Index[FeynRules`Spin,
10101	FeynRules`Ext[
10102	2]]]) + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2)
10103	FeynRules`IndexDelta[
10104	FeynRules`Index[$CellContext`Generation,
10105	FeynRules`Ext[1]],
10106	FeynRules`Index[$CellContext`Generation,
10107	FeynRules`Ext[2]]]) ((2 - $CellContext`dg1 + 3 $CellContext`dgw)
10108	FeynRules`TensDot[
10109	FeynRules`Ga[
10110	FeynRules`Index[FeynRules`Lorentz,
10111	FeynRules`Ext[3]]], FeynRules`ProjM][
10112	FeynRules`Index[FeynRules`Spin,
10113	FeynRules`Ext[1]],
10114	FeynRules`Index[FeynRules`Spin,
10115	FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1))
10116	FeynRules`TensDot[
10117	FeynRules`Ga[
10118	FeynRules`Index[FeynRules`Lorentz,
10119	FeynRules`Ext[3]]], FeynRules`ProjP][
10120	FeynRules`Index[FeynRules`Spin,
10121	FeynRules`Ext[1]],
10122	FeynRules`Index[FeynRules`Spin,
10123	FeynRules`Ext[2]]]) - (3 $CellContext`vevhat^2) ($CellContext`cHq1[
10124	FeynRules`Index[$CellContext`Generation,
10125	FeynRules`Ext[1]],
10126	FeynRules`Index[$CellContext`Generation,
10127	FeynRules`Ext[2]]] FeynRules`TensDot[
10128	FeynRules`Ga[
10129	FeynRules`Index[FeynRules`Lorentz,
10130	FeynRules`Ext[3]]], FeynRules`ProjM][
10131	FeynRules`Index[FeynRules`Spin,
10132	FeynRules`Ext[1]],
10133	FeynRules`Index[FeynRules`Spin,
10134	FeynRules`Ext[2]]] + $CellContext`cHq3[
10135	FeynRules`Index[$CellContext`Generation,
10136	FeynRules`Ext[1]],
10137	FeynRules`Index[$CellContext`Generation,
10138	FeynRules`Ext[2]]] FeynRules`TensDot[
10139	FeynRules`Ga[
10140	FeynRules`Index[FeynRules`Lorentz,
10141	FeynRules`Ext[3]]], FeynRules`ProjM][
10142	FeynRules`Index[FeynRules`Spin,
10143	FeynRules`Ext[1]],
10144	FeynRules`Index[FeynRules`Spin,
10145	FeynRules`Ext[2]]] + $CellContext`cHd[
10146	FeynRules`Index[$CellContext`Generation,
10147	FeynRules`Ext[1]],
10148	FeynRules`Index[$CellContext`Generation,
10149	FeynRules`Ext[2]]] FeynRules`TensDot[
10150	FeynRules`Ga[
10151	FeynRules`Index[FeynRules`Lorentz,
10152	FeynRules`Ext[3]]], FeynRules`ProjP][
10153	FeynRules`Index[FeynRules`Spin,
10154	FeynRules`Ext[1]],
10155	FeynRules`Index[FeynRules`Spin,
10156	FeynRules`Ext[2]]]))}, {{{$CellContext`lbar, 1}, {
10157	FeynRules`l, 2}, {$CellContext`Z, 3}}, ((((Complex[0,
10158	Rational[-1, 2]]/$CellContext`cth)
10159	FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
10160	(((-$CellContext`LambdaSMEFT^2) FeynRules`IndexDelta[
10161	FeynRules`Index[$CellContext`Generation,
10162	FeynRules`Ext[1]],
10163	FeynRules`Index[$CellContext`Generation,
10164	FeynRules`Ext[2]]]) FeynRules`TensDot[
10165	FeynRules`Ga[
10166	FeynRules`Index[FeynRules`Lorentz,
10167	FeynRules`Ext[3]]], FeynRules`ProjM][
10168	FeynRules`Index[FeynRules`Spin,
10169	FeynRules`Ext[1]],
10170	FeynRules`Index[FeynRules`Spin,
10171	FeynRules`Ext[2]]] - (($CellContext`dgw $CellContext`LambdaSMEFT^2)
10172	FeynRules`IndexDelta[
10173	FeynRules`Index[$CellContext`Generation,
10174	FeynRules`Ext[1]],
10175	FeynRules`Index[$CellContext`Generation,
10176	FeynRules`Ext[2]]]) FeynRules`TensDot[
10177	FeynRules`Ga[
10178	FeynRules`Index[FeynRules`Lorentz,
10179	FeynRules`Ext[3]]], FeynRules`ProjM][
10180	FeynRules`Index[FeynRules`Spin,
10181	FeynRules`Ext[1]],
10182	FeynRules`Index[FeynRules`Spin,
10183	FeynRules`Ext[2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
10184	FeynRules`IndexDelta[
10185	FeynRules`Index[$CellContext`Generation,
10186	FeynRules`Ext[1]],
10187	FeynRules`Index[$CellContext`Generation,
10188	FeynRules`Ext[2]]]) FeynRules`TensDot[
10189	FeynRules`Ga[
10190	FeynRules`Index[FeynRules`Lorentz,
10191	FeynRules`Ext[3]]], FeynRules`ProjM][
10192	FeynRules`Index[FeynRules`Spin,
10193	FeynRules`Ext[1]],
10194	FeynRules`Index[FeynRules`Spin,
10195	FeynRules`Ext[
10196	2]]] + (($CellContext`dsth2 $CellContext`LambdaSMEFT^2)
10197	FeynRules`IndexDelta[
10198	FeynRules`Index[$CellContext`Generation,
10199	FeynRules`Ext[1]],
10200	FeynRules`Index[$CellContext`Generation,
10201	FeynRules`Ext[2]]]) FeynRules`TensDot[
10202	FeynRules`Ga[
10203	FeynRules`Index[FeynRules`Lorentz,
10204	FeynRules`Ext[3]]], FeynRules`ProjP][
10205	FeynRules`Index[FeynRules`Spin,
10206	FeynRules`Ext[1]],
10207	FeynRules`Index[FeynRules`Spin,
10208	FeynRules`Ext[
10209	2]]] + (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
10210	$CellContext`vevhat^2) FeynRules`IndexDelta[
10211	FeynRules`Index[$CellContext`Generation,
10212	FeynRules`Ext[1]],
10213	FeynRules`Index[$CellContext`Generation,
10214	FeynRules`Ext[2]]]) FeynRules`TensDot[
10215	FeynRules`Ga[
10216	FeynRules`Index[FeynRules`Lorentz,
10217	FeynRules`Ext[3]]], FeynRules`ProjP][
10218	FeynRules`Index[FeynRules`Spin,
10219	FeynRules`Ext[1]],
10220	FeynRules`Index[FeynRules`Spin,
10221	FeynRules`Ext[
10222	2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2)
10223	FeynRules`IndexDelta[
10224	FeynRules`Index[$CellContext`Generation,
10225	FeynRules`Ext[1]],
10226	FeynRules`Index[$CellContext`Generation,
10227	FeynRules`Ext[2]]]) ((2 + $CellContext`dg1 + $CellContext`dgw)
10228	FeynRules`TensDot[
10229	FeynRules`Ga[
10230	FeynRules`Index[FeynRules`Lorentz,
10231	FeynRules`Ext[3]]], FeynRules`ProjM][
10232	FeynRules`Index[FeynRules`Spin,
10233	FeynRules`Ext[1]],
10234	FeynRules`Index[FeynRules`Spin,
10235	FeynRules`Ext[2]]] + (2 (1 + $CellContext`dg1))
10236	FeynRules`TensDot[
10237	FeynRules`Ga[
10238	FeynRules`Index[FeynRules`Lorentz,
10239	FeynRules`Ext[3]]], FeynRules`ProjP][
10240	FeynRules`Index[FeynRules`Spin,
10241	FeynRules`Ext[1]],
10242	FeynRules`Index[FeynRules`Spin,
10243	FeynRules`Ext[2]]]) - $CellContext`vevhat^2 ($CellContext`cHl1[
10244	FeynRules`Index[$CellContext`Generation,
10245	FeynRules`Ext[1]],
10246	FeynRules`Index[$CellContext`Generation,
10247	FeynRules`Ext[2]]] FeynRules`TensDot[
10248	FeynRules`Ga[
10249	FeynRules`Index[FeynRules`Lorentz,
10250	FeynRules`Ext[3]]], FeynRules`ProjM][
10251	FeynRules`Index[FeynRules`Spin,
10252	FeynRules`Ext[1]],
10253	FeynRules`Index[FeynRules`Spin,
10254	FeynRules`Ext[2]]] + $CellContext`cHl3[
10255	FeynRules`Index[$CellContext`Generation,
10256	FeynRules`Ext[1]],
10257	FeynRules`Index[$CellContext`Generation,
10258	FeynRules`Ext[2]]] FeynRules`TensDot[
10259	FeynRules`Ga[
10260	FeynRules`Index[FeynRules`Lorentz,
10261	FeynRules`Ext[3]]], FeynRules`ProjM][
10262	FeynRules`Index[FeynRules`Spin,
10263	FeynRules`Ext[1]],
10264	FeynRules`Index[FeynRules`Spin,
10265	FeynRules`Ext[2]]] + $CellContext`cHe[
10266	FeynRules`Index[$CellContext`Generation,
10267	FeynRules`Ext[1]],
10268	FeynRules`Index[$CellContext`Generation,
10269	FeynRules`Ext[2]]] FeynRules`TensDot[
10270	FeynRules`Ga[
10271	FeynRules`Index[FeynRules`Lorentz,
10272	FeynRules`Ext[3]]], FeynRules`ProjP][
10273	FeynRules`Index[FeynRules`Spin,
10274	FeynRules`Ext[1]],
10275	FeynRules`Index[FeynRules`Spin,
10276	FeynRules`Ext[2]]]))}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
10277	2}, {$CellContext`Z, 3}}, (((((Complex[0,
10278	Rational[1, 6]]/$CellContext`cth)
10279	FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth)
10280	FeynRules`IndexDelta[
10281	FeynRules`Index[FeynRules`Colour,
10282	FeynRules`Ext[1]],
10283	FeynRules`Index[FeynRules`Colour,
10284	FeynRules`Ext[2]]]) ((((-3) $CellContext`LambdaSMEFT^2)
10285	FeynRules`IndexDelta[
10286	FeynRules`Index[$CellContext`Generation,
10287	FeynRules`Ext[1]],
10288	FeynRules`Index[$CellContext`Generation,
10289	FeynRules`Ext[2]]]) FeynRules`TensDot[
10290	FeynRules`Ga[
10291	FeynRules`Index[FeynRules`Lorentz,
10292	FeynRules`Ext[3]]], FeynRules`ProjM][
10293	FeynRules`Index[FeynRules`Spin,
10294	FeynRules`Ext[1]],
10295	FeynRules`Index[FeynRules`Spin,
10296	FeynRules`Ext[2]]] - (((
10297	3 $CellContext`dgw) $CellContext`LambdaSMEFT^2)
10298	FeynRules`IndexDelta[
10299	FeynRules`Index[$CellContext`Generation,
10300	FeynRules`Ext[1]],
10301	FeynRules`Index[$CellContext`Generation,
10302	FeynRules`Ext[2]]]) FeynRules`TensDot[
10303	FeynRules`Ga[
10304	FeynRules`Index[FeynRules`Lorentz,
10305	FeynRules`Ext[3]]], FeynRules`ProjM][
10306	FeynRules`Index[FeynRules`Spin,
10307	FeynRules`Ext[1]],
10308	FeynRules`Index[FeynRules`Spin,
10309	FeynRules`Ext[
10310	2]]] + (((2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2)
10311	FeynRules`IndexDelta[
10312	FeynRules`Index[$CellContext`Generation,
10313	FeynRules`Ext[1]],
10314	FeynRules`Index[$CellContext`Generation,
10315	FeynRules`Ext[2]]]) FeynRules`TensDot[
10316	FeynRules`Ga[
10317	FeynRules`Index[FeynRules`Lorentz,
10318	FeynRules`Ext[3]]], FeynRules`ProjM][
10319	FeynRules`Index[FeynRules`Spin,
10320	FeynRules`Ext[1]],
10321	FeynRules`Index[FeynRules`Spin,
10322	FeynRules`Ext[
10323	2]]] - (((($CellContext`cHWB $CellContext`cth) $CellContext`sth) \
10324	$CellContext`vevhat^2) FeynRules`IndexDelta[
10325	FeynRules`Index[$CellContext`Generation,
10326	FeynRules`Ext[1]],
10327	FeynRules`Index[$CellContext`Generation,
10328	FeynRules`Ext[2]]]) (FeynRules`TensDot[
10329	FeynRules`Ga[
10330	FeynRules`Index[FeynRules`Lorentz,
10331	FeynRules`Ext[3]]], FeynRules`ProjM][
10332	FeynRules`Index[FeynRules`Spin,
10333	FeynRules`Ext[1]],
10334	FeynRules`Index[FeynRules`Spin,
10335	FeynRules`Ext[2]]] - 2 FeynRules`TensDot[
10336	FeynRules`Ga[
10337	FeynRules`Index[FeynRules`Lorentz,
10338	FeynRules`Ext[3]]], FeynRules`ProjP][
10339	FeynRules`Index[FeynRules`Spin,
10340	FeynRules`Ext[1]],
10341	FeynRules`Index[FeynRules`Spin,
10342	FeynRules`Ext[2]]]) + (((
10343	2 $CellContext`dsth2) $CellContext`LambdaSMEFT^2)
10344	FeynRules`IndexDelta[
10345	FeynRules`Index[$CellContext`Generation,
10346	FeynRules`Ext[1]],
10347	FeynRules`Index[$CellContext`Generation,
10348	FeynRules`Ext[2]]]) FeynRules`TensDot[
10349	FeynRules`Ga[
10350	FeynRules`Index[FeynRules`Lorentz,
10351	FeynRules`Ext[3]]], FeynRules`ProjP][
10352	FeynRules`Index[FeynRules`Spin,
10353	FeynRules`Ext[1]],
10354	FeynRules`Index[FeynRules`Spin,
10355	FeynRules`Ext[
10356	2]]] + (($CellContext`LambdaSMEFT^2 $CellContext`sth^2)
10357	FeynRules`IndexDelta[
10358	FeynRules`Index[$CellContext`Generation,
10359	FeynRules`Ext[1]],
10360	FeynRules`Index[$CellContext`Generation,
10361	FeynRules`Ext[2]]]) ((4 + $CellContext`dg1 + 3 $CellContext`dgw)
10362	FeynRules`TensDot[
10363	FeynRules`Ga[
10364	FeynRules`Index[FeynRules`Lorentz,
10365	FeynRules`Ext[3]]], FeynRules`ProjM][
10366	FeynRules`Index[FeynRules`Spin,
10367	FeynRules`Ext[1]],
10368	FeynRules`Index[FeynRules`Spin,
10369	FeynRules`Ext[2]]] + (4 (1 + $CellContext`dg1))
10370	FeynRules`TensDot[
10371	FeynRules`Ga[
10372	FeynRules`Index[FeynRules`Lorentz,
10373	FeynRules`Ext[3]]], FeynRules`ProjP][
10374	FeynRules`Index[FeynRules`Spin,
10375	FeynRules`Ext[1]],
10376	FeynRules`Index[FeynRules`Spin,
10377	FeynRules`Ext[2]]]) + (3 $CellContext`vevhat^2) ($CellContext`cHq1[
10378	FeynRules`Index[$CellContext`Generation,
10379	FeynRules`Ext[1]],
10380	FeynRules`Index[$CellContext`Generation,
10381	FeynRules`Ext[2]]] FeynRules`TensDot[
10382	FeynRules`Ga[
10383	FeynRules`Index[FeynRules`Lorentz,
10384	FeynRules`Ext[3]]], FeynRules`ProjM][
10385	FeynRules`Index[FeynRules`Spin,
10386	FeynRules`Ext[1]],
10387	FeynRules`Index[FeynRules`Spin,
10388	FeynRules`Ext[2]]] - $CellContext`cHq3[
10389	FeynRules`Index[$CellContext`Generation,
10390	FeynRules`Ext[1]],
10391	FeynRules`Index[$CellContext`Generation,
10392	FeynRules`Ext[2]]] FeynRules`TensDot[
10393	FeynRules`Ga[
10394	FeynRules`Index[FeynRules`Lorentz,
10395	FeynRules`Ext[3]]], FeynRules`ProjM][
10396	FeynRules`Index[FeynRules`Spin,
10397	FeynRules`Ext[1]],
10398	FeynRules`Index[FeynRules`Spin,
10399	FeynRules`Ext[2]]] + $CellContext`cHu[
10400	FeynRules`Index[$CellContext`Generation,
10401	FeynRules`Ext[1]],
10402	FeynRules`Index[$CellContext`Generation,
10403	FeynRules`Ext[2]]] FeynRules`TensDot[
10404	FeynRules`Ga[
10405	FeynRules`Index[FeynRules`Lorentz,
10406	FeynRules`Ext[3]]], FeynRules`ProjP][
10407	FeynRules`Index[FeynRules`Spin,
10408	FeynRules`Ext[1]],
10409	FeynRules`Index[FeynRules`Spin,
10410	FeynRules`Ext[2]]]))}, {{{$CellContext`vlbar,
10411	1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, (((((Complex[0,
10412	Rational[1, 2]]/$CellContext`cth)
10413	FeynRules`ee) $CellContext`LambdaSMEFT^(-2))/$CellContext`sth) \
10414	($CellContext`vevhat^2 $CellContext`cHl1[
10415	FeynRules`Index[$CellContext`Generation,
10416	FeynRules`Ext[1]],
10417	FeynRules`Index[$CellContext`Generation,
10418	FeynRules`Ext[2]]] - $CellContext`vevhat^2 $CellContext`cHl3[
10419	FeynRules`Index[$CellContext`Generation,
10420	FeynRules`Ext[1]],
10421	FeynRules`Index[$CellContext`Generation,
10422	FeynRules`Ext[
10423	2]]] + ($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
10424	(-$CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
10425	(($CellContext`cHWB $CellContext`cth) $CellContext`sth) $CellContext`vevhat^2)
10426	FeynRules`IndexDelta[
10427	FeynRules`Index[$CellContext`Generation,
10428	FeynRules`Ext[1]],
10429	FeynRules`Index[$CellContext`Generation,
10430	FeynRules`Ext[2]]])) FeynRules`TensDot[
10431	FeynRules`Ga[
10432	FeynRules`Index[FeynRules`Lorentz,
10433	FeynRules`Ext[3]]], FeynRules`ProjM][
10434	FeynRules`Index[FeynRules`Spin,
10435	FeynRules`Ext[1]],
10436	FeynRules`Index[FeynRules`Spin,
10437	FeynRules`Ext[2]]]}}]]], "Output",
10438	CellChangeTimes->{
10439	3.711173839167266^9, 3.712483365603745^9, 3.7139663983257236`*^9, {
10440	3.7146527464730873`^9, 3.714652771211906^9}, 3.7146529268852043`*^9,
10441	3.7146544666189938`^9, 3.714655268809128^9,
10442	3.714655913856608*^9},ExpressionUUID->"a4cc2dac-d5fe-4d76-a893-\
10443	a34014c7c8f8"]
10444	}, Open ]],
10445
10446	Cell["neutrino coupling :", "Text",
10447	CellChangeTimes->{{3.7146528020724363`*^9,
10448	3.7146528092589808`*^9}},ExpressionUUID->"cb0fccbf-b240-4fca-9a1f-\
10449	62013718f840"],
10450
10451	Cell[CellGroupData[{
10452
10453	Cell[BoxData[{
10454	RowBox[{"ZffCouplings", "[",
10455	RowBox[{"[",
10456	RowBox[{"1", ",",
10457	RowBox[{"-", "1"}], ",",
10458	RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
10459	RowBox[{
10460	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
10461	RowBox[{
10462	RowBox[{"SMlimit", "[", "%", "]"}], " ",
10463	RowBox[{"WCsimplify", "[",
10464	RowBox[{
10465	FractionBox["%",
10466	RowBox[{"SMlimit", "[", "%", "]"}]], "/.",
10467	RowBox[{
10468	RowBox[{"IndexDelta", "[",
10469	RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
10470	CellChangeTimes->{{3.706961712640883^9, 3.7069617312434893`^9},
10471	3.711174006710514^9, {3.711174069176218^9, 3.711174078189027*^9}, {
10472	3.714475532098426^9, 3.7144755376724243`^9}, {3.714652781745085*^9,
10473	3.714652890708997^9}, {3.714652953030558^9, 3.7146530356237173`*^9}, {
10474	3.714654434479714^9, 3.714654435996188^9}, {3.714655230398345*^9,
10475	3.7146552321135807`^9}, {3.7146558720064297`^9,
10476	3.71465587359627*^9}},ExpressionUUID->"e9520123-f2c2-47d3-8479-\
10477	68c655b8451f"],
10478
10479	Cell[BoxData[
10480	FractionBox[
10481	RowBox[{"\[ImaginaryI]", " ", "e", " ",
10482	RowBox[{"(",
10483	RowBox[{
10484	RowBox[{
10485	SuperscriptBox[
10486	OverscriptBox["v", "^"], "2"], " ",
10487	SubscriptBox["cHl1",
10488	RowBox[{
10489	SubscriptBox["\<\"f\"\>", "1"], ",",
10490	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
10491	RowBox[{
10492	SuperscriptBox[
10493	OverscriptBox["v", "^"], "2"], " ",
10494	SubscriptBox["cHl3",
10495	RowBox[{
10496	SubscriptBox["\<\"f\"\>", "1"], ",",
10497	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
10498	RowBox[{
10499	RowBox[{"(",
10500	RowBox[{
10501	RowBox[{
10502	SuperscriptBox["\[CapitalLambda]", "2"], " ",
10503	RowBox[{"(",
10504	RowBox[{
10505	RowBox[{"-", "1"}], "-", "dgw", "+",
10506	RowBox[{
10507	RowBox[{"(",
10508	RowBox[{
10509	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
10510	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
10511	RowBox[{
10512	SubscriptBox["c", "HWB"], " ",
10513	SubscriptBox["c", "\[Theta]"], " ",
10514	SubscriptBox["s", "\[Theta]"], " ",
10515	SuperscriptBox[
10516	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
10517	SubscriptBox["\[Delta]",
10518	RowBox[{
10519	SubscriptBox["\<\"f\"\>", "1"], ",",
10520	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ",
10521	SubscriptBox[
10522	RowBox[{
10523	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
10524	"Superscript"], ".",
10525	SubscriptBox["P", "\<\"-\"\>"]}],
10526	RowBox[{
10527	SubscriptBox["\<\"s\"\>", "1"], ",",
10528	SubscriptBox["\<\"s\"\>", "2"]}]]}],
10529	RowBox[{"2", " ",
10530	SubscriptBox["c", "\[Theta]"], " ",
10531	SuperscriptBox["\[CapitalLambda]", "2"], " ",
10532	SubscriptBox["s", "\[Theta]"]}]]], "Output",
10533	CellChangeTimes->{
10534	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
10535	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
10536	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
10537	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
10538	3.714652929930028^9, 3.7146530359952927`^9}, 3.714654466678053*^9,
10539	3.7146552688816023`*^9,
10540	3.714655913909856*^9},ExpressionUUID->"c9e4759c-fb99-4898-b95a-\
10541	7e527fa2a6ed"],
10542
10543	Cell[BoxData[
10544	FractionBox[
10545	RowBox[{"\[ImaginaryI]", " ", "e", " ",
10546	RowBox[{"(",
10547	RowBox[{
10548	RowBox[{"4", " ",
10549	SuperscriptBox[
10550	OverscriptBox["v", "^"], "2"], " ",
10551	SubscriptBox["cHl1",
10552	RowBox[{
10553	SubscriptBox["\<\"f\"\>", "1"], ",",
10554	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
10555	RowBox[{"4", " ",
10556	SuperscriptBox[
10557	OverscriptBox["v", "^"], "2"], " ",
10558	SubscriptBox["cHl3",
10559	RowBox[{
10560	SubscriptBox["\<\"f\"\>", "1"], ",",
10561	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
10562	RowBox[{
10563	RowBox[{"(",
10564	RowBox[{
10565	RowBox[{"4", " ",
10566	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
10567	RowBox[{
10568	SuperscriptBox[
10569	OverscriptBox["v", "^"], "2"], " ",
10570	RowBox[{"(",
10571	RowBox[{
10572	SubscriptBox["c", "HD"], "+",
10573	RowBox[{"2", " ",
10574	RowBox[{"(",
10575	RowBox[{
10576	SubscriptBox["cHl3",
10577	RowBox[{"1", ",", "1"}]], "+",
10578	SubscriptBox["cHl3",
10579	RowBox[{"2", ",", "2"}]], "-",
10580	SubscriptBox[
10581	SubscriptBox["c", "ll"],
10582	RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
10583	")"}]}]}], ")"}], " ",
10584	SubscriptBox["\[Delta]",
10585	RowBox[{
10586	SubscriptBox["\<\"f\"\>", "1"], ",",
10587	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}], " ",
10588	SubscriptBox[
10589	RowBox[{
10590	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
10591	"Superscript"], ".",
10592	SubscriptBox["P", "\<\"-\"\>"]}],
10593	RowBox[{
10594	SubscriptBox["\<\"s\"\>", "1"], ",",
10595	SubscriptBox["\<\"s\"\>", "2"]}]]}],
10596	RowBox[{"8", " ",
10597	SubscriptBox["c", "\[Theta]"], " ",
10598	SuperscriptBox["\[CapitalLambda]", "2"], " ",
10599	SubscriptBox["s", "\[Theta]"]}]]], "Output",
10600	CellChangeTimes->{
10601	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
10602	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
10603	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
10604	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
10605	3.714652929930028^9, 3.7146530359952927`^9}, 3.714654466678053*^9,
10606	3.7146552688816023`*^9,
10607	3.7146559142327642`*^9},ExpressionUUID->"6313db45-cfb3-4730-84c8-\
10608	1b0fb54f7527"],
10609
10610	Cell[BoxData[
10611	RowBox[{"-",
10612	FractionBox[
10613	RowBox[{"\[ImaginaryI]", " ", "e", " ",
10614	RowBox[{"(",
10615	RowBox[{"1", "-",
10616	FractionBox[
10617	RowBox[{
10618	SubscriptBox["c", "HD"], " ",
10619	SuperscriptBox[
10620	OverscriptBox["v", "^"], "2"]}],
10621	RowBox[{"4", " ",
10622	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
10623	FractionBox[
10624	RowBox[{
10625	SuperscriptBox[
10626	OverscriptBox["v", "^"], "2"], " ",
10627	SubscriptBox["cHl1",
10628	RowBox[{
10629	SubscriptBox["\<\"f\"\>", "1"], ",",
10630	SubscriptBox["\<\"f\"\>", "2"]}]]}],
10631	SuperscriptBox["\[CapitalLambda]", "2"]], "-",
10632	FractionBox[
10633	RowBox[{
10634	SuperscriptBox[
10635	OverscriptBox["v", "^"], "2"], " ",
10636	SubscriptBox["cHl3",
10637	RowBox[{"1", ",", "1"}]]}],
10638	RowBox[{"2", " ",
10639	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
10640	FractionBox[
10641	RowBox[{
10642	SuperscriptBox[
10643	OverscriptBox["v", "^"], "2"], " ",
10644	SubscriptBox["cHl3",
10645	RowBox[{"2", ",", "2"}]]}],
10646	RowBox[{"2", " ",
10647	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
10648	FractionBox[
10649	RowBox[{
10650	SuperscriptBox[
10651	OverscriptBox["v", "^"], "2"], " ",
10652	SubscriptBox["cHl3",
10653	RowBox[{
10654	SubscriptBox["\<\"f\"\>", "1"], ",",
10655	SubscriptBox["\<\"f\"\>", "2"]}]]}],
10656	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
10657	FractionBox[
10658	RowBox[{
10659	SuperscriptBox[
10660	OverscriptBox["v", "^"], "2"], " ",
10661	SubscriptBox[
10662	SubscriptBox["c", "ll"],
10663	RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}],
10664	RowBox[{"2", " ",
10665	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
10666	SubscriptBox["\[Delta]",
10667	RowBox[{
10668	SubscriptBox["\<\"f\"\>", "1"], ",",
10669	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
10670	SubscriptBox[
10671	RowBox[{
10672	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
10673	"Superscript"], ".",
10674	SubscriptBox["P", "\<\"-\"\>"]}],
10675	RowBox[{
10676	SubscriptBox["\<\"s\"\>", "1"], ",",
10677	SubscriptBox["\<\"s\"\>", "2"]}]]}],
10678	RowBox[{"2", " ",
10679	SubscriptBox["c", "\[Theta]"], " ",
10680	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
10681	CellChangeTimes->{
10682	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
10683	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
10684	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
10685	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
10686	3.714652929930028^9, 3.7146530359952927`^9}, 3.714654466678053*^9,
10687	3.7146552688816023`*^9,
10688	3.714655914288906*^9},ExpressionUUID->"9d0f4392-179b-43f8-89ea-\
10689	56ecfd304de4"]
10690	}, Open ]]
10691	}, Closed]],
10692
10693	Cell[CellGroupData[{
10694
10695	Cell["Example : Yukawa couplings", "Subsection",
10696	CellChangeTimes->{{3.714653803679809*^9,
10697	3.714653813127017*^9}},ExpressionUUID->"31eb39e4-18c9-4305-b4ca-\
10698	c672ea32402d"],
10699
10700	Cell[BoxData[
10701	RowBox[{
10702	RowBox[{"LYuk", " ", "=", " ",
10703	RowBox[{
10704	RowBox[{
10705	RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
10706	"LinearWC"}]}], ";"}]], "Input",
10707	CellChangeTimes->{{3.71465381867803^9, 3.7146538339978323`^9},
10708	3.714653880639667^9, {3.7146539581117077`^9,
10709	3.714653960288474*^9}},ExpressionUUID->"33784723-cdcd-4ee0-88be-\
10710	6b2694ed666c"],
10711
10712	Cell[CellGroupData[{
10713
10714	Cell[BoxData[
10715	RowBox[{"hff", "=",
10716	RowBox[{
10717	RowBox[{
10718	RowBox[{"FeynmanRules", "[",
10719	RowBox[{"LYuk", ",",
10720	RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
10721	RowBox[{"Contains", "\[Rule]",
10722	RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//",
10723	"TableForm"}]}]], "Input",
10724	CellChangeTimes->{{3.714653838776801*^9,
10725	3.7146538891931353`*^9}},ExpressionUUID->"b57d68c4-27c6-4cfa-a828-\
10726	2daed1dae3ca"],
10727
10728	Cell[CellGroupData[{
10729
10730	Cell[BoxData[
10731	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
10732	StripOnInput->False,
10733	LineColor->RGBColor[1, 0.5, 0],
10734	FrontFaceColor->RGBColor[1, 0.5, 0],
10735	BackFaceColor->RGBColor[1, 0.5, 0],
10736	GraphicsColor->RGBColor[1, 0.5, 0],
10737	FontWeight->Bold,
10738	FontColor->RGBColor[1, 0.5, 0]]], "Print",
10739	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
10740	3.714653968951281^9, 3.714654563696785^9, 3.714655375019299*^9,
10741	3.714656054998291*^9},ExpressionUUID->"5e5be8cd-42ef-4199-806d-\
10742	7a302c782018"],
10743
10744	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
10745	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
10746	3.714653968951281^9, 3.714654563696785^9, 3.714655375019299*^9,
10747	3.714656055000606*^9},ExpressionUUID->"30478451-f274-4741-8019-\
10748	20e3265e909a"],
10749
10750	Cell[BoxData[
10751	InterpretationBox[
10752	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
10753	"\[InvisibleSpace]", "\<\" cores\"\>"}],
10754	SequenceForm["Expanding the indices over ", 2, " cores"],
10755	Editable->False]], "Print",
10756	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
10757	3.714653968951281^9, 3.714654563696785^9, 3.714655375019299*^9,
10758	3.714656055003729*^9},ExpressionUUID->"dc72867d-f8f1-4490-847f-\
10759	8e097ba158db"],
10760
10761	Cell[BoxData["\<\"Collecting the different structures that enter the \
10762	vertex.\"\>"], "Print",
10763	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
10764	3.714653968951281^9, 3.714654563696785^9, 3.714655375019299*^9,
10765	3.7146560569918747`*^9},ExpressionUUID->"e4ce735b-c631-467c-8bef-\
10766	a80fdfea0952"],
10767
10768	Cell[BoxData[
10769	InterpretationBox[
10770	RowBox[{
10771	"3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
10772	-> starting the computation: \"\>", "\[InvisibleSpace]",
10773	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
10774	ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
10775	"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
10776	SequenceForm[
10777	3, " possible non-zero vertices have been found -> starting the \
10778	computation: ",
10779	Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
10780	Editable->False]], "Print",
10781	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
10782	3.714653968951281^9, 3.714654563696785^9, 3.714655375019299*^9,
10783	3.714656057017215*^9},ExpressionUUID->"f4a32d55-dac6-4a7b-b5fb-\
10784	102443fb17a6"],
10785
10786	Cell[BoxData[
10787	InterpretationBox[
10788	RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
10789	SequenceForm[3, " vertices obtained."],
10790	Editable->False]], "Print",
10791	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
10792	3.714653968951281^9, 3.714654563696785^9, 3.714655375019299*^9,
10793	3.7146560574851913`*^9},ExpressionUUID->"ef70e897-2ad6-4488-87b2-\
10794	c8600ee04320"]
10795	}, Open ]],
10796
10797	Cell[BoxData[
10798	InterpretationBox[GridBox[{
10799	{GridBox[{
10800	{
10801	OverscriptBox["dq", "\<\"-\"\>"], "1"},
10802	{"dq", "2"},
10803	{"H", "3"}
10804	},
10805	GridBoxAlignment->{
10806	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
10807	"RowsIndexed" -> {}},
10808	GridBoxSpacings->{"Columns" -> {
10809	Offset[0.27999999999999997`], {
10810	Offset[0.7]},
10811	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
10812	Offset[0.2], {
10813	Offset[0.1]},
10814	Offset[0.2]}, "RowsIndexed" -> {}}],
10815	RowBox[{
10816	FractionBox[
10817	RowBox[{"3", " ", "\[ImaginaryI]", " ",
10818	SuperscriptBox[
10819	OverscriptBox["v", "^"], "2"], " ",
10820	SubsuperscriptBox[
10821	RowBox[{"(",
10822	SubscriptBox["c", "dH"], ")"}],
10823	RowBox[{
10824	SubscriptBox["\<\"f\"\>", "2"], ",",
10825	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
10826	SubscriptBox["\[Delta]",
10827	RowBox[{
10828	SubscriptBox["\<\"m\"\>", "1"], ",",
10829	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10830	SubscriptBox[
10831	SubscriptBox["P", "\<\"-\"\>"],
10832	RowBox[{
10833	SubscriptBox["\<\"s\"\>", "1"], ",",
10834	SubscriptBox["\<\"s\"\>", "2"]}]]}],
10835	RowBox[{"2", " ",
10836	SqrtBox["2"], " ",
10837	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
10838	FractionBox[
10839	RowBox[{"3", " ", "\[ImaginaryI]", " ",
10840	SuperscriptBox[
10841	OverscriptBox["v", "^"], "2"], " ",
10842	SubscriptBox[
10843	SubscriptBox["c", "dH"],
10844	RowBox[{
10845	SubscriptBox["\<\"f\"\>", "1"], ",",
10846	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
10847	SubscriptBox["\[Delta]",
10848	RowBox[{
10849	SubscriptBox["\<\"m\"\>", "1"], ",",
10850	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10851	SubscriptBox[
10852	SubscriptBox["P", "\<\"+\"\>"],
10853	RowBox[{
10854	SubscriptBox["\<\"s\"\>", "1"], ",",
10855	SubscriptBox["\<\"s\"\>", "2"]}]]}],
10856	RowBox[{"2", " ",
10857	SqrtBox["2"], " ",
10858	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
10859	FractionBox[
10860	RowBox[{"\[ImaginaryI]", " ",
10861	SubscriptBox["c",
10862	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
10863	SuperscriptBox[
10864	OverscriptBox["v", "^"], "2"], " ",
10865	SubscriptBox["\[Delta]",
10866	RowBox[{
10867	SubscriptBox["\<\"m\"\>", "1"], ",",
10868	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10869	RowBox[{"(",
10870	RowBox[{
10871	RowBox[{
10872	SubscriptBox[
10873	SubscriptBox["P", "\<\"-\"\>"],
10874	RowBox[{
10875	SubscriptBox["\<\"s\"\>", "1"], ",",
10876	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
10877	SubscriptBox[
10878	TemplateBox[{"y","d"},
10879	"Superscript"],
10880	RowBox[{
10881	SubscriptBox["\<\"f\"\>", "1"], ",",
10882	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
10883	RowBox[{
10884	SubscriptBox[
10885	SubscriptBox["P", "\<\"+\"\>"],
10886	RowBox[{
10887	SubscriptBox["\<\"s\"\>", "1"], ",",
10888	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
10889	SubscriptBox[
10890	TemplateBox[{"y","d"},
10891	"Superscript"],
10892	RowBox[{
10893	SubscriptBox["\<\"f\"\>", "2"], ",",
10894	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
10895	RowBox[{
10896	SqrtBox["2"], " ",
10897	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
10898	FractionBox[
10899	RowBox[{"\[ImaginaryI]", " ",
10900	SubscriptBox["c", "HD"], " ",
10901	SuperscriptBox[
10902	OverscriptBox["v", "^"], "2"], " ",
10903	SubscriptBox["\[Delta]",
10904	RowBox[{
10905	SubscriptBox["\<\"m\"\>", "1"], ",",
10906	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10907	RowBox[{"(",
10908	RowBox[{
10909	RowBox[{
10910	SubscriptBox[
10911	SubscriptBox["P", "\<\"-\"\>"],
10912	RowBox[{
10913	SubscriptBox["\<\"s\"\>", "1"], ",",
10914	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
10915	SubscriptBox[
10916	TemplateBox[{"y","d"},
10917	"Superscript"],
10918	RowBox[{
10919	SubscriptBox["\<\"f\"\>", "1"], ",",
10920	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
10921	RowBox[{
10922	SubscriptBox[
10923	SubscriptBox["P", "\<\"+\"\>"],
10924	RowBox[{
10925	SubscriptBox["\<\"s\"\>", "1"], ",",
10926	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
10927	SubscriptBox[
10928	TemplateBox[{"y","d"},
10929	"Superscript"],
10930	RowBox[{
10931	SubscriptBox["\<\"f\"\>", "2"], ",",
10932	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
10933	RowBox[{"4", " ",
10934	SqrtBox["2"], " ",
10935	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
10936	FractionBox[
10937	RowBox[{"\[ImaginaryI]", " ",
10938	SubscriptBox["\[Delta]",
10939	RowBox[{
10940	SubscriptBox["\<\"m\"\>", "1"], ",",
10941	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
10942	RowBox[{"(",
10943	RowBox[{
10944	RowBox[{
10945	SubsuperscriptBox["yd0",
10946	RowBox[{
10947	SubscriptBox["\<\"f\"\>", "2"], ",",
10948	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
10949	SubscriptBox[
10950	SubscriptBox["P", "\<\"+\"\>"],
10951	RowBox[{
10952	SubscriptBox["\<\"s\"\>", "1"], ",",
10953	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
10954	RowBox[{
10955	SubscriptBox[
10956	SubscriptBox["P", "\<\"-\"\>"],
10957	RowBox[{
10958	SubscriptBox["\<\"s\"\>", "1"], ",",
10959	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
10960	SubscriptBox["yd0",
10961	RowBox[{
10962	SubscriptBox["\<\"f\"\>", "1"], ",",
10963	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
10964	SqrtBox["2"]]}]},
10965	{GridBox[{
10966	{
10967	OverscriptBox["l", "\<\"-\"\>"], "1"},
10968	{"l", "2"},
10969	{"H", "3"}
10970	},
10971	GridBoxAlignment->{
10972	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
10973	"RowsIndexed" -> {}},
10974	GridBoxSpacings->{"Columns" -> {
10975	Offset[0.27999999999999997`], {
10976	Offset[0.7]},
10977	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
10978	Offset[0.2], {
10979	Offset[0.1]},
10980	Offset[0.2]}, "RowsIndexed" -> {}}],
10981	RowBox[{
10982	FractionBox[
10983	RowBox[{"3", " ", "\[ImaginaryI]", " ",
10984	SuperscriptBox[
10985	OverscriptBox["v", "^"], "2"], " ",
10986	SubsuperscriptBox[
10987	RowBox[{"(",
10988	SubscriptBox["c", "eH"], ")"}],
10989	RowBox[{
10990	SubscriptBox["\<\"f\"\>", "2"], ",",
10991	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
10992	SubscriptBox[
10993	SubscriptBox["P", "\<\"-\"\>"],
10994	RowBox[{
10995	SubscriptBox["\<\"s\"\>", "1"], ",",
10996	SubscriptBox["\<\"s\"\>", "2"]}]]}],
10997	RowBox[{"2", " ",
10998	SqrtBox["2"], " ",
10999	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
11000	FractionBox[
11001	RowBox[{"3", " ", "\[ImaginaryI]", " ",
11002	SuperscriptBox[
11003	OverscriptBox["v", "^"], "2"], " ",
11004	SubscriptBox[
11005	SubscriptBox["c", "eH"],
11006	RowBox[{
11007	SubscriptBox["\<\"f\"\>", "1"], ",",
11008	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
11009	SubscriptBox[
11010	SubscriptBox["P", "\<\"+\"\>"],
11011	RowBox[{
11012	SubscriptBox["\<\"s\"\>", "1"], ",",
11013	SubscriptBox["\<\"s\"\>", "2"]}]]}],
11014	RowBox[{"2", " ",
11015	SqrtBox["2"], " ",
11016	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
11017	FractionBox[
11018	RowBox[{"\[ImaginaryI]", " ",
11019	SubscriptBox["c",
11020	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
11021	SuperscriptBox[
11022	OverscriptBox["v", "^"], "2"], " ",
11023	RowBox[{"(",
11024	RowBox[{
11025	RowBox[{
11026	SubscriptBox[
11027	SubscriptBox["P", "\<\"-\"\>"],
11028	RowBox[{
11029	SubscriptBox["\<\"s\"\>", "1"], ",",
11030	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11031	SubscriptBox[
11032	TemplateBox[{"y","l"},
11033	"Superscript"],
11034	RowBox[{
11035	SubscriptBox["\<\"f\"\>", "1"], ",",
11036	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
11037	RowBox[{
11038	SubscriptBox[
11039	SubscriptBox["P", "\<\"+\"\>"],
11040	RowBox[{
11041	SubscriptBox["\<\"s\"\>", "1"], ",",
11042	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11043	SubscriptBox[
11044	TemplateBox[{"y","l"},
11045	"Superscript"],
11046	RowBox[{
11047	SubscriptBox["\<\"f\"\>", "2"], ",",
11048	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
11049	RowBox[{
11050	SqrtBox["2"], " ",
11051	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
11052	FractionBox[
11053	RowBox[{"\[ImaginaryI]", " ",
11054	SubscriptBox["c", "HD"], " ",
11055	SuperscriptBox[
11056	OverscriptBox["v", "^"], "2"], " ",
11057	RowBox[{"(",
11058	RowBox[{
11059	RowBox[{
11060	SubscriptBox[
11061	SubscriptBox["P", "\<\"-\"\>"],
11062	RowBox[{
11063	SubscriptBox["\<\"s\"\>", "1"], ",",
11064	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11065	SubscriptBox[
11066	TemplateBox[{"y","l"},
11067	"Superscript"],
11068	RowBox[{
11069	SubscriptBox["\<\"f\"\>", "1"], ",",
11070	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
11071	RowBox[{
11072	SubscriptBox[
11073	SubscriptBox["P", "\<\"+\"\>"],
11074	RowBox[{
11075	SubscriptBox["\<\"s\"\>", "1"], ",",
11076	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11077	SubscriptBox[
11078	TemplateBox[{"y","l"},
11079	"Superscript"],
11080	RowBox[{
11081	SubscriptBox["\<\"f\"\>", "2"], ",",
11082	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
11083	RowBox[{"4", " ",
11084	SqrtBox["2"], " ",
11085	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
11086	FractionBox[
11087	RowBox[{"\[ImaginaryI]", " ",
11088	RowBox[{"(",
11089	RowBox[{
11090	RowBox[{
11091	SubsuperscriptBox["yl0",
11092	RowBox[{
11093	SubscriptBox["\<\"f\"\>", "2"], ",",
11094	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
11095	SubscriptBox[
11096	SubscriptBox["P", "\<\"+\"\>"],
11097	RowBox[{
11098	SubscriptBox["\<\"s\"\>", "1"], ",",
11099	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
11100	RowBox[{
11101	SubscriptBox[
11102	SubscriptBox["P", "\<\"-\"\>"],
11103	RowBox[{
11104	SubscriptBox["\<\"s\"\>", "1"], ",",
11105	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11106	SubscriptBox["yl0",
11107	RowBox[{
11108	SubscriptBox["\<\"f\"\>", "1"], ",",
11109	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
11110	SqrtBox["2"]]}]},
11111	{GridBox[{
11112	{
11113	OverscriptBox["uq", "\<\"-\"\>"], "1"},
11114	{"uq", "2"},
11115	{"H", "3"}
11116	},
11117	GridBoxAlignment->{
11118	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11119	"RowsIndexed" -> {}},
11120	GridBoxSpacings->{"Columns" -> {
11121	Offset[0.27999999999999997`], {
11122	Offset[0.7]},
11123	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11124	Offset[0.2], {
11125	Offset[0.1]},
11126	Offset[0.2]}, "RowsIndexed" -> {}}],
11127	RowBox[{
11128	FractionBox[
11129	RowBox[{"3", " ", "\[ImaginaryI]", " ",
11130	SuperscriptBox[
11131	OverscriptBox["v", "^"], "2"], " ",
11132	SubsuperscriptBox[
11133	RowBox[{"(",
11134	SubscriptBox["c", "uH"], ")"}],
11135	RowBox[{
11136	SubscriptBox["\<\"f\"\>", "2"], ",",
11137	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
11138	SubscriptBox["\[Delta]",
11139	RowBox[{
11140	SubscriptBox["\<\"m\"\>", "1"], ",",
11141	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
11142	SubscriptBox[
11143	SubscriptBox["P", "\<\"-\"\>"],
11144	RowBox[{
11145	SubscriptBox["\<\"s\"\>", "1"], ",",
11146	SubscriptBox["\<\"s\"\>", "2"]}]]}],
11147	RowBox[{"2", " ",
11148	SqrtBox["2"], " ",
11149	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
11150	FractionBox[
11151	RowBox[{"3", " ", "\[ImaginaryI]", " ",
11152	SuperscriptBox[
11153	OverscriptBox["v", "^"], "2"], " ",
11154	SubscriptBox[
11155	SubscriptBox["c", "uH"],
11156	RowBox[{
11157	SubscriptBox["\<\"f\"\>", "1"], ",",
11158	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
11159	SubscriptBox["\[Delta]",
11160	RowBox[{
11161	SubscriptBox["\<\"m\"\>", "1"], ",",
11162	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
11163	SubscriptBox[
11164	SubscriptBox["P", "\<\"+\"\>"],
11165	RowBox[{
11166	SubscriptBox["\<\"s\"\>", "1"], ",",
11167	SubscriptBox["\<\"s\"\>", "2"]}]]}],
11168	RowBox[{"2", " ",
11169	SqrtBox["2"], " ",
11170	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
11171	FractionBox[
11172	RowBox[{"\[ImaginaryI]", " ",
11173	SubscriptBox["c",
11174	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
11175	SuperscriptBox[
11176	OverscriptBox["v", "^"], "2"], " ",
11177	SubscriptBox["\[Delta]",
11178	RowBox[{
11179	SubscriptBox["\<\"m\"\>", "1"], ",",
11180	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
11181	RowBox[{"(",
11182	RowBox[{
11183	RowBox[{
11184	SubscriptBox[
11185	SubscriptBox["P", "\<\"-\"\>"],
11186	RowBox[{
11187	SubscriptBox["\<\"s\"\>", "1"], ",",
11188	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11189	SubscriptBox[
11190	TemplateBox[{"y","u"},
11191	"Superscript"],
11192	RowBox[{
11193	SubscriptBox["\<\"f\"\>", "1"], ",",
11194	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
11195	RowBox[{
11196	SubscriptBox[
11197	SubscriptBox["P", "\<\"+\"\>"],
11198	RowBox[{
11199	SubscriptBox["\<\"s\"\>", "1"], ",",
11200	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11201	SubscriptBox[
11202	TemplateBox[{"y","u"},
11203	"Superscript"],
11204	RowBox[{
11205	SubscriptBox["\<\"f\"\>", "2"], ",",
11206	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
11207	RowBox[{
11208	SqrtBox["2"], " ",
11209	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
11210	FractionBox[
11211	RowBox[{"\[ImaginaryI]", " ",
11212	SubscriptBox["c", "HD"], " ",
11213	SuperscriptBox[
11214	OverscriptBox["v", "^"], "2"], " ",
11215	SubscriptBox["\[Delta]",
11216	RowBox[{
11217	SubscriptBox["\<\"m\"\>", "1"], ",",
11218	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
11219	RowBox[{"(",
11220	RowBox[{
11221	RowBox[{
11222	SubscriptBox[
11223	SubscriptBox["P", "\<\"-\"\>"],
11224	RowBox[{
11225	SubscriptBox["\<\"s\"\>", "1"], ",",
11226	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11227	SubscriptBox[
11228	TemplateBox[{"y","u"},
11229	"Superscript"],
11230	RowBox[{
11231	SubscriptBox["\<\"f\"\>", "1"], ",",
11232	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
11233	RowBox[{
11234	SubscriptBox[
11235	SubscriptBox["P", "\<\"+\"\>"],
11236	RowBox[{
11237	SubscriptBox["\<\"s\"\>", "1"], ",",
11238	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11239	SubscriptBox[
11240	TemplateBox[{"y","u"},
11241	"Superscript"],
11242	RowBox[{
11243	SubscriptBox["\<\"f\"\>", "2"], ",",
11244	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
11245	RowBox[{"4", " ",
11246	SqrtBox["2"], " ",
11247	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
11248	FractionBox[
11249	RowBox[{"\[ImaginaryI]", " ",
11250	SubscriptBox["\[Delta]",
11251	RowBox[{
11252	SubscriptBox["\<\"m\"\>", "1"], ",",
11253	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
11254	RowBox[{"(",
11255	RowBox[{
11256	RowBox[{
11257	SubsuperscriptBox["yu0",
11258	RowBox[{
11259	SubscriptBox["\<\"f\"\>", "2"], ",",
11260	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
11261	SubscriptBox[
11262	SubscriptBox["P", "\<\"+\"\>"],
11263	RowBox[{
11264	SubscriptBox["\<\"s\"\>", "1"], ",",
11265	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
11266	RowBox[{
11267	SubscriptBox[
11268	SubscriptBox["P", "\<\"-\"\>"],
11269	RowBox[{
11270	SubscriptBox["\<\"s\"\>", "1"], ",",
11271	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
11272	SubscriptBox["yu0",
11273	RowBox[{
11274	SubscriptBox["\<\"f\"\>", "1"], ",",
11275	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
11276	SqrtBox["2"]]}]}
11277	},
11278	GridBoxAlignment->{
11279	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11280	"RowsIndexed" -> {}},
11281	GridBoxSpacings->{"Columns" -> {
11282	Offset[0.27999999999999997`], {
11283	Offset[2.0999999999999996`]},
11284	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11285	Offset[0.2], {
11286	Offset[0.4]},
11287	Offset[0.2]}, "RowsIndexed" -> {}}],
11288	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
11289	FeynRules`H, 3}}, (((((Complex[0,
11290	Rational[3, 2]]
11291	2^Rational[-1,
11292	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2)
11293	Conjugate[
11294	$CellContext`cdH[
11295	FeynRules`Index[$CellContext`Generation,
11296	FeynRules`Ext[2]],
11297	FeynRules`Index[$CellContext`Generation,
11298	FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
11299	FeynRules`Index[FeynRules`Colour,
11300	FeynRules`Ext[1]],
11301	FeynRules`Index[FeynRules`Colour,
11302	FeynRules`Ext[2]]]) FeynRules`ProjM[
11303	FeynRules`Index[FeynRules`Spin,
11304	FeynRules`Ext[1]],
11305	FeynRules`Index[FeynRules`Spin,
11306	FeynRules`Ext[2]]] + (((((Complex[0,
11307	Rational[3, 2]]
11308	2^Rational[-1,
11309	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
11310	$CellContext`cdH[
11311	FeynRules`Index[$CellContext`Generation,
11312	FeynRules`Ext[1]],
11313	FeynRules`Index[$CellContext`Generation,
11314	FeynRules`Ext[2]]]) FeynRules`IndexDelta[
11315	FeynRules`Index[FeynRules`Colour,
11316	FeynRules`Ext[1]],
11317	FeynRules`Index[FeynRules`Colour,
11318	FeynRules`Ext[2]]]) FeynRules`ProjP[
11319	FeynRules`Index[FeynRules`Spin,
11320	FeynRules`Ext[1]],
11321	FeynRules`Index[FeynRules`Spin,
11322	FeynRules`Ext[
11323	2]]] + (((((Complex[0, -1]
11324	2^Rational[-1,
11325	2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
11326	$CellContext`vevhat^2) FeynRules`IndexDelta[
11327	FeynRules`Index[FeynRules`Colour,
11328	FeynRules`Ext[1]],
11329	FeynRules`Index[FeynRules`Colour,
11330	FeynRules`Ext[2]]]) (FeynRules`ProjM[
11331	FeynRules`Index[FeynRules`Spin,
11332	FeynRules`Ext[1]],
11333	FeynRules`Index[FeynRules`Spin,
11334	FeynRules`Ext[2]]] $CellContext`yd[
11335	FeynRules`Index[$CellContext`Generation,
11336	FeynRules`Ext[1]],
11337	FeynRules`Index[$CellContext`Generation,
11338	FeynRules`Ext[2]]] + FeynRules`ProjP[
11339	FeynRules`Index[FeynRules`Spin,
11340	FeynRules`Ext[1]],
11341	FeynRules`Index[FeynRules`Spin,
11342	FeynRules`Ext[2]]] $CellContext`yd[
11343	FeynRules`Index[$CellContext`Generation,
11344	FeynRules`Ext[2]],
11345	FeynRules`Index[$CellContext`Generation,
11346	FeynRules`Ext[1]]]) + (((((Complex[0,
11347	Rational[1, 4]]
11348	2^Rational[-1,
11349	2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
11350	$CellContext`vevhat^2) FeynRules`IndexDelta[
11351	FeynRules`Index[FeynRules`Colour,
11352	FeynRules`Ext[1]],
11353	FeynRules`Index[FeynRules`Colour,
11354	FeynRules`Ext[2]]]) (FeynRules`ProjM[
11355	FeynRules`Index[FeynRules`Spin,
11356	FeynRules`Ext[1]],
11357	FeynRules`Index[FeynRules`Spin,
11358	FeynRules`Ext[2]]] $CellContext`yd[
11359	FeynRules`Index[$CellContext`Generation,
11360	FeynRules`Ext[1]],
11361	FeynRules`Index[$CellContext`Generation,
11362	FeynRules`Ext[2]]] + FeynRules`ProjP[
11363	FeynRules`Index[FeynRules`Spin,
11364	FeynRules`Ext[1]],
11365	FeynRules`Index[FeynRules`Spin,
11366	FeynRules`Ext[2]]] $CellContext`yd[
11367	FeynRules`Index[$CellContext`Generation,
11368	FeynRules`Ext[2]],
11369	FeynRules`Index[$CellContext`Generation,
11370	FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2])
11371	FeynRules`IndexDelta[
11372	FeynRules`Index[FeynRules`Colour,
11373	FeynRules`Ext[1]],
11374	FeynRules`Index[FeynRules`Colour,
11375	FeynRules`Ext[2]]]) (Conjugate[
11376	$CellContext`yd0[
11377	FeynRules`Index[$CellContext`Generation,
11378	FeynRules`Ext[2]],
11379	FeynRules`Index[$CellContext`Generation,
11380	FeynRules`Ext[1]]]] FeynRules`ProjP[
11381	FeynRules`Index[FeynRules`Spin,
11382	FeynRules`Ext[1]],
11383	FeynRules`Index[FeynRules`Spin,
11384	FeynRules`Ext[2]]] + FeynRules`ProjM[
11385	FeynRules`Index[FeynRules`Spin,
11386	FeynRules`Ext[1]],
11387	FeynRules`Index[FeynRules`Spin,
11388	FeynRules`Ext[2]]] $CellContext`yd0[
11389	FeynRules`Index[$CellContext`Generation,
11390	FeynRules`Ext[1]],
11391	FeynRules`Index[$CellContext`Generation,
11392	FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
11393	FeynRules`H, 3}}, ((((Complex[0,
11394	Rational[3, 2]]
11395	2^Rational[-1,
11396	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2)
11397	Conjugate[
11398	$CellContext`ceH[
11399	FeynRules`Index[$CellContext`Generation,
11400	FeynRules`Ext[2]],
11401	FeynRules`Index[$CellContext`Generation,
11402	FeynRules`Ext[1]]]]) FeynRules`ProjM[
11403	FeynRules`Index[FeynRules`Spin,
11404	FeynRules`Ext[1]],
11405	FeynRules`Index[FeynRules`Spin,
11406	FeynRules`Ext[2]]] + ((((Complex[0,
11407	Rational[3, 2]]
11408	2^Rational[-1,
11409	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
11410	$CellContext`ceH[
11411	FeynRules`Index[$CellContext`Generation,
11412	FeynRules`Ext[1]],
11413	FeynRules`Index[$CellContext`Generation,
11414	FeynRules`Ext[2]]]) FeynRules`ProjP[
11415	FeynRules`Index[FeynRules`Spin,
11416	FeynRules`Ext[1]],
11417	FeynRules`Index[FeynRules`Spin,
11418	FeynRules`Ext[
11419	2]]] + ((((Complex[0, -1]
11420	2^Rational[-1,
11421	2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
11422	$CellContext`vevhat^2) (FeynRules`ProjM[
11423	FeynRules`Index[FeynRules`Spin,
11424	FeynRules`Ext[1]],
11425	FeynRules`Index[FeynRules`Spin,
11426	FeynRules`Ext[2]]] $CellContext`yl[
11427	FeynRules`Index[$CellContext`Generation,
11428	FeynRules`Ext[1]],
11429	FeynRules`Index[$CellContext`Generation,
11430	FeynRules`Ext[2]]] + FeynRules`ProjP[
11431	FeynRules`Index[FeynRules`Spin,
11432	FeynRules`Ext[1]],
11433	FeynRules`Index[FeynRules`Spin,
11434	FeynRules`Ext[2]]] $CellContext`yl[
11435	FeynRules`Index[$CellContext`Generation,
11436	FeynRules`Ext[2]],
11437	FeynRules`Index[$CellContext`Generation,
11438	FeynRules`Ext[1]]]) + ((((Complex[0,
11439	Rational[1, 4]]
11440	2^Rational[-1,
11441	2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
11442	$CellContext`vevhat^2) (FeynRules`ProjM[
11443	FeynRules`Index[FeynRules`Spin,
11444	FeynRules`Ext[1]],
11445	FeynRules`Index[FeynRules`Spin,
11446	FeynRules`Ext[2]]] $CellContext`yl[
11447	FeynRules`Index[$CellContext`Generation,
11448	FeynRules`Ext[1]],
11449	FeynRules`Index[$CellContext`Generation,
11450	FeynRules`Ext[2]]] + FeynRules`ProjP[
11451	FeynRules`Index[FeynRules`Spin,
11452	FeynRules`Ext[1]],
11453	FeynRules`Index[FeynRules`Spin,
11454	FeynRules`Ext[2]]] $CellContext`yl[
11455	FeynRules`Index[$CellContext`Generation,
11456	FeynRules`Ext[2]],
11457	FeynRules`Index[$CellContext`Generation,
11458	FeynRules`Ext[1]]]) + (Complex[0, -1] 2^Rational[-1, 2]) (Conjugate[
11459	$CellContext`yl0[
11460	FeynRules`Index[$CellContext`Generation,
11461	FeynRules`Ext[2]],
11462	FeynRules`Index[$CellContext`Generation,
11463	FeynRules`Ext[1]]]] FeynRules`ProjP[
11464	FeynRules`Index[FeynRules`Spin,
11465	FeynRules`Ext[1]],
11466	FeynRules`Index[FeynRules`Spin,
11467	FeynRules`Ext[2]]] + FeynRules`ProjM[
11468	FeynRules`Index[FeynRules`Spin,
11469	FeynRules`Ext[1]],
11470	FeynRules`Index[FeynRules`Spin,
11471	FeynRules`Ext[2]]] $CellContext`yl0[
11472	FeynRules`Index[$CellContext`Generation,
11473	FeynRules`Ext[1]],
11474	FeynRules`Index[$CellContext`Generation,
11475	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
11476	2}, {FeynRules`H, 3}}, (((((Complex[0,
11477	Rational[3, 2]]
11478	2^Rational[-1,
11479	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2)
11480	Conjugate[
11481	$CellContext`cuH[
11482	FeynRules`Index[$CellContext`Generation,
11483	FeynRules`Ext[2]],
11484	FeynRules`Index[$CellContext`Generation,
11485	FeynRules`Ext[1]]]]) FeynRules`IndexDelta[
11486	FeynRules`Index[FeynRules`Colour,
11487	FeynRules`Ext[1]],
11488	FeynRules`Index[FeynRules`Colour,
11489	FeynRules`Ext[2]]]) FeynRules`ProjM[
11490	FeynRules`Index[FeynRules`Spin,
11491	FeynRules`Ext[1]],
11492	FeynRules`Index[FeynRules`Spin,
11493	FeynRules`Ext[2]]] + (((((Complex[0,
11494	Rational[3, 2]]
11495	2^Rational[-1,
11496	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) \
11497	$CellContext`cuH[
11498	FeynRules`Index[$CellContext`Generation,
11499	FeynRules`Ext[1]],
11500	FeynRules`Index[$CellContext`Generation,
11501	FeynRules`Ext[2]]]) FeynRules`IndexDelta[
11502	FeynRules`Index[FeynRules`Colour,
11503	FeynRules`Ext[1]],
11504	FeynRules`Index[FeynRules`Colour,
11505	FeynRules`Ext[2]]]) FeynRules`ProjP[
11506	FeynRules`Index[FeynRules`Spin,
11507	FeynRules`Ext[1]],
11508	FeynRules`Index[FeynRules`Spin,
11509	FeynRules`Ext[
11510	2]]] + (((((Complex[0, -1]
11511	2^Rational[-1,
11512	2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
11513	$CellContext`vevhat^2) FeynRules`IndexDelta[
11514	FeynRules`Index[FeynRules`Colour,
11515	FeynRules`Ext[1]],
11516	FeynRules`Index[FeynRules`Colour,
11517	FeynRules`Ext[2]]]) (FeynRules`ProjM[
11518	FeynRules`Index[FeynRules`Spin,
11519	FeynRules`Ext[1]],
11520	FeynRules`Index[FeynRules`Spin,
11521	FeynRules`Ext[2]]] $CellContext`yu[
11522	FeynRules`Index[$CellContext`Generation,
11523	FeynRules`Ext[1]],
11524	FeynRules`Index[$CellContext`Generation,
11525	FeynRules`Ext[2]]] + FeynRules`ProjP[
11526	FeynRules`Index[FeynRules`Spin,
11527	FeynRules`Ext[1]],
11528	FeynRules`Index[FeynRules`Spin,
11529	FeynRules`Ext[2]]] $CellContext`yu[
11530	FeynRules`Index[$CellContext`Generation,
11531	FeynRules`Ext[2]],
11532	FeynRules`Index[$CellContext`Generation,
11533	FeynRules`Ext[1]]]) + (((((Complex[0,
11534	Rational[1, 4]]
11535	2^Rational[-1,
11536	2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
11537	$CellContext`vevhat^2) FeynRules`IndexDelta[
11538	FeynRules`Index[FeynRules`Colour,
11539	FeynRules`Ext[1]],
11540	FeynRules`Index[FeynRules`Colour,
11541	FeynRules`Ext[2]]]) (FeynRules`ProjM[
11542	FeynRules`Index[FeynRules`Spin,
11543	FeynRules`Ext[1]],
11544	FeynRules`Index[FeynRules`Spin,
11545	FeynRules`Ext[2]]] $CellContext`yu[
11546	FeynRules`Index[$CellContext`Generation,
11547	FeynRules`Ext[1]],
11548	FeynRules`Index[$CellContext`Generation,
11549	FeynRules`Ext[2]]] + FeynRules`ProjP[
11550	FeynRules`Index[FeynRules`Spin,
11551	FeynRules`Ext[1]],
11552	FeynRules`Index[FeynRules`Spin,
11553	FeynRules`Ext[2]]] $CellContext`yu[
11554	FeynRules`Index[$CellContext`Generation,
11555	FeynRules`Ext[2]],
11556	FeynRules`Index[$CellContext`Generation,
11557	FeynRules`Ext[1]]]) + ((Complex[0, -1] 2^Rational[-1, 2])
11558	FeynRules`IndexDelta[
11559	FeynRules`Index[FeynRules`Colour,
11560	FeynRules`Ext[1]],
11561	FeynRules`Index[FeynRules`Colour,
11562	FeynRules`Ext[2]]]) (Conjugate[
11563	$CellContext`yu0[
11564	FeynRules`Index[$CellContext`Generation,
11565	FeynRules`Ext[2]],
11566	FeynRules`Index[$CellContext`Generation,
11567	FeynRules`Ext[1]]]] FeynRules`ProjP[
11568	FeynRules`Index[FeynRules`Spin,
11569	FeynRules`Ext[1]],
11570	FeynRules`Index[FeynRules`Spin,
11571	FeynRules`Ext[2]]] + FeynRules`ProjM[
11572	FeynRules`Index[FeynRules`Spin,
11573	FeynRules`Ext[1]],
11574	FeynRules`Index[FeynRules`Spin,
11575	FeynRules`Ext[2]]] $CellContext`yu0[
11576	FeynRules`Index[$CellContext`Generation,
11577	FeynRules`Ext[1]],
11578	FeynRules`Index[$CellContext`Generation,
11579	FeynRules`Ext[2]]])}}]]], "Output",
11580	CellChangeTimes->{{3.714653869780055^9, 3.714653893377253^9},
11581	3.714653972746155^9, 3.7146545673835583`^9, 3.7146553789929028`*^9,
11582	3.7146560588931637`*^9},ExpressionUUID->"3a4986af-b998-4143-b314-\
11583	7155453f7ccc"]
11584	}, Open ]],
11585
11586	Cell["Flavor expansion for the leptons' case", "Text",
11587	CellChangeTimes->{{3.7146540002012587`*^9,
11588	3.714654016686934*^9}},ExpressionUUID->"b06eff71-5b20-462a-8027-\
11589	60f77a4b37da"],
11590
11591	Cell[CellGroupData[{
11592
11593	Cell[BoxData[
11594	RowBox[{"hll", "=",
11595	RowBox[{
11596	RowBox[{
11597	RowBox[{
11598	RowBox[{
11599	RowBox[{"{",
11600	RowBox[{"hff", "[",
11601	RowBox[{"[",
11602	RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//",
11603	"FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//",
11604	"TableForm"}]}]], "Input",
11605	CellChangeTimes->{{3.714653897213532*^9,
11606	3.714653998430573*^9}},ExpressionUUID->"d2b15297-e7df-4798-82ba-\
11607	0b88b3ee535a"],
11608
11609	Cell[BoxData[
11610	InterpretationBox[
11611	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
11612	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
11613	ImageSizeCache->{86., {2., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
11614	"\[InvisibleSpace]", "1"}],
11615	SequenceForm["Flavor expansion of the vertices: ",
11616	Dynamic[FeynRules`FR$Count1], " / ", 1],
11617	Editable->False]], "Print",
11618	CellChangeTimes->{{3.714653911127839^9, 3.714653919833921^9}, {
11619	3.714653951564291^9, 3.71465401970082^9}, 3.714654567510392*^9,
11620	3.7146553837043056`*^9,
11621	3.714656067093807*^9},ExpressionUUID->"66bcaf6d-8baa-4022-b66e-\
11622	1de480954a45"],
11623
11624	Cell[BoxData[
11625	InterpretationBox[GridBox[{
11626	{GridBox[{
11627	{"H", "1"},
11628	{
11629	OverscriptBox["e", "\<\"-\"\>"], "2"},
11630	{"e", "3"}
11631	},
11632	GridBoxAlignment->{
11633	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11634	"RowsIndexed" -> {}},
11635	GridBoxSpacings->{"Columns" -> {
11636	Offset[0.27999999999999997`], {
11637	Offset[0.7]},
11638	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11639	Offset[0.2], {
11640	Offset[0.1]},
11641	Offset[0.2]}, "RowsIndexed" -> {}}],
11642	RowBox[{
11643	RowBox[{
11644	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye",
11645	" ",
11646	SubscriptBox["\[Delta]",
11647	RowBox[{
11648	SubscriptBox["\<\"s\"\>", "2"], ",",
11649	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
11650	FractionBox[
11651	RowBox[{"\[ImaginaryI]", " ",
11652	SubscriptBox["c",
11653	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
11654	SuperscriptBox[
11655	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
11656	SubscriptBox["\[Delta]",
11657	RowBox[{
11658	SubscriptBox["\<\"s\"\>", "2"], ",",
11659	SubscriptBox["\<\"s\"\>", "3"]}]]}],
11660	RowBox[{
11661	SqrtBox["2"], " ",
11662	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
11663	FractionBox[
11664	RowBox[{"\[ImaginaryI]", " ",
11665	SubscriptBox["c", "HD"], " ",
11666	SuperscriptBox[
11667	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
11668	SubscriptBox["\[Delta]",
11669	RowBox[{
11670	SubscriptBox["\<\"s\"\>", "2"], ",",
11671	SubscriptBox["\<\"s\"\>", "3"]}]]}],
11672	RowBox[{"4", " ",
11673	SqrtBox["2"], " ",
11674	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
11675	FractionBox[
11676	RowBox[{"\[ImaginaryI]", " ",
11677	RowBox[{"(",
11678	RowBox[{
11679	RowBox[{
11680	RowBox[{"(",
11681	RowBox[{
11682	RowBox[{
11683	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-",
11684	RowBox[{
11685	SuperscriptBox[
11686	OverscriptBox["v", "^"], "2"], " ",
11687	SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ",
11688	SubscriptBox[
11689	SubscriptBox["P", "\<\"-\"\>"],
11690	RowBox[{
11691	SubscriptBox["\<\"s\"\>", "2"], ",",
11692	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11693	RowBox[{
11694	RowBox[{"(",
11695	RowBox[{
11696	RowBox[{
11697	RowBox[{"-", "ceH1x1"}], " ",
11698	SuperscriptBox[
11699	OverscriptBox["v", "^"], "2"]}], "+",
11700	RowBox[{
11701	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}],
11702	" ",
11703	SubscriptBox[
11704	SubscriptBox["P", "\<\"+\"\>"],
11705	RowBox[{
11706	SubscriptBox["\<\"s\"\>", "2"], ",",
11707	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11708	RowBox[{
11709	SqrtBox["2"], " ",
11710	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
11711	{GridBox[{
11712	{"H", "1"},
11713	{
11714	OverscriptBox["e", "\<\"-\"\>"], "2"},
11715	{"mu", "3"}
11716	},
11717	GridBoxAlignment->{
11718	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11719	"RowsIndexed" -> {}},
11720	GridBoxSpacings->{"Columns" -> {
11721	Offset[0.27999999999999997`], {
11722	Offset[0.7]},
11723	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11724	Offset[0.2], {
11725	Offset[0.1]},
11726	Offset[0.2]}, "RowsIndexed" -> {}}],
11727	FractionBox[
11728	RowBox[{"\[ImaginaryI]", " ",
11729	SuperscriptBox[
11730	OverscriptBox["v", "^"], "2"], " ",
11731	RowBox[{"(",
11732	RowBox[{
11733	RowBox[{
11734	SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ",
11735	SubscriptBox[
11736	SubscriptBox["P", "\<\"-\"\>"],
11737	RowBox[{
11738	SubscriptBox["\<\"s\"\>", "2"], ",",
11739	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11740	RowBox[{"ceH1x2", " ",
11741	SubscriptBox[
11742	SubscriptBox["P", "\<\"+\"\>"],
11743	RowBox[{
11744	SubscriptBox["\<\"s\"\>", "2"], ",",
11745	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11746	RowBox[{
11747	SqrtBox["2"], " ",
11748	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
11749	{GridBox[{
11750	{"H", "1"},
11751	{
11752	OverscriptBox["e", "\<\"-\"\>"], "2"},
11753	{"ta", "3"}
11754	},
11755	GridBoxAlignment->{
11756	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11757	"RowsIndexed" -> {}},
11758	GridBoxSpacings->{"Columns" -> {
11759	Offset[0.27999999999999997`], {
11760	Offset[0.7]},
11761	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11762	Offset[0.2], {
11763	Offset[0.1]},
11764	Offset[0.2]}, "RowsIndexed" -> {}}],
11765	FractionBox[
11766	RowBox[{"\[ImaginaryI]", " ",
11767	SuperscriptBox[
11768	OverscriptBox["v", "^"], "2"], " ",
11769	RowBox[{"(",
11770	RowBox[{
11771	RowBox[{
11772	SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ",
11773	SubscriptBox[
11774	SubscriptBox["P", "\<\"-\"\>"],
11775	RowBox[{
11776	SubscriptBox["\<\"s\"\>", "2"], ",",
11777	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11778	RowBox[{"ceH1x3", " ",
11779	SubscriptBox[
11780	SubscriptBox["P", "\<\"+\"\>"],
11781	RowBox[{
11782	SubscriptBox["\<\"s\"\>", "2"], ",",
11783	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11784	RowBox[{
11785	SqrtBox["2"], " ",
11786	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
11787	{GridBox[{
11788	{"H", "1"},
11789	{
11790	OverscriptBox["mu", "\<\"-\"\>"], "2"},
11791	{"e", "3"}
11792	},
11793	GridBoxAlignment->{
11794	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11795	"RowsIndexed" -> {}},
11796	GridBoxSpacings->{"Columns" -> {
11797	Offset[0.27999999999999997`], {
11798	Offset[0.7]},
11799	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11800	Offset[0.2], {
11801	Offset[0.1]},
11802	Offset[0.2]}, "RowsIndexed" -> {}}],
11803	FractionBox[
11804	RowBox[{"\[ImaginaryI]", " ",
11805	SuperscriptBox[
11806	OverscriptBox["v", "^"], "2"], " ",
11807	RowBox[{"(",
11808	RowBox[{
11809	RowBox[{
11810	SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ",
11811	SubscriptBox[
11812	SubscriptBox["P", "\<\"-\"\>"],
11813	RowBox[{
11814	SubscriptBox["\<\"s\"\>", "2"], ",",
11815	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11816	RowBox[{"ceH2x1", " ",
11817	SubscriptBox[
11818	SubscriptBox["P", "\<\"+\"\>"],
11819	RowBox[{
11820	SubscriptBox["\<\"s\"\>", "2"], ",",
11821	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11822	RowBox[{
11823	SqrtBox["2"], " ",
11824	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
11825	{GridBox[{
11826	{"H", "1"},
11827	{
11828	OverscriptBox["mu", "\<\"-\"\>"], "2"},
11829	{"mu", "3"}
11830	},
11831	GridBoxAlignment->{
11832	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11833	"RowsIndexed" -> {}},
11834	GridBoxSpacings->{"Columns" -> {
11835	Offset[0.27999999999999997`], {
11836	Offset[0.7]},
11837	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11838	Offset[0.2], {
11839	Offset[0.1]},
11840	Offset[0.2]}, "RowsIndexed" -> {}}],
11841	RowBox[{
11842	RowBox[{
11843	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym",
11844	" ",
11845	SubscriptBox["\[Delta]",
11846	RowBox[{
11847	SubscriptBox["\<\"s\"\>", "2"], ",",
11848	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
11849	FractionBox[
11850	RowBox[{"\[ImaginaryI]", " ",
11851	SubscriptBox["c",
11852	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
11853	SuperscriptBox[
11854	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
11855	SubscriptBox["\[Delta]",
11856	RowBox[{
11857	SubscriptBox["\<\"s\"\>", "2"], ",",
11858	SubscriptBox["\<\"s\"\>", "3"]}]]}],
11859	RowBox[{
11860	SqrtBox["2"], " ",
11861	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
11862	FractionBox[
11863	RowBox[{"\[ImaginaryI]", " ",
11864	SubscriptBox["c", "HD"], " ",
11865	SuperscriptBox[
11866	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
11867	SubscriptBox["\[Delta]",
11868	RowBox[{
11869	SubscriptBox["\<\"s\"\>", "2"], ",",
11870	SubscriptBox["\<\"s\"\>", "3"]}]]}],
11871	RowBox[{"4", " ",
11872	SqrtBox["2"], " ",
11873	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
11874	FractionBox[
11875	RowBox[{"\[ImaginaryI]", " ",
11876	RowBox[{"(",
11877	RowBox[{
11878	RowBox[{
11879	RowBox[{"(",
11880	RowBox[{
11881	RowBox[{
11882	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-",
11883	RowBox[{
11884	SuperscriptBox[
11885	OverscriptBox["v", "^"], "2"], " ",
11886	SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ",
11887	SubscriptBox[
11888	SubscriptBox["P", "\<\"-\"\>"],
11889	RowBox[{
11890	SubscriptBox["\<\"s\"\>", "2"], ",",
11891	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11892	RowBox[{
11893	RowBox[{"(",
11894	RowBox[{
11895	RowBox[{
11896	RowBox[{"-", "ceH2x2"}], " ",
11897	SuperscriptBox[
11898	OverscriptBox["v", "^"], "2"]}], "+",
11899	RowBox[{
11900	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}],
11901	" ",
11902	SubscriptBox[
11903	SubscriptBox["P", "\<\"+\"\>"],
11904	RowBox[{
11905	SubscriptBox["\<\"s\"\>", "2"], ",",
11906	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11907	RowBox[{
11908	SqrtBox["2"], " ",
11909	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
11910	{GridBox[{
11911	{"H", "1"},
11912	{
11913	OverscriptBox["mu", "\<\"-\"\>"], "2"},
11914	{"ta", "3"}
11915	},
11916	GridBoxAlignment->{
11917	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11918	"RowsIndexed" -> {}},
11919	GridBoxSpacings->{"Columns" -> {
11920	Offset[0.27999999999999997`], {
11921	Offset[0.7]},
11922	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11923	Offset[0.2], {
11924	Offset[0.1]},
11925	Offset[0.2]}, "RowsIndexed" -> {}}],
11926	FractionBox[
11927	RowBox[{"\[ImaginaryI]", " ",
11928	SuperscriptBox[
11929	OverscriptBox["v", "^"], "2"], " ",
11930	RowBox[{"(",
11931	RowBox[{
11932	RowBox[{
11933	SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ",
11934	SubscriptBox[
11935	SubscriptBox["P", "\<\"-\"\>"],
11936	RowBox[{
11937	SubscriptBox["\<\"s\"\>", "2"], ",",
11938	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11939	RowBox[{"ceH2x3", " ",
11940	SubscriptBox[
11941	SubscriptBox["P", "\<\"+\"\>"],
11942	RowBox[{
11943	SubscriptBox["\<\"s\"\>", "2"], ",",
11944	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11945	RowBox[{
11946	SqrtBox["2"], " ",
11947	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
11948	{GridBox[{
11949	{"H", "1"},
11950	{
11951	OverscriptBox["ta", "\<\"-\"\>"], "2"},
11952	{"e", "3"}
11953	},
11954	GridBoxAlignment->{
11955	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11956	"RowsIndexed" -> {}},
11957	GridBoxSpacings->{"Columns" -> {
11958	Offset[0.27999999999999997`], {
11959	Offset[0.7]},
11960	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11961	Offset[0.2], {
11962	Offset[0.1]},
11963	Offset[0.2]}, "RowsIndexed" -> {}}],
11964	FractionBox[
11965	RowBox[{"\[ImaginaryI]", " ",
11966	SuperscriptBox[
11967	OverscriptBox["v", "^"], "2"], " ",
11968	RowBox[{"(",
11969	RowBox[{
11970	RowBox[{
11971	SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ",
11972	SubscriptBox[
11973	SubscriptBox["P", "\<\"-\"\>"],
11974	RowBox[{
11975	SubscriptBox["\<\"s\"\>", "2"], ",",
11976	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
11977	RowBox[{"ceH3x1", " ",
11978	SubscriptBox[
11979	SubscriptBox["P", "\<\"+\"\>"],
11980	RowBox[{
11981	SubscriptBox["\<\"s\"\>", "2"], ",",
11982	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
11983	RowBox[{
11984	SqrtBox["2"], " ",
11985	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
11986	{GridBox[{
11987	{"H", "1"},
11988	{
11989	OverscriptBox["ta", "\<\"-\"\>"], "2"},
11990	{"mu", "3"}
11991	},
11992	GridBoxAlignment->{
11993	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
11994	"RowsIndexed" -> {}},
11995	GridBoxSpacings->{"Columns" -> {
11996	Offset[0.27999999999999997`], {
11997	Offset[0.7]},
11998	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
11999	Offset[0.2], {
12000	Offset[0.1]},
12001	Offset[0.2]}, "RowsIndexed" -> {}}],
12002	FractionBox[
12003	RowBox[{"\[ImaginaryI]", " ",
12004	SuperscriptBox[
12005	OverscriptBox["v", "^"], "2"], " ",
12006	RowBox[{"(",
12007	RowBox[{
12008	RowBox[{
12009	SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ",
12010	SubscriptBox[
12011	SubscriptBox["P", "\<\"-\"\>"],
12012	RowBox[{
12013	SubscriptBox["\<\"s\"\>", "2"], ",",
12014	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12015	RowBox[{"ceH3x2", " ",
12016	SubscriptBox[
12017	SubscriptBox["P", "\<\"+\"\>"],
12018	RowBox[{
12019	SubscriptBox["\<\"s\"\>", "2"], ",",
12020	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12021	RowBox[{
12022	SqrtBox["2"], " ",
12023	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12024	{GridBox[{
12025	{"H", "1"},
12026	{
12027	OverscriptBox["ta", "\<\"-\"\>"], "2"},
12028	{"ta", "3"}
12029	},
12030	GridBoxAlignment->{
12031	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12032	"RowsIndexed" -> {}},
12033	GridBoxSpacings->{"Columns" -> {
12034	Offset[0.27999999999999997`], {
12035	Offset[0.7]},
12036	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12037	Offset[0.2], {
12038	Offset[0.1]},
12039	Offset[0.2]}, "RowsIndexed" -> {}}],
12040	RowBox[{
12041	RowBox[{
12042	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau",
12043	" ",
12044	SubscriptBox["\[Delta]",
12045	RowBox[{
12046	SubscriptBox["\<\"s\"\>", "2"], ",",
12047	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
12048	FractionBox[
12049	RowBox[{"\[ImaginaryI]", " ",
12050	SubscriptBox["c",
12051	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
12052	SuperscriptBox[
12053	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
12054	SubscriptBox["\[Delta]",
12055	RowBox[{
12056	SubscriptBox["\<\"s\"\>", "2"], ",",
12057	SubscriptBox["\<\"s\"\>", "3"]}]]}],
12058	RowBox[{
12059	SqrtBox["2"], " ",
12060	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
12061	FractionBox[
12062	RowBox[{"\[ImaginaryI]", " ",
12063	SubscriptBox["c", "HD"], " ",
12064	SuperscriptBox[
12065	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
12066	SubscriptBox["\[Delta]",
12067	RowBox[{
12068	SubscriptBox["\<\"s\"\>", "2"], ",",
12069	SubscriptBox["\<\"s\"\>", "3"]}]]}],
12070	RowBox[{"4", " ",
12071	SqrtBox["2"], " ",
12072	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
12073	FractionBox[
12074	RowBox[{"\[ImaginaryI]", " ",
12075	RowBox[{"(",
12076	RowBox[{
12077	RowBox[{
12078	RowBox[{"(",
12079	RowBox[{
12080	RowBox[{
12081	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-",
12082	RowBox[{
12083	SuperscriptBox[
12084	OverscriptBox["v", "^"], "2"], " ",
12085	SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ",
12086	SubscriptBox[
12087	SubscriptBox["P", "\<\"-\"\>"],
12088	RowBox[{
12089	SubscriptBox["\<\"s\"\>", "2"], ",",
12090	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12091	RowBox[{
12092	RowBox[{"(",
12093	RowBox[{
12094	RowBox[{
12095	RowBox[{"-", "ceH3x3"}], " ",
12096	SuperscriptBox[
12097	OverscriptBox["v", "^"], "2"]}], "+",
12098	RowBox[{
12099	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}], ")"}],
12100	" ",
12101	SubscriptBox[
12102	SubscriptBox["P", "\<\"+\"\>"],
12103	RowBox[{
12104	SubscriptBox["\<\"s\"\>", "2"], ",",
12105	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12106	RowBox[{
12107	SqrtBox["2"], " ",
12108	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
12109	},
12110	GridBoxAlignment->{
12111	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12112	"RowsIndexed" -> {}},
12113	GridBoxSpacings->{"Columns" -> {
12114	Offset[0.27999999999999997`], {
12115	Offset[2.0999999999999996`]},
12116	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12117	Offset[0.2], {
12118	Offset[0.4]},
12119	Offset[0.2]}, "RowsIndexed" -> {}}],
12120	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
12121	FeynRules`e, 3}}, ((Complex[0,
12122	Rational[1, 2]] $CellContext`dGf) $CellContext`ye)
12123	FeynRules`IndexDelta[
12124	FeynRules`Index[FeynRules`Spin,
12125	FeynRules`Ext[2]],
12126	FeynRules`Index[FeynRules`Spin,
12127	FeynRules`Ext[
12128	3]]] + (((((Complex[0, -1]
12129	2^Rational[-1,
12130	2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
12131	$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
12132	FeynRules`Index[FeynRules`Spin,
12133	FeynRules`Ext[2]],
12134	FeynRules`Index[FeynRules`Spin,
12135	FeynRules`Ext[3]]] + (((((Complex[0,
12136	Rational[1, 4]]
12137	2^Rational[-1,
12138	2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
12139	$CellContext`vevhat^2) $CellContext`ye) FeynRules`IndexDelta[
12140	FeynRules`Index[FeynRules`Spin,
12141	FeynRules`Ext[2]],
12142	FeynRules`Index[FeynRules`Spin,
12143	FeynRules`Ext[3]]] + ((Complex[0, -1]
12144	2^Rational[-1,
12145	2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
12146	$CellContext`ye - $CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1])
12147	FeynRules`ProjM[
12148	FeynRules`Index[FeynRules`Spin,
12149	FeynRules`Ext[2]],
12150	FeynRules`Index[FeynRules`Spin,
12151	FeynRules`Ext[
12152	3]]] + ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
12153	$CellContext`LambdaSMEFT^2 $CellContext`ye) FeynRules`ProjP[
12154	FeynRules`Index[FeynRules`Spin,
12155	FeynRules`Ext[2]],
12156	FeynRules`Index[FeynRules`Spin,
12157	FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
12158	FeynRules`mu,
12159	3}}, (((Complex[0, 1]
12160	2^Rational[-1,
12161	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12162	Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
12163	FeynRules`Index[FeynRules`Spin,
12164	FeynRules`Ext[2]],
12165	FeynRules`Index[FeynRules`Spin,
12166	FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
12167	FeynRules`Index[FeynRules`Spin,
12168	FeynRules`Ext[2]],
12169	FeynRules`Index[FeynRules`Spin,
12170	FeynRules`Ext[3]]])}, {{{
12171	FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta,
12172	3}}, (((Complex[0, 1]
12173	2^Rational[-1,
12174	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12175	Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
12176	FeynRules`Index[FeynRules`Spin,
12177	FeynRules`Ext[2]],
12178	FeynRules`Index[FeynRules`Spin,
12179	FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
12180	FeynRules`Index[FeynRules`Spin,
12181	FeynRules`Ext[2]],
12182	FeynRules`Index[FeynRules`Spin,
12183	FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
12184	FeynRules`e,
12185	3}}, (((Complex[0, 1]
12186	2^Rational[-1,
12187	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12188	Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
12189	FeynRules`Index[FeynRules`Spin,
12190	FeynRules`Ext[2]],
12191	FeynRules`Index[FeynRules`Spin,
12192	FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
12193	FeynRules`Index[FeynRules`Spin,
12194	FeynRules`Ext[2]],
12195	FeynRules`Index[FeynRules`Spin,
12196	FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
12197	FeynRules`mu, 3}}, ((Complex[0,
12198	Rational[1, 2]] $CellContext`dGf) $CellContext`ym)
12199	FeynRules`IndexDelta[
12200	FeynRules`Index[FeynRules`Spin,
12201	FeynRules`Ext[2]],
12202	FeynRules`Index[FeynRules`Spin,
12203	FeynRules`Ext[
12204	3]]] + (((((Complex[0, -1]
12205	2^Rational[-1,
12206	2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
12207	$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
12208	FeynRules`Index[FeynRules`Spin,
12209	FeynRules`Ext[2]],
12210	FeynRules`Index[FeynRules`Spin,
12211	FeynRules`Ext[3]]] + (((((Complex[0,
12212	Rational[1, 4]]
12213	2^Rational[-1,
12214	2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
12215	$CellContext`vevhat^2) $CellContext`ym) FeynRules`IndexDelta[
12216	FeynRules`Index[FeynRules`Spin,
12217	FeynRules`Ext[2]],
12218	FeynRules`Index[FeynRules`Spin,
12219	FeynRules`Ext[3]]] + ((Complex[0, -1]
12220	2^Rational[-1,
12221	2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
12222	$CellContext`ym - $CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2])
12223	FeynRules`ProjM[
12224	FeynRules`Index[FeynRules`Spin,
12225	FeynRules`Ext[2]],
12226	FeynRules`Index[FeynRules`Spin,
12227	FeynRules`Ext[
12228	3]]] + ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
12229	$CellContext`LambdaSMEFT^2 $CellContext`ym) FeynRules`ProjP[
12230	FeynRules`Index[FeynRules`Spin,
12231	FeynRules`Ext[2]],
12232	FeynRules`Index[FeynRules`Spin,
12233	FeynRules`Ext[3]]])}, {{{
12234	FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta,
12235	3}}, (((Complex[0, 1]
12236	2^Rational[-1,
12237	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12238	Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
12239	FeynRules`Index[FeynRules`Spin,
12240	FeynRules`Ext[2]],
12241	FeynRules`Index[FeynRules`Spin,
12242	FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
12243	FeynRules`Index[FeynRules`Spin,
12244	FeynRules`Ext[2]],
12245	FeynRules`Index[FeynRules`Spin,
12246	FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
12247	FeynRules`e,
12248	3}}, (((Complex[0, 1]
12249	2^Rational[-1,
12250	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12251	Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
12252	FeynRules`Index[FeynRules`Spin,
12253	FeynRules`Ext[2]],
12254	FeynRules`Index[FeynRules`Spin,
12255	FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
12256	FeynRules`Index[FeynRules`Spin,
12257	FeynRules`Ext[2]],
12258	FeynRules`Index[FeynRules`Spin,
12259	FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`tabar, 2}, {
12260	FeynRules`mu,
12261	3}}, (((Complex[0, 1]
12262	2^Rational[-1,
12263	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12264	Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
12265	FeynRules`Index[FeynRules`Spin,
12266	FeynRules`Ext[2]],
12267	FeynRules`Index[FeynRules`Spin,
12268	FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
12269	FeynRules`Index[FeynRules`Spin,
12270	FeynRules`Ext[2]],
12271	FeynRules`Index[FeynRules`Spin,
12272	FeynRules`Ext[3]]])}, {{{
12273	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta,
12274	3}}, ((Complex[0,
12275	Rational[1, 2]] $CellContext`dGf) $CellContext`ytau)
12276	FeynRules`IndexDelta[
12277	FeynRules`Index[FeynRules`Spin,
12278	FeynRules`Ext[2]],
12279	FeynRules`Index[FeynRules`Spin,
12280	FeynRules`Ext[
12281	3]]] + (((((Complex[0, -1]
12282	2^Rational[-1,
12283	2]) $CellContext`cHbox) $CellContext`LambdaSMEFT^(-2)) \
12284	$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
12285	FeynRules`Index[FeynRules`Spin,
12286	FeynRules`Ext[2]],
12287	FeynRules`Index[FeynRules`Spin,
12288	FeynRules`Ext[3]]] + (((((Complex[0,
12289	Rational[1, 4]]
12290	2^Rational[-1,
12291	2]) $CellContext`cHD) $CellContext`LambdaSMEFT^(-2)) \
12292	$CellContext`vevhat^2) $CellContext`ytau) FeynRules`IndexDelta[
12293	FeynRules`Index[FeynRules`Spin,
12294	FeynRules`Ext[2]],
12295	FeynRules`Index[FeynRules`Spin,
12296	FeynRules`Ext[3]]] + ((Complex[0, -1]
12297	2^Rational[-1,
12298	2]) $CellContext`LambdaSMEFT^(-2)) (($CellContext`LambdaSMEFT^2 \
12299	$CellContext`ytau - $CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3])
12300	FeynRules`ProjM[
12301	FeynRules`Index[FeynRules`Spin,
12302	FeynRules`Ext[2]],
12303	FeynRules`Index[FeynRules`Spin,
12304	FeynRules`Ext[
12305	3]]] + ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
12306	$CellContext`LambdaSMEFT^2 $CellContext`ytau) FeynRules`ProjP[
12307	FeynRules`Index[FeynRules`Spin,
12308	FeynRules`Ext[2]],
12309	FeynRules`Index[FeynRules`Spin,
12310	FeynRules`Ext[3]]])}}]]], "Output",
12311	CellChangeTimes->{{3.714653911402326^9, 3.714653920602931^9}, {
12312	3.714653952474135^9, 3.714654020646657^9}, 3.7146545684859324`*^9,
12313	3.714655387053323*^9,
12314	3.714656070171739*^9},ExpressionUUID->"013f6af7-f881-4065-bb20-\
12315	e2c062cfec5e"]
12316	}, Open ]],
12317
12318	Cell[CellGroupData[{
12319
12320	Cell[BoxData[
12321	RowBox[{
12322	RowBox[{
12323	RowBox[{"hll", "//.", "MwShifts"}], "//", "WCsimplify"}], "//",
12324	"TableForm"}]], "Input",
12325	CellChangeTimes->{{3.7146540238619328`^9, 3.714654043748782^9}, {
12326	3.714654567273402^9, 3.714654569198159^9}, {3.714655387772214*^9,
12327	3.714655388709861^9}, {3.714656059737562^9,
12328	3.714656061380722*^9}},ExpressionUUID->"c0812ffd-bb82-4b70-8f54-\
12329	71e6fe2d518e"],
12330
12331	Cell[BoxData[
12332	TagBox[
12333	InterpretationBox[GridBox[{
12334	{GridBox[{
12335	{"H", "1"},
12336	{
12337	OverscriptBox["e", "\<\"-\"\>"], "2"},
12338	{"e", "3"}
12339	},
12340	GridBoxAlignment->{
12341	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12342	"RowsIndexed" -> {}},
12343	GridBoxSpacings->{"Columns" -> {
12344	Offset[0.27999999999999997`], {
12345	Offset[0.7]},
12346	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12347	Offset[0.2], {
12348	Offset[0.1]},
12349	Offset[0.2]}, "RowsIndexed" -> {}}],
12350	RowBox[{"-",
12351	FractionBox[
12352	RowBox[{"\[ImaginaryI]", " ",
12353	RowBox[{"(",
12354	RowBox[{
12355	RowBox[{
12356	SuperscriptBox[
12357	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
12358	RowBox[{"(",
12359	RowBox[{
12360	RowBox[{"4", " ",
12361	SubscriptBox["c",
12362	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
12363	SubscriptBox["c", "HD"], "-",
12364	RowBox[{"2", " ",
12365	RowBox[{"(",
12366	RowBox[{
12367	SubscriptBox["cHl3",
12368	RowBox[{"1", ",", "1"}]], "+",
12369	SubscriptBox["cHl3",
12370	RowBox[{"2", ",", "2"}]], "-",
12371	SubscriptBox[
12372	SubscriptBox["c", "ll"],
12373	RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
12374	")"}], " ",
12375	SubscriptBox["\[Delta]",
12376	RowBox[{
12377	SubscriptBox["\<\"s\"\>", "2"], ",",
12378	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12379	RowBox[{"4", " ",
12380	RowBox[{"(",
12381	RowBox[{
12382	RowBox[{
12383	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}], "-",
12384	RowBox[{
12385	SuperscriptBox[
12386	OverscriptBox["v", "^"], "2"], " ",
12387	SuperscriptBox["ceH1x1", "\<\"*\"\>"]}]}], ")"}], " ",
12388	SubscriptBox[
12389	SubscriptBox["P", "\<\"-\"\>"],
12390	RowBox[{
12391	SubscriptBox["\<\"s\"\>", "2"], ",",
12392	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12393	RowBox[{"4", " ",
12394	RowBox[{"(",
12395	RowBox[{
12396	RowBox[{
12397	RowBox[{"-", "ceH1x1"}], " ",
12398	SuperscriptBox[
12399	OverscriptBox["v", "^"], "2"]}], "+",
12400	RowBox[{
12401	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ye"}]}], ")"}],
12402	" ",
12403	SubscriptBox[
12404	SubscriptBox["P", "\<\"+\"\>"],
12405	RowBox[{
12406	SubscriptBox["\<\"s\"\>", "2"], ",",
12407	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12408	RowBox[{"4", " ",
12409	SqrtBox["2"], " ",
12410	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
12411	{GridBox[{
12412	{"H", "1"},
12413	{
12414	OverscriptBox["e", "\<\"-\"\>"], "2"},
12415	{"mu", "3"}
12416	},
12417	GridBoxAlignment->{
12418	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12419	"RowsIndexed" -> {}},
12420	GridBoxSpacings->{"Columns" -> {
12421	Offset[0.27999999999999997`], {
12422	Offset[0.7]},
12423	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12424	Offset[0.2], {
12425	Offset[0.1]},
12426	Offset[0.2]}, "RowsIndexed" -> {}}],
12427	FractionBox[
12428	RowBox[{"\[ImaginaryI]", " ",
12429	SuperscriptBox[
12430	OverscriptBox["v", "^"], "2"], " ",
12431	RowBox[{"(",
12432	RowBox[{
12433	RowBox[{
12434	SuperscriptBox["ceH2x1", "\<\"*\"\>"], " ",
12435	SubscriptBox[
12436	SubscriptBox["P", "\<\"-\"\>"],
12437	RowBox[{
12438	SubscriptBox["\<\"s\"\>", "2"], ",",
12439	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12440	RowBox[{"ceH1x2", " ",
12441	SubscriptBox[
12442	SubscriptBox["P", "\<\"+\"\>"],
12443	RowBox[{
12444	SubscriptBox["\<\"s\"\>", "2"], ",",
12445	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12446	RowBox[{
12447	SqrtBox["2"], " ",
12448	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12449	{GridBox[{
12450	{"H", "1"},
12451	{
12452	OverscriptBox["e", "\<\"-\"\>"], "2"},
12453	{"ta", "3"}
12454	},
12455	GridBoxAlignment->{
12456	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12457	"RowsIndexed" -> {}},
12458	GridBoxSpacings->{"Columns" -> {
12459	Offset[0.27999999999999997`], {
12460	Offset[0.7]},
12461	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12462	Offset[0.2], {
12463	Offset[0.1]},
12464	Offset[0.2]}, "RowsIndexed" -> {}}],
12465	FractionBox[
12466	RowBox[{"\[ImaginaryI]", " ",
12467	SuperscriptBox[
12468	OverscriptBox["v", "^"], "2"], " ",
12469	RowBox[{"(",
12470	RowBox[{
12471	RowBox[{
12472	SuperscriptBox["ceH3x1", "\<\"*\"\>"], " ",
12473	SubscriptBox[
12474	SubscriptBox["P", "\<\"-\"\>"],
12475	RowBox[{
12476	SubscriptBox["\<\"s\"\>", "2"], ",",
12477	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12478	RowBox[{"ceH1x3", " ",
12479	SubscriptBox[
12480	SubscriptBox["P", "\<\"+\"\>"],
12481	RowBox[{
12482	SubscriptBox["\<\"s\"\>", "2"], ",",
12483	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12484	RowBox[{
12485	SqrtBox["2"], " ",
12486	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12487	{GridBox[{
12488	{"H", "1"},
12489	{
12490	OverscriptBox["mu", "\<\"-\"\>"], "2"},
12491	{"e", "3"}
12492	},
12493	GridBoxAlignment->{
12494	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12495	"RowsIndexed" -> {}},
12496	GridBoxSpacings->{"Columns" -> {
12497	Offset[0.27999999999999997`], {
12498	Offset[0.7]},
12499	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12500	Offset[0.2], {
12501	Offset[0.1]},
12502	Offset[0.2]}, "RowsIndexed" -> {}}],
12503	FractionBox[
12504	RowBox[{"\[ImaginaryI]", " ",
12505	SuperscriptBox[
12506	OverscriptBox["v", "^"], "2"], " ",
12507	RowBox[{"(",
12508	RowBox[{
12509	RowBox[{
12510	SuperscriptBox["ceH1x2", "\<\"*\"\>"], " ",
12511	SubscriptBox[
12512	SubscriptBox["P", "\<\"-\"\>"],
12513	RowBox[{
12514	SubscriptBox["\<\"s\"\>", "2"], ",",
12515	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12516	RowBox[{"ceH2x1", " ",
12517	SubscriptBox[
12518	SubscriptBox["P", "\<\"+\"\>"],
12519	RowBox[{
12520	SubscriptBox["\<\"s\"\>", "2"], ",",
12521	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12522	RowBox[{
12523	SqrtBox["2"], " ",
12524	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12525	{GridBox[{
12526	{"H", "1"},
12527	{
12528	OverscriptBox["mu", "\<\"-\"\>"], "2"},
12529	{"mu", "3"}
12530	},
12531	GridBoxAlignment->{
12532	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12533	"RowsIndexed" -> {}},
12534	GridBoxSpacings->{"Columns" -> {
12535	Offset[0.27999999999999997`], {
12536	Offset[0.7]},
12537	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12538	Offset[0.2], {
12539	Offset[0.1]},
12540	Offset[0.2]}, "RowsIndexed" -> {}}],
12541	RowBox[{"-",
12542	FractionBox[
12543	RowBox[{"\[ImaginaryI]", " ",
12544	RowBox[{"(",
12545	RowBox[{
12546	RowBox[{
12547	SuperscriptBox[
12548	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
12549	RowBox[{"(",
12550	RowBox[{
12551	RowBox[{"4", " ",
12552	SubscriptBox["c",
12553	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
12554	SubscriptBox["c", "HD"], "-",
12555	RowBox[{"2", " ",
12556	RowBox[{"(",
12557	RowBox[{
12558	SubscriptBox["cHl3",
12559	RowBox[{"1", ",", "1"}]], "+",
12560	SubscriptBox["cHl3",
12561	RowBox[{"2", ",", "2"}]], "-",
12562	SubscriptBox[
12563	SubscriptBox["c", "ll"],
12564	RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
12565	")"}], " ",
12566	SubscriptBox["\[Delta]",
12567	RowBox[{
12568	SubscriptBox["\<\"s\"\>", "2"], ",",
12569	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12570	RowBox[{"4", " ",
12571	RowBox[{"(",
12572	RowBox[{
12573	RowBox[{
12574	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}], "-",
12575	RowBox[{
12576	SuperscriptBox[
12577	OverscriptBox["v", "^"], "2"], " ",
12578	SuperscriptBox["ceH2x2", "\<\"*\"\>"]}]}], ")"}], " ",
12579	SubscriptBox[
12580	SubscriptBox["P", "\<\"-\"\>"],
12581	RowBox[{
12582	SubscriptBox["\<\"s\"\>", "2"], ",",
12583	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12584	RowBox[{"4", " ",
12585	RowBox[{"(",
12586	RowBox[{
12587	RowBox[{
12588	RowBox[{"-", "ceH2x2"}], " ",
12589	SuperscriptBox[
12590	OverscriptBox["v", "^"], "2"]}], "+",
12591	RowBox[{
12592	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ym"}]}], ")"}],
12593	" ",
12594	SubscriptBox[
12595	SubscriptBox["P", "\<\"+\"\>"],
12596	RowBox[{
12597	SubscriptBox["\<\"s\"\>", "2"], ",",
12598	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12599	RowBox[{"4", " ",
12600	SqrtBox["2"], " ",
12601	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
12602	{GridBox[{
12603	{"H", "1"},
12604	{
12605	OverscriptBox["mu", "\<\"-\"\>"], "2"},
12606	{"ta", "3"}
12607	},
12608	GridBoxAlignment->{
12609	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12610	"RowsIndexed" -> {}},
12611	GridBoxSpacings->{"Columns" -> {
12612	Offset[0.27999999999999997`], {
12613	Offset[0.7]},
12614	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12615	Offset[0.2], {
12616	Offset[0.1]},
12617	Offset[0.2]}, "RowsIndexed" -> {}}],
12618	FractionBox[
12619	RowBox[{"\[ImaginaryI]", " ",
12620	SuperscriptBox[
12621	OverscriptBox["v", "^"], "2"], " ",
12622	RowBox[{"(",
12623	RowBox[{
12624	RowBox[{
12625	SuperscriptBox["ceH3x2", "\<\"*\"\>"], " ",
12626	SubscriptBox[
12627	SubscriptBox["P", "\<\"-\"\>"],
12628	RowBox[{
12629	SubscriptBox["\<\"s\"\>", "2"], ",",
12630	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12631	RowBox[{"ceH2x3", " ",
12632	SubscriptBox[
12633	SubscriptBox["P", "\<\"+\"\>"],
12634	RowBox[{
12635	SubscriptBox["\<\"s\"\>", "2"], ",",
12636	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12637	RowBox[{
12638	SqrtBox["2"], " ",
12639	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12640	{GridBox[{
12641	{"H", "1"},
12642	{
12643	OverscriptBox["ta", "\<\"-\"\>"], "2"},
12644	{"e", "3"}
12645	},
12646	GridBoxAlignment->{
12647	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12648	"RowsIndexed" -> {}},
12649	GridBoxSpacings->{"Columns" -> {
12650	Offset[0.27999999999999997`], {
12651	Offset[0.7]},
12652	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12653	Offset[0.2], {
12654	Offset[0.1]},
12655	Offset[0.2]}, "RowsIndexed" -> {}}],
12656	FractionBox[
12657	RowBox[{"\[ImaginaryI]", " ",
12658	SuperscriptBox[
12659	OverscriptBox["v", "^"], "2"], " ",
12660	RowBox[{"(",
12661	RowBox[{
12662	RowBox[{
12663	SuperscriptBox["ceH1x3", "\<\"*\"\>"], " ",
12664	SubscriptBox[
12665	SubscriptBox["P", "\<\"-\"\>"],
12666	RowBox[{
12667	SubscriptBox["\<\"s\"\>", "2"], ",",
12668	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12669	RowBox[{"ceH3x1", " ",
12670	SubscriptBox[
12671	SubscriptBox["P", "\<\"+\"\>"],
12672	RowBox[{
12673	SubscriptBox["\<\"s\"\>", "2"], ",",
12674	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12675	RowBox[{
12676	SqrtBox["2"], " ",
12677	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12678	{GridBox[{
12679	{"H", "1"},
12680	{
12681	OverscriptBox["ta", "\<\"-\"\>"], "2"},
12682	{"mu", "3"}
12683	},
12684	GridBoxAlignment->{
12685	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12686	"RowsIndexed" -> {}},
12687	GridBoxSpacings->{"Columns" -> {
12688	Offset[0.27999999999999997`], {
12689	Offset[0.7]},
12690	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12691	Offset[0.2], {
12692	Offset[0.1]},
12693	Offset[0.2]}, "RowsIndexed" -> {}}],
12694	FractionBox[
12695	RowBox[{"\[ImaginaryI]", " ",
12696	SuperscriptBox[
12697	OverscriptBox["v", "^"], "2"], " ",
12698	RowBox[{"(",
12699	RowBox[{
12700	RowBox[{
12701	SuperscriptBox["ceH2x3", "\<\"*\"\>"], " ",
12702	SubscriptBox[
12703	SubscriptBox["P", "\<\"-\"\>"],
12704	RowBox[{
12705	SubscriptBox["\<\"s\"\>", "2"], ",",
12706	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12707	RowBox[{"ceH3x2", " ",
12708	SubscriptBox[
12709	SubscriptBox["P", "\<\"+\"\>"],
12710	RowBox[{
12711	SubscriptBox["\<\"s\"\>", "2"], ",",
12712	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12713	RowBox[{
12714	SqrtBox["2"], " ",
12715	SuperscriptBox["\[CapitalLambda]", "2"]}]]},
12716	{GridBox[{
12717	{"H", "1"},
12718	{
12719	OverscriptBox["ta", "\<\"-\"\>"], "2"},
12720	{"ta", "3"}
12721	},
12722	GridBoxAlignment->{
12723	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12724	"RowsIndexed" -> {}},
12725	GridBoxSpacings->{"Columns" -> {
12726	Offset[0.27999999999999997`], {
12727	Offset[0.7]},
12728	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12729	Offset[0.2], {
12730	Offset[0.1]},
12731	Offset[0.2]}, "RowsIndexed" -> {}}],
12732	RowBox[{"-",
12733	FractionBox[
12734	RowBox[{"\[ImaginaryI]", " ",
12735	RowBox[{"(",
12736	RowBox[{
12737	RowBox[{
12738	SuperscriptBox[
12739	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
12740	RowBox[{"(",
12741	RowBox[{
12742	RowBox[{"4", " ",
12743	SubscriptBox["c",
12744	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
12745	SubscriptBox["c", "HD"], "-",
12746	RowBox[{"2", " ",
12747	RowBox[{"(",
12748	RowBox[{
12749	SubscriptBox["cHl3",
12750	RowBox[{"1", ",", "1"}]], "+",
12751	SubscriptBox["cHl3",
12752	RowBox[{"2", ",", "2"}]], "-",
12753	SubscriptBox[
12754	SubscriptBox["c", "ll"],
12755	RowBox[{"1", ",", "2", ",", "2", ",", "1"}]]}], ")"}]}]}],
12756	")"}], " ",
12757	SubscriptBox["\[Delta]",
12758	RowBox[{
12759	SubscriptBox["\<\"s\"\>", "2"], ",",
12760	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12761	RowBox[{"4", " ",
12762	RowBox[{"(",
12763	RowBox[{
12764	RowBox[{
12765	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}], "-",
12766	RowBox[{
12767	SuperscriptBox[
12768	OverscriptBox["v", "^"], "2"], " ",
12769	SuperscriptBox["ceH3x3", "\<\"*\"\>"]}]}], ")"}], " ",
12770	SubscriptBox[
12771	SubscriptBox["P", "\<\"-\"\>"],
12772	RowBox[{
12773	SubscriptBox["\<\"s\"\>", "2"], ",",
12774	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
12775	RowBox[{"4", " ",
12776	RowBox[{"(",
12777	RowBox[{
12778	RowBox[{
12779	RowBox[{"-", "ceH3x3"}], " ",
12780	SuperscriptBox[
12781	OverscriptBox["v", "^"], "2"]}], "+",
12782	RowBox[{
12783	SuperscriptBox["\[CapitalLambda]", "2"], " ", "ytau"}]}],
12784	")"}], " ",
12785	SubscriptBox[
12786	SubscriptBox["P", "\<\"+\"\>"],
12787	RowBox[{
12788	SubscriptBox["\<\"s\"\>", "2"], ",",
12789	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}],
12790	RowBox[{"4", " ",
12791	SqrtBox["2"], " ",
12792	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
12793	},
12794	GridBoxAlignment->{
12795	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
12796	"RowsIndexed" -> {}},
12797	GridBoxSpacings->{"Columns" -> {
12798	Offset[0.27999999999999997`], {
12799	Offset[2.0999999999999996`]},
12800	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
12801	Offset[0.2], {
12802	Offset[0.4]},
12803	Offset[0.2]}, "RowsIndexed" -> {}}],
12804	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
12805	FeynRules`e, 3}}, ((Complex[0,
12806	Rational[-1, 4]]
12807	2^Rational[-1,
12808	2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
12809	$CellContext`ye) (4 $CellContext`cHbox - $CellContext`cHD -
12810	2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
12811	2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
12812	FeynRules`Index[FeynRules`Spin,
12813	FeynRules`Ext[2]],
12814	FeynRules`Index[FeynRules`Spin,
12815	FeynRules`Ext[3]]] + (
12816	4 ($CellContext`LambdaSMEFT^2 $CellContext`ye - \
12817	$CellContext`vevhat^2 Conjugate[$CellContext`ceH1x1])) FeynRules`ProjM[
12818	FeynRules`Index[FeynRules`Spin,
12819	FeynRules`Ext[2]],
12820	FeynRules`Index[FeynRules`Spin,
12821	FeynRules`Ext[3]]] + (
12822	4 ((-$CellContext`ceH1x1) $CellContext`vevhat^2 + \
12823	$CellContext`LambdaSMEFT^2 $CellContext`ye)) FeynRules`ProjP[
12824	FeynRules`Index[FeynRules`Spin,
12825	FeynRules`Ext[2]],
12826	FeynRules`Index[FeynRules`Spin,
12827	FeynRules`Ext[3]]])}, {{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {
12828	FeynRules`mu,
12829	3}}, (((Complex[0, 1]
12830	2^Rational[-1,
12831	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12832	Conjugate[$CellContext`ceH2x1] FeynRules`ProjM[
12833	FeynRules`Index[FeynRules`Spin,
12834	FeynRules`Ext[2]],
12835	FeynRules`Index[FeynRules`Spin,
12836	FeynRules`Ext[3]]] + $CellContext`ceH1x2 FeynRules`ProjP[
12837	FeynRules`Index[FeynRules`Spin,
12838	FeynRules`Ext[2]],
12839	FeynRules`Index[FeynRules`Spin,
12840	FeynRules`Ext[3]]])}, {{{
12841	FeynRules`H, 1}, {$CellContext`ebar, 2}, {$CellContext`ta,
12842	3}}, (((Complex[0, 1]
12843	2^Rational[-1,
12844	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12845	Conjugate[$CellContext`ceH3x1] FeynRules`ProjM[
12846	FeynRules`Index[FeynRules`Spin,
12847	FeynRules`Ext[2]],
12848	FeynRules`Index[FeynRules`Spin,
12849	FeynRules`Ext[3]]] + $CellContext`ceH1x3 FeynRules`ProjP[
12850	FeynRules`Index[FeynRules`Spin,
12851	FeynRules`Ext[2]],
12852	FeynRules`Index[FeynRules`Spin,
12853	FeynRules`Ext[3]]])}, {{{
12854	FeynRules`H, 1}, {$CellContext`mubar, 2}, {
12855	FeynRules`e,
12856	3}}, (((Complex[0, 1]
12857	2^Rational[-1,
12858	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12859	Conjugate[$CellContext`ceH1x2] FeynRules`ProjM[
12860	FeynRules`Index[FeynRules`Spin,
12861	FeynRules`Ext[2]],
12862	FeynRules`Index[FeynRules`Spin,
12863	FeynRules`Ext[3]]] + $CellContext`ceH2x1 FeynRules`ProjP[
12864	FeynRules`Index[FeynRules`Spin,
12865	FeynRules`Ext[2]],
12866	FeynRules`Index[FeynRules`Spin,
12867	FeynRules`Ext[3]]])}, {{{
12868	FeynRules`H, 1}, {$CellContext`mubar, 2}, {
12869	FeynRules`mu, 3}}, ((Complex[0,
12870	Rational[-1, 4]]
12871	2^Rational[-1,
12872	2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
12873	$CellContext`ym) (4 $CellContext`cHbox - $CellContext`cHD -
12874	2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
12875	2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
12876	FeynRules`Index[FeynRules`Spin,
12877	FeynRules`Ext[2]],
12878	FeynRules`Index[FeynRules`Spin,
12879	FeynRules`Ext[3]]] + (
12880	4 ($CellContext`LambdaSMEFT^2 $CellContext`ym - \
12881	$CellContext`vevhat^2 Conjugate[$CellContext`ceH2x2])) FeynRules`ProjM[
12882	FeynRules`Index[FeynRules`Spin,
12883	FeynRules`Ext[2]],
12884	FeynRules`Index[FeynRules`Spin,
12885	FeynRules`Ext[3]]] + (
12886	4 ((-$CellContext`ceH2x2) $CellContext`vevhat^2 + \
12887	$CellContext`LambdaSMEFT^2 $CellContext`ym)) FeynRules`ProjP[
12888	FeynRules`Index[FeynRules`Spin,
12889	FeynRules`Ext[2]],
12890	FeynRules`Index[FeynRules`Spin,
12891	FeynRules`Ext[3]]])}, {{{
12892	FeynRules`H, 1}, {$CellContext`mubar, 2}, {$CellContext`ta,
12893	3}}, (((Complex[0, 1]
12894	2^Rational[-1,
12895	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12896	Conjugate[$CellContext`ceH3x2] FeynRules`ProjM[
12897	FeynRules`Index[FeynRules`Spin,
12898	FeynRules`Ext[2]],
12899	FeynRules`Index[FeynRules`Spin,
12900	FeynRules`Ext[3]]] + $CellContext`ceH2x3 FeynRules`ProjP[
12901	FeynRules`Index[FeynRules`Spin,
12902	FeynRules`Ext[2]],
12903	FeynRules`Index[FeynRules`Spin,
12904	FeynRules`Ext[3]]])}, {{{
12905	FeynRules`H, 1}, {$CellContext`tabar, 2}, {
12906	FeynRules`e,
12907	3}}, (((Complex[0, 1]
12908	2^Rational[-1,
12909	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12910	Conjugate[$CellContext`ceH1x3] FeynRules`ProjM[
12911	FeynRules`Index[FeynRules`Spin,
12912	FeynRules`Ext[2]],
12913	FeynRules`Index[FeynRules`Spin,
12914	FeynRules`Ext[3]]] + $CellContext`ceH3x1 FeynRules`ProjP[
12915	FeynRules`Index[FeynRules`Spin,
12916	FeynRules`Ext[2]],
12917	FeynRules`Index[FeynRules`Spin,
12918	FeynRules`Ext[3]]])}, {{{
12919	FeynRules`H, 1}, {$CellContext`tabar, 2}, {
12920	FeynRules`mu,
12921	3}}, (((Complex[0, 1]
12922	2^Rational[-1,
12923	2]) $CellContext`LambdaSMEFT^(-2)) $CellContext`vevhat^2) (
12924	Conjugate[$CellContext`ceH2x3] FeynRules`ProjM[
12925	FeynRules`Index[FeynRules`Spin,
12926	FeynRules`Ext[2]],
12927	FeynRules`Index[FeynRules`Spin,
12928	FeynRules`Ext[3]]] + $CellContext`ceH3x2 FeynRules`ProjP[
12929	FeynRules`Index[FeynRules`Spin,
12930	FeynRules`Ext[2]],
12931	FeynRules`Index[FeynRules`Spin,
12932	FeynRules`Ext[3]]])}, {{{
12933	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}}, ((
12934	Complex[0,
12935	Rational[-1, 4]]
12936	2^Rational[-1,
12937	2]) $CellContext`LambdaSMEFT^(-2)) ((($CellContext`vevhat^2 \
12938	$CellContext`ytau) (4 $CellContext`cHbox - $CellContext`cHD -
12939	2 ($CellContext`cHl3[1, 1] + $CellContext`cHl3[
12940	2, 2] - $CellContext`cll[1, 2, 2, 1]))) FeynRules`IndexDelta[
12941	FeynRules`Index[FeynRules`Spin,
12942	FeynRules`Ext[2]],
12943	FeynRules`Index[FeynRules`Spin,
12944	FeynRules`Ext[3]]] + (
12945	4 ($CellContext`LambdaSMEFT^2 $CellContext`ytau - \
12946	$CellContext`vevhat^2 Conjugate[$CellContext`ceH3x3])) FeynRules`ProjM[
12947	FeynRules`Index[FeynRules`Spin,
12948	FeynRules`Ext[2]],
12949	FeynRules`Index[FeynRules`Spin,
12950	FeynRules`Ext[3]]] + (
12951	4 ((-$CellContext`ceH3x3) $CellContext`vevhat^2 + \
12952	$CellContext`LambdaSMEFT^2 $CellContext`ytau)) FeynRules`ProjP[
12953	FeynRules`Index[FeynRules`Spin,
12954	FeynRules`Ext[2]],
12955	FeynRules`Index[FeynRules`Spin,
12956	FeynRules`Ext[3]]])}}]],
12957	Function[BoxForm`e$,
12958	TableForm[BoxForm`e$]]]], "Output",
12959	CellChangeTimes->{{3.71465403609652^9, 3.714654045478115^9},
12960	3.7146545725892477`^9, 3.7146553926199627`^9,
12961	3.7146560766914988`*^9},ExpressionUUID->"2a0f6bc0-201a-4218-9e60-\
12962	4c8ff9f6be20"]
12963	}, Open ]]
12964	}, Closed]],
12965
12966	Cell[CellGroupData[{
12967
12968	Cell["Export to UFO", "Subsection",
12969	CellChangeTimes->{{3.697464870154114^9, 3.697464873666815^9}, {
12970	3.714654239779196*^9,
12971	3.7146542406833982`*^9}},ExpressionUUID->"240e5c9c-2d4a-4e24-9b2c-\
12972	afbac9a8cad5"],
12973
12974	Cell[TextData[{
12975	StyleBox["Warning!",
12976	FontWeight->"Bold",
12977	FontColor->RGBColor[1, 0, 0]],
12978	" Exporting the flavor general model to UFO in the most general case might \
12979	take a long time (~ 2 hours) \nThe time is significantly reduced using the \
12980	massless restriction"
12981	}], "Text",
12982	CellChangeTimes->{{3.714654622630918^9, 3.714654684037245^9}, {
12983	3.714654761972848^9, 3.714654820650289^9}, {3.714654886900188*^9,
12984	3.7146548920472727`*^9}},
12985	Background->RGBColor[
12986	1, 1, 0.85],ExpressionUUID->"8678efa0-b3a9-40f7-b38c-fb7a1ebc418d"],
12987
12988	Cell[CellGroupData[{
12989
12990	Cell[BoxData[
12991	RowBox[{"WriteUFO", "[",
12992	RowBox[{"LSMEFT", ",",
12993	RowBox[{"MaxParticles", "\[Rule]", "4"}], ",",
12994	RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_general_MwScheme_UFO\>\""}]}],
12995	"]"}]], "Input",
12996	CellChangeTimes->{{3.711357093610547^9, 3.7113570956332912`^9}, {
12997	3.713541847073875^9, 3.713541858645399^9}, {3.713966972373098*^9,
12998	3.713966987928933^9}, {3.7139684888375883`^9, 3.713968491954339*^9}, {
12999	3.714027305929933^9, 3.7140273182314863`^9}, {3.714027352553897*^9,
13000	3.714027353791733^9}, {3.7140340581231403`^9, 3.714034062356689*^9}, {
13001	3.7140676631150503`^9, 3.7140676648835983`^9}, {3.714654719766431*^9,
13002	3.714654720132617*^9}},ExpressionUUID->"5c345ef9-4d0e-4919-a43d-\
13003	932715e29235"],
13004
13005	Cell[CellGroupData[{
13006
13007	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
13008	"Print",
13009	CellChangeTimes->{
13010	3.714069813211301*^9},ExpressionUUID->"7d728da9-6e9c-4800-955e-\
13011	3f265fd2da16"],
13012
13013	Cell[BoxData[
13014	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
13015	StripOnInput->False,
13016	LineColor->RGBColor[1, 0.5, 0],
13017	FrontFaceColor->RGBColor[1, 0.5, 0],
13018	BackFaceColor->RGBColor[1, 0.5, 0],
13019	GraphicsColor->RGBColor[1, 0.5, 0],
13020	FontWeight->Bold,
13021	FontColor->RGBColor[1, 0.5, 0]]], "Print",
13022	CellChangeTimes->{
13023	3.714070014670616*^9},ExpressionUUID->"b9ef4c16-b79c-4a95-b8f2-\
13024	4e28b9d86ffc"],
13025
13026	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
13027	CellChangeTimes->{
13028	3.714070014714282*^9},ExpressionUUID->"d47d73ba-0801-4b3c-8722-\
13029	87779213d4d5"],
13030
13031	Cell[BoxData[
13032	InterpretationBox[
13033	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
13034	"\[InvisibleSpace]", "\<\" cores\"\>"}],
13035	SequenceForm["Expanding the indices over ", 2, " cores"],
13036	Editable->False]], "Print",
13037	CellChangeTimes->{
13038	3.714070014717605*^9},ExpressionUUID->"9dd6538c-65f7-423b-b6e2-\
13039	cbea69fb0879"],
13040
13041	Cell[BoxData[
13042	InterpretationBox[
13043	RowBox[{"\<\"Neglecting all terms with more than \"\>",
13044	"\[InvisibleSpace]", "\<\"4\"\>",
13045	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
13046	SequenceForm["Neglecting all terms with more than ", "4", " particles."],
13047	Editable->False]], "Print",
13048	CellChangeTimes->{
13049	3.7140700152243853`*^9},ExpressionUUID->"4e0328e1-8eef-47ed-8921-\
13050	c6c453513119"],
13051
13052	Cell[BoxData["\<\"Collecting the different structures that enter the \
13053	vertex.\"\>"], "Print",
13054	CellChangeTimes->{
13055	3.7140702733238497`*^9},ExpressionUUID->"197fe36c-c31a-4f60-b079-\
13056	861f6447515b"],
13057
13058	Cell[BoxData[
13059	InterpretationBox[
13060	RowBox[{
13061	"82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
13062	-> starting the computation: \"\>", "\[InvisibleSpace]",
13063	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
13064	ImageSizeCache->{144., {3., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
13065	"\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
13066	SequenceForm[
13067	82, " possible non-zero vertices have been found -> starting the \
13068	computation: ",
13069	Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
13070	Editable->False]], "Print",
13071	CellChangeTimes->{
13072	3.714070274267921*^9},ExpressionUUID->"c02f57cc-1de2-4a8d-9437-\
13073	d923c2f9fc5d"],
13074
13075	Cell[BoxData[
13076	InterpretationBox[
13077	RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
13078	SequenceForm[82, " vertices obtained."],
13079	Editable->False]], "Print",
13080	CellChangeTimes->{
13081	3.714070414233438*^9},ExpressionUUID->"10af43bc-9bc9-4b3d-b1d1-\
13082	3a3e95a254fd"],
13083
13084	Cell[BoxData[
13085	InterpretationBox[
13086	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
13087	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
13088	"\[InvisibleSpace]",
13089	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
13090	ImageSizeCache->{86., {2., 12.}}], "\[InvisibleSpace]", "\<\" / \"\>",
13091	"\[InvisibleSpace]", "82"}],
13092	SequenceForm[
13093	"Flavor expansion of the vertices distributed over ", 2, " cores: ",
13094	Dynamic[FeynRules`FR$Count1], " / ", 82],
13095	Editable->False]], "Print",
13096	CellChangeTimes->{
13097	3.714070522740651*^9},ExpressionUUID->"fcab0251-bb9a-4f32-bc4e-\
13098	74c9f61989aa"],
13099
13100	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
13101	CellChangeTimes->{
13102	3.714071576493248*^9},ExpressionUUID->"6adb94e2-a785-4a73-9307-\
13103	522b483ea3d0"],
13104
13105	Cell[BoxData[
13106	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
13107	decays: \"\>",
13108	StripOnInput->False,
13109	LineColor->RGBColor[1, 0.5, 0],
13110	FrontFaceColor->RGBColor[1, 0.5, 0],
13111	BackFaceColor->RGBColor[1, 0.5, 0],
13112	GraphicsColor->RGBColor[1, 0.5, 0],
13113	FontWeight->Bold,
13114	FontColor->RGBColor[1, 0.5, 0]]], "Print",
13115	CellChangeTimes->{
13116	3.7140715767559223`*^9},ExpressionUUID->"36fd6d0d-fe57-4898-9fee-\
13117	15e8bcaf87b3"],
13118
13119	Cell[BoxData[
13120	InterpretationBox[
13121	RowBox[{
13122	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
13123	ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
13124	"\[InvisibleSpace]", "138"}],
13125	SequenceForm[
13126	Dynamic[PRIVATE`mycounter], " / ", 138],
13127	Editable->False]], "Print",
13128	CellChangeTimes->{
13129	3.7140715767999563`*^9},ExpressionUUID->"3eb90927-2c84-4568-bdb2-\
13130	3d12bd445f4d"],
13131
13132	Cell[BoxData[
13133	InterpretationBox[
13134	RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
13135	"3169.368`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
13136	SequenceForm["Squared matrix elent compute in ", 3169.368, " seconds."],
13137	Editable->False]], "Print",
13138	CellChangeTimes->{
13139	3.71407690760506*^9},ExpressionUUID->"d626b3fe-fbb7-412c-a373-9b75e94f2604"],
13140
13141	Cell[BoxData[
13142	InterpretationBox[
13143	RowBox[{
13144	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
13145	ImageSizeCache->{163., {3., 11.}}], "\[InvisibleSpace]", "\<\" / \"\>",
13146	"\[InvisibleSpace]", "181"}],
13147	SequenceForm[
13148	Dynamic[PRIVATE`mycounter], " / ", 181],
13149	Editable->False]], "Print",
13150	CellChangeTimes->{
13151	3.714076907607938*^9},ExpressionUUID->"8e33c496-6434-401d-a7ed-\
13152	85442d1270bb"],
13153
13154	Cell[BoxData[
13155	InterpretationBox[
13156	RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
13157	"162.788`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
13158	SequenceForm["Decay widths computed in ", 162.788, " seconds."],
13159	Editable->False]], "Print",
13160	CellChangeTimes->{
13161	3.714077077188959*^9},ExpressionUUID->"f0b6ad80-5b69-4d22-8194-\
13162	175bd1c21a32"],
13163
13164	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
13165	CellChangeTimes->{
13166	3.714077077214258*^9},ExpressionUUID->"e913f8de-cd0f-4962-bedc-\
13167	202e6787959b"],
13168
13169	Cell[BoxData[
13170	StyleBox["\<\"Warning: Multi-Fermion operators are not yet fully \
13171	supported!\"\>",
13172	StripOnInput->False,
13173	LineColor->RGBColor[1, 0, 0],
13174	FrontFaceColor->RGBColor[1, 0, 0],
13175	BackFaceColor->RGBColor[1, 0, 0],
13176	GraphicsColor->RGBColor[1, 0, 0],
13177	FontColor->RGBColor[1, 0, 0]]], "Print",
13178	CellChangeTimes->{
13179	3.714077088360732*^9},ExpressionUUID->"b9b24574-30c1-40e7-a570-\
13180	06fef9793207"],
13181
13182	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
13183	"Print",
13184	CellChangeTimes->{
13185	3.714077090521696*^9},ExpressionUUID->"6a72f63c-f4a9-42ca-a867-\
13186	a30b00ca74da"],
13187
13188	Cell[BoxData[
13189	InterpretationBox[
13190	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
13191	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
13192	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
13193	Editable->False]], "Print",
13194	CellChangeTimes->{
13195	3.7140770928310003`*^9},ExpressionUUID->"238b5fd0-4604-4895-ba35-\
13196	26afcb671abf"],
13197
13198	Cell[BoxData[
13199	InterpretationBox[
13200	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
13201	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
13202	ImageSizeCache->{278., {3., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>",
13203	"\[InvisibleSpace]", "1224", "\[InvisibleSpace]", "\<\" .\"\>"}],
13204	SequenceForm[" - Optimizing: ",
13205	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 1224, " ."],
13206	Editable->False]], "Print",
13207	CellChangeTimes->{
13208	3.7140771394578133`*^9},ExpressionUUID->"e4715056-5a21-4dd9-a560-\
13209	48ac7a87fefb"],
13210
13211	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
13212	CellChangeTimes->{
13213	3.714077219583187*^9},ExpressionUUID->"31725dfe-2774-4d00-9464-\
13214	cb37ca8cee90"],
13215
13216	Cell[BoxData[
13217	StyleBox["\<\"Warning: Non positive interaction order QED.\\n \
13218	This might reduce the efficiency of certain matrix element generators.\\n \
13219	See logfile for more details.\"\>",
13220	StripOnInput->False,
13221	LineColor->RGBColor[1, 0, 0],
13222	FrontFaceColor->RGBColor[1, 0, 0],
13223	BackFaceColor->RGBColor[1, 0, 0],
13224	GraphicsColor->RGBColor[1, 0, 0],
13225	FontColor->RGBColor[1, 0, 0]]], "Print",
13226	CellChangeTimes->{
13227	3.714077280346238*^9},ExpressionUUID->"4f75d5c2-c4d7-4390-b64a-\
13228	1e59ca53d7cf"],
13229
13230	Cell[BoxData["\<\"Done!\"\>"], "Print",
13231	CellChangeTimes->{
13232	3.714077569805871*^9},ExpressionUUID->"fbb53182-6f94-4ba3-b6b8-\
13233	4460d2fb8588"]
13234	}, Open ]]
13235	}, Open ]]
13236	}, Closed]]
13237	}, Closed]],
13238
13239	Cell[CellGroupData[{
13240
13241	Cell[TextData[{
13242	"model ",
13243	Cell[BoxData[
13244	FormBox[
13245	SuperscriptBox[
13246	RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
13247	"94a2a4f6-9e33-4aca-a7ea-82459514950a"],
13248	" \[Alpha] scheme"
13249	}], "Section",
13250	CellChangeTimes->{{3.696681316130834^9, 3.696681320670103^9}, {
13251	3.6972641901616383`^9, 3.697264190714314^9}, {3.6977796250127287`*^9,
13252	3.697779628134873^9}, {3.7008119849361362`^9, 3.7008119864866343`*^9}, {
13253	3.713951624097616^9, 3.7139516319877872`^9}, {3.7144743376619997`*^9,
13254	3.714474342461445^9}, {3.714654946914713^9,
13255	3.714654947202389*^9}},ExpressionUUID->"4ba162d2-fcda-408a-bfb2-\
13256	d3e238f0c227"],
13257
13258	Cell[BoxData[{
13259	RowBox[{
13260	RowBox[{"Flavor", "=", "U35"}], ";"}], "\[IndentingNewLine]",
13261	RowBox[{
13262	RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
13263	CellChangeTimes->CompressedData["
13264	1:eJxTTMoPSmViYGAQBmIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
13265	BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
13266	BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
13267	gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
13268	oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
13269	tK0F0wCBM7LJ
13270	"],ExpressionUUID->"efb56935-48fc-4b89-9b62-2d1a62b3b6f1"],
13271
13272	Cell[CellGroupData[{
13273
13274	Cell[BoxData[{
13275	RowBox[{
13276	RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}],
13277	";"}], "\[IndentingNewLine]",
13278	RowBox[{
13279	RowBox[{
13280	RowBox[{"$Assumptions", "=",
13281	RowBox[{
13282	RowBox[{
13283	RowBox[{
13284	RowBox[{"cth", "^", "2"}], "+",
13285	RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&",
13286	RowBox[{
13287	RowBox[{"vevhat", "^", "2"}], "\[Equal]",
13288	RowBox[{"1", "/",
13289	RowBox[{"(",
13290	RowBox[{
13291	RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}],
13292	RowBox[{"(*",
13293	RowBox[{
13294	"definition", " ", "useful", " ", "for", " ", "algebraic", " ",
13295	"simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
13296	CellChangeTimes->{
13297	3.696317675402779^9, {3.6965773165572453`^9, 3.696577319156142*^9},
13298	3.696580983074707^9, {3.6965948918072433`^9, 3.696594894707777*^9},
13299	3.6966709211488647`^9, {3.69667828323773^9, 3.696678323509939*^9}, {
13300	3.69667951035196^9, 3.6966795109895697`^9}, {3.696681436195228*^9,
13301	3.696681438987885^9}, {3.6972650726318893`^9, 3.697265101991671*^9},
13302	3.697287098417327^9, {3.6973604685824413`^9, 3.69736046890945*^9}, {
13303	3.697779635251266^9, 3.69777963758922^9}, {3.698645426547124*^9,
13304	3.698645426699171^9}, {3.699076691858276^9, 3.699076748603301*^9}, {
13305	3.6990805929555798`^9, 3.6990805933718987`^9}, {3.699103784843251*^9,
13306	3.699103787233872^9}, {3.699174414331218^9, 3.699174423137232*^9}, {
13307	3.700810602928831^9, 3.700810603791377^9}, 3.700811190650639*^9, {
13308	3.700811373469302^9, 3.70081137419092^9}, {3.700811543944695*^9,
13309	3.700811545171196^9}, {3.7008116427840242`^9, 3.7008116439630938`*^9}, {
13310	3.700811709403363^9, 3.700811710009871^9}, {3.700811988139593*^9,
13311	3.700811989085125^9}, {3.706958250209116^9, 3.706958253094596*^9}, {
13312	3.70719446793911^9, 3.7071944683318357`^9}, {3.707196963096757*^9,
13313	3.7071969641085587`^9}, {3.7073968274735537`^9, 3.707396828325622*^9}, {
13314	3.7074043139801292`^9, 3.707404317755911^9}, {3.7074053023188467`*^9,
13315	3.707405302915038^9}, {3.707730114023314^9, 3.707730124419199*^9}, {
13316	3.7077337383961143`^9, 3.707733741518713^9}, {3.713951635803303*^9,
13317	3.71395165206149^9}, {3.713951695549211^9, 3.713951695853513*^9}, {
13318	3.71395173874929^9, 3.7139517413107147`^9}, {3.713952603189982*^9,
13319	3.713952603424769^9}, {3.714473889693774^9,
13320	3.714473893078669*^9}},ExpressionUUID->"0db4a9de-35f4-4b6e-829a-\
13321	9a7bd3f3473a"],
13322
13323	Cell[CellGroupData[{
13324
13325	Cell[BoxData["\<\"U(3)^5 symmetric framework selected\"\>"], "Print",
13326	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13327	3.728971117078761*^9,
13328	3.729582951496346*^9},ExpressionUUID->"1738bd40-c20e-4e6f-82b6-\
13329	b1a2bbbd68d8"],
13330
13331	Cell[BoxData[
13332	InterpretationBox[
13333	RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", "\[Alpha]",
13334	"\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]",
13335	SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>",
13336	"\[InvisibleSpace]",
13337	SubscriptBox["G", "f"]}],
13338	SequenceForm["Input parameters: ", FeynRules`\[Alpha], ", ",
13339	Subscript[FeynRules`m, $CellContext`Z], ", ",
13340	Subscript[FeynRules`G, FeynRules`f]],
13341	Editable->False]], "Print",
13342	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13343	3.728971117078761*^9,
13344	3.729582951497993*^9},ExpressionUUID->"2de22f87-77e8-43e2-a549-\
13345	ac15a55da1f4"],
13346
13347	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
13348	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13349	3.728971117078761*^9,
13350	3.729582951515649*^9},ExpressionUUID->"7760b9f1-3d1c-405f-83d6-\
13351	f62331f21e23"],
13352
13353	Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
13354	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13355	3.728971117078761*^9,
13356	3.729582951517227*^9},ExpressionUUID->"065d55b5-4b8f-41ad-abe9-\
13357	831995e113df"],
13358
13359	Cell[BoxData[
13360	InterpretationBox[
13361	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
13362	SequenceForm["Model Version: ", "2.1"],
13363	Editable->False]], "Print",
13364	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13365	3.728971117078761*^9,
13366	3.7295829515196457`*^9},ExpressionUUID->"5b4f811f-d815-4478-9b15-\
13367	b37b2255c0b1"],
13368
13369	Cell[BoxData["\<\"Please cite\"\>"], "Print",
13370	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13371	3.728971117078761*^9,
13372	3.729582951521202*^9},ExpressionUUID->"095f3d49-61e7-428e-b3d2-\
13373	9ec1442f48d3"],
13374
13375	Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
13376	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13377	3.728971117078761*^9,
13378	3.72958295152264*^9},ExpressionUUID->"0e3d7e41-57cb-471b-b881-3273280d4cb3"],
13379
13380	Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
13381	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13382	3.728971117078761*^9,
13383	3.729582951524103*^9},ExpressionUUID->"d8fdfcc7-5754-4deb-97f2-\
13384	eb6d0842ac6f"],
13385
13386	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
13387	"Print",
13388	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13389	3.728971117078761*^9,
13390	3.729582951525564*^9},ExpressionUUID->"e931953c-b5d2-4d8c-a6c8-\
13391	d96d9e6310fe"],
13392
13393	Cell[BoxData["\<\"\"\>"], "Print",
13394	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13395	3.728971117078761*^9,
13396	3.729582951527059*^9},ExpressionUUID->"0877fcc5-86e4-417a-810c-\
13397	399dbbd4f2ed"],
13398
13399	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
13400	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13401	3.728971117078761*^9,
13402	3.7295829515285873`*^9},ExpressionUUID->"47c690e0-10d0-47bc-9d60-\
13403	e88069900f79"],
13404
13405	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
13406	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13407	3.728971117078761*^9,
13408	3.7295829516128798`*^9},ExpressionUUID->"7b4b6cdf-2b18-4de1-a842-\
13409	a96527bb9d7d"],
13410
13411	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
13412	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13413	3.728971117078761*^9,
13414	3.729582951631713*^9},ExpressionUUID->"4c95a2af-923a-4ed0-8243-\
13415	c3fa29dcd871"],
13416
13417	Cell[BoxData[
13418	InterpretationBox[
13419	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>",
13420	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
13421	SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
13422	Editable->False]], "Print",
13423	CellChangeTimes->{3.725884586976842^9, 3.726224463752041^9,
13424	3.728971117078761*^9,
13425	3.729582951740588*^9},ExpressionUUID->"37c94247-6636-4f52-a5df-\
13426	1fec5adf67b1"]
13427	}, Open ]]
13428	}, Open ]],
13429
13430	Cell[BoxData[
13431	RowBox[{
13432	RowBox[{"(*", " ",
13433	RowBox[{
13434	"simplify", " ", "collecting", " ", "the", " ", "Wilson", " ",
13435	"coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
13436	RowBox[{
13437	RowBox[{"WCsimplify", "[", "x_", "]"}], ":=",
13438	RowBox[{"Collect", "[",
13439	RowBox[{
13440	RowBox[{"Expand", "[", "x", "]"}], ",",
13441	RowBox[{"Join", "[",
13442	RowBox[{"WC6", ",",
13443	RowBox[{"Conjugate", "/@", "WC6"}], ",",
13444	RowBox[{"{",
13445	RowBox[{
13446	"dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
13447	",", "dgw"}], "}"}]}], "]"}], ",",
13448	RowBox[{
13449	RowBox[{"FullSimplify", "[",
13450	RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\
13451
13452	CellChangeTimes->{{3.69727251229317^9, 3.697272539780883^9}, {
13453	3.6972725951948023`^9, 3.6972726157586107`^9}, {3.6973553500832977`*^9,
13454	3.697355359264447^9}, {3.697355426066744^9, 3.697355428425048*^9}, {
13455	3.697359800031402^9, 3.697359816794314^9}, {3.697361185105711*^9,
13456	3.697361198769485^9}, {3.697367251862154^9, 3.697367258246785*^9}, {
13457	3.697536724781671^9, 3.697536725470097^9}, {3.698645443776215*^9,
13458	3.6986454466349792`^9}, {3.6990803840045652`^9, 3.6990803931031227`*^9}, {
13459	3.707025063385503^9, 3.707025074535533^9}, {3.707026201080791*^9,
13460	3.707026206097932^9}, {3.707733746790945^9, 3.707733759745702*^9}, {
13461	3.711875906183223^9, 3.71187590676577^9}, {3.712555385621932*^9,
13462	3.712555393408392^9}, {3.714652388715506^9,
13463	3.714652407697195*^9}},ExpressionUUID->"4949d193-0395-4575-96e7-\
13464	67eea7388746"],
13465
13466	Cell[CellGroupData[{
13467
13468	Cell[TextData[{
13469	"Example - extraction of aTGC ",
13470	Cell[BoxData[
13471	FormBox[
13472	RowBox[{"(", " ",
13473	SuperscriptBox[
13474	SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
13475	"5a335fab-d597-4e91-ad8d-cfcaecdad4fa"],
13476	", ",
13477	Cell[BoxData[
13478	FormBox[
13479	SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
13480	"9d460cc4-c765-4ea8-a0c3-eeac409b8164"],
13481	" )"
13482	}], "Subsection",
13483	CellChangeTimes->{{3.697366338889289^9, 3.697366341458261^9}, {
13484	3.714474539132268^9, 3.71447454549291^9}, {3.7144748778381844`*^9,
13485	3.714474881170227^9}, {3.7146522087316093`^9, 3.7146522332696543`*^9},
13486	3.728971118766189*^9},ExpressionUUID->"0c50546d-c1b3-4a01-9fb8-\
13487	fca20c2bda81"],
13488
13489	Cell[BoxData[
13490	RowBox[{
13491	RowBox[{"L1", " ", "=", " ",
13492	RowBox[{
13493	RowBox[{
13494	RowBox[{"LGauge", "+", "L6cl4"}], "/.",
13495	RowBox[{
13496	RowBox[{"cHWtil", "\|", "cHBtil", "\|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
13497	"OptimizeIndex"}]}], ";"}]], "Input",
13498	CellChangeTimes->{{3.714474548996854^9, 3.714474607567834^9}, {
13499	3.714474713747148^9, 3.7144747165634403`^9}, {3.714474885107195*^9,
13500	3.714474885248617^9}, {3.7144750445122128`^9, 3.714475058126898*^9}, {
13501	3.7144751339781103`*^9,
13502	3.714475137908736*^9}},ExpressionUUID->"4b71800b-bc08-414a-a036-\
13503	22fc6f8fb5dc"],
13504
13505	Cell[CellGroupData[{
13506
13507	Cell[BoxData[
13508	RowBox[{
13509	RowBox[{"zww", "=",
13510	RowBox[{"GetInteractionTerms", "[",
13511	RowBox[{"L1", ",",
13512	RowBox[{"SelectParticles", "\[Rule]",
13513	RowBox[{"{",
13514	RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}],
13515	";"}]], "Input",
13516	CellChangeTimes->{{3.697355190045856*^9,
13517	3.697355204589117*^9}},ExpressionUUID->"3697c174-3af7-404a-aa8d-\
13518	f85db6873eae"],
13519
13520	Cell[CellGroupData[{
13521
13522	Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
13523	eigenstates should be selected!\"\>"], "Print",
13524	CellChangeTimes->{3.714652273867529*^9,
13525	3.729583039838567*^9},ExpressionUUID->"0b6bc60c-6f97-458c-ba49-\
13526	9cf671c2b6bd"],
13527
13528	Cell[BoxData[
13529	InterpretationBox[
13530	RowBox[{"\<\"Neglecting all terms with more than \"\>",
13531	"\[InvisibleSpace]", "\<\"3\"\>",
13532	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
13533	SequenceForm["Neglecting all terms with more than ", "3", " particles."],
13534	Editable->False]], "Print",
13535	CellChangeTimes->{3.714652273867529*^9,
13536	3.7295830398948307`*^9},ExpressionUUID->"e9fb3d64-2b17-4c2f-a394-\
13537	508ea34d8f4f"],
13538
13539	Cell[BoxData[
13540	InterpretationBox[
13541	RowBox[{"\<\"Neglecting all terms with less than \"\>",
13542	"\[InvisibleSpace]", "\<\"3\"\>",
13543	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
13544	SequenceForm["Neglecting all terms with less than ", "3", " particles."],
13545	Editable->False]], "Print",
13546	CellChangeTimes->{3.714652273867529*^9,
13547	3.729583039915205*^9},ExpressionUUID->"778bb14a-5626-4adf-941c-\
13548	15a5159f2187"]
13549	}, Open ]]
13550	}, Open ]],
13551
13552	Cell[CellGroupData[{
13553
13554	Cell[BoxData[
13555	RowBox[{
13556	RowBox[{"(", " ", "g1z", " ", ")"}], "\[IndentingNewLine]",
13557	RowBox[{
13558	RowBox[{
13559	RowBox[{"zww", "/.",
13560	RowBox[{
13561	RowBox[{"del", "[",
13562	RowBox[{
13563	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
13564	"Simplify"}], "\[IndentingNewLine]",
13565	RowBox[{
13566	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
13567	"\[IndentingNewLine]",
13568	RowBox[{
13569	RowBox[{"Simplify", "[",
13570	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
13571	RowBox[{"WCsimplify", "[",
13572	FractionBox["%",
13573	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
13574	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
13575	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
13576	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
13577	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
13578	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
13579	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
13580	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
13581	3.697366570896222^9, 3.697366573045783^9}, {3.697371239528208*^9,
13582	3.697371253607347^9}, {3.697779754300777^9, 3.6977797626704483`*^9}, {
13583	3.70081318564122^9, 3.700813191980774^9}, {3.700813246330406*^9,
13584	3.700813285428583^9}, {3.7077337321979713`^9, 3.707733734591858*^9}, {
13585	3.714474619041273^9, 3.7144746223430567`^9}, {3.714474993096156*^9,
13586	3.7144750018697557`^9}, 3.7146522446651382`^9, {3.7146522849326553`*^9,
13587	3.7146523139288273`^9}, {3.714652367401491^9, 3.714652379324503*^9}, {
13588	3.714652412441049^9, 3.714652464776884^9},
13589	3.714652626095168*^9},ExpressionUUID->"e01e295d-ef15-4212-8f41-\
13590	3a0f29aaf660"],
13591
13592	Cell[BoxData[
13593	RowBox[{"-",
13594	FractionBox[
13595	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13596	RowBox[{"(",
13597	RowBox[{
13598	RowBox[{
13599	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13600	RowBox[{"(",
13601	RowBox[{
13602	RowBox[{"-", "2"}], "-",
13603	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
13604	RowBox[{"2", " ",
13605	RowBox[{"(",
13606	RowBox[{"1", "+", "dgw"}], ")"}], " ",
13607	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
13608	RowBox[{
13609	SubscriptBox["c", "HWB"], " ",
13610	SubscriptBox["c", "\[Theta]"], " ",
13611	SubscriptBox["s", "\[Theta]"], " ",
13612	SuperscriptBox[
13613	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
13614	RowBox[{"(",
13615	RowBox[{
13616	RowBox[{
13617	RowBox[{
13618	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13619	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
13620	RowBox[{"(",
13621	RowBox[{
13622	RowBox[{
13623	SubscriptBox["W", "mu$2"], " ",
13624	SubscriptBox["Z", "mu$1"]}], "-",
13625	RowBox[{
13626	SubscriptBox["W", "mu$1"], " ",
13627	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
13628	RowBox[{
13629	RowBox[{
13630	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13631	SubscriptBox["W", "mu$1"], "]"}], " ",
13632	RowBox[{"(",
13633	RowBox[{
13634	RowBox[{
13635	RowBox[{"-",
13636	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
13637	SubscriptBox["Z", "mu$1"]}], "+",
13638	RowBox[{
13639	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
13640	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
13641	RowBox[{"2", " ",
13642	SubscriptBox["c", "\[Theta]"], " ",
13643	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13644	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
13645	CellChangeTimes->{
13646	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
13647	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
13648	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
13649	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
13650	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
13651	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
13652	3.729583040209217*^9},ExpressionUUID->"b21da2e7-5907-456e-9d68-\
13653	9d2d8544d83c"],
13654
13655	Cell[BoxData[
13656	RowBox[{"-",
13657	FractionBox[
13658	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13659	RowBox[{"(",
13660	RowBox[{
13661	RowBox[{"4", " ",
13662	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13663	RowBox[{"(",
13664	RowBox[{"1", "-",
13665	RowBox[{"3", " ",
13666	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
13667	RowBox[{"2", " ",
13668	SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}], "+",
13669	RowBox[{
13670	RowBox[{"(",
13671	RowBox[{
13672	RowBox[{"-",
13673	SubscriptBox["c", "HD"]}], "-",
13674	RowBox[{"4", " ",
13675	TemplateBox[{"c","Hl","3"},
13676	"Subsuperscript"]}], "+",
13677	RowBox[{"2", " ",
13678	TemplateBox[{"c","ll","Prime"},
13679	"Subsuperscript"]}], "-",
13680	RowBox[{"4", " ",
13681	SubscriptBox["c", "HWB"], " ",
13682	SubscriptBox["c", "\[Theta]"], " ",
13683	SubscriptBox["s", "\[Theta]"]}], "+",
13684	RowBox[{
13685	RowBox[{"(",
13686	RowBox[{
13687	SubscriptBox["c", "HD"], "+",
13688	RowBox[{"4", " ",
13689	TemplateBox[{"c","Hl","3"},
13690	"Subsuperscript"]}], "-",
13691	RowBox[{"2", " ",
13692	TemplateBox[{"c","ll","Prime"},
13693	"Subsuperscript"]}]}], ")"}], " ",
13694	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
13695	SuperscriptBox[
13696	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
13697	RowBox[{"(",
13698	RowBox[{
13699	RowBox[{
13700	RowBox[{
13701	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13702	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
13703	RowBox[{"(",
13704	RowBox[{
13705	RowBox[{
13706	SubscriptBox["W", "mu$2"], " ",
13707	SubscriptBox["Z", "mu$1"]}], "-",
13708	RowBox[{
13709	SubscriptBox["W", "mu$1"], " ",
13710	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
13711	RowBox[{
13712	RowBox[{
13713	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13714	SubscriptBox["W", "mu$1"], "]"}], " ",
13715	RowBox[{"(",
13716	RowBox[{
13717	RowBox[{
13718	RowBox[{"-",
13719	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
13720	SubscriptBox["Z", "mu$1"]}], "+",
13721	RowBox[{
13722	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
13723	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
13724	RowBox[{"4", " ",
13725	SubscriptBox["c", "\[Theta]"], " ",
13726	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13727	SubscriptBox["s", "\[Theta]"], " ",
13728	RowBox[{"(",
13729	RowBox[{
13730	RowBox[{"-", "1"}], "+",
13731	RowBox[{"2", " ",
13732	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]], "Output",
13733	CellChangeTimes->{
13734	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
13735	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
13736	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
13737	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
13738	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
13739	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
13740	3.729583040545093*^9},ExpressionUUID->"5edf089d-89de-4317-87c2-\
13741	f9de1a391988"],
13742
13743	Cell[BoxData[
13744	RowBox[{"-",
13745	FractionBox[
13746	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13747	RowBox[{"(",
13748	RowBox[{
13749	RowBox[{"-", "1"}], "+",
13750	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
13751	RowBox[{"(",
13752	RowBox[{"1", "+",
13753	FractionBox[
13754	RowBox[{
13755	TemplateBox[{"c","ll","Prime"},
13756	"Subsuperscript"], " ",
13757	SuperscriptBox[
13758	OverscriptBox["v", "^"], "2"]}],
13759	RowBox[{"2", " ",
13760	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13761	RowBox[{"(",
13762	RowBox[{"1", "-",
13763	RowBox[{"2", " ",
13764	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
13765	FractionBox[
13766	RowBox[{
13767	SubscriptBox["c", "HD"], " ",
13768	SuperscriptBox[
13769	OverscriptBox["v", "^"], "2"]}],
13770	RowBox[{"4", " ",
13771	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13772	RowBox[{"(",
13773	RowBox[{
13774	RowBox[{"-", "1"}], "+",
13775	RowBox[{"2", " ",
13776	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
13777	FractionBox[
13778	RowBox[{
13779	TemplateBox[{"c","Hl","3"},
13780	"Subsuperscript"], " ",
13781	SuperscriptBox[
13782	OverscriptBox["v", "^"], "2"]}],
13783	RowBox[{
13784	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13785	RowBox[{"(",
13786	RowBox[{
13787	RowBox[{"-", "1"}], "+",
13788	RowBox[{"2", " ",
13789	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "-",
13790	FractionBox[
13791	RowBox[{
13792	SubscriptBox["c", "HWB"], " ",
13793	SubscriptBox["c", "\[Theta]"], " ",
13794	SubscriptBox["s", "\[Theta]"], " ",
13795	SuperscriptBox[
13796	OverscriptBox["v", "^"], "2"]}],
13797	RowBox[{
13798	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13799	RowBox[{"(",
13800	RowBox[{"1", "-",
13801	RowBox[{"3", " ",
13802	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
13803	RowBox[{"2", " ",
13804	SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}]]}], ")"}],
13805	" ",
13806	RowBox[{"(",
13807	RowBox[{
13808	RowBox[{
13809	RowBox[{
13810	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13811	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
13812	RowBox[{"(",
13813	RowBox[{
13814	RowBox[{
13815	SubscriptBox["W", "mu$2"], " ",
13816	SubscriptBox["Z", "mu$1"]}], "-",
13817	RowBox[{
13818	SubscriptBox["W", "mu$1"], " ",
13819	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
13820	RowBox[{
13821	RowBox[{
13822	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13823	SubscriptBox["W", "mu$1"], "]"}], " ",
13824	RowBox[{"(",
13825	RowBox[{
13826	RowBox[{
13827	RowBox[{"-",
13828	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
13829	SubscriptBox["Z", "mu$1"]}], "+",
13830	RowBox[{
13831	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
13832	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
13833	RowBox[{
13834	SubscriptBox["c", "\[Theta]"], " ",
13835	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
13836	CellChangeTimes->{
13837	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
13838	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
13839	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
13840	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
13841	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
13842	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
13843	3.729583040681281*^9},ExpressionUUID->"e1093f29-923f-46bd-a82b-\
13844	328c2362a858"]
13845	}, Open ]],
13846
13847	Cell[CellGroupData[{
13848
13849	Cell[BoxData[
13850	RowBox[{
13851	RowBox[{"(", " ", "\[Kappa]z", " ", ")"}], "\[IndentingNewLine]",
13852	RowBox[{
13853	RowBox[{
13854	RowBox[{"zww", "/.",
13855	RowBox[{
13856	RowBox[{
13857	RowBox[{"del", "[",
13858	RowBox[{
13859	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
13860	RowBox[{"del", "[",
13861	RowBox[{
13862	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
13863	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
13864	RowBox[{
13865	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
13866	"\[IndentingNewLine]",
13867	RowBox[{
13868	RowBox[{"Simplify", "[",
13869	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
13870	RowBox[{"WCsimplify", "[",
13871	FractionBox["%",
13872	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
13873	CellChangeTimes->{{3.714652472649456*^9,
13874	3.714652608904799*^9}},ExpressionUUID->"1dcb4ae4-fc9e-4eca-93af-\
13875	ae57a3f5f83e"],
13876
13877	Cell[BoxData[
13878	FractionBox[
13879	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13880	RowBox[{"(",
13881	RowBox[{
13882	RowBox[{
13883	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13884	RowBox[{"(",
13885	RowBox[{
13886	RowBox[{"-", "2"}], "-",
13887	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
13888	RowBox[{"2", " ",
13889	RowBox[{"(",
13890	RowBox[{"1", "+", "dgw"}], ")"}], " ",
13891	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
13892	RowBox[{
13893	SubscriptBox["c", "HWB"], " ",
13894	SubscriptBox["c", "\[Theta]"], " ",
13895	SubscriptBox["s", "\[Theta]"], " ",
13896	SuperscriptBox[
13897	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
13898	RowBox[{
13899	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13900	SubscriptBox["Z", "mu$1"], "]"}], " ",
13901	RowBox[{"(",
13902	RowBox[{
13903	RowBox[{
13904	SubscriptBox["W", "mu$2"], " ",
13905	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
13906	RowBox[{
13907	SubscriptBox["W", "mu$1"], " ",
13908	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
13909	RowBox[{"2", " ",
13910	SubscriptBox["c", "\[Theta]"], " ",
13911	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13912	SubscriptBox["s", "\[Theta]"]}]]], "Output",
13913	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
13914	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
13915	3.714652609565043*^9},
13916	3.729583040848359*^9},ExpressionUUID->"c04e5c5a-ad82-41ab-9bd1-\
13917	a3a9bd9d31a7"],
13918
13919	Cell[BoxData[
13920	FractionBox[
13921	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13922	RowBox[{"(",
13923	RowBox[{
13924	RowBox[{"-", "1"}], "+",
13925	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
13926	RowBox[{"(",
13927	RowBox[{
13928	RowBox[{
13929	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13930	RowBox[{"(",
13931	RowBox[{
13932	RowBox[{"-", "4"}], "+",
13933	RowBox[{"8", " ",
13934	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
13935	RowBox[{
13936	RowBox[{"(",
13937	RowBox[{
13938	SubscriptBox["c", "HD"], "+",
13939	RowBox[{"4", " ",
13940	TemplateBox[{"c","Hl","3"},
13941	"Subsuperscript"]}], "-",
13942	RowBox[{"2", " ",
13943	TemplateBox[{"c","ll","Prime"},
13944	"Subsuperscript"]}], "+",
13945	RowBox[{"8", " ",
13946	SubscriptBox["c", "HWB"], " ",
13947	SubscriptBox["c", "\[Theta]"], " ",
13948	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
13949	SuperscriptBox[
13950	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
13951	RowBox[{
13952	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
13953	SubscriptBox["Z", "mu$1"], "]"}], " ",
13954	RowBox[{"(",
13955	RowBox[{
13956	RowBox[{
13957	SubscriptBox["W", "mu$2"], " ",
13958	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
13959	RowBox[{
13960	SubscriptBox["W", "mu$1"], " ",
13961	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
13962	RowBox[{"4", " ",
13963	SubscriptBox["c", "\[Theta]"], " ",
13964	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13965	SubscriptBox["s", "\[Theta]"], " ",
13966	RowBox[{"(",
13967	RowBox[{
13968	RowBox[{"-", "1"}], "+",
13969	RowBox[{"2", " ",
13970	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]], "Output",
13971	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
13972	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
13973	3.714652609565043*^9},
13974	3.729583041036607*^9},ExpressionUUID->"8c0c7be1-359b-45e4-9959-\
13975	3db7a81dbda5"],
13976
13977	Cell[BoxData[
13978	FractionBox[
13979	RowBox[{"\[ImaginaryI]", " ", "e", " ",
13980	RowBox[{"(",
13981	RowBox[{
13982	RowBox[{"-", "1"}], "+",
13983	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
13984	RowBox[{"(",
13985	RowBox[{"1", "+",
13986	FractionBox[
13987	RowBox[{"2", " ",
13988	TemplateBox[{"c","ll","Prime"},
13989	"Subsuperscript"], " ",
13990	SuperscriptBox[
13991	OverscriptBox["v", "^"], "2"]}],
13992	RowBox[{
13993	SuperscriptBox["\[CapitalLambda]", "2"], " ",
13994	RowBox[{"(",
13995	RowBox[{"4", "-",
13996	RowBox[{"8", " ",
13997	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
13998	FractionBox[
13999	RowBox[{
14000	TemplateBox[{"c","Hl","3"},
14001	"Subsuperscript"], " ",
14002	SuperscriptBox[
14003	OverscriptBox["v", "^"], "2"]}],
14004	RowBox[{
14005	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14006	RowBox[{"(",
14007	RowBox[{
14008	RowBox[{"-", "1"}], "+",
14009	RowBox[{"2", " ",
14010	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
14011	FractionBox[
14012	RowBox[{"2", " ",
14013	SubscriptBox["c", "HWB"], " ",
14014	SubscriptBox["c", "\[Theta]"], " ",
14015	SubscriptBox["s", "\[Theta]"], " ",
14016	SuperscriptBox[
14017	OverscriptBox["v", "^"], "2"]}],
14018	RowBox[{
14019	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14020	RowBox[{"(",
14021	RowBox[{
14022	RowBox[{"-", "1"}], "+",
14023	RowBox[{"2", " ",
14024	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
14025	FractionBox[
14026	RowBox[{
14027	SubscriptBox["c", "HD"], " ",
14028	SuperscriptBox[
14029	OverscriptBox["v", "^"], "2"]}],
14030	RowBox[{
14031	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14032	RowBox[{"(",
14033	RowBox[{
14034	RowBox[{"-", "4"}], "+",
14035	RowBox[{"8", " ",
14036	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], " ",
14037	RowBox[{
14038	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14039	SubscriptBox["Z", "mu$1"], "]"}], " ",
14040	RowBox[{"(",
14041	RowBox[{
14042	RowBox[{
14043	SubscriptBox["W", "mu$2"], " ",
14044	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
14045	RowBox[{
14046	SubscriptBox["W", "mu$1"], " ",
14047	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
14048	RowBox[{
14049	SubscriptBox["c", "\[Theta]"], " ",
14050	SubscriptBox["s", "\[Theta]"]}]]], "Output",
14051	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
14052	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
14053	3.714652609565043*^9},
14054	3.72958304109765*^9},ExpressionUUID->"d33e74ba-3d41-4272-925c-\
14055	f471eff7018e"]
14056	}, Open ]],
14057
14058	Cell[BoxData[""], "Input",
14059	CellChangeTimes->{3.714652368810739*^9,
14060	3.7146524695105267`*^9},ExpressionUUID->"2c296100-2306-485a-b612-\
14061	a9ce33b4b723"],
14062
14063	Cell[BoxData[
14064	RowBox[{
14065	RowBox[{"aww", "=",
14066	RowBox[{"GetInteractionTerms", "[",
14067	RowBox[{"L1", ",",
14068	RowBox[{"SelectParticles", "\[Rule]",
14069	RowBox[{"{",
14070	RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}],
14071	";"}]], "Input",
14072	CellChangeTimes->{{3.697355190045856^9, 3.697355204589117^9}, {
14073	3.697369511884927*^9,
14074	3.697369515354232*^9}},ExpressionUUID->"66f6d084-4c3d-486f-95f9-\
14075	2fa1f020cb3b"],
14076
14077	Cell[CellGroupData[{
14078
14079	Cell[BoxData[
14080	RowBox[{
14081	RowBox[{"(", "g1\[Gamma]", ")"}], "\[IndentingNewLine]",
14082	RowBox[{
14083	RowBox[{
14084	RowBox[{"aww", "/.",
14085	RowBox[{
14086	RowBox[{"del", "[",
14087	RowBox[{
14088	RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
14089	"Simplify"}], "\[IndentingNewLine]",
14090	RowBox[{
14091	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}]}]}]], "Input",
14092	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
14093	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
14094	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
14095	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
14096	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
14097	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
14098	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
14099	3.697366570896222^9, 3.697366573045783^9}, {3.697369517344802*^9,
14100	3.697369545423195^9}, {3.6973696026572323`^9, 3.697369618340808*^9},
14101	3.6974392939947577`^9, {3.697779796502404^9, 3.6977798017864113`*^9}, {
14102	3.700813620506486^9, 3.700813621426474^9}, {3.714652643567873*^9,
14103	3.714652669421071*^9}},ExpressionUUID->"9a2027ca-5c3e-478e-a560-\
14104	56393c8e0aa7"],
14105
14106	Cell[BoxData[
14107	FractionBox[
14108	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14109	RowBox[{"(",
14110	RowBox[{
14111	RowBox[{"dsth2", " ",
14112	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
14113	RowBox[{
14114	SubscriptBox["s", "\[Theta]"], " ",
14115	RowBox[{"(",
14116	RowBox[{
14117	RowBox[{"2", " ",
14118	RowBox[{"(",
14119	RowBox[{"1", "+", "dgw"}], ")"}], " ",
14120	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14121	SubscriptBox["s", "\[Theta]"]}], "-",
14122	RowBox[{
14123	SubscriptBox["c", "HWB"], " ",
14124	SubscriptBox["c", "\[Theta]"], " ",
14125	SuperscriptBox[
14126	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
14127	SubscriptBox["A", "mu$1"], " ",
14128	RowBox[{"(",
14129	RowBox[{
14130	RowBox[{
14131	RowBox[{
14132	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14133	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
14134	SubscriptBox["W", "mu$2"]}], "-",
14135	RowBox[{
14136	RowBox[{
14137	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14138	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
14139	SubscriptBox["W", "mu$2"]}], "+",
14140	RowBox[{
14141	RowBox[{"(",
14142	RowBox[{
14143	RowBox[{"-",
14144	RowBox[{
14145	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14146	SubscriptBox["W", "mu$1"], "]"}]}], "+",
14147	RowBox[{
14148	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14149	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
14150	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
14151	RowBox[{"2", " ",
14152	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14153	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
14154	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
14155	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
14156	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
14157	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
14158	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
14159	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
14160	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
14161	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
14162	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
14163	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
14164	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
14165	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
14166	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
14167	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
14168	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
14169	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
14170	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
14171	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
14172	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
14173	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
14174	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
14175	3.729583044036901*^9},ExpressionUUID->"5f136354-22be-4a04-b698-\
14176	48aac22d0162"],
14177
14178	Cell[BoxData[
14179	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14180	SubscriptBox["A", "mu$1"], " ",
14181	RowBox[{"(",
14182	RowBox[{
14183	RowBox[{
14184	RowBox[{
14185	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14186	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
14187	SubscriptBox["W", "mu$2"]}], "-",
14188	RowBox[{
14189	RowBox[{
14190	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14191	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
14192	SubscriptBox["W", "mu$2"]}], "+",
14193	RowBox[{
14194	RowBox[{"(",
14195	RowBox[{
14196	RowBox[{"-",
14197	RowBox[{
14198	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14199	SubscriptBox["W", "mu$1"], "]"}]}], "+",
14200	RowBox[{
14201	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14202	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
14203	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
14204	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
14205	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
14206	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
14207	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
14208	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
14209	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
14210	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
14211	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
14212	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
14213	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
14214	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
14215	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
14216	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
14217	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
14218	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
14219	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
14220	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
14221	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
14222	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
14223	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
14224	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
14225	3.7295830441039667`*^9},ExpressionUUID->"2f518fef-13ff-46e6-8026-\
14226	54ea7efd5c4c"]
14227	}, Open ]],
14228
14229	Cell[CellGroupData[{
14230
14231	Cell[BoxData[
14232	RowBox[{
14233	RowBox[{"(", "\[Kappa]\[Gamma]", ")"}], "\[IndentingNewLine]",
14234	RowBox[{
14235	RowBox[{
14236	RowBox[{"aww", "/.",
14237	RowBox[{
14238	RowBox[{
14239	RowBox[{"del", "[",
14240	RowBox[{
14241	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
14242	RowBox[{"del", "[",
14243	RowBox[{
14244	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
14245	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
14246	RowBox[{
14247	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
14248	"\[IndentingNewLine]",
14249	RowBox[{
14250	RowBox[{"Simplify", "[",
14251	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
14252	RowBox[{"WCsimplify", "[",
14253	FractionBox["%",
14254	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
14255	CellChangeTimes->{{3.714652676781377*^9,
14256	3.71465270986456*^9}},ExpressionUUID->"6fe6eb08-c7da-4e63-aa5b-\
14257	153754cede2b"],
14258
14259	Cell[BoxData[
14260	RowBox[{"-",
14261	FractionBox[
14262	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14263	RowBox[{"(",
14264	RowBox[{
14265	RowBox[{"dsth2", " ",
14266	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
14267	RowBox[{
14268	SubscriptBox["s", "\[Theta]"], " ",
14269	RowBox[{"(",
14270	RowBox[{
14271	RowBox[{"2", " ",
14272	RowBox[{"(",
14273	RowBox[{"1", "+", "dgw"}], ")"}], " ",
14274	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14275	SubscriptBox["s", "\[Theta]"]}], "+",
14276	RowBox[{
14277	SubscriptBox["c", "HWB"], " ",
14278	SubscriptBox["c", "\[Theta]"], " ",
14279	SuperscriptBox[
14280	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
14281	RowBox[{
14282	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14283	SubscriptBox["A", "mu$1"], "]"}], " ",
14284	RowBox[{"(",
14285	RowBox[{
14286	RowBox[{
14287	SubscriptBox["W", "mu$2"], " ",
14288	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
14289	RowBox[{
14290	SubscriptBox["W", "mu$1"], " ",
14291	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
14292	RowBox[{"2", " ",
14293	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14294	SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
14295	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
14296	3.729583044229084*^9},ExpressionUUID->"4201c85b-1d8d-468b-9071-\
14297	9d1c9c537c0c"],
14298
14299	Cell[BoxData[
14300	RowBox[{"-",
14301	FractionBox[
14302	RowBox[{"\[ImaginaryI]", " ", "e", " ",
14303	RowBox[{"(",
14304	RowBox[{
14305	RowBox[{
14306	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14307	SubscriptBox["s", "\[Theta]"]}], "+",
14308	RowBox[{
14309	SubscriptBox["c", "HWB"], " ",
14310	SubscriptBox["c", "\[Theta]"], " ",
14311	SuperscriptBox[
14312	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
14313	RowBox[{
14314	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14315	SubscriptBox["A", "mu$1"], "]"}], " ",
14316	RowBox[{"(",
14317	RowBox[{
14318	RowBox[{
14319	SubscriptBox["W", "mu$2"], " ",
14320	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
14321	RowBox[{
14322	SubscriptBox["W", "mu$1"], " ",
14323	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
14324	RowBox[{
14325	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14326	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
14327	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
14328	3.729583044311389*^9},ExpressionUUID->"d2107ed9-6bf4-402e-ac24-\
14329	426ab3149b5f"],
14330
14331	Cell[BoxData[
14332	RowBox[{
14333	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
14334	RowBox[{"(",
14335	RowBox[{"1", "+",
14336	FractionBox[
14337	RowBox[{
14338	SubscriptBox["c", "HWB"], " ",
14339	SubscriptBox["c", "\[Theta]"], " ",
14340	SuperscriptBox[
14341	OverscriptBox["v", "^"], "2"]}],
14342	RowBox[{
14343	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14344	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
14345	RowBox[{
14346	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14347	SubscriptBox["A", "mu$1"], "]"}], " ",
14348	RowBox[{"(",
14349	RowBox[{
14350	RowBox[{
14351	SubscriptBox["W", "mu$2"], " ",
14352	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
14353	RowBox[{
14354	SubscriptBox["W", "mu$1"], " ",
14355	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
14356	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
14357	3.729583044337042*^9},ExpressionUUID->"5ea5d9c0-e154-4cc0-bf10-\
14358	b17199989543"]
14359	}, Open ]]
14360	}, Closed]],
14361
14362	Cell[CellGroupData[{
14363
14364	Cell["Example : h Z Z coupling (CP even)", "Subsection",
14365	CellChangeTimes->{{3.714653069350562^9, 3.714653080585577^9}, {
14366	3.71465313260557*^9,
14367	3.714653135145647*^9}},ExpressionUUID->"db108267-52ce-4b87-8257-\
14368	b136f1c2d85b"],
14369
14370	Cell[CellGroupData[{
14371
14372	Cell[BoxData[
14373	RowBox[{"hzz", "=",
14374	RowBox[{
14375	RowBox[{"GetInteractionTerms", "[",
14376	RowBox[{
14377	RowBox[{
14378	RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.",
14379	RowBox[{
14380	RowBox[{"cHWtil", "\|", "cHBtil", "\|", "cHWBtil"}], "\[Rule]", "0"}]}],
14381	",",
14382	RowBox[{"SelectParticles", "\[Rule]",
14383	RowBox[{"{",
14384	RowBox[{"{",
14385	RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//",
14386	"Simplify"}]}]], "Input",
14387	CellChangeTimes->{{3.697540540429167^9, 3.697540577497007^9}, {
14388	3.697542681098937^9, 3.6975427025673847`^9}, {3.697781972728959*^9,
14389	3.697781973755425^9}, {3.714653122093409^9,
14390	3.714653151135909*^9}},ExpressionUUID->"f4a2d807-ff40-43a7-9ecd-\
14391	d144c33aa291"],
14392
14393	Cell[BoxData[
14394	FractionBox[
14395	RowBox[{"H", " ",
14396	OverscriptBox["v", "^"], " ",
14397	RowBox[{"(",
14398	RowBox[{
14399	RowBox[{
14400	RowBox[{"-", "32"}], " ",
14401	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
14402	RowBox[{"(",
14403	RowBox[{
14404	RowBox[{"-", "1"}], "+",
14405	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14406	RowBox[{"(",
14407	RowBox[{
14408	SubscriptBox["c", "HW"], "+",
14409	RowBox[{
14410	SubscriptBox["c", "HWB"], " ",
14411	SubscriptBox["c", "\[Theta]"], " ",
14412	SubscriptBox["s", "\[Theta]"]}], "+",
14413	RowBox[{
14414	RowBox[{"(",
14415	RowBox[{
14416	SubscriptBox["c", "HB"], "-",
14417	SubscriptBox["c", "HW"]}], ")"}], " ",
14418	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
14419	SuperscriptBox[
14420	RowBox[{
14421	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14422	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
14423	RowBox[{"32", " ",
14424	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
14425	RowBox[{"(",
14426	RowBox[{
14427	RowBox[{"-", "1"}], "+",
14428	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14429	RowBox[{"(",
14430	RowBox[{
14431	SubscriptBox["c", "HW"], "+",
14432	RowBox[{
14433	SubscriptBox["c", "HWB"], " ",
14434	SubscriptBox["c", "\[Theta]"], " ",
14435	SubscriptBox["s", "\[Theta]"]}], "+",
14436	RowBox[{
14437	RowBox[{"(",
14438	RowBox[{
14439	SubscriptBox["c", "HB"], "-",
14440	SubscriptBox["c", "HW"]}], ")"}], " ",
14441	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
14442	RowBox[{
14443	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14444	SubscriptBox["Z", "mu$1"], "]"}], " ",
14445	RowBox[{
14446	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14447	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
14448	RowBox[{
14449	SuperscriptBox["e", "2"], " ",
14450	RowBox[{"(",
14451	RowBox[{
14452	RowBox[{"2", " ",
14453	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14454	RowBox[{"(",
14455	RowBox[{"2", "+",
14456	RowBox[{
14457	SqrtBox["2"], " ", "dGf"}], "+",
14458	RowBox[{"4", " ", "dgw"}], "+",
14459	RowBox[{"4", " ",
14460	RowBox[{"(",
14461	RowBox[{"dg1", "-", "dgw"}], ")"}], " ",
14462	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
14463	RowBox[{
14464	RowBox[{"(",
14465	RowBox[{
14466	RowBox[{"4", " ",
14467	SubscriptBox["c",
14468	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
14469	RowBox[{"3", " ",
14470	SubscriptBox["c", "HD"]}], "+",
14471	RowBox[{"8", " ",
14472	SubscriptBox["c", "HWB"], " ",
14473	SubscriptBox["c", "\[Theta]"], " ",
14474	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
14475	SuperscriptBox[
14476	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
14477	SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}],
14478	RowBox[{"16", " ",
14479	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14480	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14481	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
14482	CellChangeTimes->{3.714653202225688*^9,
14483	3.729583082014724*^9},ExpressionUUID->"a57cb975-2fda-412b-91d2-\
14484	27e304f66a58"]
14485	}, Open ]],
14486
14487	Cell[CellGroupData[{
14488
14489	Cell[BoxData[
14490	RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
14491	CellChangeTimes->{{3.714653438713478*^9,
14492	3.7146534431183643`*^9}},ExpressionUUID->"992a156f-1ba3-43ac-a482-\
14493	207654fda652"],
14494
14495	Cell[BoxData[
14496	FractionBox[
14497	RowBox[{
14498	SuperscriptBox["e", "2"], " ", "H", " ",
14499	OverscriptBox["v", "^"], " ",
14500	SubsuperscriptBox["Z", "mu$1", "2"]}],
14501	RowBox[{"4", " ",
14502	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14503	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
14504	CellChangeTimes->{3.71465344371563*^9,
14505	3.72958308207519*^9},ExpressionUUID->"3b0166cf-f084-4035-ba12-a3dc00d23950"]
14506	}, Open ]],
14507
14508	Cell[CellGroupData[{
14509
14510	Cell[BoxData[
14511	RowBox[{"Collect", "[",
14512	RowBox[{"hzz", ",", " ",
14513	RowBox[{"{",
14514	RowBox[{
14515	SuperscriptBox[
14516	RowBox[{"Z", "[", "_", "]"}], "2"], ",",
14517	RowBox[{"del", "[",
14518	RowBox[{
14519	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",",
14520	"WCsimplify"}], "]"}]], "Input",
14521	CellChangeTimes->{{3.6975405853373423`^9, 3.697540591707506^9}, {
14522	3.697541657728915^9, 3.697541658783434^9}, {3.697780136114642*^9,
14523	3.697780142223364^9}, {3.7146531763975058`^9, 3.714653240146103*^9}, {
14524	3.714653274464172^9, 3.7146533884198837`^9}, {3.714653429727*^9,
14525	3.7146534351677427`*^9}},ExpressionUUID->"90542a25-f864-48db-a441-\
14526	385b6364a9c5"],
14527
14528	Cell[BoxData[
14529	RowBox[{
14530	RowBox[{
14531	RowBox[{"(",
14532	RowBox[{
14533	RowBox[{"-",
14534	FractionBox[
14535	RowBox[{"2", " ",
14536	SubscriptBox["c", "HWB"], " ", "H", " ",
14537	SubscriptBox["s", "\[Theta]"], " ",
14538	RowBox[{"(",
14539	RowBox[{
14540	RowBox[{"-", "1"}], "+",
14541	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14542	OverscriptBox["v", "^"]}],
14543	RowBox[{
14544	SubscriptBox["c", "\[Theta]"], " ",
14545	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-",
14546	FractionBox[
14547	RowBox[{"2", " ",
14548	SubscriptBox["c", "HB"], " ", "H", " ",
14549	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
14550	RowBox[{"(",
14551	RowBox[{
14552	RowBox[{"-", "1"}], "+",
14553	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14554	OverscriptBox["v", "^"]}],
14555	RowBox[{
14556	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14557	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
14558	FractionBox[
14559	RowBox[{"2", " ",
14560	SubscriptBox["c", "HW"], " ", "H", " ",
14561	SuperscriptBox[
14562	RowBox[{"(",
14563	RowBox[{
14564	RowBox[{"-", "1"}], "+",
14565	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
14566	OverscriptBox["v", "^"]}],
14567	RowBox[{
14568	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14569	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
14570	SuperscriptBox[
14571	RowBox[{
14572	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14573	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
14574	RowBox[{
14575	RowBox[{"(",
14576	RowBox[{
14577	FractionBox[
14578	RowBox[{"2", " ",
14579	SubscriptBox["c", "HWB"], " ", "H", " ",
14580	SubscriptBox["s", "\[Theta]"], " ",
14581	RowBox[{"(",
14582	RowBox[{
14583	RowBox[{"-", "1"}], "+",
14584	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14585	OverscriptBox["v", "^"]}],
14586	RowBox[{
14587	SubscriptBox["c", "\[Theta]"], " ",
14588	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
14589	FractionBox[
14590	RowBox[{"2", " ",
14591	SubscriptBox["c", "HB"], " ", "H", " ",
14592	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
14593	RowBox[{"(",
14594	RowBox[{
14595	RowBox[{"-", "1"}], "+",
14596	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14597	OverscriptBox["v", "^"]}],
14598	RowBox[{
14599	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14600	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
14601	FractionBox[
14602	RowBox[{"2", " ",
14603	SubscriptBox["c", "HW"], " ", "H", " ",
14604	SuperscriptBox[
14605	RowBox[{"(",
14606	RowBox[{
14607	RowBox[{"-", "1"}], "+",
14608	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
14609	OverscriptBox["v", "^"]}],
14610	RowBox[{
14611	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14612	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
14613	RowBox[{
14614	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14615	SubscriptBox["Z", "mu$1"], "]"}], " ",
14616	RowBox[{
14617	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14618	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
14619	RowBox[{
14620	RowBox[{"(",
14621	RowBox[{
14622	FractionBox[
14623	RowBox[{"dg1", " ",
14624	SuperscriptBox["e", "2"], " ", "H", " ",
14625	OverscriptBox["v", "^"]}],
14626	RowBox[{"2", " ",
14627	SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+",
14628	FractionBox[
14629	RowBox[{
14630	SuperscriptBox["e", "2"], " ", "H", " ",
14631	OverscriptBox["v", "^"]}],
14632	RowBox[{"4", " ",
14633	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14634	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
14635	FractionBox[
14636	RowBox[{"dGf", " ",
14637	SuperscriptBox["e", "2"], " ", "H", " ",
14638	OverscriptBox["v", "^"]}],
14639	RowBox[{"4", " ",
14640	SqrtBox["2"], " ",
14641	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14642	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-",
14643	FractionBox[
14644	RowBox[{"dgw", " ",
14645	SuperscriptBox["e", "2"], " ", "H", " ",
14646	RowBox[{"(",
14647	RowBox[{
14648	RowBox[{"-", "1"}], "+",
14649	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14650	OverscriptBox["v", "^"]}],
14651	RowBox[{"2", " ",
14652	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14653	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
14654	FractionBox[
14655	RowBox[{
14656	SubscriptBox["c",
14657	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
14658	SuperscriptBox["e", "2"], " ", "H", " ",
14659	SuperscriptBox[
14660	OverscriptBox["v", "^"], "3"]}],
14661	RowBox[{"4", " ",
14662	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14663	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14664	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
14665	FractionBox[
14666	RowBox[{"3", " ",
14667	SubscriptBox["c", "HD"], " ",
14668	SuperscriptBox["e", "2"], " ", "H", " ",
14669	SuperscriptBox[
14670	OverscriptBox["v", "^"], "3"]}],
14671	RowBox[{"16", " ",
14672	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14673	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14674	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
14675	FractionBox[
14676	RowBox[{
14677	SubscriptBox["c", "HWB"], " ",
14678	SuperscriptBox["e", "2"], " ", "H", " ",
14679	SuperscriptBox[
14680	OverscriptBox["v", "^"], "3"]}],
14681	RowBox[{"2", " ",
14682	SubscriptBox["c", "\[Theta]"], " ",
14683	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14684	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
14685	SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
14686	CellChangeTimes->{
14687	3.700893354200268^9, 3.712654290029169^9, 3.71396688057451*^9, {
14688	3.714653206742526^9, 3.71465324075095^9}, {3.714653297211488*^9,
14689	3.7146533889881983`^9}, {3.714653430663045^9, 3.714653435702468*^9},
14690	3.729583082259549*^9},ExpressionUUID->"2d3c222c-7963-4dc2-82f7-\
14691	cd3f03b10544"]
14692	}, Open ]],
14693
14694	Cell[BoxData[
14695	RowBox[{"Coefficient", " ", "for", " ",
14696	SubscriptBox["Z", "\[Mu]"],
14697	SuperscriptBox["Z", "\[Mu]"]}]], "Text",
14698	CellChangeTimes->{{3.714653489006771*^9,
14699	3.714653533124165*^9}},ExpressionUUID->"4203f239-fa06-4871-94d6-\
14700	eeb8a8621824"],
14701
14702	Cell[CellGroupData[{
14703
14704	Cell[BoxData[{
14705	RowBox[{
14706	RowBox[{
14707	RowBox[{"hzz", "/.",
14708	RowBox[{
14709	RowBox[{"del", "[",
14710	RowBox[{
14711	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
14712	"alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
14713	RowBox[{
14714	RowBox[{"SMlimit", "[", "%", "]"}], " ",
14715	RowBox[{"WCsimplify", "[",
14716	FractionBox["%",
14717	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
14718	CellChangeTimes->{{3.714653537675856*^9,
14719	3.714653585931526*^9}},ExpressionUUID->"ec8f8c0b-ce49-4df3-a541-\
14720	07a9f407dd69"],
14721
14722	Cell[BoxData[
14723	FractionBox[
14724	RowBox[{
14725	SuperscriptBox["e", "2"], " ", "H", " ",
14726	OverscriptBox["v", "^"], " ",
14727	RowBox[{"(",
14728	RowBox[{
14729	RowBox[{"4", " ",
14730	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
14731	RowBox[{
14732	RowBox[{"(",
14733	RowBox[{
14734	RowBox[{"4", " ",
14735	SubscriptBox["c",
14736	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
14737	SubscriptBox["c", "HD"], "-",
14738	RowBox[{"4", " ",
14739	TemplateBox[{"c","Hl","3"},
14740	"Subsuperscript"]}], "+",
14741	RowBox[{"2", " ",
14742	TemplateBox[{"c","ll","Prime"},
14743	"Subsuperscript"]}]}], ")"}], " ",
14744	SuperscriptBox[
14745	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
14746	SubsuperscriptBox["Z", "mu$1", "2"]}],
14747	RowBox[{"16", " ",
14748	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14749	SuperscriptBox["\[CapitalLambda]", "2"], " ",
14750	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
14751	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9},
14752	3.729583082341107*^9},ExpressionUUID->"10b2091a-42c1-46b9-a95d-\
14753	5bb3d24ea67c"],
14754
14755	Cell[BoxData[
14756	FractionBox[
14757	RowBox[{
14758	SuperscriptBox["e", "2"], " ", "H", " ",
14759	OverscriptBox["v", "^"], " ",
14760	RowBox[{"(",
14761	RowBox[{"1", "+",
14762	FractionBox[
14763	RowBox[{
14764	SubscriptBox["c",
14765	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
14766	SuperscriptBox[
14767	OverscriptBox["v", "^"], "2"]}],
14768	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
14769	FractionBox[
14770	RowBox[{
14771	SubscriptBox["c", "HD"], " ",
14772	SuperscriptBox[
14773	OverscriptBox["v", "^"], "2"]}],
14774	RowBox[{"4", " ",
14775	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
14776	FractionBox[
14777	RowBox[{
14778	TemplateBox[{"c","Hl","3"},
14779	"Subsuperscript"], " ",
14780	SuperscriptBox[
14781	OverscriptBox["v", "^"], "2"]}],
14782	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
14783	FractionBox[
14784	RowBox[{
14785	TemplateBox[{"c","ll","Prime"},
14786	"Subsuperscript"], " ",
14787	SuperscriptBox[
14788	OverscriptBox["v", "^"], "2"]}],
14789	RowBox[{"2", " ",
14790	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
14791	SubsuperscriptBox["Z", "mu$1", "2"]}],
14792	RowBox[{"4", " ",
14793	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14794	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
14795	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9},
14796	3.729583082365821*^9},ExpressionUUID->"78c5a737-60ea-42cb-9976-\
14797	18fe4ed535b6"]
14798	}, Open ]],
14799
14800	Cell[BoxData[
14801	RowBox[{"Coefficient", " ", "for", " ",
14802	RowBox[{
14803	SubscriptBox["\[PartialD]", "\[Mu]"],
14804	SubscriptBox["Z", "\[Nu]"]}],
14805	RowBox[{"(",
14806	RowBox[{
14807	RowBox[{
14808	SuperscriptBox["\[PartialD]", "\[Mu]"],
14809	SuperscriptBox["Z", "\[Nu]"]}], "-",
14810	RowBox[{
14811	SuperscriptBox["\[PartialD]", "\[Nu]"],
14812	SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
14813	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}, {
14814	3.714653634026601*^9,
14815	3.714653660281114*^9}},ExpressionUUID->"6a646682-4e96-47e9-9c42-\
14816	720f4bb8cf4b"],
14817
14818	Cell[CellGroupData[{
14819
14820	Cell[BoxData[
14821	RowBox[{
14822	RowBox[{
14823	RowBox[{
14824	RowBox[{"hzz", "/.",
14825	RowBox[{
14826	SuperscriptBox[
14827	RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.",
14828	"alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
14829	CellChangeTimes->{{3.714653537675856^9, 3.714653585931526^9}, {
14830	3.714653677707417*^9,
14831	3.714653739972247*^9}},ExpressionUUID->"12db3362-37c1-4876-b41d-\
14832	ef4875bbe4e2"],
14833
14834	Cell[BoxData[
14835	FractionBox[
14836	RowBox[{"2", " ", "H", " ",
14837	RowBox[{"(",
14838	RowBox[{
14839	RowBox[{"-", "1"}], "+",
14840	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
14841	RowBox[{"(",
14842	RowBox[{
14843	SubscriptBox["c", "HW"], "+",
14844	RowBox[{
14845	SubscriptBox["c", "HWB"], " ",
14846	SubscriptBox["c", "\[Theta]"], " ",
14847	SubscriptBox["s", "\[Theta]"]}], "+",
14848	RowBox[{
14849	RowBox[{"(",
14850	RowBox[{
14851	SubscriptBox["c", "HB"], "-",
14852	SubscriptBox["c", "HW"]}], ")"}], " ",
14853	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
14854	OverscriptBox["v", "^"], " ",
14855	RowBox[{
14856	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14857	SubscriptBox["Z", "mu$1"], "]"}], " ",
14858	RowBox[{"(",
14859	RowBox[{
14860	RowBox[{"-",
14861	RowBox[{
14862	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
14863	SubscriptBox["Z", "mu$1"], "]"}]}], "+",
14864	RowBox[{
14865	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
14866	SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}],
14867	RowBox[{
14868	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
14869	SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
14870	CellChangeTimes->{{3.714653685513557^9, 3.714653740251841^9},
14871	3.7295830824662046`*^9},ExpressionUUID->"0ce18778-59c6-4e74-80a8-\
14872	126fa4108a7f"]
14873	}, Open ]]
14874	}, Closed]],
14875
14876	Cell[CellGroupData[{
14877
14878	Cell[TextData[{
14879	"Example - Fermion Z ",
14880	Cell[BoxData[
14881	FormBox["couplings", TraditionalForm]],ExpressionUUID->
14882	"5100c843-d04f-4af3-90d4-f9dd3015ee44"],
14883	" (non-dipole structures)"
14884	}], "Subsection",
14885	CellChangeTimes->{{3.6974638309413443`^9, 3.697463841478889^9}, {
14886	3.707196728078579^9, 3.707196728973489^9}, {3.709116189885594*^9,
14887	3.7091161899213247`^9}, {3.7111737190476913`^9, 3.711173721023136*^9}, {
14888	3.714474653133204*^9,
14889	3.7144746902228537`*^9}},ExpressionUUID->"3ab3ce43-10a9-42c6-b5a0-\
14890	55302eaa085a"],
14891
14892	Cell[BoxData[
14893	RowBox[{
14894	RowBox[{"L2", "=",
14895	RowBox[{
14896	RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}],
14897	";"}]], "Input",
14898	CellChangeTimes->{{3.714474671414948*^9,
14899	3.714474706220644*^9}},ExpressionUUID->"33d7e7f9-0455-402a-a679-\
14900	d3fe864dbd96"],
14901
14902	Cell[CellGroupData[{
14903
14904	Cell[BoxData[
14905	RowBox[{"ZffCouplings", "=",
14906	RowBox[{
14907	RowBox[{
14908	RowBox[{
14909	RowBox[{"FeynmanRules", "[",
14910	RowBox[{"L2", ",",
14911	RowBox[{"Contains", "\[Rule]",
14912	RowBox[{"{", "Z", "}"}]}], ",",
14913	RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//",
14914	"OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
14915	CellChangeTimes->{{3.697463857630127^9, 3.697463897475298^9}, {
14916	3.697464136487383^9, 3.6974641367049007`^9}, {3.6974642201407433`*^9,
14917	3.697464224325818^9}, {3.697779806045223^9, 3.6977798069672327`*^9}, {
14918	3.697781531384438^9, 3.6977815317278852`^9}, {3.706961693077465*^9,
14919	3.7069617104980583`^9}, {3.70696208279708^9, 3.706962082840859*^9}, {
14920	3.70702385358392^9, 3.707023854145379^9}, 3.71423999167645*^9, {
14921	3.714475504960969^9, 3.714475525688051^9}, {3.7146527509492188`*^9,
14922	3.714652756642342^9}, {3.714652909302999^9,
14923	3.7146529149076347`*^9}},ExpressionUUID->"5192aad5-d567-4eff-aaf4-\
14924	461f93cbb120"],
14925
14926	Cell[CellGroupData[{
14927
14928	Cell[BoxData[
14929	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
14930	StripOnInput->False,
14931	LineColor->RGBColor[1, 0.5, 0],
14932	FrontFaceColor->RGBColor[1, 0.5, 0],
14933	BackFaceColor->RGBColor[1, 0.5, 0],
14934	GraphicsColor->RGBColor[1, 0.5, 0],
14935	FontWeight->Bold,
14936	FontColor->RGBColor[1, 0.5, 0]]], "Print",
14937	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
14938	3.729583103470407*^9},ExpressionUUID->"aa00e2c5-38b8-4573-88d6-\
14939	1b76118705ea"],
14940
14941	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
14942	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
14943	3.7295831034716377`*^9},ExpressionUUID->"316e2a86-4598-4aa3-a93c-\
14944	dc76d74140f2"],
14945
14946	Cell[BoxData[
14947	InterpretationBox[
14948	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
14949	"\[InvisibleSpace]", "\<\" cores\"\>"}],
14950	SequenceForm["Expanding the indices over ", 2, " cores"],
14951	Editable->False]], "Print",
14952	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
14953	3.729583103473463*^9},ExpressionUUID->"f28dc19d-e64b-465b-9275-\
14954	6dd8590eb7e4"],
14955
14956	Cell[BoxData["\<\"Collecting the different structures that enter the \
14957	vertex.\"\>"], "Print",
14958	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
14959	3.7295831115173597`*^9},ExpressionUUID->"f3e54edb-d23c-479c-85ab-\
14960	495cb2f054e0"],
14961
14962	Cell[BoxData[
14963	InterpretationBox[
14964	RowBox[{
14965	"4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
14966	-> starting the computation: \"\>", "\[InvisibleSpace]",
14967	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
14968	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
14969	"\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
14970	SequenceForm[
14971	4, " possible non-zero vertices have been found -> starting the \
14972	computation: ",
14973	Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
14974	Editable->False]], "Print",
14975	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
14976	3.729583111543912*^9},ExpressionUUID->"c7135858-57f6-46d3-af86-\
14977	231445b863e2"],
14978
14979	Cell[BoxData[
14980	InterpretationBox[
14981	RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
14982	SequenceForm[4, " vertices obtained."],
14983	Editable->False]], "Print",
14984	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
14985	3.729583113430953*^9},ExpressionUUID->"2f450633-6995-41d2-9043-\
14986	44f92d3d9dcf"]
14987	}, Open ]],
14988
14989	Cell[BoxData[
14990	InterpretationBox[GridBox[{
14991	{GridBox[{
14992	{
14993	OverscriptBox["dq", "\<\"-\"\>"], "1"},
14994	{"dq", "2"},
14995	{"Z", "3"}
14996	},
14997	GridBoxAlignment->{
14998	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
14999	"RowsIndexed" -> {}},
15000	GridBoxSpacings->{"Columns" -> {
15001	Offset[0.27999999999999997`], {
15002	Offset[0.7]},
15003	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15004	Offset[0.2], {
15005	Offset[0.1]},
15006	Offset[0.2]}, "RowsIndexed" -> {}}],
15007	RowBox[{"-",
15008	FractionBox[
15009	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15010	SubscriptBox["\[Delta]",
15011	RowBox[{
15012	SubscriptBox["\<\"m\"\>", "1"], ",",
15013	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15014	SubscriptBox["\[Delta]",
15015	RowBox[{
15016	SubscriptBox["\<\"f\"\>", "1"], ",",
15017	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15018	RowBox[{"(",
15019	RowBox[{
15020	RowBox[{
15021	RowBox[{"(",
15022	RowBox[{
15023	RowBox[{
15024	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15025	RowBox[{"(",
15026	RowBox[{
15027	RowBox[{"-", "3"}], "-",
15028	RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+",
15029	RowBox[{
15030	RowBox[{"(",
15031	RowBox[{"2", "-", "dg1", "+",
15032	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
15033	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
15034	RowBox[{
15035	RowBox[{"(",
15036	RowBox[{
15037	RowBox[{"3", " ",
15038	TemplateBox[{"c","Hq","1"},
15039	"Subsuperscript"]}], "+",
15040	RowBox[{"3", " ",
15041	TemplateBox[{"c","Hq","3"},
15042	"Subsuperscript"]}], "+",
15043	RowBox[{"2", " ",
15044	SubscriptBox["c", "HWB"], " ",
15045	SubscriptBox["c", "\[Theta]"], " ",
15046	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15047	SuperscriptBox[
15048	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15049	SubscriptBox[
15050	RowBox[{
15051	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15052	"Superscript"], ".",
15053	SubscriptBox["P", "\<\"-\"\>"]}],
15054	RowBox[{
15055	SubscriptBox["\<\"s\"\>", "1"], ",",
15056	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15057	RowBox[{
15058	RowBox[{"(",
15059	RowBox[{
15060	RowBox[{"dsth2", " ",
15061	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
15062	RowBox[{"2", " ",
15063	RowBox[{"(",
15064	RowBox[{"1", "+", "dg1"}], ")"}], " ",
15065	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15066	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
15067	RowBox[{
15068	RowBox[{"(",
15069	RowBox[{
15070	RowBox[{
15071	RowBox[{"-", "3"}], " ",
15072	SubscriptBox["c", "Hd"]}], "+",
15073	RowBox[{
15074	SubscriptBox["c", "HWB"], " ",
15075	SubscriptBox["c", "\[Theta]"], " ",
15076	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15077	SuperscriptBox[
15078	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15079	SubscriptBox[
15080	RowBox[{
15081	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15082	"Superscript"], ".",
15083	SubscriptBox["P", "\<\"+\"\>"]}],
15084	RowBox[{
15085	SubscriptBox["\<\"s\"\>", "1"], ",",
15086	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
15087	RowBox[{"6", " ",
15088	SubscriptBox["c", "\[Theta]"], " ",
15089	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15090	SubscriptBox["s", "\[Theta]"]}]]}]},
15091	{GridBox[{
15092	{
15093	OverscriptBox["l", "\<\"-\"\>"], "1"},
15094	{"l", "2"},
15095	{"Z", "3"}
15096	},
15097	GridBoxAlignment->{
15098	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15099	"RowsIndexed" -> {}},
15100	GridBoxSpacings->{"Columns" -> {
15101	Offset[0.27999999999999997`], {
15102	Offset[0.7]},
15103	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15104	Offset[0.2], {
15105	Offset[0.1]},
15106	Offset[0.2]}, "RowsIndexed" -> {}}],
15107	RowBox[{"-",
15108	FractionBox[
15109	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15110	SubscriptBox["\[Delta]",
15111	RowBox[{
15112	SubscriptBox["\<\"f\"\>", "1"], ",",
15113	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15114	RowBox[{"(",
15115	RowBox[{
15116	RowBox[{
15117	RowBox[{"(",
15118	RowBox[{
15119	RowBox[{
15120	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15121	RowBox[{"(",
15122	RowBox[{
15123	RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+",
15124	RowBox[{
15125	RowBox[{"(",
15126	RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ",
15127	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
15128	RowBox[{
15129	RowBox[{"(",
15130	RowBox[{
15131	TemplateBox[{"c","Hl","1"},
15132	"Subsuperscript"], "+",
15133	TemplateBox[{"c","Hl","3"},
15134	"Subsuperscript"]}], ")"}], " ",
15135	SuperscriptBox[
15136	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15137	SubscriptBox[
15138	RowBox[{
15139	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15140	"Superscript"], ".",
15141	SubscriptBox["P", "\<\"-\"\>"]}],
15142	RowBox[{
15143	SubscriptBox["\<\"s\"\>", "1"], ",",
15144	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15145	RowBox[{
15146	RowBox[{"(",
15147	RowBox[{
15148	RowBox[{"dsth2", " ",
15149	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
15150	RowBox[{"2", " ",
15151	RowBox[{"(",
15152	RowBox[{"1", "+", "dg1"}], ")"}], " ",
15153	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15154	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
15155	RowBox[{
15156	RowBox[{"(",
15157	RowBox[{
15158	RowBox[{"-",
15159	SubscriptBox["c", "He"]}], "+",
15160	RowBox[{
15161	SubscriptBox["c", "HWB"], " ",
15162	SubscriptBox["c", "\[Theta]"], " ",
15163	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15164	SuperscriptBox[
15165	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15166	SubscriptBox[
15167	RowBox[{
15168	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15169	"Superscript"], ".",
15170	SubscriptBox["P", "\<\"+\"\>"]}],
15171	RowBox[{
15172	SubscriptBox["\<\"s\"\>", "1"], ",",
15173	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
15174	RowBox[{"2", " ",
15175	SubscriptBox["c", "\[Theta]"], " ",
15176	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15177	SubscriptBox["s", "\[Theta]"]}]]}]},
15178	{GridBox[{
15179	{
15180	OverscriptBox["uq", "\<\"-\"\>"], "1"},
15181	{"uq", "2"},
15182	{"Z", "3"}
15183	},
15184	GridBoxAlignment->{
15185	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15186	"RowsIndexed" -> {}},
15187	GridBoxSpacings->{"Columns" -> {
15188	Offset[0.27999999999999997`], {
15189	Offset[0.7]},
15190	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15191	Offset[0.2], {
15192	Offset[0.1]},
15193	Offset[0.2]}, "RowsIndexed" -> {}}],
15194	FractionBox[
15195	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15196	SubscriptBox["\[Delta]",
15197	RowBox[{
15198	SubscriptBox["\<\"m\"\>", "1"], ",",
15199	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15200	SubscriptBox["\[Delta]",
15201	RowBox[{
15202	SubscriptBox["\<\"f\"\>", "1"], ",",
15203	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15204	RowBox[{"(",
15205	RowBox[{
15206	RowBox[{
15207	RowBox[{"(",
15208	RowBox[{
15209	RowBox[{
15210	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15211	RowBox[{"(",
15212	RowBox[{
15213	RowBox[{"-", "3"}], "-",
15214	RowBox[{"3", " ", "dgw"}], "+",
15215	RowBox[{"2", " ", "dsth2"}], "+",
15216	RowBox[{
15217	RowBox[{"(",
15218	RowBox[{"4", "+", "dg1", "+",
15219	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
15220	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
15221	RowBox[{
15222	RowBox[{"(",
15223	RowBox[{
15224	RowBox[{"3", " ",
15225	TemplateBox[{"c","Hq","1"},
15226	"Subsuperscript"]}], "-",
15227	RowBox[{"3", " ",
15228	TemplateBox[{"c","Hq","3"},
15229	"Subsuperscript"]}], "-",
15230	RowBox[{
15231	SubscriptBox["c", "HWB"], " ",
15232	SubscriptBox["c", "\[Theta]"], " ",
15233	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15234	SuperscriptBox[
15235	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15236	SubscriptBox[
15237	RowBox[{
15238	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15239	"Superscript"], ".",
15240	SubscriptBox["P", "\<\"-\"\>"]}],
15241	RowBox[{
15242	SubscriptBox["\<\"s\"\>", "1"], ",",
15243	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15244	RowBox[{
15245	RowBox[{"(",
15246	RowBox[{
15247	RowBox[{"2", " ", "dsth2", " ",
15248	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
15249	RowBox[{"4", " ",
15250	RowBox[{"(",
15251	RowBox[{"1", "+", "dg1"}], ")"}], " ",
15252	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15253	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
15254	RowBox[{
15255	RowBox[{"(",
15256	RowBox[{
15257	RowBox[{"3", " ",
15258	SubscriptBox["c", "Hu"]}], "+",
15259	RowBox[{"2", " ",
15260	SubscriptBox["c", "HWB"], " ",
15261	SubscriptBox["c", "\[Theta]"], " ",
15262	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15263	SuperscriptBox[
15264	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15265	SubscriptBox[
15266	RowBox[{
15267	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15268	"Superscript"], ".",
15269	SubscriptBox["P", "\<\"+\"\>"]}],
15270	RowBox[{
15271	SubscriptBox["\<\"s\"\>", "1"], ",",
15272	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
15273	RowBox[{"6", " ",
15274	SubscriptBox["c", "\[Theta]"], " ",
15275	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15276	SubscriptBox["s", "\[Theta]"]}]]},
15277	{GridBox[{
15278	{
15279	OverscriptBox["vl", "\<\"-\"\>"], "1"},
15280	{"vl", "2"},
15281	{"Z", "3"}
15282	},
15283	GridBoxAlignment->{
15284	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15285	"RowsIndexed" -> {}},
15286	GridBoxSpacings->{"Columns" -> {
15287	Offset[0.27999999999999997`], {
15288	Offset[0.7]},
15289	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15290	Offset[0.2], {
15291	Offset[0.1]},
15292	Offset[0.2]}, "RowsIndexed" -> {}}],
15293	FractionBox[
15294	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15295	RowBox[{"(",
15296	RowBox[{
15297	RowBox[{
15298	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15299	RowBox[{"(",
15300	RowBox[{
15301	RowBox[{"-", "1"}], "-", "dgw", "+",
15302	RowBox[{
15303	RowBox[{"(",
15304	RowBox[{
15305	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
15306	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
15307	RowBox[{
15308	RowBox[{"(",
15309	RowBox[{
15310	TemplateBox[{"c","Hl","1"},
15311	"Subsuperscript"], "-",
15312	TemplateBox[{"c","Hl","3"},
15313	"Subsuperscript"], "-",
15314	RowBox[{
15315	SubscriptBox["c", "HWB"], " ",
15316	SubscriptBox["c", "\[Theta]"], " ",
15317	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15318	SuperscriptBox[
15319	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15320	SubscriptBox["\[Delta]",
15321	RowBox[{
15322	SubscriptBox["\<\"f\"\>", "1"], ",",
15323	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15324	SubscriptBox[
15325	RowBox[{
15326	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15327	"Superscript"], ".",
15328	SubscriptBox["P", "\<\"-\"\>"]}],
15329	RowBox[{
15330	SubscriptBox["\<\"s\"\>", "1"], ",",
15331	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15332	RowBox[{"2", " ",
15333	SubscriptBox["c", "\[Theta]"], " ",
15334	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15335	SubscriptBox["s", "\[Theta]"]}]]}
15336	},
15337	GridBoxAlignment->{
15338	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15339	"RowsIndexed" -> {}},
15340	GridBoxSpacings->{"Columns" -> {
15341	Offset[0.27999999999999997`], {
15342	Offset[2.0999999999999996`]},
15343	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15344	Offset[0.2], {
15345	Offset[0.4]},
15346	Offset[0.2]}, "RowsIndexed" -> {}}],
15347	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
15348	3}}, Complex[0,
15349	Rational[-1, 6]] $CellContext`cth^(-1)
15350	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
15351	FeynRules`IndexDelta[
15352	FeynRules`Index[FeynRules`Colour,
15353	FeynRules`Ext[1]],
15354	FeynRules`Index[FeynRules`Colour,
15355	FeynRules`Ext[2]]] FeynRules`IndexDelta[
15356	FeynRules`Index[$CellContext`Generation,
15357	FeynRules`Ext[1]],
15358	FeynRules`Index[$CellContext`Generation,
15359	FeynRules`Ext[
15360	2]]] (($CellContext`LambdaSMEFT^2 (-3 -
15361	3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 +
15362	3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq1 +
15363	3 $CellContext`cHq3 +
15364	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
15365	$CellContext`vevhat^2) FeynRules`TensDot[
15366	FeynRules`Ga[
15367	FeynRules`Index[FeynRules`Lorentz,
15368	FeynRules`Ext[3]]], FeynRules`ProjM][
15369	FeynRules`Index[FeynRules`Spin,
15370	FeynRules`Ext[1]],
15371	FeynRules`Index[FeynRules`Spin,
15372	FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
15373	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
15374	$CellContext`sth^2 + ((-3) $CellContext`cHd + $CellContext`cHWB \
15375	$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
15376	FeynRules`Ga[
15377	FeynRules`Index[FeynRules`Lorentz,
15378	FeynRules`Ext[3]]], FeynRules`ProjP][
15379	FeynRules`Index[FeynRules`Spin,
15380	FeynRules`Ext[1]],
15381	FeynRules`Index[FeynRules`Spin,
15382	FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {
15383	FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0,
15384	Rational[-1, 2]] $CellContext`cth^(-1)
15385	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
15386	FeynRules`IndexDelta[
15387	FeynRules`Index[$CellContext`Generation,
15388	FeynRules`Ext[1]],
15389	FeynRules`Index[$CellContext`Generation,
15390	FeynRules`Ext[
15391	2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
15392	$CellContext`dsth2 + (
15393	2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
15394	($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2)
15395	FeynRules`TensDot[
15396	FeynRules`Ga[
15397	FeynRules`Index[FeynRules`Lorentz,
15398	FeynRules`Ext[3]]], FeynRules`ProjM][
15399	FeynRules`Index[FeynRules`Spin,
15400	FeynRules`Ext[1]],
15401	FeynRules`Index[FeynRules`Spin,
15402	FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
15403	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
15404	$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
15405	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
15406	FeynRules`Ga[
15407	FeynRules`Index[FeynRules`Lorentz,
15408	FeynRules`Ext[3]]], FeynRules`ProjP][
15409	FeynRules`Index[FeynRules`Spin,
15410	FeynRules`Ext[1]],
15411	FeynRules`Index[FeynRules`Spin,
15412	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
15413	2}, {$CellContext`Z, 3}}, Complex[0,
15414	Rational[1, 6]] $CellContext`cth^(-1)
15415	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
15416	FeynRules`IndexDelta[
15417	FeynRules`Index[FeynRules`Colour,
15418	FeynRules`Ext[1]],
15419	FeynRules`Index[FeynRules`Colour,
15420	FeynRules`Ext[2]]] FeynRules`IndexDelta[
15421	FeynRules`Index[$CellContext`Generation,
15422	FeynRules`Ext[1]],
15423	FeynRules`Index[$CellContext`Generation,
15424	FeynRules`Ext[
15425	2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw +
15426	2 $CellContext`dsth2 + (4 + $CellContext`dg1 +
15427	3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq1 -
15428	3 $CellContext`cHq3 - $CellContext`cHWB $CellContext`cth \
15429	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
15430	FeynRules`Ga[
15431	FeynRules`Index[FeynRules`Lorentz,
15432	FeynRules`Ext[3]]], FeynRules`ProjM][
15433	FeynRules`Index[FeynRules`Spin,
15434	FeynRules`Ext[1]],
15435	FeynRules`Index[FeynRules`Spin,
15436	FeynRules`Ext[2]]] + (
15437	2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
15438	4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
15439	$CellContext`sth^2 + (3 $CellContext`cHu +
15440	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
15441	$CellContext`vevhat^2) FeynRules`TensDot[
15442	FeynRules`Ga[
15443	FeynRules`Index[FeynRules`Lorentz,
15444	FeynRules`Ext[3]]], FeynRules`ProjP][
15445	FeynRules`Index[FeynRules`Spin,
15446	FeynRules`Ext[1]],
15447	FeynRules`Index[FeynRules`Spin,
15448	FeynRules`Ext[2]]])}, {{{$CellContext`vlbar, 1}, {$CellContext`vl,
15449	2}, {$CellContext`Z, 3}}, Complex[0,
15450	Rational[1, 2]] $CellContext`cth^(-1)
15451	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
15452	($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
15453	$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
15454	$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
15455	$CellContext`vevhat^2) FeynRules`IndexDelta[
15456	FeynRules`Index[$CellContext`Generation,
15457	FeynRules`Ext[1]],
15458	FeynRules`Index[$CellContext`Generation,
15459	FeynRules`Ext[2]]] FeynRules`TensDot[
15460	FeynRules`Ga[
15461	FeynRules`Index[FeynRules`Lorentz,
15462	FeynRules`Ext[3]]], FeynRules`ProjM][
15463	FeynRules`Index[FeynRules`Spin,
15464	FeynRules`Ext[1]],
15465	FeynRules`Index[FeynRules`Spin,
15466	FeynRules`Ext[2]]]}}]]], "Output",
15467	CellChangeTimes->{
15468	3.711173839167266^9, 3.712483365603745^9, 3.7139663983257236`*^9, {
15469	3.7146527464730873`^9, 3.714652771211906^9}, 3.7146529268852043`*^9,
15470	3.7295831168584642`*^9},ExpressionUUID->"b44b6fd8-1c77-423c-955b-\
15471	66356a7a36ba"]
15472	}, Open ]],
15473
15474	Cell["neutrino coupling :", "Text",
15475	CellChangeTimes->{{3.7146528020724363`*^9,
15476	3.7146528092589808`*^9}},ExpressionUUID->"56b59e56-378f-4b87-aadc-\
15477	d62051711651"],
15478
15479	Cell[CellGroupData[{
15480
15481	Cell[BoxData[{
15482	RowBox[{"ZffCouplings", "[",
15483	RowBox[{"[",
15484	RowBox[{"1", ",",
15485	RowBox[{"-", "1"}], ",",
15486	RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
15487	RowBox[{
15488	RowBox[{"%", "//.", "alphaShifts"}], "//",
15489	"Simplify"}], "\[IndentingNewLine]",
15490	RowBox[{
15491	RowBox[{"SMlimit", "[", "%", "]"}], " ",
15492	RowBox[{"WCsimplify", "[",
15493	RowBox[{
15494	FractionBox["%",
15495	RowBox[{"SMlimit", "[", "%", "]"}]], "/.",
15496	RowBox[{
15497	RowBox[{"IndexDelta", "[",
15498	RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
15499	CellChangeTimes->{{3.706961712640883^9, 3.7069617312434893`^9},
15500	3.711174006710514^9, {3.711174069176218^9, 3.711174078189027*^9}, {
15501	3.714475532098426^9, 3.7144755376724243`^9}, {3.714652781745085*^9,
15502	3.714652890708997^9}, {3.714652953030558^9,
15503	3.7146530356237173`*^9}},ExpressionUUID->"cb67ca5a-e9ca-49bb-ad74-\
15504	fc6aa2e276fa"],
15505
15506	Cell[BoxData[
15507	FractionBox[
15508	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15509	RowBox[{"(",
15510	RowBox[{
15511	RowBox[{
15512	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15513	RowBox[{"(",
15514	RowBox[{
15515	RowBox[{"-", "1"}], "-", "dgw", "+",
15516	RowBox[{
15517	RowBox[{"(",
15518	RowBox[{
15519	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
15520	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
15521	RowBox[{
15522	RowBox[{"(",
15523	RowBox[{
15524	TemplateBox[{"c","Hl","1"},
15525	"Subsuperscript"], "-",
15526	TemplateBox[{"c","Hl","3"},
15527	"Subsuperscript"], "-",
15528	RowBox[{
15529	SubscriptBox["c", "HWB"], " ",
15530	SubscriptBox["c", "\[Theta]"], " ",
15531	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
15532	SuperscriptBox[
15533	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15534	SubscriptBox["\[Delta]",
15535	RowBox[{
15536	SubscriptBox["\<\"f\"\>", "1"], ",",
15537	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15538	SubscriptBox[
15539	RowBox[{
15540	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15541	"Superscript"], ".",
15542	SubscriptBox["P", "\<\"-\"\>"]}],
15543	RowBox[{
15544	SubscriptBox["\<\"s\"\>", "1"], ",",
15545	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15546	RowBox[{"2", " ",
15547	SubscriptBox["c", "\[Theta]"], " ",
15548	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15549	SubscriptBox["s", "\[Theta]"]}]]], "Output",
15550	CellChangeTimes->{
15551	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
15552	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
15553	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
15554	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
15555	3.714652929930028^9, 3.7146530359952927`^9},
15556	3.729583116904347*^9},ExpressionUUID->"8fbb7acd-1dc9-44bf-b244-\
15557	cd8c2c283bba"],
15558
15559	Cell[BoxData[
15560	RowBox[{"-",
15561	FractionBox[
15562	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15563	RowBox[{"(",
15564	RowBox[{
15565	RowBox[{"4", " ",
15566	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
15567	RowBox[{
15568	RowBox[{"(",
15569	RowBox[{
15570	SubscriptBox["c", "HD"], "+",
15571	RowBox[{"4", " ",
15572	TemplateBox[{"c","Hl","1"},
15573	"Subsuperscript"]}], "-",
15574	RowBox[{"2", " ",
15575	TemplateBox[{"c","ll","Prime"},
15576	"Subsuperscript"]}]}], ")"}], " ",
15577	SuperscriptBox[
15578	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
15579	SubscriptBox["\[Delta]",
15580	RowBox[{
15581	SubscriptBox["\<\"f\"\>", "1"], ",",
15582	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15583	SubscriptBox[
15584	RowBox[{
15585	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15586	"Superscript"], ".",
15587	SubscriptBox["P", "\<\"-\"\>"]}],
15588	RowBox[{
15589	SubscriptBox["\<\"s\"\>", "1"], ",",
15590	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15591	RowBox[{"8", " ",
15592	SubscriptBox["c", "\[Theta]"], " ",
15593	SuperscriptBox["\[CapitalLambda]", "2"], " ",
15594	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
15595	CellChangeTimes->{
15596	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
15597	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
15598	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
15599	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
15600	3.714652929930028^9, 3.7146530359952927`^9},
15601	3.729583117110548*^9},ExpressionUUID->"16475bef-ffdc-42fa-b648-\
15602	b99f517abdd0"],
15603
15604	Cell[BoxData[
15605	RowBox[{"-",
15606	FractionBox[
15607	RowBox[{"\[ImaginaryI]", " ", "e", " ",
15608	RowBox[{"(",
15609	RowBox[{"1", "-",
15610	FractionBox[
15611	RowBox[{
15612	SubscriptBox["c", "HD"], " ",
15613	SuperscriptBox[
15614	OverscriptBox["v", "^"], "2"]}],
15615	RowBox[{"4", " ",
15616	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
15617	FractionBox[
15618	RowBox[{
15619	TemplateBox[{"c","Hl","1"},
15620	"Subsuperscript"], " ",
15621	SuperscriptBox[
15622	OverscriptBox["v", "^"], "2"]}],
15623	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
15624	FractionBox[
15625	RowBox[{
15626	TemplateBox[{"c","ll","Prime"},
15627	"Subsuperscript"], " ",
15628	SuperscriptBox[
15629	OverscriptBox["v", "^"], "2"]}],
15630	RowBox[{"2", " ",
15631	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
15632	SubscriptBox["\[Delta]",
15633	RowBox[{
15634	SubscriptBox["\<\"f\"\>", "1"], ",",
15635	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
15636	SubscriptBox[
15637	RowBox[{
15638	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
15639	"Superscript"], ".",
15640	SubscriptBox["P", "\<\"-\"\>"]}],
15641	RowBox[{
15642	SubscriptBox["\<\"s\"\>", "1"], ",",
15643	SubscriptBox["\<\"s\"\>", "2"]}]]}],
15644	RowBox[{"2", " ",
15645	SubscriptBox["c", "\[Theta]"], " ",
15646	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
15647	CellChangeTimes->{
15648	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
15649	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
15650	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
15651	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
15652	3.714652929930028^9, 3.7146530359952927`^9},
15653	3.729583117135125*^9},ExpressionUUID->"ad61cf2f-4890-42a2-9274-\
15654	7bd15682fa5b"]
15655	}, Open ]]
15656	}, Closed]],
15657
15658	Cell[CellGroupData[{
15659
15660	Cell["Example : Yukawa couplings", "Subsection",
15661	CellChangeTimes->{{3.714653803679809*^9,
15662	3.714653813127017*^9}},ExpressionUUID->"093574c8-3027-4f22-9a45-\
15663	af867d3183f3"],
15664
15665	Cell[BoxData[
15666	RowBox[{
15667	RowBox[{"LYuk", " ", "=", " ",
15668	RowBox[{
15669	RowBox[{
15670	RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
15671	"LinearWC"}]}], ";"}]], "Input",
15672	CellChangeTimes->{{3.71465381867803^9, 3.7146538339978323`^9},
15673	3.714653880639667^9, {3.7146539581117077`^9,
15674	3.714653960288474*^9}},ExpressionUUID->"bb950db0-26b9-4947-88eb-\
15675	655e519598cc"],
15676
15677	Cell[CellGroupData[{
15678
15679	Cell[BoxData[
15680	RowBox[{"hff", "=",
15681	RowBox[{
15682	RowBox[{
15683	RowBox[{"FeynmanRules", "[",
15684	RowBox[{"LYuk", ",",
15685	RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
15686	RowBox[{"Contains", "\[Rule]",
15687	RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//",
15688	"TableForm"}]}]], "Input",
15689	CellChangeTimes->{{3.714653838776801*^9,
15690	3.7146538891931353`*^9}},ExpressionUUID->"328f3d43-6261-4815-96f0-\
15691	ac994999197f"],
15692
15693	Cell[CellGroupData[{
15694
15695	Cell[BoxData[
15696	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
15697	StripOnInput->False,
15698	LineColor->RGBColor[1, 0.5, 0],
15699	FrontFaceColor->RGBColor[1, 0.5, 0],
15700	BackFaceColor->RGBColor[1, 0.5, 0],
15701	GraphicsColor->RGBColor[1, 0.5, 0],
15702	FontWeight->Bold,
15703	FontColor->RGBColor[1, 0.5, 0]]], "Print",
15704	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
15705	3.714653968951281*^9,
15706	3.729583122801153*^9},ExpressionUUID->"2c0607a9-f557-4038-896f-\
15707	b549aea212c9"],
15708
15709	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
15710	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
15711	3.714653968951281*^9,
15712	3.729583122802886*^9},ExpressionUUID->"ec4b3533-e54f-4c95-aa72-\
15713	b31e5b39808f"],
15714
15715	Cell[BoxData[
15716	InterpretationBox[
15717	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
15718	"\[InvisibleSpace]", "\<\" cores\"\>"}],
15719	SequenceForm["Expanding the indices over ", 2, " cores"],
15720	Editable->False]], "Print",
15721	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
15722	3.714653968951281*^9,
15723	3.7295831228056307`*^9},ExpressionUUID->"84498a12-23a0-4012-9ba2-\
15724	120b76e5de8c"],
15725
15726	Cell[BoxData["\<\"Collecting the different structures that enter the \
15727	vertex.\"\>"], "Print",
15728	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
15729	3.714653968951281*^9,
15730	3.7295831245832443`*^9},ExpressionUUID->"617aa8ff-5918-4c1f-bbc4-\
15731	3eade645b04e"],
15732
15733	Cell[BoxData[
15734	InterpretationBox[
15735	RowBox[{
15736	"3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
15737	-> starting the computation: \"\>", "\[InvisibleSpace]",
15738	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
15739	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
15740	"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
15741	SequenceForm[
15742	3, " possible non-zero vertices have been found -> starting the \
15743	computation: ",
15744	Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
15745	Editable->False]], "Print",
15746	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
15747	3.714653968951281*^9,
15748	3.729583124607419*^9},ExpressionUUID->"2964c299-6da9-4139-a7c0-\
15749	39dee3818284"],
15750
15751	Cell[BoxData[
15752	InterpretationBox[
15753	RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
15754	SequenceForm[3, " vertices obtained."],
15755	Editable->False]], "Print",
15756	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
15757	3.714653968951281*^9,
15758	3.72958312505293*^9},ExpressionUUID->"72f949f7-b8a8-46c5-b5cc-\
15759	b7396534f5f4"]
15760	}, Open ]],
15761
15762	Cell[BoxData[
15763	InterpretationBox[GridBox[{
15764	{GridBox[{
15765	{
15766	OverscriptBox["dq", "\<\"-\"\>"], "1"},
15767	{"dq", "2"},
15768	{"H", "3"}
15769	},
15770	GridBoxAlignment->{
15771	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15772	"RowsIndexed" -> {}},
15773	GridBoxSpacings->{"Columns" -> {
15774	Offset[0.27999999999999997`], {
15775	Offset[0.7]},
15776	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15777	Offset[0.2], {
15778	Offset[0.1]},
15779	Offset[0.2]}, "RowsIndexed" -> {}}],
15780	RowBox[{
15781	FractionBox[
15782	RowBox[{"3", " ", "\[ImaginaryI]", " ",
15783	SuperscriptBox[
15784	OverscriptBox["v", "^"], "2"], " ",
15785	SubsuperscriptBox["c", "dH", "\<\"*\"\>"], " ",
15786	SubscriptBox["\[Delta]",
15787	RowBox[{
15788	SubscriptBox["\<\"m\"\>", "1"], ",",
15789	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15790	SubscriptBox[
15791	SubscriptBox["P", "\<\"-\"\>"],
15792	RowBox[{
15793	SubscriptBox["\<\"s\"\>", "1"], ",",
15794	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15795	SubscriptBox[
15796	TemplateBox[{"y","d"},
15797	"Superscript"],
15798	RowBox[{
15799	SubscriptBox["\<\"f\"\>", "1"], ",",
15800	SubscriptBox["\<\"f\"\>", "2"]}]]}],
15801	RowBox[{"2", " ",
15802	SqrtBox["2"], " ",
15803	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
15804	FractionBox[
15805	RowBox[{"3", " ", "\[ImaginaryI]", " ",
15806	SubscriptBox["c", "dH"], " ",
15807	SuperscriptBox[
15808	OverscriptBox["v", "^"], "2"], " ",
15809	SubscriptBox["\[Delta]",
15810	RowBox[{
15811	SubscriptBox["\<\"m\"\>", "1"], ",",
15812	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15813	SubscriptBox[
15814	SubscriptBox["P", "\<\"+\"\>"],
15815	RowBox[{
15816	SubscriptBox["\<\"s\"\>", "1"], ",",
15817	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15818	SubscriptBox[
15819	TemplateBox[{"y","d"},
15820	"Superscript"],
15821	RowBox[{
15822	SubscriptBox["\<\"f\"\>", "2"], ",",
15823	SubscriptBox["\<\"f\"\>", "1"]}]]}],
15824	RowBox[{"2", " ",
15825	SqrtBox["2"], " ",
15826	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
15827	FractionBox[
15828	RowBox[{"\[ImaginaryI]", " ",
15829	SubscriptBox["\[Delta]",
15830	RowBox[{
15831	SubscriptBox["\<\"m\"\>", "1"], ",",
15832	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15833	RowBox[{"(",
15834	RowBox[{
15835	RowBox[{
15836	SubsuperscriptBox["yd0",
15837	RowBox[{
15838	SubscriptBox["\<\"f\"\>", "2"], ",",
15839	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
15840	SubscriptBox[
15841	SubscriptBox["P", "\<\"+\"\>"],
15842	RowBox[{
15843	SubscriptBox["\<\"s\"\>", "1"], ",",
15844	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15845	RowBox[{
15846	SubscriptBox[
15847	SubscriptBox["P", "\<\"-\"\>"],
15848	RowBox[{
15849	SubscriptBox["\<\"s\"\>", "1"], ",",
15850	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15851	SubscriptBox["yd0",
15852	RowBox[{
15853	SubscriptBox["\<\"f\"\>", "1"], ",",
15854	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
15855	SqrtBox["2"]], "-",
15856	FractionBox[
15857	RowBox[{"\[ImaginaryI]", " ",
15858	SubscriptBox["c",
15859	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
15860	SuperscriptBox[
15861	OverscriptBox["v", "^"], "2"], " ",
15862	SubscriptBox["\[Delta]",
15863	RowBox[{
15864	SubscriptBox["\<\"m\"\>", "1"], ",",
15865	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15866	RowBox[{"(",
15867	RowBox[{
15868	RowBox[{
15869	SubsuperscriptBox["yd0",
15870	RowBox[{
15871	SubscriptBox["\<\"f\"\>", "2"], ",",
15872	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
15873	SubscriptBox[
15874	SubscriptBox["P", "\<\"+\"\>"],
15875	RowBox[{
15876	SubscriptBox["\<\"s\"\>", "1"], ",",
15877	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15878	RowBox[{
15879	SubscriptBox[
15880	SubscriptBox["P", "\<\"-\"\>"],
15881	RowBox[{
15882	SubscriptBox["\<\"s\"\>", "1"], ",",
15883	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15884	SubscriptBox["yd0",
15885	RowBox[{
15886	SubscriptBox["\<\"f\"\>", "1"], ",",
15887	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
15888	RowBox[{
15889	SqrtBox["2"], " ",
15890	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
15891	FractionBox[
15892	RowBox[{"\[ImaginaryI]", " ",
15893	SubscriptBox["c", "HD"], " ",
15894	SuperscriptBox[
15895	OverscriptBox["v", "^"], "2"], " ",
15896	SubscriptBox["\[Delta]",
15897	RowBox[{
15898	SubscriptBox["\<\"m\"\>", "1"], ",",
15899	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
15900	RowBox[{"(",
15901	RowBox[{
15902	RowBox[{
15903	SubsuperscriptBox["yd0",
15904	RowBox[{
15905	SubscriptBox["\<\"f\"\>", "2"], ",",
15906	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
15907	SubscriptBox[
15908	SubscriptBox["P", "\<\"+\"\>"],
15909	RowBox[{
15910	SubscriptBox["\<\"s\"\>", "1"], ",",
15911	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15912	RowBox[{
15913	SubscriptBox[
15914	SubscriptBox["P", "\<\"-\"\>"],
15915	RowBox[{
15916	SubscriptBox["\<\"s\"\>", "1"], ",",
15917	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15918	SubscriptBox["yd0",
15919	RowBox[{
15920	SubscriptBox["\<\"f\"\>", "1"], ",",
15921	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
15922	RowBox[{"4", " ",
15923	SqrtBox["2"], " ",
15924	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
15925	{GridBox[{
15926	{
15927	OverscriptBox["l", "\<\"-\"\>"], "1"},
15928	{"l", "2"},
15929	{"H", "3"}
15930	},
15931	GridBoxAlignment->{
15932	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15933	"RowsIndexed" -> {}},
15934	GridBoxSpacings->{"Columns" -> {
15935	Offset[0.27999999999999997`], {
15936	Offset[0.7]},
15937	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15938	Offset[0.2], {
15939	Offset[0.1]},
15940	Offset[0.2]}, "RowsIndexed" -> {}}],
15941	RowBox[{
15942	FractionBox[
15943	RowBox[{"3", " ", "\[ImaginaryI]", " ",
15944	SuperscriptBox[
15945	OverscriptBox["v", "^"], "2"], " ",
15946	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
15947	SubscriptBox[
15948	SubscriptBox["P", "\<\"-\"\>"],
15949	RowBox[{
15950	SubscriptBox["\<\"s\"\>", "1"], ",",
15951	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15952	SubscriptBox[
15953	TemplateBox[{"y","l"},
15954	"Superscript"],
15955	RowBox[{
15956	SubscriptBox["\<\"f\"\>", "1"], ",",
15957	SubscriptBox["\<\"f\"\>", "2"]}]]}],
15958	RowBox[{"2", " ",
15959	SqrtBox["2"], " ",
15960	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
15961	FractionBox[
15962	RowBox[{"3", " ", "\[ImaginaryI]", " ",
15963	SubscriptBox["c", "eH"], " ",
15964	SuperscriptBox[
15965	OverscriptBox["v", "^"], "2"], " ",
15966	SubscriptBox[
15967	SubscriptBox["P", "\<\"+\"\>"],
15968	RowBox[{
15969	SubscriptBox["\<\"s\"\>", "1"], ",",
15970	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
15971	SubscriptBox[
15972	TemplateBox[{"y","l"},
15973	"Superscript"],
15974	RowBox[{
15975	SubscriptBox["\<\"f\"\>", "2"], ",",
15976	SubscriptBox["\<\"f\"\>", "1"]}]]}],
15977	RowBox[{"2", " ",
15978	SqrtBox["2"], " ",
15979	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
15980	FractionBox[
15981	RowBox[{"\[ImaginaryI]", " ",
15982	RowBox[{"(",
15983	RowBox[{
15984	RowBox[{
15985	SubsuperscriptBox["yl0",
15986	RowBox[{
15987	SubscriptBox["\<\"f\"\>", "2"], ",",
15988	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
15989	SubscriptBox[
15990	SubscriptBox["P", "\<\"+\"\>"],
15991	RowBox[{
15992	SubscriptBox["\<\"s\"\>", "1"], ",",
15993	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
15994	RowBox[{
15995	SubscriptBox[
15996	SubscriptBox["P", "\<\"-\"\>"],
15997	RowBox[{
15998	SubscriptBox["\<\"s\"\>", "1"], ",",
15999	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16000	SubscriptBox["yl0",
16001	RowBox[{
16002	SubscriptBox["\<\"f\"\>", "1"], ",",
16003	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
16004	SqrtBox["2"]], "-",
16005	FractionBox[
16006	RowBox[{"\[ImaginaryI]", " ",
16007	SubscriptBox["c",
16008	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
16009	SuperscriptBox[
16010	OverscriptBox["v", "^"], "2"], " ",
16011	RowBox[{"(",
16012	RowBox[{
16013	RowBox[{
16014	SubsuperscriptBox["yl0",
16015	RowBox[{
16016	SubscriptBox["\<\"f\"\>", "2"], ",",
16017	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
16018	SubscriptBox[
16019	SubscriptBox["P", "\<\"+\"\>"],
16020	RowBox[{
16021	SubscriptBox["\<\"s\"\>", "1"], ",",
16022	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
16023	RowBox[{
16024	SubscriptBox[
16025	SubscriptBox["P", "\<\"-\"\>"],
16026	RowBox[{
16027	SubscriptBox["\<\"s\"\>", "1"], ",",
16028	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16029	SubscriptBox["yl0",
16030	RowBox[{
16031	SubscriptBox["\<\"f\"\>", "1"], ",",
16032	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
16033	RowBox[{
16034	SqrtBox["2"], " ",
16035	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16036	FractionBox[
16037	RowBox[{"\[ImaginaryI]", " ",
16038	SubscriptBox["c", "HD"], " ",
16039	SuperscriptBox[
16040	OverscriptBox["v", "^"], "2"], " ",
16041	RowBox[{"(",
16042	RowBox[{
16043	RowBox[{
16044	SubsuperscriptBox["yl0",
16045	RowBox[{
16046	SubscriptBox["\<\"f\"\>", "2"], ",",
16047	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
16048	SubscriptBox[
16049	SubscriptBox["P", "\<\"+\"\>"],
16050	RowBox[{
16051	SubscriptBox["\<\"s\"\>", "1"], ",",
16052	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
16053	RowBox[{
16054	SubscriptBox[
16055	SubscriptBox["P", "\<\"-\"\>"],
16056	RowBox[{
16057	SubscriptBox["\<\"s\"\>", "1"], ",",
16058	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16059	SubscriptBox["yl0",
16060	RowBox[{
16061	SubscriptBox["\<\"f\"\>", "1"], ",",
16062	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
16063	RowBox[{"4", " ",
16064	SqrtBox["2"], " ",
16065	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
16066	{GridBox[{
16067	{
16068	OverscriptBox["uq", "\<\"-\"\>"], "1"},
16069	{"uq", "2"},
16070	{"H", "3"}
16071	},
16072	GridBoxAlignment->{
16073	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16074	"RowsIndexed" -> {}},
16075	GridBoxSpacings->{"Columns" -> {
16076	Offset[0.27999999999999997`], {
16077	Offset[0.7]},
16078	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
16079	Offset[0.2], {
16080	Offset[0.1]},
16081	Offset[0.2]}, "RowsIndexed" -> {}}],
16082	RowBox[{
16083	FractionBox[
16084	RowBox[{"3", " ", "\[ImaginaryI]", " ",
16085	SuperscriptBox[
16086	OverscriptBox["v", "^"], "2"], " ",
16087	SubsuperscriptBox["c", "uH", "\<\"*\"\>"], " ",
16088	SubscriptBox["\[Delta]",
16089	RowBox[{
16090	SubscriptBox["\<\"m\"\>", "1"], ",",
16091	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16092	SubscriptBox[
16093	SubscriptBox["P", "\<\"-\"\>"],
16094	RowBox[{
16095	SubscriptBox["\<\"s\"\>", "1"], ",",
16096	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16097	SubscriptBox[
16098	TemplateBox[{"y","u"},
16099	"Superscript"],
16100	RowBox[{
16101	SubscriptBox["\<\"f\"\>", "1"], ",",
16102	SubscriptBox["\<\"f\"\>", "2"]}]]}],
16103	RowBox[{"2", " ",
16104	SqrtBox["2"], " ",
16105	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16106	FractionBox[
16107	RowBox[{"3", " ", "\[ImaginaryI]", " ",
16108	SubscriptBox["c", "uH"], " ",
16109	SuperscriptBox[
16110	OverscriptBox["v", "^"], "2"], " ",
16111	SubscriptBox["\[Delta]",
16112	RowBox[{
16113	SubscriptBox["\<\"m\"\>", "1"], ",",
16114	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16115	SubscriptBox[
16116	SubscriptBox["P", "\<\"+\"\>"],
16117	RowBox[{
16118	SubscriptBox["\<\"s\"\>", "1"], ",",
16119	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16120	SubscriptBox[
16121	TemplateBox[{"y","u"},
16122	"Superscript"],
16123	RowBox[{
16124	SubscriptBox["\<\"f\"\>", "2"], ",",
16125	SubscriptBox["\<\"f\"\>", "1"]}]]}],
16126	RowBox[{"2", " ",
16127	SqrtBox["2"], " ",
16128	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
16129	FractionBox[
16130	RowBox[{"\[ImaginaryI]", " ",
16131	SubscriptBox["\[Delta]",
16132	RowBox[{
16133	SubscriptBox["\<\"m\"\>", "1"], ",",
16134	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16135	RowBox[{"(",
16136	RowBox[{
16137	RowBox[{
16138	SubsuperscriptBox["yu0",
16139	RowBox[{
16140	SubscriptBox["\<\"f\"\>", "2"], ",",
16141	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
16142	SubscriptBox[
16143	SubscriptBox["P", "\<\"+\"\>"],
16144	RowBox[{
16145	SubscriptBox["\<\"s\"\>", "1"], ",",
16146	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
16147	RowBox[{
16148	SubscriptBox[
16149	SubscriptBox["P", "\<\"-\"\>"],
16150	RowBox[{
16151	SubscriptBox["\<\"s\"\>", "1"], ",",
16152	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16153	SubscriptBox["yu0",
16154	RowBox[{
16155	SubscriptBox["\<\"f\"\>", "1"], ",",
16156	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
16157	SqrtBox["2"]], "-",
16158	FractionBox[
16159	RowBox[{"\[ImaginaryI]", " ",
16160	SubscriptBox["c",
16161	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
16162	SuperscriptBox[
16163	OverscriptBox["v", "^"], "2"], " ",
16164	SubscriptBox["\[Delta]",
16165	RowBox[{
16166	SubscriptBox["\<\"m\"\>", "1"], ",",
16167	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16168	RowBox[{"(",
16169	RowBox[{
16170	RowBox[{
16171	SubsuperscriptBox["yu0",
16172	RowBox[{
16173	SubscriptBox["\<\"f\"\>", "2"], ",",
16174	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
16175	SubscriptBox[
16176	SubscriptBox["P", "\<\"+\"\>"],
16177	RowBox[{
16178	SubscriptBox["\<\"s\"\>", "1"], ",",
16179	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
16180	RowBox[{
16181	SubscriptBox[
16182	SubscriptBox["P", "\<\"-\"\>"],
16183	RowBox[{
16184	SubscriptBox["\<\"s\"\>", "1"], ",",
16185	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16186	SubscriptBox["yu0",
16187	RowBox[{
16188	SubscriptBox["\<\"f\"\>", "1"], ",",
16189	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
16190	RowBox[{
16191	SqrtBox["2"], " ",
16192	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16193	FractionBox[
16194	RowBox[{"\[ImaginaryI]", " ",
16195	SubscriptBox["c", "HD"], " ",
16196	SuperscriptBox[
16197	OverscriptBox["v", "^"], "2"], " ",
16198	SubscriptBox["\[Delta]",
16199	RowBox[{
16200	SubscriptBox["\<\"m\"\>", "1"], ",",
16201	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
16202	RowBox[{"(",
16203	RowBox[{
16204	RowBox[{
16205	SubsuperscriptBox["yu0",
16206	RowBox[{
16207	SubscriptBox["\<\"f\"\>", "2"], ",",
16208	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
16209	SubscriptBox[
16210	SubscriptBox["P", "\<\"+\"\>"],
16211	RowBox[{
16212	SubscriptBox["\<\"s\"\>", "1"], ",",
16213	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
16214	RowBox[{
16215	SubscriptBox[
16216	SubscriptBox["P", "\<\"-\"\>"],
16217	RowBox[{
16218	SubscriptBox["\<\"s\"\>", "1"], ",",
16219	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
16220	SubscriptBox["yu0",
16221	RowBox[{
16222	SubscriptBox["\<\"f\"\>", "1"], ",",
16223	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
16224	RowBox[{"4", " ",
16225	SqrtBox["2"], " ",
16226	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
16227	},
16228	GridBoxAlignment->{
16229	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16230	"RowsIndexed" -> {}},
16231	GridBoxSpacings->{"Columns" -> {
16232	Offset[0.27999999999999997`], {
16233	Offset[2.0999999999999996`]},
16234	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
16235	Offset[0.2], {
16236	Offset[0.4]},
16237	Offset[0.2]}, "RowsIndexed" -> {}}],
16238	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
16239	FeynRules`H, 3}}, Complex[0,
16240	Rational[3, 2]]
16241	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
16242	Conjugate[$CellContext`cdH] FeynRules`IndexDelta[
16243	FeynRules`Index[FeynRules`Colour,
16244	FeynRules`Ext[1]],
16245	FeynRules`Index[FeynRules`Colour,
16246	FeynRules`Ext[2]]] FeynRules`ProjM[
16247	FeynRules`Index[FeynRules`Spin,
16248	FeynRules`Ext[1]],
16249	FeynRules`Index[FeynRules`Spin,
16250	FeynRules`Ext[2]]] $CellContext`yd[
16251	FeynRules`Index[$CellContext`Generation,
16252	FeynRules`Ext[1]],
16253	FeynRules`Index[$CellContext`Generation,
16254	FeynRules`Ext[2]]] + Complex[0,
16255	Rational[3, 2]]
16256	2^Rational[-1,
16257	2] $CellContext`cdH $CellContext`LambdaSMEFT^(-2) \
16258	$CellContext`vevhat^2 FeynRules`IndexDelta[
16259	FeynRules`Index[FeynRules`Colour,
16260	FeynRules`Ext[1]],
16261	FeynRules`Index[FeynRules`Colour,
16262	FeynRules`Ext[2]]] FeynRules`ProjP[
16263	FeynRules`Index[FeynRules`Spin,
16264	FeynRules`Ext[1]],
16265	FeynRules`Index[FeynRules`Spin,
16266	FeynRules`Ext[2]]] $CellContext`yd[
16267	FeynRules`Index[$CellContext`Generation,
16268	FeynRules`Ext[2]],
16269	FeynRules`Index[$CellContext`Generation,
16270	FeynRules`Ext[1]]] +
16271	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
16272	FeynRules`Index[FeynRules`Colour,
16273	FeynRules`Ext[1]],
16274	FeynRules`Index[FeynRules`Colour,
16275	FeynRules`Ext[2]]] (Conjugate[
16276	$CellContext`yd0[
16277	FeynRules`Index[$CellContext`Generation,
16278	FeynRules`Ext[2]],
16279	FeynRules`Index[$CellContext`Generation,
16280	FeynRules`Ext[1]]]] FeynRules`ProjP[
16281	FeynRules`Index[FeynRules`Spin,
16282	FeynRules`Ext[1]],
16283	FeynRules`Index[FeynRules`Spin,
16284	FeynRules`Ext[2]]] + FeynRules`ProjM[
16285	FeynRules`Index[FeynRules`Spin,
16286	FeynRules`Ext[1]],
16287	FeynRules`Index[FeynRules`Spin,
16288	FeynRules`Ext[2]]] $CellContext`yd0[
16289	FeynRules`Index[$CellContext`Generation,
16290	FeynRules`Ext[1]],
16291	FeynRules`Index[$CellContext`Generation,
16292	FeynRules`Ext[2]]]) +
16293	Complex[0, -1]
16294	2^Rational[-1,
16295	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
16296	$CellContext`vevhat^2 FeynRules`IndexDelta[
16297	FeynRules`Index[FeynRules`Colour,
16298	FeynRules`Ext[1]],
16299	FeynRules`Index[FeynRules`Colour,
16300	FeynRules`Ext[2]]] (Conjugate[
16301	$CellContext`yd0[
16302	FeynRules`Index[$CellContext`Generation,
16303	FeynRules`Ext[2]],
16304	FeynRules`Index[$CellContext`Generation,
16305	FeynRules`Ext[1]]]] FeynRules`ProjP[
16306	FeynRules`Index[FeynRules`Spin,
16307	FeynRules`Ext[1]],
16308	FeynRules`Index[FeynRules`Spin,
16309	FeynRules`Ext[2]]] + FeynRules`ProjM[
16310	FeynRules`Index[FeynRules`Spin,
16311	FeynRules`Ext[1]],
16312	FeynRules`Index[FeynRules`Spin,
16313	FeynRules`Ext[2]]] $CellContext`yd0[
16314	FeynRules`Index[$CellContext`Generation,
16315	FeynRules`Ext[1]],
16316	FeynRules`Index[$CellContext`Generation,
16317	FeynRules`Ext[2]]]) + Complex[0,
16318	Rational[1, 4]]
16319	2^Rational[-1,
16320	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
16321	$CellContext`vevhat^2 FeynRules`IndexDelta[
16322	FeynRules`Index[FeynRules`Colour,
16323	FeynRules`Ext[1]],
16324	FeynRules`Index[FeynRules`Colour,
16325	FeynRules`Ext[2]]] (Conjugate[
16326	$CellContext`yd0[
16327	FeynRules`Index[$CellContext`Generation,
16328	FeynRules`Ext[2]],
16329	FeynRules`Index[$CellContext`Generation,
16330	FeynRules`Ext[1]]]] FeynRules`ProjP[
16331	FeynRules`Index[FeynRules`Spin,
16332	FeynRules`Ext[1]],
16333	FeynRules`Index[FeynRules`Spin,
16334	FeynRules`Ext[2]]] + FeynRules`ProjM[
16335	FeynRules`Index[FeynRules`Spin,
16336	FeynRules`Ext[1]],
16337	FeynRules`Index[FeynRules`Spin,
16338	FeynRules`Ext[2]]] $CellContext`yd0[
16339	FeynRules`Index[$CellContext`Generation,
16340	FeynRules`Ext[1]],
16341	FeynRules`Index[$CellContext`Generation,
16342	FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
16343	FeynRules`H, 3}}, Complex[0,
16344	Rational[3, 2]]
16345	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
16346	Conjugate[$CellContext`ceH] FeynRules`ProjM[
16347	FeynRules`Index[FeynRules`Spin,
16348	FeynRules`Ext[1]],
16349	FeynRules`Index[FeynRules`Spin,
16350	FeynRules`Ext[2]]] $CellContext`yl[
16351	FeynRules`Index[$CellContext`Generation,
16352	FeynRules`Ext[1]],
16353	FeynRules`Index[$CellContext`Generation,
16354	FeynRules`Ext[2]]] + Complex[0,
16355	Rational[3, 2]]
16356	2^Rational[-1,
16357	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
16358	$CellContext`vevhat^2 FeynRules`ProjP[
16359	FeynRules`Index[FeynRules`Spin,
16360	FeynRules`Ext[1]],
16361	FeynRules`Index[FeynRules`Spin,
16362	FeynRules`Ext[2]]] $CellContext`yl[
16363	FeynRules`Index[$CellContext`Generation,
16364	FeynRules`Ext[2]],
16365	FeynRules`Index[$CellContext`Generation,
16366	FeynRules`Ext[1]]] + Complex[0, -1] 2^Rational[-1, 2] (Conjugate[
16367	$CellContext`yl0[
16368	FeynRules`Index[$CellContext`Generation,
16369	FeynRules`Ext[2]],
16370	FeynRules`Index[$CellContext`Generation,
16371	FeynRules`Ext[1]]]] FeynRules`ProjP[
16372	FeynRules`Index[FeynRules`Spin,
16373	FeynRules`Ext[1]],
16374	FeynRules`Index[FeynRules`Spin,
16375	FeynRules`Ext[2]]] + FeynRules`ProjM[
16376	FeynRules`Index[FeynRules`Spin,
16377	FeynRules`Ext[1]],
16378	FeynRules`Index[FeynRules`Spin,
16379	FeynRules`Ext[2]]] $CellContext`yl0[
16380	FeynRules`Index[$CellContext`Generation,
16381	FeynRules`Ext[1]],
16382	FeynRules`Index[$CellContext`Generation,
16383	FeynRules`Ext[2]]]) +
16384	Complex[0, -1]
16385	2^Rational[-1,
16386	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
16387	$CellContext`vevhat^2 (Conjugate[
16388	$CellContext`yl0[
16389	FeynRules`Index[$CellContext`Generation,
16390	FeynRules`Ext[2]],
16391	FeynRules`Index[$CellContext`Generation,
16392	FeynRules`Ext[1]]]] FeynRules`ProjP[
16393	FeynRules`Index[FeynRules`Spin,
16394	FeynRules`Ext[1]],
16395	FeynRules`Index[FeynRules`Spin,
16396	FeynRules`Ext[2]]] + FeynRules`ProjM[
16397	FeynRules`Index[FeynRules`Spin,
16398	FeynRules`Ext[1]],
16399	FeynRules`Index[FeynRules`Spin,
16400	FeynRules`Ext[2]]] $CellContext`yl0[
16401	FeynRules`Index[$CellContext`Generation,
16402	FeynRules`Ext[1]],
16403	FeynRules`Index[$CellContext`Generation,
16404	FeynRules`Ext[2]]]) + Complex[0,
16405	Rational[1, 4]]
16406	2^Rational[-1,
16407	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
16408	$CellContext`vevhat^2 (Conjugate[
16409	$CellContext`yl0[
16410	FeynRules`Index[$CellContext`Generation,
16411	FeynRules`Ext[2]],
16412	FeynRules`Index[$CellContext`Generation,
16413	FeynRules`Ext[1]]]] FeynRules`ProjP[
16414	FeynRules`Index[FeynRules`Spin,
16415	FeynRules`Ext[1]],
16416	FeynRules`Index[FeynRules`Spin,
16417	FeynRules`Ext[2]]] + FeynRules`ProjM[
16418	FeynRules`Index[FeynRules`Spin,
16419	FeynRules`Ext[1]],
16420	FeynRules`Index[FeynRules`Spin,
16421	FeynRules`Ext[2]]] $CellContext`yl0[
16422	FeynRules`Index[$CellContext`Generation,
16423	FeynRules`Ext[1]],
16424	FeynRules`Index[$CellContext`Generation,
16425	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
16426	2}, {FeynRules`H, 3}}, Complex[0,
16427	Rational[3, 2]]
16428	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
16429	Conjugate[$CellContext`cuH] FeynRules`IndexDelta[
16430	FeynRules`Index[FeynRules`Colour,
16431	FeynRules`Ext[1]],
16432	FeynRules`Index[FeynRules`Colour,
16433	FeynRules`Ext[2]]] FeynRules`ProjM[
16434	FeynRules`Index[FeynRules`Spin,
16435	FeynRules`Ext[1]],
16436	FeynRules`Index[FeynRules`Spin,
16437	FeynRules`Ext[2]]] $CellContext`yu[
16438	FeynRules`Index[$CellContext`Generation,
16439	FeynRules`Ext[1]],
16440	FeynRules`Index[$CellContext`Generation,
16441	FeynRules`Ext[2]]] + Complex[0,
16442	Rational[3, 2]]
16443	2^Rational[-1,
16444	2] $CellContext`cuH $CellContext`LambdaSMEFT^(-2) \
16445	$CellContext`vevhat^2 FeynRules`IndexDelta[
16446	FeynRules`Index[FeynRules`Colour,
16447	FeynRules`Ext[1]],
16448	FeynRules`Index[FeynRules`Colour,
16449	FeynRules`Ext[2]]] FeynRules`ProjP[
16450	FeynRules`Index[FeynRules`Spin,
16451	FeynRules`Ext[1]],
16452	FeynRules`Index[FeynRules`Spin,
16453	FeynRules`Ext[2]]] $CellContext`yu[
16454	FeynRules`Index[$CellContext`Generation,
16455	FeynRules`Ext[2]],
16456	FeynRules`Index[$CellContext`Generation,
16457	FeynRules`Ext[1]]] +
16458	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
16459	FeynRules`Index[FeynRules`Colour,
16460	FeynRules`Ext[1]],
16461	FeynRules`Index[FeynRules`Colour,
16462	FeynRules`Ext[2]]] (Conjugate[
16463	$CellContext`yu0[
16464	FeynRules`Index[$CellContext`Generation,
16465	FeynRules`Ext[2]],
16466	FeynRules`Index[$CellContext`Generation,
16467	FeynRules`Ext[1]]]] FeynRules`ProjP[
16468	FeynRules`Index[FeynRules`Spin,
16469	FeynRules`Ext[1]],
16470	FeynRules`Index[FeynRules`Spin,
16471	FeynRules`Ext[2]]] + FeynRules`ProjM[
16472	FeynRules`Index[FeynRules`Spin,
16473	FeynRules`Ext[1]],
16474	FeynRules`Index[FeynRules`Spin,
16475	FeynRules`Ext[2]]] $CellContext`yu0[
16476	FeynRules`Index[$CellContext`Generation,
16477	FeynRules`Ext[1]],
16478	FeynRules`Index[$CellContext`Generation,
16479	FeynRules`Ext[2]]]) +
16480	Complex[0, -1]
16481	2^Rational[-1,
16482	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
16483	$CellContext`vevhat^2 FeynRules`IndexDelta[
16484	FeynRules`Index[FeynRules`Colour,
16485	FeynRules`Ext[1]],
16486	FeynRules`Index[FeynRules`Colour,
16487	FeynRules`Ext[2]]] (Conjugate[
16488	$CellContext`yu0[
16489	FeynRules`Index[$CellContext`Generation,
16490	FeynRules`Ext[2]],
16491	FeynRules`Index[$CellContext`Generation,
16492	FeynRules`Ext[1]]]] FeynRules`ProjP[
16493	FeynRules`Index[FeynRules`Spin,
16494	FeynRules`Ext[1]],
16495	FeynRules`Index[FeynRules`Spin,
16496	FeynRules`Ext[2]]] + FeynRules`ProjM[
16497	FeynRules`Index[FeynRules`Spin,
16498	FeynRules`Ext[1]],
16499	FeynRules`Index[FeynRules`Spin,
16500	FeynRules`Ext[2]]] $CellContext`yu0[
16501	FeynRules`Index[$CellContext`Generation,
16502	FeynRules`Ext[1]],
16503	FeynRules`Index[$CellContext`Generation,
16504	FeynRules`Ext[2]]]) + Complex[0,
16505	Rational[1, 4]]
16506	2^Rational[-1,
16507	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
16508	$CellContext`vevhat^2 FeynRules`IndexDelta[
16509	FeynRules`Index[FeynRules`Colour,
16510	FeynRules`Ext[1]],
16511	FeynRules`Index[FeynRules`Colour,
16512	FeynRules`Ext[2]]] (Conjugate[
16513	$CellContext`yu0[
16514	FeynRules`Index[$CellContext`Generation,
16515	FeynRules`Ext[2]],
16516	FeynRules`Index[$CellContext`Generation,
16517	FeynRules`Ext[1]]]] FeynRules`ProjP[
16518	FeynRules`Index[FeynRules`Spin,
16519	FeynRules`Ext[1]],
16520	FeynRules`Index[FeynRules`Spin,
16521	FeynRules`Ext[2]]] + FeynRules`ProjM[
16522	FeynRules`Index[FeynRules`Spin,
16523	FeynRules`Ext[1]],
16524	FeynRules`Index[FeynRules`Spin,
16525	FeynRules`Ext[2]]] $CellContext`yu0[
16526	FeynRules`Index[$CellContext`Generation,
16527	FeynRules`Ext[1]],
16528	FeynRules`Index[$CellContext`Generation,
16529	FeynRules`Ext[2]]])}}]]], "Output",
16530	CellChangeTimes->{{3.714653869780055^9, 3.714653893377253^9},
16531	3.714653972746155*^9,
16532	3.729583126334095*^9},ExpressionUUID->"dfcd1cd5-a18c-4418-ae01-\
16533	999642149887"]
16534	}, Open ]],
16535
16536	Cell["Flavor expansion for the leptons' case", "Text",
16537	CellChangeTimes->{{3.7146540002012587`*^9,
16538	3.714654016686934*^9}},ExpressionUUID->"05dd6b37-046f-40bb-8128-\
16539	180e19ecc071"],
16540
16541	Cell[CellGroupData[{
16542
16543	Cell[BoxData[
16544	RowBox[{"hll", "=",
16545	RowBox[{
16546	RowBox[{
16547	RowBox[{
16548	RowBox[{
16549	RowBox[{"{",
16550	RowBox[{"hff", "[",
16551	RowBox[{"[",
16552	RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//",
16553	"FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//",
16554	"TableForm"}]}]], "Input",
16555	CellChangeTimes->{{3.714653897213532*^9,
16556	3.714653998430573*^9}},ExpressionUUID->"b4b9e441-6d41-4840-814b-\
16557	0644702b2f8e"],
16558
16559	Cell[BoxData[
16560	InterpretationBox[
16561	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
16562	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
16563	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
16564	"\[InvisibleSpace]", "1"}],
16565	SequenceForm["Flavor expansion of the vertices: ",
16566	Dynamic[FeynRules`FR$Count1], " / ", 1],
16567	Editable->False]], "Print",
16568	CellChangeTimes->{{3.714653911127839^9, 3.714653919833921^9}, {
16569	3.714653951564291^9, 3.71465401970082^9},
16570	3.729583126434883*^9},ExpressionUUID->"eac60e11-cae0-4bff-81b9-\
16571	398fbf5dbb76"],
16572
16573	Cell[BoxData[
16574	InterpretationBox[GridBox[{
16575	{GridBox[{
16576	{"H", "1"},
16577	{
16578	OverscriptBox["e", "\<\"-\"\>"], "2"},
16579	{"e", "3"}
16580	},
16581	GridBoxAlignment->{
16582	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16583	"RowsIndexed" -> {}},
16584	GridBoxSpacings->{"Columns" -> {
16585	Offset[0.27999999999999997`], {
16586	Offset[0.7]},
16587	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
16588	Offset[0.2], {
16589	Offset[0.1]},
16590	Offset[0.2]}, "RowsIndexed" -> {}}],
16591	RowBox[{
16592	RowBox[{"-",
16593	FractionBox[
16594	RowBox[{"\[ImaginaryI]", " ", "ye", " ",
16595	SubscriptBox["\[Delta]",
16596	RowBox[{
16597	SubscriptBox["\<\"s\"\>", "2"], ",",
16598	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16599	SqrtBox["2"]]}], "+",
16600	RowBox[{
16601	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye",
16602	" ",
16603	SubscriptBox["\[Delta]",
16604	RowBox[{
16605	SubscriptBox["\<\"s\"\>", "2"], ",",
16606	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
16607	FractionBox[
16608	RowBox[{"\[ImaginaryI]", " ",
16609	SubscriptBox["c",
16610	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
16611	SuperscriptBox[
16612	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
16613	SubscriptBox["\[Delta]",
16614	RowBox[{
16615	SubscriptBox["\<\"s\"\>", "2"], ",",
16616	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16617	RowBox[{
16618	SqrtBox["2"], " ",
16619	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16620	FractionBox[
16621	RowBox[{"\[ImaginaryI]", " ",
16622	SubscriptBox["c", "HD"], " ",
16623	SuperscriptBox[
16624	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
16625	SubscriptBox["\[Delta]",
16626	RowBox[{
16627	SubscriptBox["\<\"s\"\>", "2"], ",",
16628	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16629	RowBox[{"4", " ",
16630	SqrtBox["2"], " ",
16631	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16632	FractionBox[
16633	RowBox[{"\[ImaginaryI]", " ",
16634	SuperscriptBox[
16635	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
16636	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
16637	SubscriptBox[
16638	SubscriptBox["P", "\<\"-\"\>"],
16639	RowBox[{
16640	SubscriptBox["\<\"s\"\>", "2"], ",",
16641	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16642	RowBox[{
16643	SqrtBox["2"], " ",
16644	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16645	FractionBox[
16646	RowBox[{"\[ImaginaryI]", " ",
16647	SubscriptBox["c", "eH"], " ",
16648	SuperscriptBox[
16649	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
16650	SubscriptBox[
16651	SubscriptBox["P", "\<\"+\"\>"],
16652	RowBox[{
16653	SubscriptBox["\<\"s\"\>", "2"], ",",
16654	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16655	RowBox[{
16656	SqrtBox["2"], " ",
16657	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
16658	{GridBox[{
16659	{"H", "1"},
16660	{
16661	OverscriptBox["mu", "\<\"-\"\>"], "2"},
16662	{"mu", "3"}
16663	},
16664	GridBoxAlignment->{
16665	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16666	"RowsIndexed" -> {}},
16667	GridBoxSpacings->{"Columns" -> {
16668	Offset[0.27999999999999997`], {
16669	Offset[0.7]},
16670	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
16671	Offset[0.2], {
16672	Offset[0.1]},
16673	Offset[0.2]}, "RowsIndexed" -> {}}],
16674	RowBox[{
16675	RowBox[{"-",
16676	FractionBox[
16677	RowBox[{"\[ImaginaryI]", " ", "ym", " ",
16678	SubscriptBox["\[Delta]",
16679	RowBox[{
16680	SubscriptBox["\<\"s\"\>", "2"], ",",
16681	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16682	SqrtBox["2"]]}], "+",
16683	RowBox[{
16684	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym",
16685	" ",
16686	SubscriptBox["\[Delta]",
16687	RowBox[{
16688	SubscriptBox["\<\"s\"\>", "2"], ",",
16689	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
16690	FractionBox[
16691	RowBox[{"\[ImaginaryI]", " ",
16692	SubscriptBox["c",
16693	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
16694	SuperscriptBox[
16695	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
16696	SubscriptBox["\[Delta]",
16697	RowBox[{
16698	SubscriptBox["\<\"s\"\>", "2"], ",",
16699	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16700	RowBox[{
16701	SqrtBox["2"], " ",
16702	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16703	FractionBox[
16704	RowBox[{"\[ImaginaryI]", " ",
16705	SubscriptBox["c", "HD"], " ",
16706	SuperscriptBox[
16707	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
16708	SubscriptBox["\[Delta]",
16709	RowBox[{
16710	SubscriptBox["\<\"s\"\>", "2"], ",",
16711	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16712	RowBox[{"4", " ",
16713	SqrtBox["2"], " ",
16714	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16715	FractionBox[
16716	RowBox[{"\[ImaginaryI]", " ",
16717	SuperscriptBox[
16718	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
16719	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
16720	SubscriptBox[
16721	SubscriptBox["P", "\<\"-\"\>"],
16722	RowBox[{
16723	SubscriptBox["\<\"s\"\>", "2"], ",",
16724	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16725	RowBox[{
16726	SqrtBox["2"], " ",
16727	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16728	FractionBox[
16729	RowBox[{"\[ImaginaryI]", " ",
16730	SubscriptBox["c", "eH"], " ",
16731	SuperscriptBox[
16732	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
16733	SubscriptBox[
16734	SubscriptBox["P", "\<\"+\"\>"],
16735	RowBox[{
16736	SubscriptBox["\<\"s\"\>", "2"], ",",
16737	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16738	RowBox[{
16739	SqrtBox["2"], " ",
16740	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
16741	{GridBox[{
16742	{"H", "1"},
16743	{
16744	OverscriptBox["ta", "\<\"-\"\>"], "2"},
16745	{"ta", "3"}
16746	},
16747	GridBoxAlignment->{
16748	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16749	"RowsIndexed" -> {}},
16750	GridBoxSpacings->{"Columns" -> {
16751	Offset[0.27999999999999997`], {
16752	Offset[0.7]},
16753	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
16754	Offset[0.2], {
16755	Offset[0.1]},
16756	Offset[0.2]}, "RowsIndexed" -> {}}],
16757	RowBox[{
16758	RowBox[{"-",
16759	FractionBox[
16760	RowBox[{"\[ImaginaryI]", " ", "ytau", " ",
16761	SubscriptBox["\[Delta]",
16762	RowBox[{
16763	SubscriptBox["\<\"s\"\>", "2"], ",",
16764	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16765	SqrtBox["2"]]}], "+",
16766	RowBox[{
16767	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau",
16768	" ",
16769	SubscriptBox["\[Delta]",
16770	RowBox[{
16771	SubscriptBox["\<\"s\"\>", "2"], ",",
16772	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
16773	FractionBox[
16774	RowBox[{"\[ImaginaryI]", " ",
16775	SubscriptBox["c",
16776	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
16777	SuperscriptBox[
16778	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
16779	SubscriptBox["\[Delta]",
16780	RowBox[{
16781	SubscriptBox["\<\"s\"\>", "2"], ",",
16782	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16783	RowBox[{
16784	SqrtBox["2"], " ",
16785	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16786	FractionBox[
16787	RowBox[{"\[ImaginaryI]", " ",
16788	SubscriptBox["c", "HD"], " ",
16789	SuperscriptBox[
16790	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
16791	SubscriptBox["\[Delta]",
16792	RowBox[{
16793	SubscriptBox["\<\"s\"\>", "2"], ",",
16794	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16795	RowBox[{"4", " ",
16796	SqrtBox["2"], " ",
16797	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16798	FractionBox[
16799	RowBox[{"\[ImaginaryI]", " ",
16800	SuperscriptBox[
16801	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
16802	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
16803	SubscriptBox[
16804	SubscriptBox["P", "\<\"-\"\>"],
16805	RowBox[{
16806	SubscriptBox["\<\"s\"\>", "2"], ",",
16807	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16808	RowBox[{
16809	SqrtBox["2"], " ",
16810	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
16811	FractionBox[
16812	RowBox[{"\[ImaginaryI]", " ",
16813	SubscriptBox["c", "eH"], " ",
16814	SuperscriptBox[
16815	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
16816	SubscriptBox[
16817	SubscriptBox["P", "\<\"+\"\>"],
16818	RowBox[{
16819	SubscriptBox["\<\"s\"\>", "2"], ",",
16820	SubscriptBox["\<\"s\"\>", "3"]}]]}],
16821	RowBox[{
16822	SqrtBox["2"], " ",
16823	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
16824	},
16825	GridBoxAlignment->{
16826	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16827	"RowsIndexed" -> {}},
16828	GridBoxSpacings->{"Columns" -> {
16829	Offset[0.27999999999999997`], {
16830	Offset[2.0999999999999996`]},
16831	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
16832	Offset[0.2], {
16833	Offset[0.4]},
16834	Offset[0.2]}, "RowsIndexed" -> {}}],
16835	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
16836	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
16837	FeynRules`Index[FeynRules`Spin,
16838	FeynRules`Ext[2]],
16839	FeynRules`Index[FeynRules`Spin,
16840	FeynRules`Ext[3]]] + Complex[0,
16841	Rational[1, 2]] $CellContext`dGf $CellContext`ye
16842	FeynRules`IndexDelta[
16843	FeynRules`Index[FeynRules`Spin,
16844	FeynRules`Ext[2]],
16845	FeynRules`Index[FeynRules`Spin,
16846	FeynRules`Ext[3]]] +
16847	Complex[0, -1]
16848	2^Rational[-1,
16849	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
16850	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
16851	FeynRules`Index[FeynRules`Spin,
16852	FeynRules`Ext[2]],
16853	FeynRules`Index[FeynRules`Spin,
16854	FeynRules`Ext[3]]] + Complex[0,
16855	Rational[1, 4]]
16856	2^Rational[-1,
16857	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
16858	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
16859	FeynRules`Index[FeynRules`Spin,
16860	FeynRules`Ext[2]],
16861	FeynRules`Index[FeynRules`Spin,
16862	FeynRules`Ext[3]]] +
16863	Complex[0, 1]
16864	2^Rational[-1,
16865	2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
16866	$CellContext`ye Conjugate[$CellContext`ceH] FeynRules`ProjM[
16867	FeynRules`Index[FeynRules`Spin,
16868	FeynRules`Ext[2]],
16869	FeynRules`Index[FeynRules`Spin,
16870	FeynRules`Ext[3]]] +
16871	Complex[0, 1]
16872	2^Rational[-1,
16873	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
16874	$CellContext`vevhat^2 $CellContext`ye FeynRules`ProjP[
16875	FeynRules`Index[FeynRules`Spin,
16876	FeynRules`Ext[2]],
16877	FeynRules`Index[FeynRules`Spin,
16878	FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
16879	FeynRules`mu, 3}},
16880	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
16881	FeynRules`Index[FeynRules`Spin,
16882	FeynRules`Ext[2]],
16883	FeynRules`Index[FeynRules`Spin,
16884	FeynRules`Ext[3]]] + Complex[0,
16885	Rational[1, 2]] $CellContext`dGf $CellContext`ym
16886	FeynRules`IndexDelta[
16887	FeynRules`Index[FeynRules`Spin,
16888	FeynRules`Ext[2]],
16889	FeynRules`Index[FeynRules`Spin,
16890	FeynRules`Ext[3]]] +
16891	Complex[0, -1]
16892	2^Rational[-1,
16893	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
16894	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
16895	FeynRules`Index[FeynRules`Spin,
16896	FeynRules`Ext[2]],
16897	FeynRules`Index[FeynRules`Spin,
16898	FeynRules`Ext[3]]] + Complex[0,
16899	Rational[1, 4]]
16900	2^Rational[-1,
16901	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
16902	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
16903	FeynRules`Index[FeynRules`Spin,
16904	FeynRules`Ext[2]],
16905	FeynRules`Index[FeynRules`Spin,
16906	FeynRules`Ext[3]]] +
16907	Complex[0, 1]
16908	2^Rational[-1,
16909	2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
16910	$CellContext`ym Conjugate[$CellContext`ceH] FeynRules`ProjM[
16911	FeynRules`Index[FeynRules`Spin,
16912	FeynRules`Ext[2]],
16913	FeynRules`Index[FeynRules`Spin,
16914	FeynRules`Ext[3]]] +
16915	Complex[0, 1]
16916	2^Rational[-1,
16917	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
16918	$CellContext`vevhat^2 $CellContext`ym FeynRules`ProjP[
16919	FeynRules`Index[FeynRules`Spin,
16920	FeynRules`Ext[2]],
16921	FeynRules`Index[FeynRules`Spin,
16922	FeynRules`Ext[3]]]}, {{{
16923	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
16924	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
16925	FeynRules`Index[FeynRules`Spin,
16926	FeynRules`Ext[2]],
16927	FeynRules`Index[FeynRules`Spin,
16928	FeynRules`Ext[3]]] + Complex[0,
16929	Rational[1, 2]] $CellContext`dGf $CellContext`ytau
16930	FeynRules`IndexDelta[
16931	FeynRules`Index[FeynRules`Spin,
16932	FeynRules`Ext[2]],
16933	FeynRules`Index[FeynRules`Spin,
16934	FeynRules`Ext[3]]] +
16935	Complex[0, -1]
16936	2^Rational[-1,
16937	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
16938	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
16939	FeynRules`Index[FeynRules`Spin,
16940	FeynRules`Ext[2]],
16941	FeynRules`Index[FeynRules`Spin,
16942	FeynRules`Ext[3]]] + Complex[0,
16943	Rational[1, 4]]
16944	2^Rational[-1,
16945	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
16946	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
16947	FeynRules`Index[FeynRules`Spin,
16948	FeynRules`Ext[2]],
16949	FeynRules`Index[FeynRules`Spin,
16950	FeynRules`Ext[3]]] +
16951	Complex[0, 1]
16952	2^Rational[-1,
16953	2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
16954	$CellContext`ytau Conjugate[$CellContext`ceH] FeynRules`ProjM[
16955	FeynRules`Index[FeynRules`Spin,
16956	FeynRules`Ext[2]],
16957	FeynRules`Index[FeynRules`Spin,
16958	FeynRules`Ext[3]]] +
16959	Complex[0, 1]
16960	2^Rational[-1,
16961	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
16962	$CellContext`vevhat^2 $CellContext`ytau FeynRules`ProjP[
16963	FeynRules`Index[FeynRules`Spin,
16964	FeynRules`Ext[2]],
16965	FeynRules`Index[FeynRules`Spin,
16966	FeynRules`Ext[3]]]}}]]], "Output",
16967	CellChangeTimes->{{3.714653911402326^9, 3.714653920602931^9}, {
16968	3.714653952474135^9, 3.714654020646657^9},
16969	3.729583127329198*^9},ExpressionUUID->"5ae4c482-6246-4bf3-bcd1-\
16970	19b7f523cebd"]
16971	}, Open ]],
16972
16973	Cell[CellGroupData[{
16974
16975	Cell[BoxData[
16976	RowBox[{
16977	RowBox[{
16978	RowBox[{"hll", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//",
16979	"TableForm"}]], "Input",
16980	CellChangeTimes->{{3.7146540238619328`*^9,
16981	3.714654043748782*^9}},ExpressionUUID->"6deef87e-8e03-4c86-9372-\
16982	8ba5bb8a5d5b"],
16983
16984	Cell[BoxData[
16985	TagBox[
16986	InterpretationBox[GridBox[{
16987	{GridBox[{
16988	{"H", "1"},
16989	{
16990	OverscriptBox["e", "\<\"-\"\>"], "2"},
16991	{"e", "3"}
16992	},
16993	GridBoxAlignment->{
16994	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
16995	"RowsIndexed" -> {}},
16996	GridBoxSpacings->{"Columns" -> {
16997	Offset[0.27999999999999997`], {
16998	Offset[0.7]},
16999	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
17000	Offset[0.2], {
17001	Offset[0.1]},
17002	Offset[0.2]}, "RowsIndexed" -> {}}],
17003	RowBox[{"-",
17004	FractionBox[
17005	RowBox[{"\[ImaginaryI]", " ", "ye", " ",
17006	RowBox[{"(",
17007	RowBox[{
17008	RowBox[{
17009	RowBox[{"(",
17010	RowBox[{
17011	RowBox[{"4", " ",
17012	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
17013	RowBox[{
17014	RowBox[{"(",
17015	RowBox[{
17016	RowBox[{"4", " ",
17017	SubscriptBox["c",
17018	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
17019	SubscriptBox["c", "HD"], "-",
17020	RowBox[{"4", " ",
17021	TemplateBox[{"c","Hl","3"},
17022	"Subsuperscript"]}], "+",
17023	RowBox[{"2", " ",
17024	TemplateBox[{"c","ll","Prime"},
17025	"Subsuperscript"]}]}], ")"}], " ",
17026	SuperscriptBox[
17027	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
17028	SubscriptBox["\[Delta]",
17029	RowBox[{
17030	SubscriptBox["\<\"s\"\>", "2"], ",",
17031	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
17032	RowBox[{"4", " ",
17033	SuperscriptBox[
17034	OverscriptBox["v", "^"], "2"], " ",
17035	RowBox[{"(",
17036	RowBox[{
17037	RowBox[{
17038	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
17039	SubscriptBox[
17040	SubscriptBox["P", "\<\"-\"\>"],
17041	RowBox[{
17042	SubscriptBox["\<\"s\"\>", "2"], ",",
17043	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
17044	RowBox[{
17045	SubscriptBox["c", "eH"], " ",
17046	SubscriptBox[
17047	SubscriptBox["P", "\<\"+\"\>"],
17048	RowBox[{
17049	SubscriptBox["\<\"s\"\>", "2"], ",",
17050	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
17051	RowBox[{"4", " ",
17052	SqrtBox["2"], " ",
17053	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
17054	{GridBox[{
17055	{"H", "1"},
17056	{
17057	OverscriptBox["mu", "\<\"-\"\>"], "2"},
17058	{"mu", "3"}
17059	},
17060	GridBoxAlignment->{
17061	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
17062	"RowsIndexed" -> {}},
17063	GridBoxSpacings->{"Columns" -> {
17064	Offset[0.27999999999999997`], {
17065	Offset[0.7]},
17066	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
17067	Offset[0.2], {
17068	Offset[0.1]},
17069	Offset[0.2]}, "RowsIndexed" -> {}}],
17070	RowBox[{"-",
17071	FractionBox[
17072	RowBox[{"\[ImaginaryI]", " ", "ym", " ",
17073	RowBox[{"(",
17074	RowBox[{
17075	RowBox[{
17076	RowBox[{"(",
17077	RowBox[{
17078	RowBox[{"4", " ",
17079	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
17080	RowBox[{
17081	RowBox[{"(",
17082	RowBox[{
17083	RowBox[{"4", " ",
17084	SubscriptBox["c",
17085	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
17086	SubscriptBox["c", "HD"], "-",
17087	RowBox[{"4", " ",
17088	TemplateBox[{"c","Hl","3"},
17089	"Subsuperscript"]}], "+",
17090	RowBox[{"2", " ",
17091	TemplateBox[{"c","ll","Prime"},
17092	"Subsuperscript"]}]}], ")"}], " ",
17093	SuperscriptBox[
17094	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
17095	SubscriptBox["\[Delta]",
17096	RowBox[{
17097	SubscriptBox["\<\"s\"\>", "2"], ",",
17098	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
17099	RowBox[{"4", " ",
17100	SuperscriptBox[
17101	OverscriptBox["v", "^"], "2"], " ",
17102	RowBox[{"(",
17103	RowBox[{
17104	RowBox[{
17105	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
17106	SubscriptBox[
17107	SubscriptBox["P", "\<\"-\"\>"],
17108	RowBox[{
17109	SubscriptBox["\<\"s\"\>", "2"], ",",
17110	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
17111	RowBox[{
17112	SubscriptBox["c", "eH"], " ",
17113	SubscriptBox[
17114	SubscriptBox["P", "\<\"+\"\>"],
17115	RowBox[{
17116	SubscriptBox["\<\"s\"\>", "2"], ",",
17117	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
17118	RowBox[{"4", " ",
17119	SqrtBox["2"], " ",
17120	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
17121	{GridBox[{
17122	{"H", "1"},
17123	{
17124	OverscriptBox["ta", "\<\"-\"\>"], "2"},
17125	{"ta", "3"}
17126	},
17127	GridBoxAlignment->{
17128	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
17129	"RowsIndexed" -> {}},
17130	GridBoxSpacings->{"Columns" -> {
17131	Offset[0.27999999999999997`], {
17132	Offset[0.7]},
17133	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
17134	Offset[0.2], {
17135	Offset[0.1]},
17136	Offset[0.2]}, "RowsIndexed" -> {}}],
17137	RowBox[{"-",
17138	FractionBox[
17139	RowBox[{"\[ImaginaryI]", " ", "ytau", " ",
17140	RowBox[{"(",
17141	RowBox[{
17142	RowBox[{
17143	RowBox[{"(",
17144	RowBox[{
17145	RowBox[{"4", " ",
17146	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
17147	RowBox[{
17148	RowBox[{"(",
17149	RowBox[{
17150	RowBox[{"4", " ",
17151	SubscriptBox["c",
17152	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
17153	SubscriptBox["c", "HD"], "-",
17154	RowBox[{"4", " ",
17155	TemplateBox[{"c","Hl","3"},
17156	"Subsuperscript"]}], "+",
17157	RowBox[{"2", " ",
17158	TemplateBox[{"c","ll","Prime"},
17159	"Subsuperscript"]}]}], ")"}], " ",
17160	SuperscriptBox[
17161	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
17162	SubscriptBox["\[Delta]",
17163	RowBox[{
17164	SubscriptBox["\<\"s\"\>", "2"], ",",
17165	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
17166	RowBox[{"4", " ",
17167	SuperscriptBox[
17168	OverscriptBox["v", "^"], "2"], " ",
17169	RowBox[{"(",
17170	RowBox[{
17171	RowBox[{
17172	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
17173	SubscriptBox[
17174	SubscriptBox["P", "\<\"-\"\>"],
17175	RowBox[{
17176	SubscriptBox["\<\"s\"\>", "2"], ",",
17177	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
17178	RowBox[{
17179	SubscriptBox["c", "eH"], " ",
17180	SubscriptBox[
17181	SubscriptBox["P", "\<\"+\"\>"],
17182	RowBox[{
17183	SubscriptBox["\<\"s\"\>", "2"], ",",
17184	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
17185	RowBox[{"4", " ",
17186	SqrtBox["2"], " ",
17187	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
17188	},
17189	GridBoxAlignment->{
17190	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
17191	"RowsIndexed" -> {}},
17192	GridBoxSpacings->{"Columns" -> {
17193	Offset[0.27999999999999997`], {
17194	Offset[2.0999999999999996`]},
17195	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
17196	Offset[0.2], {
17197	Offset[0.4]},
17198	Offset[0.2]}, "RowsIndexed" -> {}}],
17199	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
17200	Complex[0,
17201	Rational[-1, 4]]
17202	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ye ((
17203	4 $CellContext`LambdaSMEFT^2 + (
17204	4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 +
17205	2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
17206	FeynRules`Index[FeynRules`Spin,
17207	FeynRules`Ext[2]],
17208	FeynRules`Index[FeynRules`Spin,
17209	FeynRules`Ext[3]]] -
17210	4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
17211	FeynRules`Index[FeynRules`Spin,
17212	FeynRules`Ext[2]],
17213	FeynRules`Index[FeynRules`Spin,
17214	FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
17215	FeynRules`Index[FeynRules`Spin,
17216	FeynRules`Ext[2]],
17217	FeynRules`Index[FeynRules`Spin,
17218	FeynRules`Ext[3]]]))}, {{{
17219	FeynRules`H, 1}, {$CellContext`mubar, 2}, {FeynRules`mu, 3}},
17220	Complex[0,
17221	Rational[-1, 4]]
17222	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ym ((
17223	4 $CellContext`LambdaSMEFT^2 + (
17224	4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 +
17225	2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
17226	FeynRules`Index[FeynRules`Spin,
17227	FeynRules`Ext[2]],
17228	FeynRules`Index[FeynRules`Spin,
17229	FeynRules`Ext[3]]] -
17230	4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
17231	FeynRules`Index[FeynRules`Spin,
17232	FeynRules`Ext[2]],
17233	FeynRules`Index[FeynRules`Spin,
17234	FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
17235	FeynRules`Index[FeynRules`Spin,
17236	FeynRules`Ext[2]],
17237	FeynRules`Index[FeynRules`Spin,
17238	FeynRules`Ext[3]]]))}, {{{
17239	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
17240	Complex[0,
17241	Rational[-1, 4]]
17242	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ytau ((
17243	4 $CellContext`LambdaSMEFT^2 + (
17244	4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 +
17245	2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
17246	FeynRules`Index[FeynRules`Spin,
17247	FeynRules`Ext[2]],
17248	FeynRules`Index[FeynRules`Spin,
17249	FeynRules`Ext[3]]] -
17250	4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
17251	FeynRules`Index[FeynRules`Spin,
17252	FeynRules`Ext[2]],
17253	FeynRules`Index[FeynRules`Spin,
17254	FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
17255	FeynRules`Index[FeynRules`Spin,
17256	FeynRules`Ext[2]],
17257	FeynRules`Index[FeynRules`Spin,
17258	FeynRules`Ext[3]]]))}}]],
17259	Function[BoxForm`e$,
17260	TableForm[BoxForm`e$]]]], "Output",
17261	CellChangeTimes->{{3.71465403609652^9, 3.714654045478115^9},
17262	3.7295831284457607`*^9},ExpressionUUID->"cd99707a-6d81-4c56-9c5a-\
17263	1b8a859f29ac"]
17264	}, Open ]]
17265	}, Closed]],
17266
17267	Cell[CellGroupData[{
17268
17269	Cell["Export to UFO", "Subsection",
17270	CellChangeTimes->{{3.697464870154114^9, 3.697464873666815^9}, {
17271	3.7146540815185833`*^9,
17272	3.714654082512082*^9}},ExpressionUUID->"ac7f6f8c-a544-4c84-b446-\
17273	59f16536fb38"],
17274
17275	Cell[CellGroupData[{
17276
17277	Cell[BoxData[
17278	RowBox[{"WriteUFO", "[",
17279	RowBox[{"LSMEFT", ",",
17280	RowBox[{"MaxParticles", "\[Rule]", "4"}], ",",
17281	RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_U35_alphaScheme_UFO\>\""}]}],
17282	"]"}]], "Input",
17283	CellChangeTimes->{{3.711357093610547^9, 3.7113570956332912`^9}, {
17284	3.713541847073875^9, 3.713541858645399^9}, {3.713966972373098*^9,
17285	3.713966987928933^9}, {3.7139684888375883`^9, 3.713968491954339*^9}, {
17286	3.714027305929933^9, 3.7140273182314863`^9}, {3.714654929541032*^9,
17287	3.7146549299446907`*^9}},ExpressionUUID->"5d953327-d798-46bf-add0-\
17288	6d5f63509d72"],
17289
17290	Cell[CellGroupData[{
17291
17292	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
17293	"Print",
17294	CellChangeTimes->{3.714027854894479*^9,
17295	3.729583756467793*^9},ExpressionUUID->"524902a5-dd61-4c0a-a03c-\
17296	856557c9c31f"],
17297
17298	Cell[BoxData[
17299	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
17300	StripOnInput->False,
17301	LineColor->RGBColor[1, 0.5, 0],
17302	FrontFaceColor->RGBColor[1, 0.5, 0],
17303	BackFaceColor->RGBColor[1, 0.5, 0],
17304	GraphicsColor->RGBColor[1, 0.5, 0],
17305	FontWeight->Bold,
17306	FontColor->RGBColor[1, 0.5, 0]]], "Print",
17307	CellChangeTimes->{3.714027854894479*^9,
17308	3.729583763477233*^9},ExpressionUUID->"88b2675b-8c0b-4045-b036-\
17309	97c33df11709"],
17310
17311	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
17312	CellChangeTimes->{3.714027854894479*^9,
17313	3.729583763478526*^9},ExpressionUUID->"808a5ec1-e449-49c1-9f63-\
17314	6de7cba91f6e"],
17315
17316	Cell[BoxData[
17317	InterpretationBox[
17318	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
17319	"\[InvisibleSpace]", "\<\" cores\"\>"}],
17320	SequenceForm["Expanding the indices over ", 2, " cores"],
17321	Editable->False]], "Print",
17322	CellChangeTimes->{3.714027854894479*^9,
17323	3.729583763479885*^9},ExpressionUUID->"b109ea8e-ba3d-4203-9226-\
17324	f19a753e7d07"],
17325
17326	Cell[BoxData["\<\"Collecting the different structures that enter the \
17327	vertex.\"\>"], "Print",
17328	CellChangeTimes->{3.714027854894479*^9,
17329	3.729583854344748*^9},ExpressionUUID->"49de0e79-0e3e-44f1-b1fe-\
17330	4b63798cd389"],
17331
17332	Cell[BoxData[
17333	InterpretationBox[
17334	RowBox[{
17335	"82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
17336	-> starting the computation: \"\>", "\[InvisibleSpace]",
17337	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
17338	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
17339	"\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
17340	SequenceForm[
17341	82, " possible non-zero vertices have been found -> starting the \
17342	computation: ",
17343	Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
17344	Editable->False]], "Print",
17345	CellChangeTimes->{3.714027854894479*^9,
17346	3.729583854828854*^9},ExpressionUUID->"0cd21141-e215-409a-b82f-\
17347	252bfc7becda"],
17348
17349	Cell[BoxData[
17350	InterpretationBox[
17351	RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
17352	SequenceForm[82, " vertices obtained."],
17353	Editable->False]], "Print",
17354	CellChangeTimes->{3.714027854894479*^9,
17355	3.729583920283288*^9},ExpressionUUID->"9aafa6e2-e421-4452-a3f5-\
17356	63a8005b3aed"],
17357
17358	Cell[BoxData[
17359	InterpretationBox[
17360	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
17361	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
17362	"\[InvisibleSpace]",
17363	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
17364	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
17365	"\[InvisibleSpace]", "82"}],
17366	SequenceForm[
17367	"Flavor expansion of the vertices distributed over ", 2, " cores: ",
17368	Dynamic[FeynRules`FR$Count1], " / ", 82],
17369	Editable->False]], "Print",
17370	CellChangeTimes->{3.714027854894479*^9,
17371	3.729583939524642*^9},ExpressionUUID->"c63a281d-58e9-443e-a4b3-\
17372	4d11d1c9c0d0"],
17373
17374	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
17375	CellChangeTimes->{3.714027854894479*^9,
17376	3.729583979305943*^9},ExpressionUUID->"6d1f2c8e-5f9f-4403-b5e2-\
17377	0957582bdded"],
17378
17379	Cell[BoxData[
17380	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
17381	decays: \"\>",
17382	StripOnInput->False,
17383	LineColor->RGBColor[1, 0.5, 0],
17384	FrontFaceColor->RGBColor[1, 0.5, 0],
17385	BackFaceColor->RGBColor[1, 0.5, 0],
17386	GraphicsColor->RGBColor[1, 0.5, 0],
17387	FontWeight->Bold,
17388	FontColor->RGBColor[1, 0.5, 0]]], "Print",
17389	CellChangeTimes->{3.714027854894479*^9,
17390	3.7295839793832083`*^9},ExpressionUUID->"b2508315-1672-493a-933c-\
17391	a173049e8818"],
17392
17393	Cell[BoxData[
17394	InterpretationBox[
17395	RowBox[{
17396	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
17397	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
17398	"\[InvisibleSpace]", "54"}],
17399	SequenceForm[
17400	Dynamic[PRIVATE`mycounter], " / ", 54],
17401	Editable->False]], "Print",
17402	CellChangeTimes->{3.714027854894479*^9,
17403	3.7295839794187393`*^9},ExpressionUUID->"b64756d8-cd1c-46b8-98a3-\
17404	e084e896e808"],
17405
17406	Cell[BoxData[
17407	InterpretationBox[
17408	RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
17409	"651.188`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
17410	SequenceForm["Squared matrix elent compute in ", 651.188, " seconds."],
17411	Editable->False]], "Print",
17412	CellChangeTimes->{3.714027854894479*^9,
17413	3.729585294372829*^9},ExpressionUUID->"3c1fd219-40ef-4d97-8768-\
17414	0fc5401e4920"],
17415
17416	Cell[BoxData[
17417	InterpretationBox[
17418	RowBox[{
17419	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
17420	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
17421	"\[InvisibleSpace]", "61"}],
17422	SequenceForm[
17423	Dynamic[PRIVATE`mycounter], " / ", 61],
17424	Editable->False]], "Print",
17425	CellChangeTimes->{3.714027854894479*^9,
17426	3.729585294498909*^9},ExpressionUUID->"05ecc6b9-d890-4075-b4e7-\
17427	3da100868687"],
17428
17429	Cell[BoxData[
17430	InterpretationBox[
17431	RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "8.308`",
17432	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
17433	SequenceForm["Decay widths computed in ", 8.308, " seconds."],
17434	Editable->False]], "Print",
17435	CellChangeTimes->{3.714027854894479*^9,
17436	3.729585303439705*^9},ExpressionUUID->"d3885147-1a49-4add-8e80-\
17437	bef56a81ea7b"],
17438
17439	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
17440	CellChangeTimes->{3.714027854894479*^9,
17441	3.7295853034418497`*^9},ExpressionUUID->"1d1435d5-bd27-4981-8fbb-\
17442	156f55b2ca2e"],
17443
17444	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
17445	"Print",
17446	CellChangeTimes->{3.714027854894479*^9,
17447	3.729585306461948*^9},ExpressionUUID->"c529f57c-a13a-4b2f-ac23-\
17448	b71e4f0262f2"],
17449
17450	Cell[BoxData[
17451	InterpretationBox[
17452	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
17453	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
17454	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
17455	Editable->False]], "Print",
17456	CellChangeTimes->{3.714027854894479*^9,
17457	3.729585306875051*^9},ExpressionUUID->"8d23e792-d853-4a17-8cdd-\
17458	6a2b7b2dfa31"],
17459
17460	Cell[BoxData[
17461	InterpretationBox[
17462	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
17463	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
17464	ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
17465	"\[InvisibleSpace]", "396", "\[InvisibleSpace]", "\<\" .\"\>"}],
17466	SequenceForm[" - Optimizing: ",
17467	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 396, " ."],
17468	Editable->False]], "Print",
17469	CellChangeTimes->{3.714027854894479*^9,
17470	3.729585317979244*^9},ExpressionUUID->"729d3ed9-3176-4fa1-88d3-\
17471	af58398f2e02"],
17472
17473	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
17474	CellChangeTimes->{3.714027854894479*^9,
17475	3.7295853229081306`*^9},ExpressionUUID->"77a8998d-cf8d-4fcd-a281-\
17476	ff02eeeb9930"],
17477
17478	Cell[BoxData[
17479	StyleBox["\<\"Warning: Non positive interaction order QED.\\n \
17480	This might reduce the efficiency of certain matrix element generators.\\n \
17481	See logfile for more details.\"\>",
17482	StripOnInput->False,
17483	LineColor->RGBColor[1, 0, 0],
17484	FrontFaceColor->RGBColor[1, 0, 0],
17485	BackFaceColor->RGBColor[1, 0, 0],
17486	GraphicsColor->RGBColor[1, 0, 0],
17487	FontColor->RGBColor[1, 0, 0]]], "Print",
17488	CellChangeTimes->{3.714027854894479*^9,
17489	3.729585323430752*^9},ExpressionUUID->"4a26ee14-6997-4bb7-bae5-\
17490	e016bd0b10be"],
17491
17492	Cell[BoxData["\<\"Done!\"\>"], "Print",
17493	CellChangeTimes->{3.714027854894479*^9,
17494	3.729585325950304*^9},ExpressionUUID->"65a6f6f0-80e0-48af-a82e-\
17495	16f75f5ac7ca"]
17496	}, Open ]]
17497	}, Open ]]
17498	}, Closed]]
17499	}, Closed]],
17500
17501	Cell[CellGroupData[{
17502
17503	Cell[TextData[{
17504	"model ",
17505	Cell[BoxData[
17506	FormBox[
17507	SuperscriptBox[
17508	RowBox[{"U", "(", "3", ")"}], "5"], TraditionalForm]],ExpressionUUID->
17509	"f6e44d33-4022-4952-8d9c-917d47b13d3c"],
17510	" Mw scheme "
17511	}], "Section",
17512	CellChangeTimes->{{3.696681316130834^9, 3.696681320670103^9}, {
17513	3.6972641901616383`^9, 3.697264190714314^9}, {3.6977796250127287`*^9,
17514	3.697779628134873^9}, {3.7008119849361362`^9, 3.7008119864866343`*^9}, {
17515	3.713951624097616^9, 3.7139516319877872`^9}, {3.714027345519704*^9,
17516	3.7140273462258577`^9}, {3.714654128338853^9,
17517	3.7146541309109163`*^9}},ExpressionUUID->"2d9260f1-7479-4ba5-9d73-\
17518	4cb250643e6b"],
17519
17520	Cell[BoxData[{
17521	RowBox[{
17522	RowBox[{"Flavor", "=", "U35"}], ";"}], "\[IndentingNewLine]",
17523	RowBox[{
17524	RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
17525	CellChangeTimes->CompressedData["
17526	1:eJxTTMoPSmViYGAQAWIQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
17527	BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
17528	BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
17529	gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
17530	oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
17531	tK0F02JTi1+B6HeBs8E0AAPZvSY=
17532
17533	"],ExpressionUUID->"b66fa53c-daf2-4c11-9ea9-eb24ee0ee8a2"],
17534
17535	Cell[CellGroupData[{
17536
17537	Cell[BoxData[{
17538	RowBox[{
17539	RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}],
17540	";"}], "\[IndentingNewLine]",
17541	RowBox[{
17542	RowBox[{
17543	RowBox[{"$Assumptions", "=",
17544	RowBox[{
17545	RowBox[{
17546	RowBox[{
17547	RowBox[{"cth", "^", "2"}], "+",
17548	RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&",
17549	RowBox[{
17550	RowBox[{"vevhat", "^", "2"}], "\[Equal]",
17551	RowBox[{"1", "/",
17552	RowBox[{"(",
17553	RowBox[{
17554	RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}],
17555	RowBox[{"(*",
17556	RowBox[{
17557	"definition", " ", "useful", " ", "for", " ", "algebraic", " ",
17558	"simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
17559	CellChangeTimes->{
17560	3.696317675402779^9, {3.6965773165572453`^9, 3.696577319156142*^9},
17561	3.696580983074707^9, {3.6965948918072433`^9, 3.696594894707777*^9},
17562	3.6966709211488647`^9, {3.69667828323773^9, 3.696678323509939*^9}, {
17563	3.69667951035196^9, 3.6966795109895697`^9}, {3.696681436195228*^9,
17564	3.696681438987885^9}, {3.6972650726318893`^9, 3.697265101991671*^9},
17565	3.697287098417327^9, {3.6973604685824413`^9, 3.69736046890945*^9}, {
17566	3.697779635251266^9, 3.69777963758922^9}, {3.698645426547124*^9,
17567	3.698645426699171^9}, {3.699076691858276^9, 3.699076748603301*^9}, {
17568	3.6990805929555798`^9, 3.6990805933718987`^9}, {3.699103784843251*^9,
17569	3.699103787233872^9}, {3.699174414331218^9, 3.699174423137232*^9}, {
17570	3.700810602928831^9, 3.700810603791377^9}, 3.700811190650639*^9, {
17571	3.700811373469302^9, 3.70081137419092^9}, {3.700811543944695*^9,
17572	3.700811545171196^9}, {3.7008116427840242`^9, 3.7008116439630938`*^9}, {
17573	3.700811709403363^9, 3.700811710009871^9}, {3.700811988139593*^9,
17574	3.700811989085125^9}, {3.706958250209116^9, 3.706958253094596*^9}, {
17575	3.70719446793911^9, 3.7071944683318357`^9}, {3.707196963096757*^9,
17576	3.7071969641085587`^9}, {3.7073968274735537`^9, 3.707396828325622*^9}, {
17577	3.7074043139801292`^9, 3.707404317755911^9}, {3.7074053023188467`*^9,
17578	3.707405302915038^9}, {3.707730114023314^9, 3.707730124419199*^9}, {
17579	3.7077337383961143`^9, 3.707733741518713^9}, {3.713951635803303*^9,
17580	3.71395165206149^9}, {3.713951695549211^9, 3.713951695853513*^9}, {
17581	3.71395173874929^9, 3.7139517413107147`^9}, {3.713952603189982*^9,
17582	3.713952603424769*^9},
17583	3.7146541404705048`*^9},ExpressionUUID->"4abf663d-b373-4948-8887-\
17584	6ec30767134e"],
17585
17586	Cell[CellGroupData[{
17587
17588	Cell[BoxData["\<\"U(3)^5 symmetric framework selected\"\>"], "Print",
17589	CellChangeTimes->{3.728970294030416*^9,
17590	3.72958559978906*^9},ExpressionUUID->"c6705020-afb3-4dd1-bfbe-dba7d6fb10f5"],
17591
17592	Cell[BoxData[
17593	InterpretationBox[
17594	RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]",
17595	SubscriptBox["m", "W"], "\[InvisibleSpace]", "\<\", \"\>",
17596	"\[InvisibleSpace]",
17597	SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>",
17598	"\[InvisibleSpace]",
17599	SubscriptBox["G", "f"]}],
17600	SequenceForm["Input parameters: ",
17601	Subscript[FeynRules`m, FeynRules`W], ", ",
17602	Subscript[FeynRules`m, $CellContext`Z], ", ",
17603	Subscript[FeynRules`G, FeynRules`f]],
17604	Editable->False]], "Print",
17605	CellChangeTimes->{3.728970294030416*^9,
17606	3.729585599791258*^9},ExpressionUUID->"bedb4d7c-1bef-4d05-8075-\
17607	feac9cdae15e"],
17608
17609	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
17610	CellChangeTimes->{3.728970294030416*^9,
17611	3.729585599809162*^9},ExpressionUUID->"1cb1ef46-4e0c-46cb-b9bb-\
17612	b376f44ffffe"],
17613
17614	Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
17615	CellChangeTimes->{3.728970294030416*^9,
17616	3.729585599812353*^9},ExpressionUUID->"e5ee3e43-b50c-477e-99a2-\
17617	bbf9d618dbe0"],
17618
17619	Cell[BoxData[
17620	InterpretationBox[
17621	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
17622	SequenceForm["Model Version: ", "2.1"],
17623	Editable->False]], "Print",
17624	CellChangeTimes->{3.728970294030416*^9,
17625	3.729585599814722*^9},ExpressionUUID->"d0f7cc9f-1041-419a-a612-\
17626	3669f3ca3ef7"],
17627
17628	Cell[BoxData["\<\"Please cite\"\>"], "Print",
17629	CellChangeTimes->{3.728970294030416*^9,
17630	3.729585599816799*^9},ExpressionUUID->"3a6ef98c-d6bc-4e37-b45a-\
17631	d311fc82ac45"],
17632
17633	Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
17634	CellChangeTimes->{3.728970294030416*^9,
17635	3.729585599818851*^9},ExpressionUUID->"57bd99e3-edf5-4b87-b146-\
17636	6723f166d6ab"],
17637
17638	Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
17639	CellChangeTimes->{3.728970294030416*^9,
17640	3.7295855998209267`*^9},ExpressionUUID->"8b654083-6f2f-4e68-9ab4-\
17641	e30db00123b5"],
17642
17643	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
17644	"Print",
17645	CellChangeTimes->{3.728970294030416*^9,
17646	3.729585599823007*^9},ExpressionUUID->"a9f6bd15-1da7-4f71-8204-\
17647	9a81dcce4845"],
17648
17649	Cell[BoxData["\<\"\"\>"], "Print",
17650	CellChangeTimes->{3.728970294030416*^9,
17651	3.729585599824911*^9},ExpressionUUID->"33ffb23a-f3e5-429a-8ca2-\
17652	d665c31337f5"],
17653
17654	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
17655	CellChangeTimes->{3.728970294030416*^9,
17656	3.729585599826977*^9},ExpressionUUID->"1a03eaa9-bec4-452f-acaa-\
17657	460a124a68e1"],
17658
17659	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
17660	CellChangeTimes->{3.728970294030416*^9,
17661	3.729585599924045*^9},ExpressionUUID->"da24c10f-a287-48af-a37d-\
17662	6d828bc9b35a"],
17663
17664	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
17665	CellChangeTimes->{3.728970294030416*^9,
17666	3.729585599947631*^9},ExpressionUUID->"ffaf3889-a11f-49b3-ba66-\
17667	acb93543fd91"],
17668
17669	Cell[BoxData[
17670	InterpretationBox[
17671	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>",
17672	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
17673	SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
17674	Editable->False]], "Print",
17675	CellChangeTimes->{3.728970294030416*^9,
17676	3.729585600065608*^9},ExpressionUUID->"a511ea96-fa57-44c9-8bc4-\
17677	9a7b8e8bb510"]
17678	}, Open ]]
17679	}, Open ]],
17680
17681	Cell[BoxData[
17682	RowBox[{
17683	RowBox[{"(*", " ",
17684	RowBox[{
17685	"simplify", " ", "collecting", " ", "the", " ", "Wilson", " ",
17686	"coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
17687	RowBox[{
17688	RowBox[{"WCsimplify", "[", "x_", "]"}], ":=",
17689	RowBox[{"Collect", "[",
17690	RowBox[{
17691	RowBox[{"Expand", "[", "x", "]"}], ",",
17692	RowBox[{"Join", "[",
17693	RowBox[{"WC6", ",",
17694	RowBox[{"Conjugate", "/@", "WC6"}], ",",
17695	RowBox[{"{",
17696	RowBox[{
17697	"dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
17698	",", "dgw"}], "}"}]}], "]"}], ",",
17699	RowBox[{
17700	RowBox[{"FullSimplify", "[",
17701	RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\
17702
17703	CellChangeTimes->{{3.69727251229317^9, 3.697272539780883^9}, {
17704	3.6972725951948023`^9, 3.6972726157586107`^9}, {3.6973553500832977`*^9,
17705	3.697355359264447^9}, {3.697355426066744^9, 3.697355428425048*^9}, {
17706	3.697359800031402^9, 3.697359816794314^9}, {3.697361185105711*^9,
17707	3.697361198769485^9}, {3.697367251862154^9, 3.697367258246785*^9}, {
17708	3.697536724781671^9, 3.697536725470097^9}, {3.698645443776215*^9,
17709	3.6986454466349792`^9}, {3.6990803840045652`^9, 3.6990803931031227`*^9}, {
17710	3.707025063385503^9, 3.707025074535533^9}, {3.707026201080791*^9,
17711	3.707026206097932^9}, {3.707733746790945^9, 3.707733759745702*^9}, {
17712	3.711875906183223^9, 3.71187590676577^9}, {3.712555385621932*^9,
17713	3.712555393408392^9}, {3.714654165911644^9,
17714	3.714654193292074*^9}},ExpressionUUID->"d8121a6f-3cad-4d93-b5bd-\
17715	184be025ceb2"],
17716
17717	Cell[CellGroupData[{
17718
17719	Cell[TextData[{
17720	"Example - extraction of aTGC ",
17721	Cell[BoxData[
17722	FormBox[
17723	RowBox[{"(", " ",
17724	SuperscriptBox[
17725	SubscriptBox["g", "1"], "V"]}], TraditionalForm]],ExpressionUUID->
17726	"a16c3001-446d-4d73-ae1c-886ed6d3c852"],
17727	", ",
17728	Cell[BoxData[
17729	FormBox[
17730	SubscriptBox["\[Kappa]", "V"], TraditionalForm]],ExpressionUUID->
17731	"6b910a5a-febd-40ea-a409-a1f1f249a4df"],
17732	" )"
17733	}], "Subsection",
17734	CellChangeTimes->{{3.697366338889289^9, 3.697366341458261^9}, {
17735	3.714474539132268^9, 3.71447454549291^9}, {3.7144748778381844`*^9,
17736	3.714474881170227^9}, {3.7146522087316093`^9,
17737	3.7146522332696543`*^9}},ExpressionUUID->"da7aca8f-5ff2-4ac5-b4ac-\
17738	426f93a9e269"],
17739
17740	Cell[BoxData[
17741	RowBox[{
17742	RowBox[{"L1", " ", "=", " ",
17743	RowBox[{
17744	RowBox[{
17745	RowBox[{"LGauge", "+", "L6cl4"}], "/.",
17746	RowBox[{
17747	RowBox[{"cHWtil", "\|", "cHBtil", "\|", "cHWBtil"}], "\[Rule]", "0"}]}], "//",
17748	"OptimizeIndex"}]}], ";"}]], "Input",
17749	CellChangeTimes->{{3.714474548996854^9, 3.714474607567834^9}, {
17750	3.714474713747148^9, 3.7144747165634403`^9}, {3.714474885107195*^9,
17751	3.714474885248617^9}, {3.7144750445122128`^9, 3.714475058126898*^9}, {
17752	3.7144751339781103`*^9,
17753	3.714475137908736*^9}},ExpressionUUID->"d38da7be-c5b0-4382-9aad-\
17754	a314c37d4d90"],
17755
17756	Cell[CellGroupData[{
17757
17758	Cell[BoxData[
17759	RowBox[{
17760	RowBox[{"zww", "=",
17761	RowBox[{"GetInteractionTerms", "[",
17762	RowBox[{"L1", ",",
17763	RowBox[{"SelectParticles", "\[Rule]",
17764	RowBox[{"{",
17765	RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}],
17766	";"}]], "Input",
17767	CellChangeTimes->{{3.697355190045856*^9,
17768	3.697355204589117*^9}},ExpressionUUID->"2cb79f04-a2d5-4b48-be08-\
17769	ad29bac9444a"],
17770
17771	Cell[CellGroupData[{
17772
17773	Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
17774	eigenstates should be selected!\"\>"], "Print",
17775	CellChangeTimes->{3.714652273867529^9, 3.714654388395363^9,
17776	3.729585688917512*^9},ExpressionUUID->"37ed4f39-6df0-4b02-b19c-\
17777	e7822342c8a3"],
17778
17779	Cell[BoxData[
17780	InterpretationBox[
17781	RowBox[{"\<\"Neglecting all terms with more than \"\>",
17782	"\[InvisibleSpace]", "\<\"3\"\>",
17783	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
17784	SequenceForm["Neglecting all terms with more than ", "3", " particles."],
17785	Editable->False]], "Print",
17786	CellChangeTimes->{3.714652273867529^9, 3.714654388395363^9,
17787	3.7295856889896183`*^9},ExpressionUUID->"56245639-6605-43ff-9a04-\
17788	af8496eaa3d2"],
17789
17790	Cell[BoxData[
17791	InterpretationBox[
17792	RowBox[{"\<\"Neglecting all terms with less than \"\>",
17793	"\[InvisibleSpace]", "\<\"3\"\>",
17794	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
17795	SequenceForm["Neglecting all terms with less than ", "3", " particles."],
17796	Editable->False]], "Print",
17797	CellChangeTimes->{3.714652273867529^9, 3.714654388395363^9,
17798	3.72958568903086*^9},ExpressionUUID->"0562b896-63a1-430e-be54-c7119e6f2d50"]
17799	}, Open ]]
17800	}, Open ]],
17801
17802	Cell[CellGroupData[{
17803
17804	Cell[BoxData[
17805	RowBox[{
17806	RowBox[{"(", " ", "g1z", " ", ")"}], "\[IndentingNewLine]",
17807	RowBox[{
17808	RowBox[{
17809	RowBox[{"zww", "/.",
17810	RowBox[{
17811	RowBox[{"del", "[",
17812	RowBox[{
17813	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
17814	"Simplify"}], "\[IndentingNewLine]",
17815	RowBox[{
17816	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
17817	"\[IndentingNewLine]",
17818	RowBox[{
17819	RowBox[{"Simplify", "[",
17820	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
17821	RowBox[{"WCsimplify", "[",
17822	FractionBox["%",
17823	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
17824	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
17825	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
17826	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
17827	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
17828	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
17829	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
17830	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
17831	3.697366570896222^9, 3.697366573045783^9}, {3.697371239528208*^9,
17832	3.697371253607347^9}, {3.697779754300777^9, 3.6977797626704483`*^9}, {
17833	3.70081318564122^9, 3.700813191980774^9}, {3.700813246330406*^9,
17834	3.700813285428583^9}, {3.7077337321979713`^9, 3.707733734591858*^9}, {
17835	3.714474619041273^9, 3.7144746223430567`^9}, {3.714474993096156*^9,
17836	3.7144750018697557`^9}, 3.7146522446651382`^9, {3.7146522849326553`*^9,
17837	3.7146523139288273`^9}, {3.714652367401491^9, 3.714652379324503*^9}, {
17838	3.714652412441049^9, 3.714652464776884^9}, 3.714652626095168*^9, {
17839	3.714654309590547*^9,
17840	3.714654313029612*^9}},ExpressionUUID->"8cdf3438-31d9-403c-8d4c-\
17841	511890c5b98f"],
17842
17843	Cell[BoxData[
17844	RowBox[{"-",
17845	FractionBox[
17846	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17847	RowBox[{"(",
17848	RowBox[{
17849	RowBox[{
17850	SuperscriptBox["\[CapitalLambda]", "2"], " ",
17851	RowBox[{"(",
17852	RowBox[{
17853	RowBox[{"-", "2"}], "-",
17854	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
17855	RowBox[{"2", " ",
17856	RowBox[{"(",
17857	RowBox[{"1", "+", "dgw"}], ")"}], " ",
17858	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
17859	RowBox[{
17860	SubscriptBox["c", "HWB"], " ",
17861	SubscriptBox["c", "\[Theta]"], " ",
17862	SubscriptBox["s", "\[Theta]"], " ",
17863	SuperscriptBox[
17864	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
17865	RowBox[{"(",
17866	RowBox[{
17867	RowBox[{
17868	RowBox[{
17869	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
17870	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
17871	RowBox[{"(",
17872	RowBox[{
17873	RowBox[{
17874	SubscriptBox["W", "mu$2"], " ",
17875	SubscriptBox["Z", "mu$1"]}], "-",
17876	RowBox[{
17877	SubscriptBox["W", "mu$1"], " ",
17878	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
17879	RowBox[{
17880	RowBox[{
17881	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
17882	SubscriptBox["W", "mu$1"], "]"}], " ",
17883	RowBox[{"(",
17884	RowBox[{
17885	RowBox[{
17886	RowBox[{"-",
17887	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
17888	SubscriptBox["Z", "mu$1"]}], "+",
17889	RowBox[{
17890	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
17891	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
17892	RowBox[{"2", " ",
17893	SubscriptBox["c", "\[Theta]"], " ",
17894	SuperscriptBox["\[CapitalLambda]", "2"], " ",
17895	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
17896	CellChangeTimes->{
17897	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
17898	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
17899	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
17900	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
17901	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
17902	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
17903	3.714654392673708*^9,
17904	3.729585689359872*^9},ExpressionUUID->"61720b74-9f1b-4f77-aa6b-\
17905	6609fe09aa3b"],
17906
17907	Cell[BoxData[
17908	RowBox[{"-",
17909	FractionBox[
17910	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17911	RowBox[{"(",
17912	RowBox[{
17913	RowBox[{"-", "1"}], "+",
17914	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
17915	RowBox[{"(",
17916	RowBox[{
17917	RowBox[{"4", " ",
17918	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
17919	RowBox[{
17920	RowBox[{"(",
17921	RowBox[{
17922	SubscriptBox["c", "HD"], "-",
17923	RowBox[{"4", " ",
17924	TemplateBox[{"c","Hl","3"},
17925	"Subsuperscript"]}], "+",
17926	RowBox[{"2", " ",
17927	TemplateBox[{"c","ll","Prime"},
17928	"Subsuperscript"]}], "+",
17929	RowBox[{"8", " ",
17930	SubscriptBox["c", "HWB"], " ",
17931	SubscriptBox["c", "\[Theta]"], " ",
17932	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
17933	SuperscriptBox[
17934	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
17935	RowBox[{"(",
17936	RowBox[{
17937	RowBox[{
17938	RowBox[{
17939	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
17940	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
17941	RowBox[{"(",
17942	RowBox[{
17943	RowBox[{
17944	SubscriptBox["W", "mu$2"], " ",
17945	SubscriptBox["Z", "mu$1"]}], "-",
17946	RowBox[{
17947	SubscriptBox["W", "mu$1"], " ",
17948	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
17949	RowBox[{
17950	RowBox[{
17951	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
17952	SubscriptBox["W", "mu$1"], "]"}], " ",
17953	RowBox[{"(",
17954	RowBox[{
17955	RowBox[{
17956	RowBox[{"-",
17957	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
17958	SubscriptBox["Z", "mu$1"]}], "+",
17959	RowBox[{
17960	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
17961	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
17962	RowBox[{"4", " ",
17963	SubscriptBox["c", "\[Theta]"], " ",
17964	SuperscriptBox["\[CapitalLambda]", "2"], " ",
17965	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
17966	CellChangeTimes->{
17967	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
17968	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
17969	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
17970	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
17971	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
17972	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
17973	3.714654392673708*^9,
17974	3.72958568968797*^9},ExpressionUUID->"67b47466-0e43-4768-855c-\
17975	f0e6ce5983df"],
17976
17977	Cell[BoxData[
17978	RowBox[{"-",
17979	FractionBox[
17980	RowBox[{"\[ImaginaryI]", " ", "e", " ",
17981	RowBox[{"(",
17982	RowBox[{
17983	RowBox[{"-", "1"}], "+",
17984	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
17985	RowBox[{"(",
17986	RowBox[{"1", "+",
17987	FractionBox[
17988	RowBox[{
17989	SubscriptBox["c", "HD"], " ",
17990	SuperscriptBox[
17991	OverscriptBox["v", "^"], "2"]}],
17992	RowBox[{"4", " ",
17993	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
17994	FractionBox[
17995	RowBox[{
17996	TemplateBox[{"c","Hl","3"},
17997	"Subsuperscript"], " ",
17998	SuperscriptBox[
17999	OverscriptBox["v", "^"], "2"]}],
18000	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
18001	FractionBox[
18002	RowBox[{
18003	TemplateBox[{"c","ll","Prime"},
18004	"Subsuperscript"], " ",
18005	SuperscriptBox[
18006	OverscriptBox["v", "^"], "2"]}],
18007	RowBox[{"2", " ",
18008	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
18009	FractionBox[
18010	RowBox[{"2", " ",
18011	SubscriptBox["c", "HWB"], " ",
18012	SubscriptBox["c", "\[Theta]"], " ",
18013	SubscriptBox["s", "\[Theta]"], " ",
18014	SuperscriptBox[
18015	OverscriptBox["v", "^"], "2"]}],
18016	SuperscriptBox["\[CapitalLambda]", "2"]]}], ")"}], " ",
18017	RowBox[{"(",
18018	RowBox[{
18019	RowBox[{
18020	RowBox[{
18021	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18022	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
18023	RowBox[{"(",
18024	RowBox[{
18025	RowBox[{
18026	SubscriptBox["W", "mu$2"], " ",
18027	SubscriptBox["Z", "mu$1"]}], "-",
18028	RowBox[{
18029	SubscriptBox["W", "mu$1"], " ",
18030	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
18031	RowBox[{
18032	RowBox[{
18033	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18034	SubscriptBox["W", "mu$1"], "]"}], " ",
18035	RowBox[{"(",
18036	RowBox[{
18037	RowBox[{
18038	RowBox[{"-",
18039	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
18040	SubscriptBox["Z", "mu$1"]}], "+",
18041	RowBox[{
18042	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
18043	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
18044	RowBox[{
18045	SubscriptBox["c", "\[Theta]"], " ",
18046	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
18047	CellChangeTimes->{
18048	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
18049	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
18050	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
18051	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
18052	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
18053	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
18054	3.714654392673708*^9,
18055	3.7295856897738247`*^9},ExpressionUUID->"a4f1b857-58dc-4347-bb91-\
18056	3b4c1a2b92ae"]
18057	}, Open ]],
18058
18059	Cell[CellGroupData[{
18060
18061	Cell[BoxData[
18062	RowBox[{
18063	RowBox[{"(", " ", "\[Kappa]z", " ", ")"}], "\[IndentingNewLine]",
18064	RowBox[{
18065	RowBox[{
18066	RowBox[{"zww", "/.",
18067	RowBox[{
18068	RowBox[{
18069	RowBox[{"del", "[",
18070	RowBox[{
18071	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
18072	RowBox[{"del", "[",
18073	RowBox[{
18074	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
18075	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
18076	RowBox[{
18077	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
18078	"\[IndentingNewLine]",
18079	RowBox[{
18080	RowBox[{"Simplify", "[",
18081	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
18082	RowBox[{"WCsimplify", "[",
18083	FractionBox["%",
18084	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
18085	CellChangeTimes->{{3.714652472649456^9, 3.714652608904799^9}, {
18086	3.7146543956773233`*^9,
18087	3.714654397434864*^9}},ExpressionUUID->"d92b2f3c-8fe7-4b17-82db-\
18088	57bc6f21d612"],
18089
18090	Cell[BoxData[
18091	FractionBox[
18092	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18093	RowBox[{"(",
18094	RowBox[{
18095	RowBox[{
18096	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18097	RowBox[{"(",
18098	RowBox[{
18099	RowBox[{"-", "2"}], "-",
18100	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
18101	RowBox[{"2", " ",
18102	RowBox[{"(",
18103	RowBox[{"1", "+", "dgw"}], ")"}], " ",
18104	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
18105	RowBox[{
18106	SubscriptBox["c", "HWB"], " ",
18107	SubscriptBox["c", "\[Theta]"], " ",
18108	SubscriptBox["s", "\[Theta]"], " ",
18109	SuperscriptBox[
18110	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
18111	RowBox[{
18112	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18113	SubscriptBox["Z", "mu$1"], "]"}], " ",
18114	RowBox[{"(",
18115	RowBox[{
18116	RowBox[{
18117	SubscriptBox["W", "mu$2"], " ",
18118	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
18119	RowBox[{
18120	SubscriptBox["W", "mu$1"], " ",
18121	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18122	RowBox[{"2", " ",
18123	SubscriptBox["c", "\[Theta]"], " ",
18124	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18125	SubscriptBox["s", "\[Theta]"]}]]], "Output",
18126	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
18127	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
18128	3.714652609565043^9}, 3.714654398253759^9,
18129	3.729585689918244*^9},ExpressionUUID->"e9e5386c-f574-43ad-a661-\
18130	347ff2f8599c"],
18131
18132	Cell[BoxData[
18133	FractionBox[
18134	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18135	RowBox[{"(",
18136	RowBox[{
18137	RowBox[{"4", " ",
18138	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18139	RowBox[{"(",
18140	RowBox[{
18141	RowBox[{"-", "1"}], "+",
18142	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+",
18143	RowBox[{
18144	RowBox[{"(",
18145	RowBox[{
18146	RowBox[{"-",
18147	SubscriptBox["c", "HD"]}], "+",
18148	RowBox[{"4", " ",
18149	TemplateBox[{"c","Hl","3"},
18150	"Subsuperscript"]}], "-",
18151	RowBox[{"2", " ",
18152	TemplateBox[{"c","ll","Prime"},
18153	"Subsuperscript"]}], "-",
18154	RowBox[{"4", " ",
18155	SubscriptBox["c", "HWB"], " ",
18156	SubscriptBox["c", "\[Theta]"], " ",
18157	SubscriptBox["s", "\[Theta]"]}], "+",
18158	RowBox[{
18159	RowBox[{"(",
18160	RowBox[{
18161	SubscriptBox["c", "HD"], "-",
18162	RowBox[{"4", " ",
18163	TemplateBox[{"c","Hl","3"},
18164	"Subsuperscript"]}], "+",
18165	RowBox[{"2", " ",
18166	TemplateBox[{"c","ll","Prime"},
18167	"Subsuperscript"]}]}], ")"}], " ",
18168	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
18169	RowBox[{"8", " ",
18170	SubscriptBox["c", "HWB"], " ",
18171	SubscriptBox["c", "\[Theta]"], " ",
18172	SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ",
18173	SuperscriptBox[
18174	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
18175	RowBox[{
18176	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18177	SubscriptBox["Z", "mu$1"], "]"}], " ",
18178	RowBox[{"(",
18179	RowBox[{
18180	RowBox[{
18181	SubscriptBox["W", "mu$2"], " ",
18182	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
18183	RowBox[{
18184	SubscriptBox["W", "mu$1"], " ",
18185	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18186	RowBox[{"4", " ",
18187	SubscriptBox["c", "\[Theta]"], " ",
18188	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18189	SubscriptBox["s", "\[Theta]"]}]]], "Output",
18190	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
18191	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
18192	3.714652609565043^9}, 3.714654398253759^9,
18193	3.729585690127036*^9},ExpressionUUID->"833f53da-c00f-4ca7-b2ef-\
18194	85ed4adbaa95"],
18195
18196	Cell[BoxData[
18197	FractionBox[
18198	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18199	RowBox[{"(",
18200	RowBox[{
18201	RowBox[{"-", "1"}], "+",
18202	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18203	RowBox[{"(",
18204	RowBox[{"1", "+",
18205	FractionBox[
18206	RowBox[{
18207	SubscriptBox["c", "HD"], " ",
18208	SuperscriptBox[
18209	OverscriptBox["v", "^"], "2"]}],
18210	RowBox[{"4", " ",
18211	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
18212	FractionBox[
18213	RowBox[{
18214	TemplateBox[{"c","Hl","3"},
18215	"Subsuperscript"], " ",
18216	SuperscriptBox[
18217	OverscriptBox["v", "^"], "2"]}],
18218	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
18219	FractionBox[
18220	RowBox[{
18221	TemplateBox[{"c","ll","Prime"},
18222	"Subsuperscript"], " ",
18223	SuperscriptBox[
18224	OverscriptBox["v", "^"], "2"]}],
18225	RowBox[{"2", " ",
18226	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
18227	FractionBox[
18228	RowBox[{
18229	SubscriptBox["c", "HWB"], " ",
18230	SubscriptBox["c", "\[Theta]"], " ",
18231	SubscriptBox["s", "\[Theta]"], " ",
18232	RowBox[{"(",
18233	RowBox[{
18234	RowBox[{"-", "1"}], "+",
18235	RowBox[{"2", " ",
18236	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
18237	SuperscriptBox[
18238	OverscriptBox["v", "^"], "2"]}],
18239	RowBox[{
18240	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18241	RowBox[{"(",
18242	RowBox[{
18243	RowBox[{"-", "1"}], "+",
18244	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}]]}], ")"}], " ",
18245	RowBox[{
18246	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18247	SubscriptBox["Z", "mu$1"], "]"}], " ",
18248	RowBox[{"(",
18249	RowBox[{
18250	RowBox[{
18251	SubscriptBox["W", "mu$2"], " ",
18252	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
18253	RowBox[{
18254	SubscriptBox["W", "mu$1"], " ",
18255	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18256	RowBox[{
18257	SubscriptBox["c", "\[Theta]"], " ",
18258	SubscriptBox["s", "\[Theta]"]}]]], "Output",
18259	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
18260	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
18261	3.714652609565043^9}, 3.714654398253759^9,
18262	3.729585690184745*^9},ExpressionUUID->"bbd4eadb-288f-485c-8b5b-\
18263	57584242389e"]
18264	}, Open ]],
18265
18266	Cell[BoxData[""], "Input",
18267	CellChangeTimes->{3.714652368810739*^9,
18268	3.7146524695105267`*^9},ExpressionUUID->"1acac1b7-3bb3-4160-84fb-\
18269	106a33151bc4"],
18270
18271	Cell[BoxData[
18272	RowBox[{
18273	RowBox[{"aww", "=",
18274	RowBox[{"GetInteractionTerms", "[",
18275	RowBox[{"L1", ",",
18276	RowBox[{"SelectParticles", "\[Rule]",
18277	RowBox[{"{",
18278	RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}],
18279	";"}]], "Input",
18280	CellChangeTimes->{{3.697355190045856^9, 3.697355204589117^9}, {
18281	3.697369511884927*^9,
18282	3.697369515354232*^9}},ExpressionUUID->"1c853cd4-ff9d-4d3a-aad1-\
18283	3726a15729c7"],
18284
18285	Cell[CellGroupData[{
18286
18287	Cell[BoxData[
18288	RowBox[{
18289	RowBox[{"(", "g1\[Gamma]", ")"}], "\[IndentingNewLine]",
18290	RowBox[{
18291	RowBox[{
18292	RowBox[{"aww", "/.",
18293	RowBox[{
18294	RowBox[{"del", "[",
18295	RowBox[{
18296	RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
18297	"Simplify"}], "\[IndentingNewLine]",
18298	RowBox[{
18299	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
18300	"\[IndentingNewLine]",
18301	RowBox[{
18302	RowBox[{"Simplify", "[",
18303	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
18304	RowBox[{"WCsimplify", "[",
18305	FractionBox["%",
18306	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
18307	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
18308	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
18309	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
18310	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
18311	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
18312	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
18313	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
18314	3.697366570896222^9, 3.697366573045783^9}, {3.697369517344802*^9,
18315	3.697369545423195^9}, {3.6973696026572323`^9, 3.697369618340808*^9},
18316	3.6974392939947577`^9, {3.697779796502404^9, 3.6977798017864113`*^9}, {
18317	3.700813620506486^9, 3.700813621426474^9}, {3.714652643567873*^9,
18318	3.714652669421071^9}, {3.714654403671623^9,
18319	3.714654416461287*^9}},ExpressionUUID->"741599c4-7b04-4558-b0a3-\
18320	301129b4eb83"],
18321
18322	Cell[BoxData[
18323	FractionBox[
18324	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18325	RowBox[{"(",
18326	RowBox[{
18327	RowBox[{"dsth2", " ",
18328	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
18329	RowBox[{
18330	SubscriptBox["s", "\[Theta]"], " ",
18331	RowBox[{"(",
18332	RowBox[{
18333	RowBox[{"2", " ",
18334	RowBox[{"(",
18335	RowBox[{"1", "+", "dgw"}], ")"}], " ",
18336	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18337	SubscriptBox["s", "\[Theta]"]}], "-",
18338	RowBox[{
18339	SubscriptBox["c", "HWB"], " ",
18340	SubscriptBox["c", "\[Theta]"], " ",
18341	SuperscriptBox[
18342	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
18343	SubscriptBox["A", "mu$1"], " ",
18344	RowBox[{"(",
18345	RowBox[{
18346	RowBox[{
18347	RowBox[{
18348	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18349	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
18350	SubscriptBox["W", "mu$2"]}], "-",
18351	RowBox[{
18352	RowBox[{
18353	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18354	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
18355	SubscriptBox["W", "mu$2"]}], "+",
18356	RowBox[{
18357	RowBox[{"(",
18358	RowBox[{
18359	RowBox[{"-",
18360	RowBox[{
18361	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18362	SubscriptBox["W", "mu$1"], "]"}]}], "+",
18363	RowBox[{
18364	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18365	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
18366	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18367	RowBox[{"2", " ",
18368	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18369	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
18370	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
18371	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
18372	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
18373	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
18374	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
18375	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
18376	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
18377	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
18378	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
18379	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
18380	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
18381	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
18382	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
18383	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
18384	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
18385	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
18386	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
18387	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
18388	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
18389	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
18390	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9}, {
18391	3.7146544056319647`^9, 3.714654417046577^9},
18392	3.7295856946067133`*^9},ExpressionUUID->"c2248327-b512-4dd3-a344-\
18393	9c8116778bb1"],
18394
18395	Cell[BoxData[
18396	FractionBox[
18397	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18398	RowBox[{"(",
18399	RowBox[{
18400	RowBox[{"4", " ",
18401	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18402	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
18403	RowBox[{
18404	RowBox[{"(",
18405	RowBox[{
18406	RowBox[{"-",
18407	SubscriptBox["c", "HD"]}], "-",
18408	RowBox[{"8", " ",
18409	SubscriptBox["c", "HWB"], " ",
18410	SubscriptBox["c", "\[Theta]"], " ",
18411	SubscriptBox["s", "\[Theta]"]}], "+",
18412	RowBox[{
18413	RowBox[{"(",
18414	RowBox[{
18415	SubscriptBox["c", "HD"], "-",
18416	RowBox[{"4", " ",
18417	TemplateBox[{"c","Hl","3"},
18418	"Subsuperscript"]}], "+",
18419	RowBox[{"2", " ",
18420	TemplateBox[{"c","ll","Prime"},
18421	"Subsuperscript"]}]}], ")"}], " ",
18422	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
18423	RowBox[{"8", " ",
18424	SubscriptBox["c", "HWB"], " ",
18425	SubscriptBox["c", "\[Theta]"], " ",
18426	SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ",
18427	SuperscriptBox[
18428	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
18429	SubscriptBox["A", "mu$1"], " ",
18430	RowBox[{"(",
18431	RowBox[{
18432	RowBox[{
18433	RowBox[{
18434	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18435	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
18436	SubscriptBox["W", "mu$2"]}], "-",
18437	RowBox[{
18438	RowBox[{
18439	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18440	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
18441	SubscriptBox["W", "mu$2"]}], "+",
18442	RowBox[{
18443	RowBox[{"(",
18444	RowBox[{
18445	RowBox[{"-",
18446	RowBox[{
18447	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18448	SubscriptBox["W", "mu$1"], "]"}]}], "+",
18449	RowBox[{
18450	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18451	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
18452	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18453	RowBox[{"4", " ",
18454	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18455	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
18456	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
18457	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
18458	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
18459	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
18460	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
18461	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
18462	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
18463	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
18464	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
18465	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
18466	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
18467	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
18468	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
18469	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
18470	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
18471	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
18472	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
18473	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
18474	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
18475	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
18476	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9}, {
18477	3.7146544056319647`^9, 3.714654417046577^9},
18478	3.7295856950104103`*^9},ExpressionUUID->"7f59d699-8db2-48a4-a9ae-\
18479	6ae48d87921e"],
18480
18481	Cell[BoxData[
18482	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18483	RowBox[{"(",
18484	RowBox[{"1", "-",
18485	FractionBox[
18486	RowBox[{
18487	TemplateBox[{"c","Hl","3"},
18488	"Subsuperscript"], " ",
18489	SuperscriptBox[
18490	OverscriptBox["v", "^"], "2"]}],
18491	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
18492	FractionBox[
18493	RowBox[{
18494	TemplateBox[{"c","ll","Prime"},
18495	"Subsuperscript"], " ",
18496	SuperscriptBox[
18497	OverscriptBox["v", "^"], "2"]}],
18498	RowBox[{"2", " ",
18499	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
18500	FractionBox[
18501	RowBox[{
18502	SubscriptBox["c", "HD"], " ",
18503	RowBox[{"(",
18504	RowBox[{
18505	RowBox[{"-", "1"}], "+",
18506	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18507	SuperscriptBox[
18508	OverscriptBox["v", "^"], "2"]}],
18509	RowBox[{"4", " ",
18510	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18511	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
18512	FractionBox[
18513	RowBox[{"2", " ",
18514	SubscriptBox["c", "HWB"], " ",
18515	SubscriptBox["c", "\[Theta]"], " ",
18516	RowBox[{"(",
18517	RowBox[{
18518	RowBox[{"-", "1"}], "+",
18519	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18520	SuperscriptBox[
18521	OverscriptBox["v", "^"], "2"]}],
18522	RowBox[{
18523	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18524	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
18525	SubscriptBox["A", "mu$1"], " ",
18526	RowBox[{"(",
18527	RowBox[{
18528	RowBox[{
18529	RowBox[{
18530	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18531	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
18532	SubscriptBox["W", "mu$2"]}], "-",
18533	RowBox[{
18534	RowBox[{
18535	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18536	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
18537	SubscriptBox["W", "mu$2"]}], "+",
18538	RowBox[{
18539	RowBox[{"(",
18540	RowBox[{
18541	RowBox[{"-",
18542	RowBox[{
18543	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18544	SubscriptBox["W", "mu$1"], "]"}]}], "+",
18545	RowBox[{
18546	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18547	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
18548	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
18549	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
18550	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
18551	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
18552	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
18553	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
18554	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
18555	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
18556	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
18557	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
18558	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
18559	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
18560	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
18561	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
18562	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
18563	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
18564	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
18565	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
18566	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
18567	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
18568	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
18569	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9}, {
18570	3.7146544056319647`^9, 3.714654417046577^9},
18571	3.7295856950683193`*^9},ExpressionUUID->"90226dca-91a1-4958-9353-\
18572	4498deb9a429"]
18573	}, Open ]],
18574
18575	Cell[CellGroupData[{
18576
18577	Cell[BoxData[
18578	RowBox[{
18579	RowBox[{"(", "\[Kappa]\[Gamma]", ")"}], "\[IndentingNewLine]",
18580	RowBox[{
18581	RowBox[{
18582	RowBox[{"aww", "/.",
18583	RowBox[{
18584	RowBox[{
18585	RowBox[{"del", "[",
18586	RowBox[{
18587	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
18588	RowBox[{"del", "[",
18589	RowBox[{
18590	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
18591	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
18592	RowBox[{
18593	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
18594	"\[IndentingNewLine]",
18595	RowBox[{
18596	RowBox[{"Simplify", "[",
18597	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
18598	RowBox[{"WCsimplify", "[",
18599	FractionBox["%",
18600	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
18601	CellChangeTimes->{{3.714652676781377^9, 3.71465270986456^9}, {
18602	3.714654407380022*^9,
18603	3.714654408872603*^9}},ExpressionUUID->"5a704735-947a-4111-9360-\
18604	569a3ed54f31"],
18605
18606	Cell[BoxData[
18607	RowBox[{"-",
18608	FractionBox[
18609	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18610	RowBox[{"(",
18611	RowBox[{
18612	RowBox[{"dsth2", " ",
18613	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
18614	RowBox[{
18615	SubscriptBox["s", "\[Theta]"], " ",
18616	RowBox[{"(",
18617	RowBox[{
18618	RowBox[{"2", " ",
18619	RowBox[{"(",
18620	RowBox[{"1", "+", "dgw"}], ")"}], " ",
18621	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18622	SubscriptBox["s", "\[Theta]"]}], "+",
18623	RowBox[{
18624	SubscriptBox["c", "HWB"], " ",
18625	SubscriptBox["c", "\[Theta]"], " ",
18626	SuperscriptBox[
18627	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
18628	RowBox[{
18629	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18630	SubscriptBox["A", "mu$1"], "]"}], " ",
18631	RowBox[{"(",
18632	RowBox[{
18633	RowBox[{
18634	SubscriptBox["W", "mu$2"], " ",
18635	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
18636	RowBox[{
18637	SubscriptBox["W", "mu$1"], " ",
18638	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18639	RowBox[{"2", " ",
18640	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18641	SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
18642	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
18643	3.714654409637148*^9,
18644	3.72958569522399*^9},ExpressionUUID->"865b92e0-edb6-4e31-a8e9-\
18645	13ea43b9b57a"],
18646
18647	Cell[BoxData[
18648	RowBox[{"-",
18649	FractionBox[
18650	RowBox[{"\[ImaginaryI]", " ", "e", " ",
18651	RowBox[{"(",
18652	RowBox[{
18653	RowBox[{"4", " ",
18654	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18655	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
18656	RowBox[{
18657	RowBox[{"(",
18658	RowBox[{
18659	RowBox[{"-",
18660	SubscriptBox["c", "HD"]}], "-",
18661	RowBox[{"4", " ",
18662	SubscriptBox["c", "HWB"], " ",
18663	SubscriptBox["c", "\[Theta]"], " ",
18664	SubscriptBox["s", "\[Theta]"]}], "+",
18665	RowBox[{
18666	RowBox[{"(",
18667	RowBox[{
18668	SubscriptBox["c", "HD"], "-",
18669	RowBox[{"4", " ",
18670	TemplateBox[{"c","Hl","3"},
18671	"Subsuperscript"]}], "+",
18672	RowBox[{"2", " ",
18673	TemplateBox[{"c","ll","Prime"},
18674	"Subsuperscript"]}]}], ")"}], " ",
18675	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
18676	RowBox[{"8", " ",
18677	SubscriptBox["c", "HWB"], " ",
18678	SubscriptBox["c", "\[Theta]"], " ",
18679	SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ",
18680	SuperscriptBox[
18681	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
18682	RowBox[{
18683	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18684	SubscriptBox["A", "mu$1"], "]"}], " ",
18685	RowBox[{"(",
18686	RowBox[{
18687	RowBox[{
18688	SubscriptBox["W", "mu$2"], " ",
18689	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
18690	RowBox[{
18691	SubscriptBox["W", "mu$1"], " ",
18692	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
18693	RowBox[{"4", " ",
18694	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18695	SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
18696	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
18697	3.714654409637148*^9,
18698	3.729585695422114*^9},ExpressionUUID->"f41d64e9-814a-4e2f-9d97-\
18699	38607bbfd593"],
18700
18701	Cell[BoxData[
18702	RowBox[{
18703	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
18704	RowBox[{"(",
18705	RowBox[{"1", "-",
18706	FractionBox[
18707	RowBox[{
18708	TemplateBox[{"c","Hl","3"},
18709	"Subsuperscript"], " ",
18710	SuperscriptBox[
18711	OverscriptBox["v", "^"], "2"]}],
18712	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
18713	FractionBox[
18714	RowBox[{
18715	TemplateBox[{"c","ll","Prime"},
18716	"Subsuperscript"], " ",
18717	SuperscriptBox[
18718	OverscriptBox["v", "^"], "2"]}],
18719	RowBox[{"2", " ",
18720	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
18721	FractionBox[
18722	RowBox[{
18723	SubscriptBox["c", "HD"], " ",
18724	RowBox[{"(",
18725	RowBox[{
18726	RowBox[{"-", "1"}], "+",
18727	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18728	SuperscriptBox[
18729	OverscriptBox["v", "^"], "2"]}],
18730	RowBox[{"4", " ",
18731	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18732	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
18733	FractionBox[
18734	RowBox[{
18735	SubscriptBox["c", "HWB"], " ",
18736	SubscriptBox["c", "\[Theta]"], " ",
18737	RowBox[{"(",
18738	RowBox[{
18739	RowBox[{"-", "1"}], "+",
18740	RowBox[{"2", " ",
18741	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
18742	SuperscriptBox[
18743	OverscriptBox["v", "^"], "2"]}],
18744	RowBox[{
18745	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18746	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
18747	RowBox[{
18748	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18749	SubscriptBox["A", "mu$1"], "]"}], " ",
18750	RowBox[{"(",
18751	RowBox[{
18752	RowBox[{
18753	SubscriptBox["W", "mu$2"], " ",
18754	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
18755	RowBox[{
18756	SubscriptBox["W", "mu$1"], " ",
18757	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
18758	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
18759	3.714654409637148*^9,
18760	3.72958569545287*^9},ExpressionUUID->"19aff24d-e1a1-4397-ad95-\
18761	def9af12ef2e"]
18762	}, Open ]]
18763	}, Closed]],
18764
18765	Cell[CellGroupData[{
18766
18767	Cell["Example : h Z Z coupling (CP even)", "Subsection",
18768	CellChangeTimes->{{3.714653069350562^9, 3.714653080585577^9}, {
18769	3.71465313260557^9, 3.714653135145647^9}}],
18770
18771	Cell[CellGroupData[{
18772
18773	Cell[BoxData[
18774	RowBox[{"hzz", "=",
18775	RowBox[{
18776	RowBox[{"GetInteractionTerms", "[",
18777	RowBox[{
18778	RowBox[{
18779	RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], "/.",
18780	RowBox[{
18781	RowBox[{"cHWtil", "\|", "cHBtil", "\|", "cHWBtil"}], "\[Rule]", "0"}]}],
18782	",",
18783	RowBox[{"SelectParticles", "\[Rule]",
18784	RowBox[{"{",
18785	RowBox[{"{",
18786	RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//",
18787	"Simplify"}]}]], "Input",
18788	CellChangeTimes->{{3.697540540429167^9, 3.697540577497007^9}, {
18789	3.697542681098937^9, 3.6975427025673847`^9}, {3.697781972728959*^9,
18790	3.697781973755425^9}, {3.714653122093409^9,
18791	3.714653151135909*^9}},ExpressionUUID->"c4dfb7cd-bc8c-4bd7-9073-\
18792	928d9428d08a"],
18793
18794	Cell[BoxData[
18795	FractionBox[
18796	RowBox[{"H", " ",
18797	OverscriptBox["v", "^"], " ",
18798	RowBox[{"(",
18799	RowBox[{
18800	RowBox[{
18801	RowBox[{"-", "32"}], " ",
18802	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
18803	RowBox[{"(",
18804	RowBox[{
18805	RowBox[{"-", "1"}], "+",
18806	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18807	RowBox[{"(",
18808	RowBox[{
18809	SubscriptBox["c", "HW"], "+",
18810	RowBox[{
18811	SubscriptBox["c", "HWB"], " ",
18812	SubscriptBox["c", "\[Theta]"], " ",
18813	SubscriptBox["s", "\[Theta]"]}], "+",
18814	RowBox[{
18815	RowBox[{"(",
18816	RowBox[{
18817	SubscriptBox["c", "HB"], "-",
18818	SubscriptBox["c", "HW"]}], ")"}], " ",
18819	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
18820	SuperscriptBox[
18821	RowBox[{
18822	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18823	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
18824	RowBox[{"32", " ",
18825	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
18826	RowBox[{"(",
18827	RowBox[{
18828	RowBox[{"-", "1"}], "+",
18829	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18830	RowBox[{"(",
18831	RowBox[{
18832	SubscriptBox["c", "HW"], "+",
18833	RowBox[{
18834	SubscriptBox["c", "HWB"], " ",
18835	SubscriptBox["c", "\[Theta]"], " ",
18836	SubscriptBox["s", "\[Theta]"]}], "+",
18837	RowBox[{
18838	RowBox[{"(",
18839	RowBox[{
18840	SubscriptBox["c", "HB"], "-",
18841	SubscriptBox["c", "HW"]}], ")"}], " ",
18842	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
18843	RowBox[{
18844	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18845	SubscriptBox["Z", "mu$1"], "]"}], " ",
18846	RowBox[{
18847	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
18848	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
18849	RowBox[{
18850	SuperscriptBox["e", "2"], " ",
18851	RowBox[{"(",
18852	RowBox[{
18853	RowBox[{"2", " ",
18854	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18855	RowBox[{"(",
18856	RowBox[{"2", "+",
18857	RowBox[{
18858	SqrtBox["2"], " ", "dGf"}], "+",
18859	RowBox[{"4", " ", "dgw"}], "+",
18860	RowBox[{"4", " ",
18861	RowBox[{"(",
18862	RowBox[{"dg1", "-", "dgw"}], ")"}], " ",
18863	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
18864	RowBox[{
18865	RowBox[{"(",
18866	RowBox[{
18867	RowBox[{"4", " ",
18868	SubscriptBox["c",
18869	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
18870	RowBox[{"3", " ",
18871	SubscriptBox["c", "HD"]}], "+",
18872	RowBox[{"8", " ",
18873	SubscriptBox["c", "HWB"], " ",
18874	SubscriptBox["c", "\[Theta]"], " ",
18875	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
18876	SuperscriptBox[
18877	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
18878	SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}],
18879	RowBox[{"16", " ",
18880	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
18881	SuperscriptBox["\[CapitalLambda]", "2"], " ",
18882	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
18883	CellChangeTimes->{3.714653202225688^9, 3.714654519287326^9,
18884	3.729585738417364*^9},ExpressionUUID->"92329e6c-0115-4967-bcda-\
18885	b9a502a8da3e"]
18886	}, Open ]],
18887
18888	Cell[CellGroupData[{
18889
18890	Cell[BoxData[
18891	RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
18892	CellChangeTimes->{{3.714653438713478*^9,
18893	3.7146534431183643`*^9}},ExpressionUUID->"57aef484-bcba-42a4-9443-\
18894	0a242a6dcd77"],
18895
18896	Cell[BoxData[
18897	FractionBox[
18898	RowBox[{
18899	SuperscriptBox["e", "2"], " ", "H", " ",
18900	OverscriptBox["v", "^"], " ",
18901	SubsuperscriptBox["Z", "mu$1", "2"]}],
18902	RowBox[{"4", " ",
18903	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
18904	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
18905	CellChangeTimes->{3.71465344371563^9, 3.714654519369021^9,
18906	3.7295857384836283`*^9},ExpressionUUID->"776446d5-a2ac-4d35-9015-\
18907	49d0c9536de9"]
18908	}, Open ]],
18909
18910	Cell[CellGroupData[{
18911
18912	Cell[BoxData[
18913	RowBox[{"Collect", "[",
18914	RowBox[{"hzz", ",", " ",
18915	RowBox[{"{",
18916	RowBox[{
18917	SuperscriptBox[
18918	RowBox[{"Z", "[", "_", "]"}], "2"], ",",
18919	RowBox[{"del", "[",
18920	RowBox[{
18921	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",",
18922	"WCsimplify"}], "]"}]], "Input",
18923	CellChangeTimes->{{3.6975405853373423`^9, 3.697540591707506^9}, {
18924	3.697541657728915^9, 3.697541658783434^9}, {3.697780136114642*^9,
18925	3.697780142223364^9}, {3.7146531763975058`^9, 3.714653240146103*^9}, {
18926	3.714653274464172^9, 3.7146533884198837`^9}, {3.714653429727*^9,
18927	3.7146534351677427`*^9}},ExpressionUUID->"c8f651ab-9215-440c-b819-\
18928	5c00288aceb5"],
18929
18930	Cell[BoxData[
18931	RowBox[{
18932	RowBox[{
18933	RowBox[{"(",
18934	RowBox[{
18935	RowBox[{"-",
18936	FractionBox[
18937	RowBox[{"2", " ",
18938	SubscriptBox["c", "HWB"], " ", "H", " ",
18939	SubscriptBox["s", "\[Theta]"], " ",
18940	RowBox[{"(",
18941	RowBox[{
18942	RowBox[{"-", "1"}], "+",
18943	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18944	OverscriptBox["v", "^"]}],
18945	RowBox[{
18946	SubscriptBox["c", "\[Theta]"], " ",
18947	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-",
18948	FractionBox[
18949	RowBox[{"2", " ",
18950	SubscriptBox["c", "HB"], " ", "H", " ",
18951	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
18952	RowBox[{"(",
18953	RowBox[{
18954	RowBox[{"-", "1"}], "+",
18955	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18956	OverscriptBox["v", "^"]}],
18957	RowBox[{
18958	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
18959	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
18960	FractionBox[
18961	RowBox[{"2", " ",
18962	SubscriptBox["c", "HW"], " ", "H", " ",
18963	SuperscriptBox[
18964	RowBox[{"(",
18965	RowBox[{
18966	RowBox[{"-", "1"}], "+",
18967	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
18968	OverscriptBox["v", "^"]}],
18969	RowBox[{
18970	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
18971	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
18972	SuperscriptBox[
18973	RowBox[{
18974	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
18975	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
18976	RowBox[{
18977	RowBox[{"(",
18978	RowBox[{
18979	FractionBox[
18980	RowBox[{"2", " ",
18981	SubscriptBox["c", "HWB"], " ", "H", " ",
18982	SubscriptBox["s", "\[Theta]"], " ",
18983	RowBox[{"(",
18984	RowBox[{
18985	RowBox[{"-", "1"}], "+",
18986	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18987	OverscriptBox["v", "^"]}],
18988	RowBox[{
18989	SubscriptBox["c", "\[Theta]"], " ",
18990	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
18991	FractionBox[
18992	RowBox[{"2", " ",
18993	SubscriptBox["c", "HB"], " ", "H", " ",
18994	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
18995	RowBox[{"(",
18996	RowBox[{
18997	RowBox[{"-", "1"}], "+",
18998	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
18999	OverscriptBox["v", "^"]}],
19000	RowBox[{
19001	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19002	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
19003	FractionBox[
19004	RowBox[{"2", " ",
19005	SubscriptBox["c", "HW"], " ", "H", " ",
19006	SuperscriptBox[
19007	RowBox[{"(",
19008	RowBox[{
19009	RowBox[{"-", "1"}], "+",
19010	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
19011	OverscriptBox["v", "^"]}],
19012	RowBox[{
19013	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19014	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
19015	RowBox[{
19016	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
19017	SubscriptBox["Z", "mu$1"], "]"}], " ",
19018	RowBox[{
19019	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
19020	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
19021	RowBox[{
19022	RowBox[{"(",
19023	RowBox[{
19024	FractionBox[
19025	RowBox[{"dg1", " ",
19026	SuperscriptBox["e", "2"], " ", "H", " ",
19027	OverscriptBox["v", "^"]}],
19028	RowBox[{"2", " ",
19029	SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+",
19030	FractionBox[
19031	RowBox[{
19032	SuperscriptBox["e", "2"], " ", "H", " ",
19033	OverscriptBox["v", "^"]}],
19034	RowBox[{"4", " ",
19035	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19036	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
19037	FractionBox[
19038	RowBox[{"dGf", " ",
19039	SuperscriptBox["e", "2"], " ", "H", " ",
19040	OverscriptBox["v", "^"]}],
19041	RowBox[{"4", " ",
19042	SqrtBox["2"], " ",
19043	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19044	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-",
19045	FractionBox[
19046	RowBox[{"dgw", " ",
19047	SuperscriptBox["e", "2"], " ", "H", " ",
19048	RowBox[{"(",
19049	RowBox[{
19050	RowBox[{"-", "1"}], "+",
19051	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
19052	OverscriptBox["v", "^"]}],
19053	RowBox[{"2", " ",
19054	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19055	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
19056	FractionBox[
19057	RowBox[{
19058	SubscriptBox["c",
19059	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
19060	SuperscriptBox["e", "2"], " ", "H", " ",
19061	SuperscriptBox[
19062	OverscriptBox["v", "^"], "3"]}],
19063	RowBox[{"4", " ",
19064	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19065	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19066	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
19067	FractionBox[
19068	RowBox[{"3", " ",
19069	SubscriptBox["c", "HD"], " ",
19070	SuperscriptBox["e", "2"], " ", "H", " ",
19071	SuperscriptBox[
19072	OverscriptBox["v", "^"], "3"]}],
19073	RowBox[{"16", " ",
19074	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19075	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19076	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
19077	FractionBox[
19078	RowBox[{
19079	SubscriptBox["c", "HWB"], " ",
19080	SuperscriptBox["e", "2"], " ", "H", " ",
19081	SuperscriptBox[
19082	OverscriptBox["v", "^"], "3"]}],
19083	RowBox[{"2", " ",
19084	SubscriptBox["c", "\[Theta]"], " ",
19085	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19086	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
19087	SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
19088	CellChangeTimes->{
19089	3.700893354200268^9, 3.712654290029169^9, 3.71396688057451*^9, {
19090	3.714653206742526^9, 3.71465324075095^9}, {3.714653297211488*^9,
19091	3.7146533889881983`^9}, {3.714653430663045^9, 3.714653435702468*^9},
19092	3.7146545370910273`*^9,
19093	3.729585738694907*^9},ExpressionUUID->"f7ccc77e-61ad-487b-af92-\
19094	1175735b9a01"]
19095	}, Open ]],
19096
19097	Cell[BoxData[
19098	RowBox[{"Coefficient", " ", "for", " ",
19099	SubscriptBox["Z", "\[Mu]"],
19100	SuperscriptBox["Z", "\[Mu]"]}]], "Text",
19101	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}}],
19102
19103	Cell[CellGroupData[{
19104
19105	Cell[BoxData[{
19106	RowBox[{
19107	RowBox[{
19108	RowBox[{"hzz", "/.",
19109	RowBox[{
19110	RowBox[{"del", "[",
19111	RowBox[{
19112	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
19113	"MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
19114	RowBox[{
19115	RowBox[{"SMlimit", "[", "%", "]"}], " ",
19116	RowBox[{"WCsimplify", "[",
19117	FractionBox["%",
19118	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
19119	CellChangeTimes->{{3.714653537675856^9, 3.714653585931526^9}, {
19120	3.714654543437923*^9,
19121	3.7146545447538853`*^9}},ExpressionUUID->"ca4e339a-c206-4c6b-b86f-\
19122	4a3f455bb65b"],
19123
19124	Cell[BoxData[
19125	FractionBox[
19126	RowBox[{
19127	SuperscriptBox["e", "2"], " ", "H", " ",
19128	OverscriptBox["v", "^"], " ",
19129	RowBox[{"(",
19130	RowBox[{
19131	RowBox[{"4", " ",
19132	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
19133	RowBox[{
19134	RowBox[{"(",
19135	RowBox[{
19136	RowBox[{"4", " ",
19137	SubscriptBox["c",
19138	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
19139	SubscriptBox["c", "HD"], "-",
19140	RowBox[{"4", " ",
19141	TemplateBox[{"c","Hl","3"},
19142	"Subsuperscript"]}], "+",
19143	RowBox[{"2", " ",
19144	TemplateBox[{"c","ll","Prime"},
19145	"Subsuperscript"]}]}], ")"}], " ",
19146	SuperscriptBox[
19147	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19148	SubsuperscriptBox["Z", "mu$1", "2"]}],
19149	RowBox[{"16", " ",
19150	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19151	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19152	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
19153	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9}, {
19154	3.714654540813074^9, 3.714654545238611^9},
19155	3.729585738754466*^9},ExpressionUUID->"21232009-6990-4351-b600-\
19156	bf76859f9d5b"],
19157
19158	Cell[BoxData[
19159	FractionBox[
19160	RowBox[{
19161	SuperscriptBox["e", "2"], " ", "H", " ",
19162	OverscriptBox["v", "^"], " ",
19163	RowBox[{"(",
19164	RowBox[{"1", "+",
19165	FractionBox[
19166	RowBox[{
19167	SubscriptBox["c",
19168	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
19169	SuperscriptBox[
19170	OverscriptBox["v", "^"], "2"]}],
19171	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
19172	FractionBox[
19173	RowBox[{
19174	SubscriptBox["c", "HD"], " ",
19175	SuperscriptBox[
19176	OverscriptBox["v", "^"], "2"]}],
19177	RowBox[{"4", " ",
19178	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
19179	FractionBox[
19180	RowBox[{
19181	TemplateBox[{"c","Hl","3"},
19182	"Subsuperscript"], " ",
19183	SuperscriptBox[
19184	OverscriptBox["v", "^"], "2"]}],
19185	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
19186	FractionBox[
19187	RowBox[{
19188	TemplateBox[{"c","ll","Prime"},
19189	"Subsuperscript"], " ",
19190	SuperscriptBox[
19191	OverscriptBox["v", "^"], "2"]}],
19192	RowBox[{"2", " ",
19193	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
19194	SubsuperscriptBox["Z", "mu$1", "2"]}],
19195	RowBox[{"4", " ",
19196	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19197	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
19198	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9}, {
19199	3.714654540813074^9, 3.714654545238611^9},
19200	3.729585738762187*^9},ExpressionUUID->"25beed71-b4f7-46f3-a44b-\
19201	4fc6452cda5d"]
19202	}, Open ]],
19203
19204	Cell[BoxData[
19205	RowBox[{"Coefficient", " ", "for", " ",
19206	RowBox[{
19207	SubscriptBox["\[PartialD]", "\[Mu]"],
19208	SubscriptBox["Z", "\[Nu]"]}],
19209	RowBox[{"(",
19210	RowBox[{
19211	RowBox[{
19212	SuperscriptBox["\[PartialD]", "\[Mu]"],
19213	SuperscriptBox["Z", "\[Nu]"]}], "-",
19214	RowBox[{
19215	SuperscriptBox["\[PartialD]", "\[Nu]"],
19216	SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
19217	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}, {
19218	3.714653634026601^9, 3.714653660281114^9}}],
19219
19220	Cell[CellGroupData[{
19221
19222	Cell[BoxData[
19223	RowBox[{
19224	RowBox[{
19225	RowBox[{
19226	RowBox[{"hzz", "/.",
19227	RowBox[{
19228	SuperscriptBox[
19229	RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", "MwShifts"}],
19230	"//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
19231	CellChangeTimes->{{3.714653537675856^9, 3.714653585931526^9}, {
19232	3.714653677707417^9, 3.714653739972247^9}, {3.714654547788505*^9,
19233	3.7146545492474623`*^9}},ExpressionUUID->"71b4a871-4662-4892-8724-\
19234	43f5b3801af7"],
19235
19236	Cell[BoxData[
19237	FractionBox[
19238	RowBox[{"2", " ", "H", " ",
19239	RowBox[{"(",
19240	RowBox[{
19241	RowBox[{"-", "1"}], "+",
19242	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
19243	RowBox[{"(",
19244	RowBox[{
19245	SubscriptBox["c", "HW"], "+",
19246	RowBox[{
19247	SubscriptBox["c", "HWB"], " ",
19248	SubscriptBox["c", "\[Theta]"], " ",
19249	SubscriptBox["s", "\[Theta]"]}], "+",
19250	RowBox[{
19251	RowBox[{"(",
19252	RowBox[{
19253	SubscriptBox["c", "HB"], "-",
19254	SubscriptBox["c", "HW"]}], ")"}], " ",
19255	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
19256	OverscriptBox["v", "^"], " ",
19257	RowBox[{
19258	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
19259	SubscriptBox["Z", "mu$1"], "]"}], " ",
19260	RowBox[{"(",
19261	RowBox[{
19262	RowBox[{"-",
19263	RowBox[{
19264	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
19265	SubscriptBox["Z", "mu$1"], "]"}]}], "+",
19266	RowBox[{
19267	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
19268	SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}],
19269	RowBox[{
19270	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
19271	SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
19272	CellChangeTimes->{{3.714653685513557^9, 3.714653740251841^9},
19273	3.714654550173139*^9,
19274	3.729585738893649*^9},ExpressionUUID->"18e03327-6841-4bfe-a33a-\
19275	3594c060d67f"]
19276	}, Open ]]
19277	}, Closed]],
19278
19279	Cell[CellGroupData[{
19280
19281	Cell[TextData[{
19282	"Example - Fermion Z ",
19283	Cell[BoxData[
19284	FormBox["couplings", TraditionalForm]],ExpressionUUID->
19285	"70e419d5-8a0e-452e-ac46-21e5baac2a6d"],
19286	" (non-dipole structures)"
19287	}], "Subsection",
19288	CellChangeTimes->{{3.6974638309413443`^9, 3.697463841478889^9}, {
19289	3.707196728078579^9, 3.707196728973489^9}, {3.709116189885594*^9,
19290	3.7091161899213247`^9}, {3.7111737190476913`^9, 3.711173721023136*^9}, {
19291	3.714474653133204*^9,
19292	3.7144746902228537`*^9}},ExpressionUUID->"910851a8-1951-472b-b9fd-\
19293	714bfa29aaee"],
19294
19295	Cell[BoxData[
19296	RowBox[{
19297	RowBox[{"L2", "=",
19298	RowBox[{
19299	RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}],
19300	";"}]], "Input",
19301	CellChangeTimes->{{3.714474671414948*^9,
19302	3.714474706220644*^9}},ExpressionUUID->"17eca746-15e8-4279-b473-\
19303	98e11f70fe60"],
19304
19305	Cell[CellGroupData[{
19306
19307	Cell[BoxData[
19308	RowBox[{"ZffCouplings", "=",
19309	RowBox[{
19310	RowBox[{
19311	RowBox[{
19312	RowBox[{"FeynmanRules", "[",
19313	RowBox[{"L2", ",",
19314	RowBox[{"Contains", "\[Rule]",
19315	RowBox[{"{", "Z", "}"}]}], ",",
19316	RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//",
19317	"OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
19318	CellChangeTimes->{{3.697463857630127^9, 3.697463897475298^9}, {
19319	3.697464136487383^9, 3.6974641367049007`^9}, {3.6974642201407433`*^9,
19320	3.697464224325818^9}, {3.697779806045223^9, 3.6977798069672327`*^9}, {
19321	3.697781531384438^9, 3.6977815317278852`^9}, {3.706961693077465*^9,
19322	3.7069617104980583`^9}, {3.70696208279708^9, 3.706962082840859*^9}, {
19323	3.70702385358392^9, 3.707023854145379^9}, 3.71423999167645*^9, {
19324	3.714475504960969^9, 3.714475525688051^9}, {3.7146527509492188`*^9,
19325	3.714652756642342^9}, {3.714652909302999^9,
19326	3.7146529149076347`*^9}},ExpressionUUID->"6f0a0c5a-5296-4b29-a918-\
19327	f9bb4ea11a12"],
19328
19329	Cell[CellGroupData[{
19330
19331	Cell[BoxData[
19332	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
19333	StripOnInput->False,
19334	LineColor->RGBColor[1, 0.5, 0],
19335	FrontFaceColor->RGBColor[1, 0.5, 0],
19336	BackFaceColor->RGBColor[1, 0.5, 0],
19337	GraphicsColor->RGBColor[1, 0.5, 0],
19338	FontWeight->Bold,
19339	FontColor->RGBColor[1, 0.5, 0]]], "Print",
19340	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
19341	3.714654452458597*^9,
19342	3.729585769505076*^9},ExpressionUUID->"95466fc9-09bb-47f8-b94c-\
19343	34883bce6a33"],
19344
19345	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
19346	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
19347	3.714654452458597*^9,
19348	3.729585769506878*^9},ExpressionUUID->"9de6660d-20bf-4088-8958-\
19349	8c1ace8be251"],
19350
19351	Cell[BoxData[
19352	InterpretationBox[
19353	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
19354	"\[InvisibleSpace]", "\<\" cores\"\>"}],
19355	SequenceForm["Expanding the indices over ", 2, " cores"],
19356	Editable->False]], "Print",
19357	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
19358	3.714654452458597*^9,
19359	3.729585769510354*^9},ExpressionUUID->"4c0e9376-542a-4591-8892-\
19360	0a300e73a892"],
19361
19362	Cell[BoxData["\<\"Collecting the different structures that enter the \
19363	vertex.\"\>"], "Print",
19364	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
19365	3.714654452458597*^9,
19366	3.729585778776273*^9},ExpressionUUID->"d6461c55-f1bf-45d1-933d-\
19367	18caa7955cf3"],
19368
19369	Cell[BoxData[
19370	InterpretationBox[
19371	RowBox[{
19372	"4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
19373	-> starting the computation: \"\>", "\[InvisibleSpace]",
19374	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
19375	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
19376	"\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
19377	SequenceForm[
19378	4, " possible non-zero vertices have been found -> starting the \
19379	computation: ",
19380	Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
19381	Editable->False]], "Print",
19382	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
19383	3.714654452458597*^9,
19384	3.729585778805963*^9},ExpressionUUID->"01890382-bf44-4a1d-9fb9-\
19385	ba239878e20e"],
19386
19387	Cell[BoxData[
19388	InterpretationBox[
19389	RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
19390	SequenceForm[4, " vertices obtained."],
19391	Editable->False]], "Print",
19392	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
19393	3.714654452458597*^9,
19394	3.729585780881024*^9},ExpressionUUID->"9a4cd6c7-b8f0-46dc-9f0e-\
19395	cdf242aa9715"]
19396	}, Open ]],
19397
19398	Cell[BoxData[
19399	InterpretationBox[GridBox[{
19400	{GridBox[{
19401	{
19402	OverscriptBox["dq", "\<\"-\"\>"], "1"},
19403	{"dq", "2"},
19404	{"Z", "3"}
19405	},
19406	GridBoxAlignment->{
19407	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
19408	"RowsIndexed" -> {}},
19409	GridBoxSpacings->{"Columns" -> {
19410	Offset[0.27999999999999997`], {
19411	Offset[0.7]},
19412	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
19413	Offset[0.2], {
19414	Offset[0.1]},
19415	Offset[0.2]}, "RowsIndexed" -> {}}],
19416	RowBox[{"-",
19417	FractionBox[
19418	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19419	SubscriptBox["\[Delta]",
19420	RowBox[{
19421	SubscriptBox["\<\"m\"\>", "1"], ",",
19422	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19423	SubscriptBox["\[Delta]",
19424	RowBox[{
19425	SubscriptBox["\<\"f\"\>", "1"], ",",
19426	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
19427	RowBox[{"(",
19428	RowBox[{
19429	RowBox[{
19430	RowBox[{"(",
19431	RowBox[{
19432	RowBox[{
19433	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19434	RowBox[{"(",
19435	RowBox[{
19436	RowBox[{"-", "3"}], "-",
19437	RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+",
19438	RowBox[{
19439	RowBox[{"(",
19440	RowBox[{"2", "-", "dg1", "+",
19441	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
19442	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
19443	RowBox[{
19444	RowBox[{"(",
19445	RowBox[{
19446	RowBox[{"3", " ",
19447	TemplateBox[{"c","Hq","1"},
19448	"Subsuperscript"]}], "+",
19449	RowBox[{"3", " ",
19450	TemplateBox[{"c","Hq","3"},
19451	"Subsuperscript"]}], "+",
19452	RowBox[{"2", " ",
19453	SubscriptBox["c", "HWB"], " ",
19454	SubscriptBox["c", "\[Theta]"], " ",
19455	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19456	SuperscriptBox[
19457	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19458	SubscriptBox[
19459	RowBox[{
19460	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19461	"Superscript"], ".",
19462	SubscriptBox["P", "\<\"-\"\>"]}],
19463	RowBox[{
19464	SubscriptBox["\<\"s\"\>", "1"], ",",
19465	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
19466	RowBox[{
19467	RowBox[{"(",
19468	RowBox[{
19469	RowBox[{"dsth2", " ",
19470	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
19471	RowBox[{"2", " ",
19472	RowBox[{"(",
19473	RowBox[{"1", "+", "dg1"}], ")"}], " ",
19474	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19475	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
19476	RowBox[{
19477	RowBox[{"(",
19478	RowBox[{
19479	RowBox[{
19480	RowBox[{"-", "3"}], " ",
19481	SubscriptBox["c", "Hd"]}], "+",
19482	RowBox[{
19483	SubscriptBox["c", "HWB"], " ",
19484	SubscriptBox["c", "\[Theta]"], " ",
19485	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19486	SuperscriptBox[
19487	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19488	SubscriptBox[
19489	RowBox[{
19490	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19491	"Superscript"], ".",
19492	SubscriptBox["P", "\<\"+\"\>"]}],
19493	RowBox[{
19494	SubscriptBox["\<\"s\"\>", "1"], ",",
19495	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
19496	RowBox[{"6", " ",
19497	SubscriptBox["c", "\[Theta]"], " ",
19498	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19499	SubscriptBox["s", "\[Theta]"]}]]}]},
19500	{GridBox[{
19501	{
19502	OverscriptBox["l", "\<\"-\"\>"], "1"},
19503	{"l", "2"},
19504	{"Z", "3"}
19505	},
19506	GridBoxAlignment->{
19507	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
19508	"RowsIndexed" -> {}},
19509	GridBoxSpacings->{"Columns" -> {
19510	Offset[0.27999999999999997`], {
19511	Offset[0.7]},
19512	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
19513	Offset[0.2], {
19514	Offset[0.1]},
19515	Offset[0.2]}, "RowsIndexed" -> {}}],
19516	RowBox[{"-",
19517	FractionBox[
19518	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19519	SubscriptBox["\[Delta]",
19520	RowBox[{
19521	SubscriptBox["\<\"f\"\>", "1"], ",",
19522	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
19523	RowBox[{"(",
19524	RowBox[{
19525	RowBox[{
19526	RowBox[{"(",
19527	RowBox[{
19528	RowBox[{
19529	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19530	RowBox[{"(",
19531	RowBox[{
19532	RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+",
19533	RowBox[{
19534	RowBox[{"(",
19535	RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ",
19536	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
19537	RowBox[{
19538	RowBox[{"(",
19539	RowBox[{
19540	TemplateBox[{"c","Hl","1"},
19541	"Subsuperscript"], "+",
19542	TemplateBox[{"c","Hl","3"},
19543	"Subsuperscript"]}], ")"}], " ",
19544	SuperscriptBox[
19545	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19546	SubscriptBox[
19547	RowBox[{
19548	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19549	"Superscript"], ".",
19550	SubscriptBox["P", "\<\"-\"\>"]}],
19551	RowBox[{
19552	SubscriptBox["\<\"s\"\>", "1"], ",",
19553	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
19554	RowBox[{
19555	RowBox[{"(",
19556	RowBox[{
19557	RowBox[{"dsth2", " ",
19558	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
19559	RowBox[{"2", " ",
19560	RowBox[{"(",
19561	RowBox[{"1", "+", "dg1"}], ")"}], " ",
19562	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19563	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
19564	RowBox[{
19565	RowBox[{"(",
19566	RowBox[{
19567	RowBox[{"-",
19568	SubscriptBox["c", "He"]}], "+",
19569	RowBox[{
19570	SubscriptBox["c", "HWB"], " ",
19571	SubscriptBox["c", "\[Theta]"], " ",
19572	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19573	SuperscriptBox[
19574	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19575	SubscriptBox[
19576	RowBox[{
19577	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19578	"Superscript"], ".",
19579	SubscriptBox["P", "\<\"+\"\>"]}],
19580	RowBox[{
19581	SubscriptBox["\<\"s\"\>", "1"], ",",
19582	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
19583	RowBox[{"2", " ",
19584	SubscriptBox["c", "\[Theta]"], " ",
19585	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19586	SubscriptBox["s", "\[Theta]"]}]]}]},
19587	{GridBox[{
19588	{
19589	OverscriptBox["uq", "\<\"-\"\>"], "1"},
19590	{"uq", "2"},
19591	{"Z", "3"}
19592	},
19593	GridBoxAlignment->{
19594	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
19595	"RowsIndexed" -> {}},
19596	GridBoxSpacings->{"Columns" -> {
19597	Offset[0.27999999999999997`], {
19598	Offset[0.7]},
19599	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
19600	Offset[0.2], {
19601	Offset[0.1]},
19602	Offset[0.2]}, "RowsIndexed" -> {}}],
19603	FractionBox[
19604	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19605	SubscriptBox["\[Delta]",
19606	RowBox[{
19607	SubscriptBox["\<\"m\"\>", "1"], ",",
19608	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
19609	SubscriptBox["\[Delta]",
19610	RowBox[{
19611	SubscriptBox["\<\"f\"\>", "1"], ",",
19612	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
19613	RowBox[{"(",
19614	RowBox[{
19615	RowBox[{
19616	RowBox[{"(",
19617	RowBox[{
19618	RowBox[{
19619	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19620	RowBox[{"(",
19621	RowBox[{
19622	RowBox[{"-", "3"}], "-",
19623	RowBox[{"3", " ", "dgw"}], "+",
19624	RowBox[{"2", " ", "dsth2"}], "+",
19625	RowBox[{
19626	RowBox[{"(",
19627	RowBox[{"4", "+", "dg1", "+",
19628	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
19629	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
19630	RowBox[{
19631	RowBox[{"(",
19632	RowBox[{
19633	RowBox[{"3", " ",
19634	TemplateBox[{"c","Hq","1"},
19635	"Subsuperscript"]}], "-",
19636	RowBox[{"3", " ",
19637	TemplateBox[{"c","Hq","3"},
19638	"Subsuperscript"]}], "-",
19639	RowBox[{
19640	SubscriptBox["c", "HWB"], " ",
19641	SubscriptBox["c", "\[Theta]"], " ",
19642	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19643	SuperscriptBox[
19644	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19645	SubscriptBox[
19646	RowBox[{
19647	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19648	"Superscript"], ".",
19649	SubscriptBox["P", "\<\"-\"\>"]}],
19650	RowBox[{
19651	SubscriptBox["\<\"s\"\>", "1"], ",",
19652	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
19653	RowBox[{
19654	RowBox[{"(",
19655	RowBox[{
19656	RowBox[{"2", " ", "dsth2", " ",
19657	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
19658	RowBox[{"4", " ",
19659	RowBox[{"(",
19660	RowBox[{"1", "+", "dg1"}], ")"}], " ",
19661	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19662	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
19663	RowBox[{
19664	RowBox[{"(",
19665	RowBox[{
19666	RowBox[{"3", " ",
19667	SubscriptBox["c", "Hu"]}], "+",
19668	RowBox[{"2", " ",
19669	SubscriptBox["c", "HWB"], " ",
19670	SubscriptBox["c", "\[Theta]"], " ",
19671	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19672	SuperscriptBox[
19673	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19674	SubscriptBox[
19675	RowBox[{
19676	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19677	"Superscript"], ".",
19678	SubscriptBox["P", "\<\"+\"\>"]}],
19679	RowBox[{
19680	SubscriptBox["\<\"s\"\>", "1"], ",",
19681	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
19682	RowBox[{"6", " ",
19683	SubscriptBox["c", "\[Theta]"], " ",
19684	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19685	SubscriptBox["s", "\[Theta]"]}]]},
19686	{GridBox[{
19687	{
19688	OverscriptBox["vl", "\<\"-\"\>"], "1"},
19689	{"vl", "2"},
19690	{"Z", "3"}
19691	},
19692	GridBoxAlignment->{
19693	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
19694	"RowsIndexed" -> {}},
19695	GridBoxSpacings->{"Columns" -> {
19696	Offset[0.27999999999999997`], {
19697	Offset[0.7]},
19698	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
19699	Offset[0.2], {
19700	Offset[0.1]},
19701	Offset[0.2]}, "RowsIndexed" -> {}}],
19702	FractionBox[
19703	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19704	RowBox[{"(",
19705	RowBox[{
19706	RowBox[{
19707	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19708	RowBox[{"(",
19709	RowBox[{
19710	RowBox[{"-", "1"}], "-", "dgw", "+",
19711	RowBox[{
19712	RowBox[{"(",
19713	RowBox[{
19714	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
19715	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
19716	RowBox[{
19717	RowBox[{"(",
19718	RowBox[{
19719	TemplateBox[{"c","Hl","1"},
19720	"Subsuperscript"], "-",
19721	TemplateBox[{"c","Hl","3"},
19722	"Subsuperscript"], "-",
19723	RowBox[{
19724	SubscriptBox["c", "HWB"], " ",
19725	SubscriptBox["c", "\[Theta]"], " ",
19726	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19727	SuperscriptBox[
19728	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19729	SubscriptBox["\[Delta]",
19730	RowBox[{
19731	SubscriptBox["\<\"f\"\>", "1"], ",",
19732	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
19733	SubscriptBox[
19734	RowBox[{
19735	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19736	"Superscript"], ".",
19737	SubscriptBox["P", "\<\"-\"\>"]}],
19738	RowBox[{
19739	SubscriptBox["\<\"s\"\>", "1"], ",",
19740	SubscriptBox["\<\"s\"\>", "2"]}]]}],
19741	RowBox[{"2", " ",
19742	SubscriptBox["c", "\[Theta]"], " ",
19743	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19744	SubscriptBox["s", "\[Theta]"]}]]}
19745	},
19746	GridBoxAlignment->{
19747	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
19748	"RowsIndexed" -> {}},
19749	GridBoxSpacings->{"Columns" -> {
19750	Offset[0.27999999999999997`], {
19751	Offset[2.0999999999999996`]},
19752	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
19753	Offset[0.2], {
19754	Offset[0.4]},
19755	Offset[0.2]}, "RowsIndexed" -> {}}],
19756	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
19757	3}}, Complex[0,
19758	Rational[-1, 6]] $CellContext`cth^(-1)
19759	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
19760	FeynRules`IndexDelta[
19761	FeynRules`Index[FeynRules`Colour,
19762	FeynRules`Ext[1]],
19763	FeynRules`Index[FeynRules`Colour,
19764	FeynRules`Ext[2]]] FeynRules`IndexDelta[
19765	FeynRules`Index[$CellContext`Generation,
19766	FeynRules`Ext[1]],
19767	FeynRules`Index[$CellContext`Generation,
19768	FeynRules`Ext[
19769	2]]] (($CellContext`LambdaSMEFT^2 (-3 -
19770	3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 +
19771	3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq1 +
19772	3 $CellContext`cHq3 +
19773	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
19774	$CellContext`vevhat^2) FeynRules`TensDot[
19775	FeynRules`Ga[
19776	FeynRules`Index[FeynRules`Lorentz,
19777	FeynRules`Ext[3]]], FeynRules`ProjM][
19778	FeynRules`Index[FeynRules`Spin,
19779	FeynRules`Ext[1]],
19780	FeynRules`Index[FeynRules`Spin,
19781	FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
19782	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
19783	$CellContext`sth^2 + ((-3) $CellContext`cHd + $CellContext`cHWB \
19784	$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
19785	FeynRules`Ga[
19786	FeynRules`Index[FeynRules`Lorentz,
19787	FeynRules`Ext[3]]], FeynRules`ProjP][
19788	FeynRules`Index[FeynRules`Spin,
19789	FeynRules`Ext[1]],
19790	FeynRules`Index[FeynRules`Spin,
19791	FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {
19792	FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0,
19793	Rational[-1, 2]] $CellContext`cth^(-1)
19794	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
19795	FeynRules`IndexDelta[
19796	FeynRules`Index[$CellContext`Generation,
19797	FeynRules`Ext[1]],
19798	FeynRules`Index[$CellContext`Generation,
19799	FeynRules`Ext[
19800	2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
19801	$CellContext`dsth2 + (
19802	2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
19803	($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2)
19804	FeynRules`TensDot[
19805	FeynRules`Ga[
19806	FeynRules`Index[FeynRules`Lorentz,
19807	FeynRules`Ext[3]]], FeynRules`ProjM][
19808	FeynRules`Index[FeynRules`Spin,
19809	FeynRules`Ext[1]],
19810	FeynRules`Index[FeynRules`Spin,
19811	FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
19812	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
19813	$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
19814	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
19815	FeynRules`Ga[
19816	FeynRules`Index[FeynRules`Lorentz,
19817	FeynRules`Ext[3]]], FeynRules`ProjP][
19818	FeynRules`Index[FeynRules`Spin,
19819	FeynRules`Ext[1]],
19820	FeynRules`Index[FeynRules`Spin,
19821	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
19822	2}, {$CellContext`Z, 3}}, Complex[0,
19823	Rational[1, 6]] $CellContext`cth^(-1)
19824	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
19825	FeynRules`IndexDelta[
19826	FeynRules`Index[FeynRules`Colour,
19827	FeynRules`Ext[1]],
19828	FeynRules`Index[FeynRules`Colour,
19829	FeynRules`Ext[2]]] FeynRules`IndexDelta[
19830	FeynRules`Index[$CellContext`Generation,
19831	FeynRules`Ext[1]],
19832	FeynRules`Index[$CellContext`Generation,
19833	FeynRules`Ext[
19834	2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw +
19835	2 $CellContext`dsth2 + (4 + $CellContext`dg1 +
19836	3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq1 -
19837	3 $CellContext`cHq3 - $CellContext`cHWB $CellContext`cth \
19838	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
19839	FeynRules`Ga[
19840	FeynRules`Index[FeynRules`Lorentz,
19841	FeynRules`Ext[3]]], FeynRules`ProjM][
19842	FeynRules`Index[FeynRules`Spin,
19843	FeynRules`Ext[1]],
19844	FeynRules`Index[FeynRules`Spin,
19845	FeynRules`Ext[2]]] + (
19846	2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
19847	4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
19848	$CellContext`sth^2 + (3 $CellContext`cHu +
19849	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
19850	$CellContext`vevhat^2) FeynRules`TensDot[
19851	FeynRules`Ga[
19852	FeynRules`Index[FeynRules`Lorentz,
19853	FeynRules`Ext[3]]], FeynRules`ProjP][
19854	FeynRules`Index[FeynRules`Spin,
19855	FeynRules`Ext[1]],
19856	FeynRules`Index[FeynRules`Spin,
19857	FeynRules`Ext[2]]])}, {{{$CellContext`vlbar, 1}, {$CellContext`vl,
19858	2}, {$CellContext`Z, 3}}, Complex[0,
19859	Rational[1, 2]] $CellContext`cth^(-1)
19860	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
19861	($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
19862	$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
19863	$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
19864	$CellContext`vevhat^2) FeynRules`IndexDelta[
19865	FeynRules`Index[$CellContext`Generation,
19866	FeynRules`Ext[1]],
19867	FeynRules`Index[$CellContext`Generation,
19868	FeynRules`Ext[2]]] FeynRules`TensDot[
19869	FeynRules`Ga[
19870	FeynRules`Index[FeynRules`Lorentz,
19871	FeynRules`Ext[3]]], FeynRules`ProjM][
19872	FeynRules`Index[FeynRules`Spin,
19873	FeynRules`Ext[1]],
19874	FeynRules`Index[FeynRules`Spin,
19875	FeynRules`Ext[2]]]}}]]], "Output",
19876	CellChangeTimes->{
19877	3.711173839167266^9, 3.712483365603745^9, 3.7139663983257236`*^9, {
19878	3.7146527464730873`^9, 3.714652771211906^9}, 3.7146529268852043`*^9,
19879	3.7146544666189938`*^9,
19880	3.72958578465129*^9},ExpressionUUID->"62f51c5b-3b9f-4ac8-9915-\
19881	01abb7bb8b27"]
19882	}, Open ]],
19883
19884	Cell["neutrino coupling :", "Text",
19885	CellChangeTimes->{{3.7146528020724363`^9, 3.7146528092589808`^9}}],
19886
19887	Cell[CellGroupData[{
19888
19889	Cell[BoxData[{
19890	RowBox[{"ZffCouplings", "[",
19891	RowBox[{"[",
19892	RowBox[{"1", ",",
19893	RowBox[{"-", "1"}], ",",
19894	RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
19895	RowBox[{
19896	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
19897	RowBox[{
19898	RowBox[{"SMlimit", "[", "%", "]"}], " ",
19899	RowBox[{"WCsimplify", "[",
19900	RowBox[{
19901	FractionBox["%",
19902	RowBox[{"SMlimit", "[", "%", "]"}]], "/.",
19903	RowBox[{
19904	RowBox[{"IndexDelta", "[",
19905	RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
19906	CellChangeTimes->{{3.706961712640883^9, 3.7069617312434893`^9},
19907	3.711174006710514^9, {3.711174069176218^9, 3.711174078189027*^9}, {
19908	3.714475532098426^9, 3.7144755376724243`^9}, {3.714652781745085*^9,
19909	3.714652890708997^9}, {3.714652953030558^9, 3.7146530356237173`*^9}, {
19910	3.714654434479714*^9,
19911	3.714654435996188*^9}},ExpressionUUID->"956548b5-e5ca-4d41-bf0b-\
19912	2ddfda57957b"],
19913
19914	Cell[BoxData[
19915	FractionBox[
19916	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19917	RowBox[{"(",
19918	RowBox[{
19919	RowBox[{
19920	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19921	RowBox[{"(",
19922	RowBox[{
19923	RowBox[{"-", "1"}], "-", "dgw", "+",
19924	RowBox[{
19925	RowBox[{"(",
19926	RowBox[{
19927	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
19928	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
19929	RowBox[{
19930	RowBox[{"(",
19931	RowBox[{
19932	TemplateBox[{"c","Hl","1"},
19933	"Subsuperscript"], "-",
19934	TemplateBox[{"c","Hl","3"},
19935	"Subsuperscript"], "-",
19936	RowBox[{
19937	SubscriptBox["c", "HWB"], " ",
19938	SubscriptBox["c", "\[Theta]"], " ",
19939	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
19940	SuperscriptBox[
19941	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19942	SubscriptBox["\[Delta]",
19943	RowBox[{
19944	SubscriptBox["\<\"f\"\>", "1"], ",",
19945	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
19946	SubscriptBox[
19947	RowBox[{
19948	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19949	"Superscript"], ".",
19950	SubscriptBox["P", "\<\"-\"\>"]}],
19951	RowBox[{
19952	SubscriptBox["\<\"s\"\>", "1"], ",",
19953	SubscriptBox["\<\"s\"\>", "2"]}]]}],
19954	RowBox[{"2", " ",
19955	SubscriptBox["c", "\[Theta]"], " ",
19956	SuperscriptBox["\[CapitalLambda]", "2"], " ",
19957	SubscriptBox["s", "\[Theta]"]}]]], "Output",
19958	CellChangeTimes->{
19959	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
19960	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
19961	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
19962	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
19963	3.714652929930028^9, 3.7146530359952927`^9}, 3.714654466678053*^9,
19964	3.729585784734597*^9},ExpressionUUID->"f8ca07e0-7d7b-47e8-8408-\
19965	a0bb4aaff893"],
19966
19967	Cell[BoxData[
19968	RowBox[{"-",
19969	FractionBox[
19970	RowBox[{"\[ImaginaryI]", " ", "e", " ",
19971	RowBox[{"(",
19972	RowBox[{
19973	RowBox[{"4", " ",
19974	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
19975	RowBox[{
19976	RowBox[{"(",
19977	RowBox[{
19978	SubscriptBox["c", "HD"], "+",
19979	RowBox[{"4", " ",
19980	TemplateBox[{"c","Hl","1"},
19981	"Subsuperscript"]}], "-",
19982	RowBox[{"2", " ",
19983	TemplateBox[{"c","ll","Prime"},
19984	"Subsuperscript"]}]}], ")"}], " ",
19985	SuperscriptBox[
19986	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
19987	SubscriptBox["\[Delta]",
19988	RowBox[{
19989	SubscriptBox["\<\"f\"\>", "1"], ",",
19990	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
19991	SubscriptBox[
19992	RowBox[{
19993	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
19994	"Superscript"], ".",
19995	SubscriptBox["P", "\<\"-\"\>"]}],
19996	RowBox[{
19997	SubscriptBox["\<\"s\"\>", "1"], ",",
19998	SubscriptBox["\<\"s\"\>", "2"]}]]}],
19999	RowBox[{"8", " ",
20000	SubscriptBox["c", "\[Theta]"], " ",
20001	SuperscriptBox["\[CapitalLambda]", "2"], " ",
20002	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
20003	CellChangeTimes->{
20004	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
20005	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
20006	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
20007	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
20008	3.714652929930028^9, 3.7146530359952927`^9}, 3.714654466678053*^9,
20009	3.72958578490658*^9},ExpressionUUID->"2ad48f67-3d67-49ef-9332-\
20010	b7d25c1b9691"],
20011
20012	Cell[BoxData[
20013	RowBox[{"-",
20014	FractionBox[
20015	RowBox[{"\[ImaginaryI]", " ", "e", " ",
20016	RowBox[{"(",
20017	RowBox[{"1", "-",
20018	FractionBox[
20019	RowBox[{
20020	SubscriptBox["c", "HD"], " ",
20021	SuperscriptBox[
20022	OverscriptBox["v", "^"], "2"]}],
20023	RowBox[{"4", " ",
20024	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
20025	FractionBox[
20026	RowBox[{
20027	TemplateBox[{"c","Hl","1"},
20028	"Subsuperscript"], " ",
20029	SuperscriptBox[
20030	OverscriptBox["v", "^"], "2"]}],
20031	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
20032	FractionBox[
20033	RowBox[{
20034	TemplateBox[{"c","ll","Prime"},
20035	"Subsuperscript"], " ",
20036	SuperscriptBox[
20037	OverscriptBox["v", "^"], "2"]}],
20038	RowBox[{"2", " ",
20039	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
20040	SubscriptBox["\[Delta]",
20041	RowBox[{
20042	SubscriptBox["\<\"f\"\>", "1"], ",",
20043	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
20044	SubscriptBox[
20045	RowBox[{
20046	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
20047	"Superscript"], ".",
20048	SubscriptBox["P", "\<\"-\"\>"]}],
20049	RowBox[{
20050	SubscriptBox["\<\"s\"\>", "1"], ",",
20051	SubscriptBox["\<\"s\"\>", "2"]}]]}],
20052	RowBox[{"2", " ",
20053	SubscriptBox["c", "\[Theta]"], " ",
20054	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
20055	CellChangeTimes->{
20056	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
20057	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
20058	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
20059	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
20060	3.714652929930028^9, 3.7146530359952927`^9}, 3.714654466678053*^9,
20061	3.7295857849634943`*^9},ExpressionUUID->"cf12f7a9-3181-4243-a52d-\
20062	846f9c2a29d9"]
20063	}, Open ]]
20064	}, Closed]],
20065
20066	Cell[CellGroupData[{
20067
20068	Cell["Example : Yukawa couplings", "Subsection",
20069	CellChangeTimes->{{3.714653803679809^9, 3.714653813127017^9}}],
20070
20071	Cell[BoxData[
20072	RowBox[{
20073	RowBox[{"LYuk", " ", "=", " ",
20074	RowBox[{
20075	RowBox[{
20076	RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}], "//",
20077	"LinearWC"}]}], ";"}]], "Input",
20078	CellChangeTimes->{{3.71465381867803^9, 3.7146538339978323`^9},
20079	3.714653880639667^9, {3.7146539581117077`^9,
20080	3.714653960288474*^9}},ExpressionUUID->"f6406d70-e063-4ce0-a098-\
20081	aa416939fcbb"],
20082
20083	Cell[CellGroupData[{
20084
20085	Cell[BoxData[
20086	RowBox[{"hff", "=",
20087	RowBox[{
20088	RowBox[{
20089	RowBox[{"FeynmanRules", "[",
20090	RowBox[{"LYuk", ",",
20091	RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
20092	RowBox[{"Contains", "\[Rule]",
20093	RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//",
20094	"TableForm"}]}]], "Input",
20095	CellChangeTimes->{{3.714653838776801*^9,
20096	3.7146538891931353`*^9}},ExpressionUUID->"4ac2a7d3-017e-4ba5-b3c5-\
20097	d43cadb35fa0"],
20098
20099	Cell[CellGroupData[{
20100
20101	Cell[BoxData[
20102	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
20103	StripOnInput->False,
20104	LineColor->RGBColor[1, 0.5, 0],
20105	FrontFaceColor->RGBColor[1, 0.5, 0],
20106	BackFaceColor->RGBColor[1, 0.5, 0],
20107	GraphicsColor->RGBColor[1, 0.5, 0],
20108	FontWeight->Bold,
20109	FontColor->RGBColor[1, 0.5, 0]]], "Print",
20110	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
20111	3.714653968951281^9, 3.714654563696785^9,
20112	3.72958579180408*^9},ExpressionUUID->"bdc1df9f-0c98-4814-977b-\
20113	e588ee7a975d"],
20114
20115	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
20116	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
20117	3.714653968951281^9, 3.714654563696785^9,
20118	3.72958579180583*^9},ExpressionUUID->"fefb21d1-8718-43e8-a983-\
20119	f009db858a3c"],
20120
20121	Cell[BoxData[
20122	InterpretationBox[
20123	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
20124	"\[InvisibleSpace]", "\<\" cores\"\>"}],
20125	SequenceForm["Expanding the indices over ", 2, " cores"],
20126	Editable->False]], "Print",
20127	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
20128	3.714653968951281^9, 3.714654563696785^9,
20129	3.729585791809902*^9},ExpressionUUID->"8e8adfd9-341e-486e-b168-\
20130	0a8fcd092dd2"],
20131
20132	Cell[BoxData["\<\"Collecting the different structures that enter the \
20133	vertex.\"\>"], "Print",
20134	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
20135	3.714653968951281^9, 3.714654563696785^9,
20136	3.729585794481516*^9},ExpressionUUID->"5a478d47-e91b-40d6-8282-\
20137	67698dfa94a7"],
20138
20139	Cell[BoxData[
20140	InterpretationBox[
20141	RowBox[{
20142	"3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
20143	-> starting the computation: \"\>", "\[InvisibleSpace]",
20144	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
20145	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
20146	"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
20147	SequenceForm[
20148	3, " possible non-zero vertices have been found -> starting the \
20149	computation: ",
20150	Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
20151	Editable->False]], "Print",
20152	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
20153	3.714653968951281^9, 3.714654563696785^9,
20154	3.729585794541729*^9},ExpressionUUID->"0bb7fb20-6637-4207-a982-\
20155	b711bb2d1939"],
20156
20157	Cell[BoxData[
20158	InterpretationBox[
20159	RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
20160	SequenceForm[3, " vertices obtained."],
20161	Editable->False]], "Print",
20162	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
20163	3.714653968951281^9, 3.714654563696785^9,
20164	3.7295857950721693`*^9},ExpressionUUID->"b0949438-bf90-44a6-bc86-\
20165	7c7bd1bce09d"]
20166	}, Open ]],
20167
20168	Cell[BoxData[
20169	InterpretationBox[GridBox[{
20170	{GridBox[{
20171	{
20172	OverscriptBox["dq", "\<\"-\"\>"], "1"},
20173	{"dq", "2"},
20174	{"H", "3"}
20175	},
20176	GridBoxAlignment->{
20177	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
20178	"RowsIndexed" -> {}},
20179	GridBoxSpacings->{"Columns" -> {
20180	Offset[0.27999999999999997`], {
20181	Offset[0.7]},
20182	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
20183	Offset[0.2], {
20184	Offset[0.1]},
20185	Offset[0.2]}, "RowsIndexed" -> {}}],
20186	RowBox[{
20187	FractionBox[
20188	RowBox[{"3", " ", "\[ImaginaryI]", " ",
20189	SuperscriptBox[
20190	OverscriptBox["v", "^"], "2"], " ",
20191	SubsuperscriptBox["c", "dH", "\<\"*\"\>"], " ",
20192	SubscriptBox["\[Delta]",
20193	RowBox[{
20194	SubscriptBox["\<\"m\"\>", "1"], ",",
20195	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20196	SubscriptBox[
20197	SubscriptBox["P", "\<\"-\"\>"],
20198	RowBox[{
20199	SubscriptBox["\<\"s\"\>", "1"], ",",
20200	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20201	SubscriptBox[
20202	TemplateBox[{"y","d"},
20203	"Superscript"],
20204	RowBox[{
20205	SubscriptBox["\<\"f\"\>", "1"], ",",
20206	SubscriptBox["\<\"f\"\>", "2"]}]]}],
20207	RowBox[{"2", " ",
20208	SqrtBox["2"], " ",
20209	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
20210	FractionBox[
20211	RowBox[{"3", " ", "\[ImaginaryI]", " ",
20212	SubscriptBox["c", "dH"], " ",
20213	SuperscriptBox[
20214	OverscriptBox["v", "^"], "2"], " ",
20215	SubscriptBox["\[Delta]",
20216	RowBox[{
20217	SubscriptBox["\<\"m\"\>", "1"], ",",
20218	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20219	SubscriptBox[
20220	SubscriptBox["P", "\<\"+\"\>"],
20221	RowBox[{
20222	SubscriptBox["\<\"s\"\>", "1"], ",",
20223	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20224	SubscriptBox[
20225	TemplateBox[{"y","d"},
20226	"Superscript"],
20227	RowBox[{
20228	SubscriptBox["\<\"f\"\>", "2"], ",",
20229	SubscriptBox["\<\"f\"\>", "1"]}]]}],
20230	RowBox[{"2", " ",
20231	SqrtBox["2"], " ",
20232	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
20233	FractionBox[
20234	RowBox[{"\[ImaginaryI]", " ",
20235	SubscriptBox["\[Delta]",
20236	RowBox[{
20237	SubscriptBox["\<\"m\"\>", "1"], ",",
20238	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20239	RowBox[{"(",
20240	RowBox[{
20241	RowBox[{
20242	SubsuperscriptBox["yd0",
20243	RowBox[{
20244	SubscriptBox["\<\"f\"\>", "2"], ",",
20245	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20246	SubscriptBox[
20247	SubscriptBox["P", "\<\"+\"\>"],
20248	RowBox[{
20249	SubscriptBox["\<\"s\"\>", "1"], ",",
20250	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20251	RowBox[{
20252	SubscriptBox[
20253	SubscriptBox["P", "\<\"-\"\>"],
20254	RowBox[{
20255	SubscriptBox["\<\"s\"\>", "1"], ",",
20256	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20257	SubscriptBox["yd0",
20258	RowBox[{
20259	SubscriptBox["\<\"f\"\>", "1"], ",",
20260	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20261	SqrtBox["2"]], "-",
20262	FractionBox[
20263	RowBox[{"\[ImaginaryI]", " ",
20264	SubscriptBox["c",
20265	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
20266	SuperscriptBox[
20267	OverscriptBox["v", "^"], "2"], " ",
20268	SubscriptBox["\[Delta]",
20269	RowBox[{
20270	SubscriptBox["\<\"m\"\>", "1"], ",",
20271	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20272	RowBox[{"(",
20273	RowBox[{
20274	RowBox[{
20275	SubsuperscriptBox["yd0",
20276	RowBox[{
20277	SubscriptBox["\<\"f\"\>", "2"], ",",
20278	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20279	SubscriptBox[
20280	SubscriptBox["P", "\<\"+\"\>"],
20281	RowBox[{
20282	SubscriptBox["\<\"s\"\>", "1"], ",",
20283	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20284	RowBox[{
20285	SubscriptBox[
20286	SubscriptBox["P", "\<\"-\"\>"],
20287	RowBox[{
20288	SubscriptBox["\<\"s\"\>", "1"], ",",
20289	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20290	SubscriptBox["yd0",
20291	RowBox[{
20292	SubscriptBox["\<\"f\"\>", "1"], ",",
20293	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20294	RowBox[{
20295	SqrtBox["2"], " ",
20296	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
20297	FractionBox[
20298	RowBox[{"\[ImaginaryI]", " ",
20299	SubscriptBox["c", "HD"], " ",
20300	SuperscriptBox[
20301	OverscriptBox["v", "^"], "2"], " ",
20302	SubscriptBox["\[Delta]",
20303	RowBox[{
20304	SubscriptBox["\<\"m\"\>", "1"], ",",
20305	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20306	RowBox[{"(",
20307	RowBox[{
20308	RowBox[{
20309	SubsuperscriptBox["yd0",
20310	RowBox[{
20311	SubscriptBox["\<\"f\"\>", "2"], ",",
20312	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20313	SubscriptBox[
20314	SubscriptBox["P", "\<\"+\"\>"],
20315	RowBox[{
20316	SubscriptBox["\<\"s\"\>", "1"], ",",
20317	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20318	RowBox[{
20319	SubscriptBox[
20320	SubscriptBox["P", "\<\"-\"\>"],
20321	RowBox[{
20322	SubscriptBox["\<\"s\"\>", "1"], ",",
20323	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20324	SubscriptBox["yd0",
20325	RowBox[{
20326	SubscriptBox["\<\"f\"\>", "1"], ",",
20327	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20328	RowBox[{"4", " ",
20329	SqrtBox["2"], " ",
20330	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
20331	{GridBox[{
20332	{
20333	OverscriptBox["l", "\<\"-\"\>"], "1"},
20334	{"l", "2"},
20335	{"H", "3"}
20336	},
20337	GridBoxAlignment->{
20338	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
20339	"RowsIndexed" -> {}},
20340	GridBoxSpacings->{"Columns" -> {
20341	Offset[0.27999999999999997`], {
20342	Offset[0.7]},
20343	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
20344	Offset[0.2], {
20345	Offset[0.1]},
20346	Offset[0.2]}, "RowsIndexed" -> {}}],
20347	RowBox[{
20348	FractionBox[
20349	RowBox[{"3", " ", "\[ImaginaryI]", " ",
20350	SuperscriptBox[
20351	OverscriptBox["v", "^"], "2"], " ",
20352	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
20353	SubscriptBox[
20354	SubscriptBox["P", "\<\"-\"\>"],
20355	RowBox[{
20356	SubscriptBox["\<\"s\"\>", "1"], ",",
20357	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20358	SubscriptBox[
20359	TemplateBox[{"y","l"},
20360	"Superscript"],
20361	RowBox[{
20362	SubscriptBox["\<\"f\"\>", "1"], ",",
20363	SubscriptBox["\<\"f\"\>", "2"]}]]}],
20364	RowBox[{"2", " ",
20365	SqrtBox["2"], " ",
20366	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
20367	FractionBox[
20368	RowBox[{"3", " ", "\[ImaginaryI]", " ",
20369	SubscriptBox["c", "eH"], " ",
20370	SuperscriptBox[
20371	OverscriptBox["v", "^"], "2"], " ",
20372	SubscriptBox[
20373	SubscriptBox["P", "\<\"+\"\>"],
20374	RowBox[{
20375	SubscriptBox["\<\"s\"\>", "1"], ",",
20376	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20377	SubscriptBox[
20378	TemplateBox[{"y","l"},
20379	"Superscript"],
20380	RowBox[{
20381	SubscriptBox["\<\"f\"\>", "2"], ",",
20382	SubscriptBox["\<\"f\"\>", "1"]}]]}],
20383	RowBox[{"2", " ",
20384	SqrtBox["2"], " ",
20385	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
20386	FractionBox[
20387	RowBox[{"\[ImaginaryI]", " ",
20388	RowBox[{"(",
20389	RowBox[{
20390	RowBox[{
20391	SubsuperscriptBox["yl0",
20392	RowBox[{
20393	SubscriptBox["\<\"f\"\>", "2"], ",",
20394	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20395	SubscriptBox[
20396	SubscriptBox["P", "\<\"+\"\>"],
20397	RowBox[{
20398	SubscriptBox["\<\"s\"\>", "1"], ",",
20399	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20400	RowBox[{
20401	SubscriptBox[
20402	SubscriptBox["P", "\<\"-\"\>"],
20403	RowBox[{
20404	SubscriptBox["\<\"s\"\>", "1"], ",",
20405	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20406	SubscriptBox["yl0",
20407	RowBox[{
20408	SubscriptBox["\<\"f\"\>", "1"], ",",
20409	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20410	SqrtBox["2"]], "-",
20411	FractionBox[
20412	RowBox[{"\[ImaginaryI]", " ",
20413	SubscriptBox["c",
20414	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
20415	SuperscriptBox[
20416	OverscriptBox["v", "^"], "2"], " ",
20417	RowBox[{"(",
20418	RowBox[{
20419	RowBox[{
20420	SubsuperscriptBox["yl0",
20421	RowBox[{
20422	SubscriptBox["\<\"f\"\>", "2"], ",",
20423	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20424	SubscriptBox[
20425	SubscriptBox["P", "\<\"+\"\>"],
20426	RowBox[{
20427	SubscriptBox["\<\"s\"\>", "1"], ",",
20428	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20429	RowBox[{
20430	SubscriptBox[
20431	SubscriptBox["P", "\<\"-\"\>"],
20432	RowBox[{
20433	SubscriptBox["\<\"s\"\>", "1"], ",",
20434	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20435	SubscriptBox["yl0",
20436	RowBox[{
20437	SubscriptBox["\<\"f\"\>", "1"], ",",
20438	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20439	RowBox[{
20440	SqrtBox["2"], " ",
20441	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
20442	FractionBox[
20443	RowBox[{"\[ImaginaryI]", " ",
20444	SubscriptBox["c", "HD"], " ",
20445	SuperscriptBox[
20446	OverscriptBox["v", "^"], "2"], " ",
20447	RowBox[{"(",
20448	RowBox[{
20449	RowBox[{
20450	SubsuperscriptBox["yl0",
20451	RowBox[{
20452	SubscriptBox["\<\"f\"\>", "2"], ",",
20453	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20454	SubscriptBox[
20455	SubscriptBox["P", "\<\"+\"\>"],
20456	RowBox[{
20457	SubscriptBox["\<\"s\"\>", "1"], ",",
20458	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20459	RowBox[{
20460	SubscriptBox[
20461	SubscriptBox["P", "\<\"-\"\>"],
20462	RowBox[{
20463	SubscriptBox["\<\"s\"\>", "1"], ",",
20464	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20465	SubscriptBox["yl0",
20466	RowBox[{
20467	SubscriptBox["\<\"f\"\>", "1"], ",",
20468	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20469	RowBox[{"4", " ",
20470	SqrtBox["2"], " ",
20471	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
20472	{GridBox[{
20473	{
20474	OverscriptBox["uq", "\<\"-\"\>"], "1"},
20475	{"uq", "2"},
20476	{"H", "3"}
20477	},
20478	GridBoxAlignment->{
20479	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
20480	"RowsIndexed" -> {}},
20481	GridBoxSpacings->{"Columns" -> {
20482	Offset[0.27999999999999997`], {
20483	Offset[0.7]},
20484	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
20485	Offset[0.2], {
20486	Offset[0.1]},
20487	Offset[0.2]}, "RowsIndexed" -> {}}],
20488	RowBox[{
20489	FractionBox[
20490	RowBox[{"3", " ", "\[ImaginaryI]", " ",
20491	SuperscriptBox[
20492	OverscriptBox["v", "^"], "2"], " ",
20493	SubsuperscriptBox["c", "uH", "\<\"*\"\>"], " ",
20494	SubscriptBox["\[Delta]",
20495	RowBox[{
20496	SubscriptBox["\<\"m\"\>", "1"], ",",
20497	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20498	SubscriptBox[
20499	SubscriptBox["P", "\<\"-\"\>"],
20500	RowBox[{
20501	SubscriptBox["\<\"s\"\>", "1"], ",",
20502	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20503	SubscriptBox[
20504	TemplateBox[{"y","u"},
20505	"Superscript"],
20506	RowBox[{
20507	SubscriptBox["\<\"f\"\>", "1"], ",",
20508	SubscriptBox["\<\"f\"\>", "2"]}]]}],
20509	RowBox[{"2", " ",
20510	SqrtBox["2"], " ",
20511	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
20512	FractionBox[
20513	RowBox[{"3", " ", "\[ImaginaryI]", " ",
20514	SubscriptBox["c", "uH"], " ",
20515	SuperscriptBox[
20516	OverscriptBox["v", "^"], "2"], " ",
20517	SubscriptBox["\[Delta]",
20518	RowBox[{
20519	SubscriptBox["\<\"m\"\>", "1"], ",",
20520	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20521	SubscriptBox[
20522	SubscriptBox["P", "\<\"+\"\>"],
20523	RowBox[{
20524	SubscriptBox["\<\"s\"\>", "1"], ",",
20525	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20526	SubscriptBox[
20527	TemplateBox[{"y","u"},
20528	"Superscript"],
20529	RowBox[{
20530	SubscriptBox["\<\"f\"\>", "2"], ",",
20531	SubscriptBox["\<\"f\"\>", "1"]}]]}],
20532	RowBox[{"2", " ",
20533	SqrtBox["2"], " ",
20534	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
20535	FractionBox[
20536	RowBox[{"\[ImaginaryI]", " ",
20537	SubscriptBox["\[Delta]",
20538	RowBox[{
20539	SubscriptBox["\<\"m\"\>", "1"], ",",
20540	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20541	RowBox[{"(",
20542	RowBox[{
20543	RowBox[{
20544	SubsuperscriptBox["yu0",
20545	RowBox[{
20546	SubscriptBox["\<\"f\"\>", "2"], ",",
20547	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20548	SubscriptBox[
20549	SubscriptBox["P", "\<\"+\"\>"],
20550	RowBox[{
20551	SubscriptBox["\<\"s\"\>", "1"], ",",
20552	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20553	RowBox[{
20554	SubscriptBox[
20555	SubscriptBox["P", "\<\"-\"\>"],
20556	RowBox[{
20557	SubscriptBox["\<\"s\"\>", "1"], ",",
20558	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20559	SubscriptBox["yu0",
20560	RowBox[{
20561	SubscriptBox["\<\"f\"\>", "1"], ",",
20562	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20563	SqrtBox["2"]], "-",
20564	FractionBox[
20565	RowBox[{"\[ImaginaryI]", " ",
20566	SubscriptBox["c",
20567	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
20568	SuperscriptBox[
20569	OverscriptBox["v", "^"], "2"], " ",
20570	SubscriptBox["\[Delta]",
20571	RowBox[{
20572	SubscriptBox["\<\"m\"\>", "1"], ",",
20573	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20574	RowBox[{"(",
20575	RowBox[{
20576	RowBox[{
20577	SubsuperscriptBox["yu0",
20578	RowBox[{
20579	SubscriptBox["\<\"f\"\>", "2"], ",",
20580	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20581	SubscriptBox[
20582	SubscriptBox["P", "\<\"+\"\>"],
20583	RowBox[{
20584	SubscriptBox["\<\"s\"\>", "1"], ",",
20585	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20586	RowBox[{
20587	SubscriptBox[
20588	SubscriptBox["P", "\<\"-\"\>"],
20589	RowBox[{
20590	SubscriptBox["\<\"s\"\>", "1"], ",",
20591	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20592	SubscriptBox["yu0",
20593	RowBox[{
20594	SubscriptBox["\<\"f\"\>", "1"], ",",
20595	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20596	RowBox[{
20597	SqrtBox["2"], " ",
20598	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
20599	FractionBox[
20600	RowBox[{"\[ImaginaryI]", " ",
20601	SubscriptBox["c", "HD"], " ",
20602	SuperscriptBox[
20603	OverscriptBox["v", "^"], "2"], " ",
20604	SubscriptBox["\[Delta]",
20605	RowBox[{
20606	SubscriptBox["\<\"m\"\>", "1"], ",",
20607	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
20608	RowBox[{"(",
20609	RowBox[{
20610	RowBox[{
20611	SubsuperscriptBox["yu0",
20612	RowBox[{
20613	SubscriptBox["\<\"f\"\>", "2"], ",",
20614	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
20615	SubscriptBox[
20616	SubscriptBox["P", "\<\"+\"\>"],
20617	RowBox[{
20618	SubscriptBox["\<\"s\"\>", "1"], ",",
20619	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
20620	RowBox[{
20621	SubscriptBox[
20622	SubscriptBox["P", "\<\"-\"\>"],
20623	RowBox[{
20624	SubscriptBox["\<\"s\"\>", "1"], ",",
20625	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
20626	SubscriptBox["yu0",
20627	RowBox[{
20628	SubscriptBox["\<\"f\"\>", "1"], ",",
20629	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
20630	RowBox[{"4", " ",
20631	SqrtBox["2"], " ",
20632	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
20633	},
20634	GridBoxAlignment->{
20635	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
20636	"RowsIndexed" -> {}},
20637	GridBoxSpacings->{"Columns" -> {
20638	Offset[0.27999999999999997`], {
20639	Offset[2.0999999999999996`]},
20640	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
20641	Offset[0.2], {
20642	Offset[0.4]},
20643	Offset[0.2]}, "RowsIndexed" -> {}}],
20644	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
20645	FeynRules`H, 3}}, Complex[0,
20646	Rational[3, 2]]
20647	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
20648	Conjugate[$CellContext`cdH] FeynRules`IndexDelta[
20649	FeynRules`Index[FeynRules`Colour,
20650	FeynRules`Ext[1]],
20651	FeynRules`Index[FeynRules`Colour,
20652	FeynRules`Ext[2]]] FeynRules`ProjM[
20653	FeynRules`Index[FeynRules`Spin,
20654	FeynRules`Ext[1]],
20655	FeynRules`Index[FeynRules`Spin,
20656	FeynRules`Ext[2]]] $CellContext`yd[
20657	FeynRules`Index[$CellContext`Generation,
20658	FeynRules`Ext[1]],
20659	FeynRules`Index[$CellContext`Generation,
20660	FeynRules`Ext[2]]] + Complex[0,
20661	Rational[3, 2]]
20662	2^Rational[-1,
20663	2] $CellContext`cdH $CellContext`LambdaSMEFT^(-2) \
20664	$CellContext`vevhat^2 FeynRules`IndexDelta[
20665	FeynRules`Index[FeynRules`Colour,
20666	FeynRules`Ext[1]],
20667	FeynRules`Index[FeynRules`Colour,
20668	FeynRules`Ext[2]]] FeynRules`ProjP[
20669	FeynRules`Index[FeynRules`Spin,
20670	FeynRules`Ext[1]],
20671	FeynRules`Index[FeynRules`Spin,
20672	FeynRules`Ext[2]]] $CellContext`yd[
20673	FeynRules`Index[$CellContext`Generation,
20674	FeynRules`Ext[2]],
20675	FeynRules`Index[$CellContext`Generation,
20676	FeynRules`Ext[1]]] +
20677	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
20678	FeynRules`Index[FeynRules`Colour,
20679	FeynRules`Ext[1]],
20680	FeynRules`Index[FeynRules`Colour,
20681	FeynRules`Ext[2]]] (Conjugate[
20682	$CellContext`yd0[
20683	FeynRules`Index[$CellContext`Generation,
20684	FeynRules`Ext[2]],
20685	FeynRules`Index[$CellContext`Generation,
20686	FeynRules`Ext[1]]]] FeynRules`ProjP[
20687	FeynRules`Index[FeynRules`Spin,
20688	FeynRules`Ext[1]],
20689	FeynRules`Index[FeynRules`Spin,
20690	FeynRules`Ext[2]]] + FeynRules`ProjM[
20691	FeynRules`Index[FeynRules`Spin,
20692	FeynRules`Ext[1]],
20693	FeynRules`Index[FeynRules`Spin,
20694	FeynRules`Ext[2]]] $CellContext`yd0[
20695	FeynRules`Index[$CellContext`Generation,
20696	FeynRules`Ext[1]],
20697	FeynRules`Index[$CellContext`Generation,
20698	FeynRules`Ext[2]]]) +
20699	Complex[0, -1]
20700	2^Rational[-1,
20701	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
20702	$CellContext`vevhat^2 FeynRules`IndexDelta[
20703	FeynRules`Index[FeynRules`Colour,
20704	FeynRules`Ext[1]],
20705	FeynRules`Index[FeynRules`Colour,
20706	FeynRules`Ext[2]]] (Conjugate[
20707	$CellContext`yd0[
20708	FeynRules`Index[$CellContext`Generation,
20709	FeynRules`Ext[2]],
20710	FeynRules`Index[$CellContext`Generation,
20711	FeynRules`Ext[1]]]] FeynRules`ProjP[
20712	FeynRules`Index[FeynRules`Spin,
20713	FeynRules`Ext[1]],
20714	FeynRules`Index[FeynRules`Spin,
20715	FeynRules`Ext[2]]] + FeynRules`ProjM[
20716	FeynRules`Index[FeynRules`Spin,
20717	FeynRules`Ext[1]],
20718	FeynRules`Index[FeynRules`Spin,
20719	FeynRules`Ext[2]]] $CellContext`yd0[
20720	FeynRules`Index[$CellContext`Generation,
20721	FeynRules`Ext[1]],
20722	FeynRules`Index[$CellContext`Generation,
20723	FeynRules`Ext[2]]]) + Complex[0,
20724	Rational[1, 4]]
20725	2^Rational[-1,
20726	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
20727	$CellContext`vevhat^2 FeynRules`IndexDelta[
20728	FeynRules`Index[FeynRules`Colour,
20729	FeynRules`Ext[1]],
20730	FeynRules`Index[FeynRules`Colour,
20731	FeynRules`Ext[2]]] (Conjugate[
20732	$CellContext`yd0[
20733	FeynRules`Index[$CellContext`Generation,
20734	FeynRules`Ext[2]],
20735	FeynRules`Index[$CellContext`Generation,
20736	FeynRules`Ext[1]]]] FeynRules`ProjP[
20737	FeynRules`Index[FeynRules`Spin,
20738	FeynRules`Ext[1]],
20739	FeynRules`Index[FeynRules`Spin,
20740	FeynRules`Ext[2]]] + FeynRules`ProjM[
20741	FeynRules`Index[FeynRules`Spin,
20742	FeynRules`Ext[1]],
20743	FeynRules`Index[FeynRules`Spin,
20744	FeynRules`Ext[2]]] $CellContext`yd0[
20745	FeynRules`Index[$CellContext`Generation,
20746	FeynRules`Ext[1]],
20747	FeynRules`Index[$CellContext`Generation,
20748	FeynRules`Ext[2]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
20749	FeynRules`H, 3}}, Complex[0,
20750	Rational[3, 2]]
20751	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
20752	Conjugate[$CellContext`ceH] FeynRules`ProjM[
20753	FeynRules`Index[FeynRules`Spin,
20754	FeynRules`Ext[1]],
20755	FeynRules`Index[FeynRules`Spin,
20756	FeynRules`Ext[2]]] $CellContext`yl[
20757	FeynRules`Index[$CellContext`Generation,
20758	FeynRules`Ext[1]],
20759	FeynRules`Index[$CellContext`Generation,
20760	FeynRules`Ext[2]]] + Complex[0,
20761	Rational[3, 2]]
20762	2^Rational[-1,
20763	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
20764	$CellContext`vevhat^2 FeynRules`ProjP[
20765	FeynRules`Index[FeynRules`Spin,
20766	FeynRules`Ext[1]],
20767	FeynRules`Index[FeynRules`Spin,
20768	FeynRules`Ext[2]]] $CellContext`yl[
20769	FeynRules`Index[$CellContext`Generation,
20770	FeynRules`Ext[2]],
20771	FeynRules`Index[$CellContext`Generation,
20772	FeynRules`Ext[1]]] + Complex[0, -1] 2^Rational[-1, 2] (Conjugate[
20773	$CellContext`yl0[
20774	FeynRules`Index[$CellContext`Generation,
20775	FeynRules`Ext[2]],
20776	FeynRules`Index[$CellContext`Generation,
20777	FeynRules`Ext[1]]]] FeynRules`ProjP[
20778	FeynRules`Index[FeynRules`Spin,
20779	FeynRules`Ext[1]],
20780	FeynRules`Index[FeynRules`Spin,
20781	FeynRules`Ext[2]]] + FeynRules`ProjM[
20782	FeynRules`Index[FeynRules`Spin,
20783	FeynRules`Ext[1]],
20784	FeynRules`Index[FeynRules`Spin,
20785	FeynRules`Ext[2]]] $CellContext`yl0[
20786	FeynRules`Index[$CellContext`Generation,
20787	FeynRules`Ext[1]],
20788	FeynRules`Index[$CellContext`Generation,
20789	FeynRules`Ext[2]]]) +
20790	Complex[0, -1]
20791	2^Rational[-1,
20792	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
20793	$CellContext`vevhat^2 (Conjugate[
20794	$CellContext`yl0[
20795	FeynRules`Index[$CellContext`Generation,
20796	FeynRules`Ext[2]],
20797	FeynRules`Index[$CellContext`Generation,
20798	FeynRules`Ext[1]]]] FeynRules`ProjP[
20799	FeynRules`Index[FeynRules`Spin,
20800	FeynRules`Ext[1]],
20801	FeynRules`Index[FeynRules`Spin,
20802	FeynRules`Ext[2]]] + FeynRules`ProjM[
20803	FeynRules`Index[FeynRules`Spin,
20804	FeynRules`Ext[1]],
20805	FeynRules`Index[FeynRules`Spin,
20806	FeynRules`Ext[2]]] $CellContext`yl0[
20807	FeynRules`Index[$CellContext`Generation,
20808	FeynRules`Ext[1]],
20809	FeynRules`Index[$CellContext`Generation,
20810	FeynRules`Ext[2]]]) + Complex[0,
20811	Rational[1, 4]]
20812	2^Rational[-1,
20813	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
20814	$CellContext`vevhat^2 (Conjugate[
20815	$CellContext`yl0[
20816	FeynRules`Index[$CellContext`Generation,
20817	FeynRules`Ext[2]],
20818	FeynRules`Index[$CellContext`Generation,
20819	FeynRules`Ext[1]]]] FeynRules`ProjP[
20820	FeynRules`Index[FeynRules`Spin,
20821	FeynRules`Ext[1]],
20822	FeynRules`Index[FeynRules`Spin,
20823	FeynRules`Ext[2]]] + FeynRules`ProjM[
20824	FeynRules`Index[FeynRules`Spin,
20825	FeynRules`Ext[1]],
20826	FeynRules`Index[FeynRules`Spin,
20827	FeynRules`Ext[2]]] $CellContext`yl0[
20828	FeynRules`Index[$CellContext`Generation,
20829	FeynRules`Ext[1]],
20830	FeynRules`Index[$CellContext`Generation,
20831	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
20832	2}, {FeynRules`H, 3}}, Complex[0,
20833	Rational[3, 2]]
20834	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2
20835	Conjugate[$CellContext`cuH] FeynRules`IndexDelta[
20836	FeynRules`Index[FeynRules`Colour,
20837	FeynRules`Ext[1]],
20838	FeynRules`Index[FeynRules`Colour,
20839	FeynRules`Ext[2]]] FeynRules`ProjM[
20840	FeynRules`Index[FeynRules`Spin,
20841	FeynRules`Ext[1]],
20842	FeynRules`Index[FeynRules`Spin,
20843	FeynRules`Ext[2]]] $CellContext`yu[
20844	FeynRules`Index[$CellContext`Generation,
20845	FeynRules`Ext[1]],
20846	FeynRules`Index[$CellContext`Generation,
20847	FeynRules`Ext[2]]] + Complex[0,
20848	Rational[3, 2]]
20849	2^Rational[-1,
20850	2] $CellContext`cuH $CellContext`LambdaSMEFT^(-2) \
20851	$CellContext`vevhat^2 FeynRules`IndexDelta[
20852	FeynRules`Index[FeynRules`Colour,
20853	FeynRules`Ext[1]],
20854	FeynRules`Index[FeynRules`Colour,
20855	FeynRules`Ext[2]]] FeynRules`ProjP[
20856	FeynRules`Index[FeynRules`Spin,
20857	FeynRules`Ext[1]],
20858	FeynRules`Index[FeynRules`Spin,
20859	FeynRules`Ext[2]]] $CellContext`yu[
20860	FeynRules`Index[$CellContext`Generation,
20861	FeynRules`Ext[2]],
20862	FeynRules`Index[$CellContext`Generation,
20863	FeynRules`Ext[1]]] +
20864	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
20865	FeynRules`Index[FeynRules`Colour,
20866	FeynRules`Ext[1]],
20867	FeynRules`Index[FeynRules`Colour,
20868	FeynRules`Ext[2]]] (Conjugate[
20869	$CellContext`yu0[
20870	FeynRules`Index[$CellContext`Generation,
20871	FeynRules`Ext[2]],
20872	FeynRules`Index[$CellContext`Generation,
20873	FeynRules`Ext[1]]]] FeynRules`ProjP[
20874	FeynRules`Index[FeynRules`Spin,
20875	FeynRules`Ext[1]],
20876	FeynRules`Index[FeynRules`Spin,
20877	FeynRules`Ext[2]]] + FeynRules`ProjM[
20878	FeynRules`Index[FeynRules`Spin,
20879	FeynRules`Ext[1]],
20880	FeynRules`Index[FeynRules`Spin,
20881	FeynRules`Ext[2]]] $CellContext`yu0[
20882	FeynRules`Index[$CellContext`Generation,
20883	FeynRules`Ext[1]],
20884	FeynRules`Index[$CellContext`Generation,
20885	FeynRules`Ext[2]]]) +
20886	Complex[0, -1]
20887	2^Rational[-1,
20888	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
20889	$CellContext`vevhat^2 FeynRules`IndexDelta[
20890	FeynRules`Index[FeynRules`Colour,
20891	FeynRules`Ext[1]],
20892	FeynRules`Index[FeynRules`Colour,
20893	FeynRules`Ext[2]]] (Conjugate[
20894	$CellContext`yu0[
20895	FeynRules`Index[$CellContext`Generation,
20896	FeynRules`Ext[2]],
20897	FeynRules`Index[$CellContext`Generation,
20898	FeynRules`Ext[1]]]] FeynRules`ProjP[
20899	FeynRules`Index[FeynRules`Spin,
20900	FeynRules`Ext[1]],
20901	FeynRules`Index[FeynRules`Spin,
20902	FeynRules`Ext[2]]] + FeynRules`ProjM[
20903	FeynRules`Index[FeynRules`Spin,
20904	FeynRules`Ext[1]],
20905	FeynRules`Index[FeynRules`Spin,
20906	FeynRules`Ext[2]]] $CellContext`yu0[
20907	FeynRules`Index[$CellContext`Generation,
20908	FeynRules`Ext[1]],
20909	FeynRules`Index[$CellContext`Generation,
20910	FeynRules`Ext[2]]]) + Complex[0,
20911	Rational[1, 4]]
20912	2^Rational[-1,
20913	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
20914	$CellContext`vevhat^2 FeynRules`IndexDelta[
20915	FeynRules`Index[FeynRules`Colour,
20916	FeynRules`Ext[1]],
20917	FeynRules`Index[FeynRules`Colour,
20918	FeynRules`Ext[2]]] (Conjugate[
20919	$CellContext`yu0[
20920	FeynRules`Index[$CellContext`Generation,
20921	FeynRules`Ext[2]],
20922	FeynRules`Index[$CellContext`Generation,
20923	FeynRules`Ext[1]]]] FeynRules`ProjP[
20924	FeynRules`Index[FeynRules`Spin,
20925	FeynRules`Ext[1]],
20926	FeynRules`Index[FeynRules`Spin,
20927	FeynRules`Ext[2]]] + FeynRules`ProjM[
20928	FeynRules`Index[FeynRules`Spin,
20929	FeynRules`Ext[1]],
20930	FeynRules`Index[FeynRules`Spin,
20931	FeynRules`Ext[2]]] $CellContext`yu0[
20932	FeynRules`Index[$CellContext`Generation,
20933	FeynRules`Ext[1]],
20934	FeynRules`Index[$CellContext`Generation,
20935	FeynRules`Ext[2]]])}}]]], "Output",
20936	CellChangeTimes->{{3.714653869780055^9, 3.714653893377253^9},
20937	3.714653972746155^9, 3.7146545673835583`^9,
20938	3.7295857966249332`*^9},ExpressionUUID->"db154988-6746-400b-a15e-\
20939	6b48bfc73c99"]
20940	}, Open ]],
20941
20942	Cell["Flavor expansion for the leptons' case", "Text",
20943	CellChangeTimes->{{3.7146540002012587`^9, 3.714654016686934^9}}],
20944
20945	Cell[CellGroupData[{
20946
20947	Cell[BoxData[
20948	RowBox[{"hll", "=",
20949	RowBox[{
20950	RowBox[{
20951	RowBox[{
20952	RowBox[{
20953	RowBox[{"{",
20954	RowBox[{"hff", "[",
20955	RowBox[{"[",
20956	RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//",
20957	"FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//",
20958	"TableForm"}]}]], "Input",
20959	CellChangeTimes->{{3.714653897213532*^9,
20960	3.714653998430573*^9}},ExpressionUUID->"f61e1c1b-cb8f-4ba2-ab75-\
20961	bb76fc7a164f"],
20962
20963	Cell[BoxData[
20964	InterpretationBox[
20965	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
20966	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
20967	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
20968	"\[InvisibleSpace]", "1"}],
20969	SequenceForm["Flavor expansion of the vertices: ",
20970	Dynamic[FeynRules`FR$Count1], " / ", 1],
20971	Editable->False]], "Print",
20972	CellChangeTimes->{{3.714653911127839^9, 3.714653919833921^9}, {
20973	3.714653951564291^9, 3.71465401970082^9}, 3.714654567510392*^9,
20974	3.729585796729418*^9},ExpressionUUID->"6cdf3004-e094-44eb-b573-\
20975	2d59c188b8e2"],
20976
20977	Cell[BoxData[
20978	InterpretationBox[GridBox[{
20979	{GridBox[{
20980	{"H", "1"},
20981	{
20982	OverscriptBox["e", "\<\"-\"\>"], "2"},
20983	{"e", "3"}
20984	},
20985	GridBoxAlignment->{
20986	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
20987	"RowsIndexed" -> {}},
20988	GridBoxSpacings->{"Columns" -> {
20989	Offset[0.27999999999999997`], {
20990	Offset[0.7]},
20991	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
20992	Offset[0.2], {
20993	Offset[0.1]},
20994	Offset[0.2]}, "RowsIndexed" -> {}}],
20995	RowBox[{
20996	RowBox[{"-",
20997	FractionBox[
20998	RowBox[{"\[ImaginaryI]", " ", "ye", " ",
20999	SubscriptBox["\[Delta]",
21000	RowBox[{
21001	SubscriptBox["\<\"s\"\>", "2"], ",",
21002	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21003	SqrtBox["2"]]}], "+",
21004	RowBox[{
21005	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye",
21006	" ",
21007	SubscriptBox["\[Delta]",
21008	RowBox[{
21009	SubscriptBox["\<\"s\"\>", "2"], ",",
21010	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
21011	FractionBox[
21012	RowBox[{"\[ImaginaryI]", " ",
21013	SubscriptBox["c",
21014	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
21015	SuperscriptBox[
21016	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
21017	SubscriptBox["\[Delta]",
21018	RowBox[{
21019	SubscriptBox["\<\"s\"\>", "2"], ",",
21020	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21021	RowBox[{
21022	SqrtBox["2"], " ",
21023	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21024	FractionBox[
21025	RowBox[{"\[ImaginaryI]", " ",
21026	SubscriptBox["c", "HD"], " ",
21027	SuperscriptBox[
21028	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
21029	SubscriptBox["\[Delta]",
21030	RowBox[{
21031	SubscriptBox["\<\"s\"\>", "2"], ",",
21032	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21033	RowBox[{"4", " ",
21034	SqrtBox["2"], " ",
21035	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21036	FractionBox[
21037	RowBox[{"\[ImaginaryI]", " ",
21038	SuperscriptBox[
21039	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
21040	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
21041	SubscriptBox[
21042	SubscriptBox["P", "\<\"-\"\>"],
21043	RowBox[{
21044	SubscriptBox["\<\"s\"\>", "2"], ",",
21045	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21046	RowBox[{
21047	SqrtBox["2"], " ",
21048	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21049	FractionBox[
21050	RowBox[{"\[ImaginaryI]", " ",
21051	SubscriptBox["c", "eH"], " ",
21052	SuperscriptBox[
21053	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
21054	SubscriptBox[
21055	SubscriptBox["P", "\<\"+\"\>"],
21056	RowBox[{
21057	SubscriptBox["\<\"s\"\>", "2"], ",",
21058	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21059	RowBox[{
21060	SqrtBox["2"], " ",
21061	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
21062	{GridBox[{
21063	{"H", "1"},
21064	{
21065	OverscriptBox["mu", "\<\"-\"\>"], "2"},
21066	{"mu", "3"}
21067	},
21068	GridBoxAlignment->{
21069	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21070	"RowsIndexed" -> {}},
21071	GridBoxSpacings->{"Columns" -> {
21072	Offset[0.27999999999999997`], {
21073	Offset[0.7]},
21074	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21075	Offset[0.2], {
21076	Offset[0.1]},
21077	Offset[0.2]}, "RowsIndexed" -> {}}],
21078	RowBox[{
21079	RowBox[{"-",
21080	FractionBox[
21081	RowBox[{"\[ImaginaryI]", " ", "ym", " ",
21082	SubscriptBox["\[Delta]",
21083	RowBox[{
21084	SubscriptBox["\<\"s\"\>", "2"], ",",
21085	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21086	SqrtBox["2"]]}], "+",
21087	RowBox[{
21088	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym",
21089	" ",
21090	SubscriptBox["\[Delta]",
21091	RowBox[{
21092	SubscriptBox["\<\"s\"\>", "2"], ",",
21093	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
21094	FractionBox[
21095	RowBox[{"\[ImaginaryI]", " ",
21096	SubscriptBox["c",
21097	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
21098	SuperscriptBox[
21099	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
21100	SubscriptBox["\[Delta]",
21101	RowBox[{
21102	SubscriptBox["\<\"s\"\>", "2"], ",",
21103	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21104	RowBox[{
21105	SqrtBox["2"], " ",
21106	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21107	FractionBox[
21108	RowBox[{"\[ImaginaryI]", " ",
21109	SubscriptBox["c", "HD"], " ",
21110	SuperscriptBox[
21111	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
21112	SubscriptBox["\[Delta]",
21113	RowBox[{
21114	SubscriptBox["\<\"s\"\>", "2"], ",",
21115	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21116	RowBox[{"4", " ",
21117	SqrtBox["2"], " ",
21118	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21119	FractionBox[
21120	RowBox[{"\[ImaginaryI]", " ",
21121	SuperscriptBox[
21122	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
21123	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
21124	SubscriptBox[
21125	SubscriptBox["P", "\<\"-\"\>"],
21126	RowBox[{
21127	SubscriptBox["\<\"s\"\>", "2"], ",",
21128	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21129	RowBox[{
21130	SqrtBox["2"], " ",
21131	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21132	FractionBox[
21133	RowBox[{"\[ImaginaryI]", " ",
21134	SubscriptBox["c", "eH"], " ",
21135	SuperscriptBox[
21136	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
21137	SubscriptBox[
21138	SubscriptBox["P", "\<\"+\"\>"],
21139	RowBox[{
21140	SubscriptBox["\<\"s\"\>", "2"], ",",
21141	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21142	RowBox[{
21143	SqrtBox["2"], " ",
21144	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
21145	{GridBox[{
21146	{"H", "1"},
21147	{
21148	OverscriptBox["ta", "\<\"-\"\>"], "2"},
21149	{"ta", "3"}
21150	},
21151	GridBoxAlignment->{
21152	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21153	"RowsIndexed" -> {}},
21154	GridBoxSpacings->{"Columns" -> {
21155	Offset[0.27999999999999997`], {
21156	Offset[0.7]},
21157	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21158	Offset[0.2], {
21159	Offset[0.1]},
21160	Offset[0.2]}, "RowsIndexed" -> {}}],
21161	RowBox[{
21162	RowBox[{"-",
21163	FractionBox[
21164	RowBox[{"\[ImaginaryI]", " ", "ytau", " ",
21165	SubscriptBox["\[Delta]",
21166	RowBox[{
21167	SubscriptBox["\<\"s\"\>", "2"], ",",
21168	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21169	SqrtBox["2"]]}], "+",
21170	RowBox[{
21171	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau",
21172	" ",
21173	SubscriptBox["\[Delta]",
21174	RowBox[{
21175	SubscriptBox["\<\"s\"\>", "2"], ",",
21176	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
21177	FractionBox[
21178	RowBox[{"\[ImaginaryI]", " ",
21179	SubscriptBox["c",
21180	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
21181	SuperscriptBox[
21182	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
21183	SubscriptBox["\[Delta]",
21184	RowBox[{
21185	SubscriptBox["\<\"s\"\>", "2"], ",",
21186	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21187	RowBox[{
21188	SqrtBox["2"], " ",
21189	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21190	FractionBox[
21191	RowBox[{"\[ImaginaryI]", " ",
21192	SubscriptBox["c", "HD"], " ",
21193	SuperscriptBox[
21194	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
21195	SubscriptBox["\[Delta]",
21196	RowBox[{
21197	SubscriptBox["\<\"s\"\>", "2"], ",",
21198	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21199	RowBox[{"4", " ",
21200	SqrtBox["2"], " ",
21201	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21202	FractionBox[
21203	RowBox[{"\[ImaginaryI]", " ",
21204	SuperscriptBox[
21205	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
21206	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
21207	SubscriptBox[
21208	SubscriptBox["P", "\<\"-\"\>"],
21209	RowBox[{
21210	SubscriptBox["\<\"s\"\>", "2"], ",",
21211	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21212	RowBox[{
21213	SqrtBox["2"], " ",
21214	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
21215	FractionBox[
21216	RowBox[{"\[ImaginaryI]", " ",
21217	SubscriptBox["c", "eH"], " ",
21218	SuperscriptBox[
21219	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
21220	SubscriptBox[
21221	SubscriptBox["P", "\<\"+\"\>"],
21222	RowBox[{
21223	SubscriptBox["\<\"s\"\>", "2"], ",",
21224	SubscriptBox["\<\"s\"\>", "3"]}]]}],
21225	RowBox[{
21226	SqrtBox["2"], " ",
21227	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
21228	},
21229	GridBoxAlignment->{
21230	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21231	"RowsIndexed" -> {}},
21232	GridBoxSpacings->{"Columns" -> {
21233	Offset[0.27999999999999997`], {
21234	Offset[2.0999999999999996`]},
21235	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21236	Offset[0.2], {
21237	Offset[0.4]},
21238	Offset[0.2]}, "RowsIndexed" -> {}}],
21239	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
21240	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
21241	FeynRules`Index[FeynRules`Spin,
21242	FeynRules`Ext[2]],
21243	FeynRules`Index[FeynRules`Spin,
21244	FeynRules`Ext[3]]] + Complex[0,
21245	Rational[1, 2]] $CellContext`dGf $CellContext`ye
21246	FeynRules`IndexDelta[
21247	FeynRules`Index[FeynRules`Spin,
21248	FeynRules`Ext[2]],
21249	FeynRules`Index[FeynRules`Spin,
21250	FeynRules`Ext[3]]] +
21251	Complex[0, -1]
21252	2^Rational[-1,
21253	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
21254	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
21255	FeynRules`Index[FeynRules`Spin,
21256	FeynRules`Ext[2]],
21257	FeynRules`Index[FeynRules`Spin,
21258	FeynRules`Ext[3]]] + Complex[0,
21259	Rational[1, 4]]
21260	2^Rational[-1,
21261	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
21262	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
21263	FeynRules`Index[FeynRules`Spin,
21264	FeynRules`Ext[2]],
21265	FeynRules`Index[FeynRules`Spin,
21266	FeynRules`Ext[3]]] +
21267	Complex[0, 1]
21268	2^Rational[-1,
21269	2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
21270	$CellContext`ye Conjugate[$CellContext`ceH] FeynRules`ProjM[
21271	FeynRules`Index[FeynRules`Spin,
21272	FeynRules`Ext[2]],
21273	FeynRules`Index[FeynRules`Spin,
21274	FeynRules`Ext[3]]] +
21275	Complex[0, 1]
21276	2^Rational[-1,
21277	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
21278	$CellContext`vevhat^2 $CellContext`ye FeynRules`ProjP[
21279	FeynRules`Index[FeynRules`Spin,
21280	FeynRules`Ext[2]],
21281	FeynRules`Index[FeynRules`Spin,
21282	FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
21283	FeynRules`mu, 3}},
21284	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
21285	FeynRules`Index[FeynRules`Spin,
21286	FeynRules`Ext[2]],
21287	FeynRules`Index[FeynRules`Spin,
21288	FeynRules`Ext[3]]] + Complex[0,
21289	Rational[1, 2]] $CellContext`dGf $CellContext`ym
21290	FeynRules`IndexDelta[
21291	FeynRules`Index[FeynRules`Spin,
21292	FeynRules`Ext[2]],
21293	FeynRules`Index[FeynRules`Spin,
21294	FeynRules`Ext[3]]] +
21295	Complex[0, -1]
21296	2^Rational[-1,
21297	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
21298	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
21299	FeynRules`Index[FeynRules`Spin,
21300	FeynRules`Ext[2]],
21301	FeynRules`Index[FeynRules`Spin,
21302	FeynRules`Ext[3]]] + Complex[0,
21303	Rational[1, 4]]
21304	2^Rational[-1,
21305	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
21306	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
21307	FeynRules`Index[FeynRules`Spin,
21308	FeynRules`Ext[2]],
21309	FeynRules`Index[FeynRules`Spin,
21310	FeynRules`Ext[3]]] +
21311	Complex[0, 1]
21312	2^Rational[-1,
21313	2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
21314	$CellContext`ym Conjugate[$CellContext`ceH] FeynRules`ProjM[
21315	FeynRules`Index[FeynRules`Spin,
21316	FeynRules`Ext[2]],
21317	FeynRules`Index[FeynRules`Spin,
21318	FeynRules`Ext[3]]] +
21319	Complex[0, 1]
21320	2^Rational[-1,
21321	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
21322	$CellContext`vevhat^2 $CellContext`ym FeynRules`ProjP[
21323	FeynRules`Index[FeynRules`Spin,
21324	FeynRules`Ext[2]],
21325	FeynRules`Index[FeynRules`Spin,
21326	FeynRules`Ext[3]]]}, {{{
21327	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
21328	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
21329	FeynRules`Index[FeynRules`Spin,
21330	FeynRules`Ext[2]],
21331	FeynRules`Index[FeynRules`Spin,
21332	FeynRules`Ext[3]]] + Complex[0,
21333	Rational[1, 2]] $CellContext`dGf $CellContext`ytau
21334	FeynRules`IndexDelta[
21335	FeynRules`Index[FeynRules`Spin,
21336	FeynRules`Ext[2]],
21337	FeynRules`Index[FeynRules`Spin,
21338	FeynRules`Ext[3]]] +
21339	Complex[0, -1]
21340	2^Rational[-1,
21341	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
21342	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
21343	FeynRules`Index[FeynRules`Spin,
21344	FeynRules`Ext[2]],
21345	FeynRules`Index[FeynRules`Spin,
21346	FeynRules`Ext[3]]] + Complex[0,
21347	Rational[1, 4]]
21348	2^Rational[-1,
21349	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
21350	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
21351	FeynRules`Index[FeynRules`Spin,
21352	FeynRules`Ext[2]],
21353	FeynRules`Index[FeynRules`Spin,
21354	FeynRules`Ext[3]]] +
21355	Complex[0, 1]
21356	2^Rational[-1,
21357	2] $CellContext`LambdaSMEFT^(-2) $CellContext`vevhat^2 \
21358	$CellContext`ytau Conjugate[$CellContext`ceH] FeynRules`ProjM[
21359	FeynRules`Index[FeynRules`Spin,
21360	FeynRules`Ext[2]],
21361	FeynRules`Index[FeynRules`Spin,
21362	FeynRules`Ext[3]]] +
21363	Complex[0, 1]
21364	2^Rational[-1,
21365	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
21366	$CellContext`vevhat^2 $CellContext`ytau FeynRules`ProjP[
21367	FeynRules`Index[FeynRules`Spin,
21368	FeynRules`Ext[2]],
21369	FeynRules`Index[FeynRules`Spin,
21370	FeynRules`Ext[3]]]}}]]], "Output",
21371	CellChangeTimes->{{3.714653911402326^9, 3.714653920602931^9}, {
21372	3.714653952474135^9, 3.714654020646657^9}, 3.7146545684859324`*^9,
21373	3.7295857980274878`*^9},ExpressionUUID->"9c8394cc-566b-43e9-b5af-\
21374	e5b5668bef32"]
21375	}, Open ]],
21376
21377	Cell[CellGroupData[{
21378
21379	Cell[BoxData[
21380	RowBox[{
21381	RowBox[{
21382	RowBox[{"hll", "//.", "MwShifts"}], "//", "WCsimplify"}], "//",
21383	"TableForm"}]], "Input",
21384	CellChangeTimes->{{3.7146540238619328`^9, 3.714654043748782^9}, {
21385	3.714654567273402*^9,
21386	3.714654569198159*^9}},ExpressionUUID->"a4f57594-b9d7-4b32-8d49-\
21387	158e60dedf59"],
21388
21389	Cell[BoxData[
21390	TagBox[
21391	InterpretationBox[GridBox[{
21392	{GridBox[{
21393	{"H", "1"},
21394	{
21395	OverscriptBox["e", "\<\"-\"\>"], "2"},
21396	{"e", "3"}
21397	},
21398	GridBoxAlignment->{
21399	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21400	"RowsIndexed" -> {}},
21401	GridBoxSpacings->{"Columns" -> {
21402	Offset[0.27999999999999997`], {
21403	Offset[0.7]},
21404	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21405	Offset[0.2], {
21406	Offset[0.1]},
21407	Offset[0.2]}, "RowsIndexed" -> {}}],
21408	RowBox[{"-",
21409	FractionBox[
21410	RowBox[{"\[ImaginaryI]", " ", "ye", " ",
21411	RowBox[{"(",
21412	RowBox[{
21413	RowBox[{
21414	RowBox[{"(",
21415	RowBox[{
21416	RowBox[{"4", " ",
21417	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
21418	RowBox[{
21419	RowBox[{"(",
21420	RowBox[{
21421	RowBox[{"4", " ",
21422	SubscriptBox["c",
21423	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
21424	SubscriptBox["c", "HD"], "-",
21425	RowBox[{"4", " ",
21426	TemplateBox[{"c","Hl","3"},
21427	"Subsuperscript"]}], "+",
21428	RowBox[{"2", " ",
21429	TemplateBox[{"c","ll","Prime"},
21430	"Subsuperscript"]}]}], ")"}], " ",
21431	SuperscriptBox[
21432	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
21433	SubscriptBox["\[Delta]",
21434	RowBox[{
21435	SubscriptBox["\<\"s\"\>", "2"], ",",
21436	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
21437	RowBox[{"4", " ",
21438	SuperscriptBox[
21439	OverscriptBox["v", "^"], "2"], " ",
21440	RowBox[{"(",
21441	RowBox[{
21442	RowBox[{
21443	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
21444	SubscriptBox[
21445	SubscriptBox["P", "\<\"-\"\>"],
21446	RowBox[{
21447	SubscriptBox["\<\"s\"\>", "2"], ",",
21448	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
21449	RowBox[{
21450	SubscriptBox["c", "eH"], " ",
21451	SubscriptBox[
21452	SubscriptBox["P", "\<\"+\"\>"],
21453	RowBox[{
21454	SubscriptBox["\<\"s\"\>", "2"], ",",
21455	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
21456	RowBox[{"4", " ",
21457	SqrtBox["2"], " ",
21458	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
21459	{GridBox[{
21460	{"H", "1"},
21461	{
21462	OverscriptBox["mu", "\<\"-\"\>"], "2"},
21463	{"mu", "3"}
21464	},
21465	GridBoxAlignment->{
21466	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21467	"RowsIndexed" -> {}},
21468	GridBoxSpacings->{"Columns" -> {
21469	Offset[0.27999999999999997`], {
21470	Offset[0.7]},
21471	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21472	Offset[0.2], {
21473	Offset[0.1]},
21474	Offset[0.2]}, "RowsIndexed" -> {}}],
21475	RowBox[{"-",
21476	FractionBox[
21477	RowBox[{"\[ImaginaryI]", " ", "ym", " ",
21478	RowBox[{"(",
21479	RowBox[{
21480	RowBox[{
21481	RowBox[{"(",
21482	RowBox[{
21483	RowBox[{"4", " ",
21484	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
21485	RowBox[{
21486	RowBox[{"(",
21487	RowBox[{
21488	RowBox[{"4", " ",
21489	SubscriptBox["c",
21490	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
21491	SubscriptBox["c", "HD"], "-",
21492	RowBox[{"4", " ",
21493	TemplateBox[{"c","Hl","3"},
21494	"Subsuperscript"]}], "+",
21495	RowBox[{"2", " ",
21496	TemplateBox[{"c","ll","Prime"},
21497	"Subsuperscript"]}]}], ")"}], " ",
21498	SuperscriptBox[
21499	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
21500	SubscriptBox["\[Delta]",
21501	RowBox[{
21502	SubscriptBox["\<\"s\"\>", "2"], ",",
21503	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
21504	RowBox[{"4", " ",
21505	SuperscriptBox[
21506	OverscriptBox["v", "^"], "2"], " ",
21507	RowBox[{"(",
21508	RowBox[{
21509	RowBox[{
21510	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
21511	SubscriptBox[
21512	SubscriptBox["P", "\<\"-\"\>"],
21513	RowBox[{
21514	SubscriptBox["\<\"s\"\>", "2"], ",",
21515	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
21516	RowBox[{
21517	SubscriptBox["c", "eH"], " ",
21518	SubscriptBox[
21519	SubscriptBox["P", "\<\"+\"\>"],
21520	RowBox[{
21521	SubscriptBox["\<\"s\"\>", "2"], ",",
21522	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
21523	RowBox[{"4", " ",
21524	SqrtBox["2"], " ",
21525	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
21526	{GridBox[{
21527	{"H", "1"},
21528	{
21529	OverscriptBox["ta", "\<\"-\"\>"], "2"},
21530	{"ta", "3"}
21531	},
21532	GridBoxAlignment->{
21533	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21534	"RowsIndexed" -> {}},
21535	GridBoxSpacings->{"Columns" -> {
21536	Offset[0.27999999999999997`], {
21537	Offset[0.7]},
21538	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21539	Offset[0.2], {
21540	Offset[0.1]},
21541	Offset[0.2]}, "RowsIndexed" -> {}}],
21542	RowBox[{"-",
21543	FractionBox[
21544	RowBox[{"\[ImaginaryI]", " ", "ytau", " ",
21545	RowBox[{"(",
21546	RowBox[{
21547	RowBox[{
21548	RowBox[{"(",
21549	RowBox[{
21550	RowBox[{"4", " ",
21551	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
21552	RowBox[{
21553	RowBox[{"(",
21554	RowBox[{
21555	RowBox[{"4", " ",
21556	SubscriptBox["c",
21557	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "-",
21558	SubscriptBox["c", "HD"], "-",
21559	RowBox[{"4", " ",
21560	TemplateBox[{"c","Hl","3"},
21561	"Subsuperscript"]}], "+",
21562	RowBox[{"2", " ",
21563	TemplateBox[{"c","ll","Prime"},
21564	"Subsuperscript"]}]}], ")"}], " ",
21565	SuperscriptBox[
21566	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
21567	SubscriptBox["\[Delta]",
21568	RowBox[{
21569	SubscriptBox["\<\"s\"\>", "2"], ",",
21570	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
21571	RowBox[{"4", " ",
21572	SuperscriptBox[
21573	OverscriptBox["v", "^"], "2"], " ",
21574	RowBox[{"(",
21575	RowBox[{
21576	RowBox[{
21577	SubsuperscriptBox["c", "eH", "\<\"*\"\>"], " ",
21578	SubscriptBox[
21579	SubscriptBox["P", "\<\"-\"\>"],
21580	RowBox[{
21581	SubscriptBox["\<\"s\"\>", "2"], ",",
21582	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
21583	RowBox[{
21584	SubscriptBox["c", "eH"], " ",
21585	SubscriptBox[
21586	SubscriptBox["P", "\<\"+\"\>"],
21587	RowBox[{
21588	SubscriptBox["\<\"s\"\>", "2"], ",",
21589	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
21590	RowBox[{"4", " ",
21591	SqrtBox["2"], " ",
21592	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
21593	},
21594	GridBoxAlignment->{
21595	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
21596	"RowsIndexed" -> {}},
21597	GridBoxSpacings->{"Columns" -> {
21598	Offset[0.27999999999999997`], {
21599	Offset[2.0999999999999996`]},
21600	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
21601	Offset[0.2], {
21602	Offset[0.4]},
21603	Offset[0.2]}, "RowsIndexed" -> {}}],
21604	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
21605	Complex[0,
21606	Rational[-1, 4]]
21607	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ye ((
21608	4 $CellContext`LambdaSMEFT^2 + (
21609	4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 +
21610	2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
21611	FeynRules`Index[FeynRules`Spin,
21612	FeynRules`Ext[2]],
21613	FeynRules`Index[FeynRules`Spin,
21614	FeynRules`Ext[3]]] -
21615	4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
21616	FeynRules`Index[FeynRules`Spin,
21617	FeynRules`Ext[2]],
21618	FeynRules`Index[FeynRules`Spin,
21619	FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
21620	FeynRules`Index[FeynRules`Spin,
21621	FeynRules`Ext[2]],
21622	FeynRules`Index[FeynRules`Spin,
21623	FeynRules`Ext[3]]]))}, {{{
21624	FeynRules`H, 1}, {$CellContext`mubar, 2}, {FeynRules`mu, 3}},
21625	Complex[0,
21626	Rational[-1, 4]]
21627	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ym ((
21628	4 $CellContext`LambdaSMEFT^2 + (
21629	4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 +
21630	2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
21631	FeynRules`Index[FeynRules`Spin,
21632	FeynRules`Ext[2]],
21633	FeynRules`Index[FeynRules`Spin,
21634	FeynRules`Ext[3]]] -
21635	4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
21636	FeynRules`Index[FeynRules`Spin,
21637	FeynRules`Ext[2]],
21638	FeynRules`Index[FeynRules`Spin,
21639	FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
21640	FeynRules`Index[FeynRules`Spin,
21641	FeynRules`Ext[2]],
21642	FeynRules`Index[FeynRules`Spin,
21643	FeynRules`Ext[3]]]))}, {{{
21644	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
21645	Complex[0,
21646	Rational[-1, 4]]
21647	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) $CellContext`ytau ((
21648	4 $CellContext`LambdaSMEFT^2 + (
21649	4 $CellContext`cHbox - $CellContext`cHDD - 4 $CellContext`cHl3 +
21650	2 $CellContext`cll1) $CellContext`vevhat^2) FeynRules`IndexDelta[
21651	FeynRules`Index[FeynRules`Spin,
21652	FeynRules`Ext[2]],
21653	FeynRules`Index[FeynRules`Spin,
21654	FeynRules`Ext[3]]] -
21655	4 $CellContext`vevhat^2 (Conjugate[$CellContext`ceH] FeynRules`ProjM[
21656	FeynRules`Index[FeynRules`Spin,
21657	FeynRules`Ext[2]],
21658	FeynRules`Index[FeynRules`Spin,
21659	FeynRules`Ext[3]]] + $CellContext`ceH FeynRules`ProjP[
21660	FeynRules`Index[FeynRules`Spin,
21661	FeynRules`Ext[2]],
21662	FeynRules`Index[FeynRules`Spin,
21663	FeynRules`Ext[3]]]))}}]],
21664	Function[BoxForm`e$,
21665	TableForm[BoxForm`e$]]]], "Output",
21666	CellChangeTimes->{{3.71465403609652^9, 3.714654045478115^9},
21667	3.7146545725892477`*^9,
21668	3.729585799885435*^9},ExpressionUUID->"fab299a7-4e33-4034-b07d-\
21669	42c249da137e"]
21670	}, Open ]]
21671	}, Closed]],
21672
21673	Cell[CellGroupData[{
21674
21675	Cell["Export to UFO", "Subsection",
21676	CellChangeTimes->{{3.697464870154114^9, 3.697464873666815^9}, {
21677	3.71465417334006^9, 3.714654174354417^9}}],
21678
21679	Cell[CellGroupData[{
21680
21681	Cell[BoxData[
21682	RowBox[{"WriteUFO", "[",
21683	RowBox[{"LSMEFT", ",",
21684	RowBox[{"MaxParticles", "\[Rule]", "4"}], ",",
21685	RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_U35_MwScheme_UFO\>\""}]}],
21686	"]"}]], "Input",
21687	CellChangeTimes->{{3.711357093610547^9, 3.7113570956332912`^9}, {
21688	3.713541847073875^9, 3.713541858645399^9}, {3.713966972373098*^9,
21689	3.713966987928933^9}, {3.7139684888375883`^9, 3.713968491954339*^9}, {
21690	3.714027305929933^9, 3.7140273182314863`^9}, {3.714027352553897*^9,
21691	3.714027353791733^9}, {3.714654913420311^9,
21692	3.7146549144771442`*^9}},ExpressionUUID->"9a0fa36d-43ea-4879-b04c-\
21693	fa56f0e61e8b"],
21694
21695	Cell[CellGroupData[{
21696
21697	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
21698	"Print",
21699	CellChangeTimes->{3.7140310137509193`*^9,
21700	3.7295863637549543`*^9},ExpressionUUID->"fe58ae2a-0a00-4299-a7cd-\
21701	5b62d48fa2a3"],
21702
21703	Cell[BoxData[
21704	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
21705	StripOnInput->False,
21706	LineColor->RGBColor[1, 0.5, 0],
21707	FrontFaceColor->RGBColor[1, 0.5, 0],
21708	BackFaceColor->RGBColor[1, 0.5, 0],
21709	GraphicsColor->RGBColor[1, 0.5, 0],
21710	FontWeight->Bold,
21711	FontColor->RGBColor[1, 0.5, 0]]], "Print",
21712	CellChangeTimes->{3.7140310137509193`*^9,
21713	3.729586369799822*^9},ExpressionUUID->"f509e0f3-3391-45ca-9121-\
21714	afd085715afa"],
21715
21716	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
21717	CellChangeTimes->{3.7140310137509193`*^9,
21718	3.72958636980129*^9},ExpressionUUID->"b3995345-bacc-4086-80e9-430553272a59"],
21719
21720	Cell[BoxData[
21721	InterpretationBox[
21722	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
21723	"\[InvisibleSpace]", "\<\" cores\"\>"}],
21724	SequenceForm["Expanding the indices over ", 2, " cores"],
21725	Editable->False]], "Print",
21726	CellChangeTimes->{3.7140310137509193`*^9,
21727	3.729586369802787*^9},ExpressionUUID->"fdd6d819-4417-4d2f-8dc8-\
21728	b5e84b79adb4"],
21729
21730	Cell[BoxData["\<\"Collecting the different structures that enter the \
21731	vertex.\"\>"], "Print",
21732	CellChangeTimes->{3.7140310137509193`*^9,
21733	3.7295864632806883`*^9},ExpressionUUID->"1f2193ab-443a-4270-b47f-\
21734	039f26eb4c88"],
21735
21736	Cell[BoxData[
21737	InterpretationBox[
21738	RowBox[{
21739	"82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
21740	-> starting the computation: \"\>", "\[InvisibleSpace]",
21741	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
21742	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
21743	"\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
21744	SequenceForm[
21745	82, " possible non-zero vertices have been found -> starting the \
21746	computation: ",
21747	Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
21748	Editable->False]], "Print",
21749	CellChangeTimes->{3.7140310137509193`*^9,
21750	3.729586463797868*^9},ExpressionUUID->"dce2c62e-85f8-4718-9682-\
21751	43973eae23b5"],
21752
21753	Cell[BoxData[
21754	InterpretationBox[
21755	RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
21756	SequenceForm[82, " vertices obtained."],
21757	Editable->False]], "Print",
21758	CellChangeTimes->{3.7140310137509193`*^9,
21759	3.729586527217572*^9},ExpressionUUID->"e412859f-ef88-4675-b78b-\
21760	1212f914ff4d"],
21761
21762	Cell[BoxData[
21763	InterpretationBox[
21764	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
21765	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
21766	"\[InvisibleSpace]",
21767	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
21768	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
21769	"\[InvisibleSpace]", "82"}],
21770	SequenceForm[
21771	"Flavor expansion of the vertices distributed over ", 2, " cores: ",
21772	Dynamic[FeynRules`FR$Count1], " / ", 82],
21773	Editable->False]], "Print",
21774	CellChangeTimes->{3.7140310137509193`*^9,
21775	3.729586547563739*^9},ExpressionUUID->"6a934348-38da-49b4-9ee8-\
21776	6c8cdfadb4ba"],
21777
21778	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
21779	CellChangeTimes->{3.7140310137509193`*^9,
21780	3.729586589407838*^9},ExpressionUUID->"560cedcc-f621-4d7b-828c-\
21781	94a83e4afdfd"],
21782
21783	Cell[BoxData[
21784	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
21785	decays: \"\>",
21786	StripOnInput->False,
21787	LineColor->RGBColor[1, 0.5, 0],
21788	FrontFaceColor->RGBColor[1, 0.5, 0],
21789	BackFaceColor->RGBColor[1, 0.5, 0],
21790	GraphicsColor->RGBColor[1, 0.5, 0],
21791	FontWeight->Bold,
21792	FontColor->RGBColor[1, 0.5, 0]]], "Print",
21793	CellChangeTimes->{3.7140310137509193`*^9,
21794	3.729586589489808*^9},ExpressionUUID->"3f113df1-b12b-494f-a060-\
21795	e52987a926e1"],
21796
21797	Cell[BoxData[
21798	InterpretationBox[
21799	RowBox[{
21800	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
21801	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
21802	"\[InvisibleSpace]", "54"}],
21803	SequenceForm[
21804	Dynamic[PRIVATE`mycounter], " / ", 54],
21805	Editable->False]], "Print",
21806	CellChangeTimes->{3.7140310137509193`*^9,
21807	3.729586589523642*^9},ExpressionUUID->"4be6fbc1-0872-4bfd-b616-\
21808	09128544de59"],
21809
21810	Cell[BoxData[
21811	InterpretationBox[
21812	RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
21813	"588.94`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
21814	SequenceForm["Squared matrix elent compute in ", 588.94, " seconds."],
21815	Editable->False]], "Print",
21816	CellChangeTimes->{3.7140310137509193`*^9,
21817	3.7295878736186113`*^9},ExpressionUUID->"d8a7e57c-72d7-4b1b-b52c-\
21818	4acea451b74e"],
21819
21820	Cell[BoxData[
21821	InterpretationBox[
21822	RowBox[{
21823	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
21824	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
21825	"\[InvisibleSpace]", "61"}],
21826	SequenceForm[
21827	Dynamic[PRIVATE`mycounter], " / ", 61],
21828	Editable->False]], "Print",
21829	CellChangeTimes->{3.7140310137509193`*^9,
21830	3.7295878737487097`*^9},ExpressionUUID->"6a0a4864-bf59-4ca4-928a-\
21831	c24e752cd305"],
21832
21833	Cell[BoxData[
21834	InterpretationBox[
21835	RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "8.64`",
21836	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
21837	SequenceForm["Decay widths computed in ", 8.64, " seconds."],
21838	Editable->False]], "Print",
21839	CellChangeTimes->{3.7140310137509193`*^9,
21840	3.729587883056962*^9},ExpressionUUID->"1853c9ec-5b85-4028-9864-\
21841	c9e559d7d17c"],
21842
21843	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
21844	CellChangeTimes->{3.7140310137509193`*^9,
21845	3.729587883058671*^9},ExpressionUUID->"0f71ffac-d503-4cfd-8fec-\
21846	aab8232ee751"],
21847
21848	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
21849	"Print",
21850	CellChangeTimes->{3.7140310137509193`*^9,
21851	3.7295878861642523`*^9},ExpressionUUID->"5a2d8c71-0f8d-44e4-b3e0-\
21852	2099d6976b7e"],
21853
21854	Cell[BoxData[
21855	InterpretationBox[
21856	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
21857	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
21858	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
21859	Editable->False]], "Print",
21860	CellChangeTimes->{3.7140310137509193`*^9,
21861	3.729587886589426*^9},ExpressionUUID->"ced99ad0-a956-4681-9161-\
21862	e7b7c3558b11"],
21863
21864	Cell[BoxData[
21865	InterpretationBox[
21866	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
21867	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
21868	ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
21869	"\[InvisibleSpace]", "396", "\[InvisibleSpace]", "\<\" .\"\>"}],
21870	SequenceForm[" - Optimizing: ",
21871	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 396, " ."],
21872	Editable->False]], "Print",
21873	CellChangeTimes->{3.7140310137509193`*^9,
21874	3.7295878969618483`*^9},ExpressionUUID->"2a05df8b-f65a-4c9e-90fd-\
21875	7a57dd319371"],
21876
21877	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
21878	CellChangeTimes->{3.7140310137509193`*^9,
21879	3.72958790206213*^9},ExpressionUUID->"c0840fe8-5355-4dea-b2fd-92806bf20485"],
21880
21881	Cell[BoxData[
21882	StyleBox["\<\"Warning: Non positive interaction order QED.\\n \
21883	This might reduce the efficiency of certain matrix element generators.\\n \
21884	See logfile for more details.\"\>",
21885	StripOnInput->False,
21886	LineColor->RGBColor[1, 0, 0],
21887	FrontFaceColor->RGBColor[1, 0, 0],
21888	BackFaceColor->RGBColor[1, 0, 0],
21889	GraphicsColor->RGBColor[1, 0, 0],
21890	FontColor->RGBColor[1, 0, 0]]], "Print",
21891	CellChangeTimes->{3.7140310137509193`*^9,
21892	3.729587902554854*^9},ExpressionUUID->"9c6dff32-4582-4748-b4e4-\
21893	e49af40b4f7b"],
21894
21895	Cell[BoxData["\<\"Done!\"\>"], "Print",
21896	CellChangeTimes->{3.7140310137509193`*^9,
21897	3.729587905202778*^9},ExpressionUUID->"e893785c-29d4-41f1-aacd-\
21898	5d2c394190ce"]
21899	}, Open ]]
21900	}, Open ]]
21901	}, Closed]]
21902	}, Closed]],
21903
21904	Cell[CellGroupData[{
21905
21906	Cell["model MFV \[Alpha] scheme", "Section",
21907	CellChangeTimes->{{3.696681316130834^9, 3.696681320670103^9}, {
21908	3.6972641901616383`^9, 3.697264190714314^9}, {3.6977796250127287`*^9,
21909	3.697779628134873^9}, {3.7008119849361362`^9, 3.7008119864866343`*^9}, {
21910	3.713951624097616^9, 3.7139516319877872`^9}, {3.714027345519704*^9,
21911	3.7140273462258577`^9}, {3.714034026337254^9, 3.7140340306501093`*^9}, {
21912	3.714059172051979^9, 3.714059172395143^9}, {3.7146542461734543`*^9,
21913	3.71465424960961*^9}},ExpressionUUID->"dff18824-64fe-402e-a2b6-\
21914	ffdd05487f84"],
21915
21916	Cell[BoxData[{
21917	RowBox[{
21918	RowBox[{"Flavor", "=", "MFV"}], ";"}], "\[IndentingNewLine]",
21919	RowBox[{
21920	RowBox[{"Scheme", "=", "alphaScheme"}], ";"}]}], "Input",
21921	CellChangeTimes->CompressedData["
21922	1:eJxTTMoPSmViYGAQA2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
21923	BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
21924	BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
21925	gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
21926	oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
21927	tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA959+xEsY1QP8aXgDTAMeUziw=
21928
21929	"],ExpressionUUID->"fffc0f3d-e195-4db5-9b42-fe30696ea923"],
21930
21931	Cell[CellGroupData[{
21932
21933	Cell[BoxData[{
21934	RowBox[{
21935	RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}],
21936	";"}], "\[IndentingNewLine]",
21937	RowBox[{
21938	RowBox[{
21939	RowBox[{"$Assumptions", "=",
21940	RowBox[{
21941	RowBox[{
21942	RowBox[{
21943	RowBox[{"cth", "^", "2"}], "+",
21944	RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&",
21945	RowBox[{
21946	RowBox[{"vevhat", "^", "2"}], "\[Equal]",
21947	RowBox[{"1", "/",
21948	RowBox[{"(",
21949	RowBox[{
21950	RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}],
21951	RowBox[{"(*",
21952	RowBox[{
21953	"definition", " ", "useful", " ", "for", " ", "algebraic", " ",
21954	"simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
21955	CellChangeTimes->{
21956	3.696317675402779^9, {3.6965773165572453`^9, 3.696577319156142*^9},
21957	3.696580983074707^9, {3.6965948918072433`^9, 3.696594894707777*^9},
21958	3.6966709211488647`^9, {3.69667828323773^9, 3.696678323509939*^9}, {
21959	3.69667951035196^9, 3.6966795109895697`^9}, {3.696681436195228*^9,
21960	3.696681438987885^9}, {3.6972650726318893`^9, 3.697265101991671*^9},
21961	3.697287098417327^9, {3.6973604685824413`^9, 3.69736046890945*^9}, {
21962	3.697779635251266^9, 3.69777963758922^9}, {3.698645426547124*^9,
21963	3.698645426699171^9}, {3.699076691858276^9, 3.699076748603301*^9}, {
21964	3.6990805929555798`^9, 3.6990805933718987`^9}, {3.699103784843251*^9,
21965	3.699103787233872^9}, {3.699174414331218^9, 3.699174423137232*^9}, {
21966	3.700810602928831^9, 3.700810603791377^9}, 3.700811190650639*^9, {
21967	3.700811373469302^9, 3.70081137419092^9}, {3.700811543944695*^9,
21968	3.700811545171196^9}, {3.7008116427840242`^9, 3.7008116439630938`*^9}, {
21969	3.700811709403363^9, 3.700811710009871^9}, {3.700811988139593*^9,
21970	3.700811989085125^9}, {3.706958250209116^9, 3.706958253094596*^9}, {
21971	3.70719446793911^9, 3.7071944683318357`^9}, {3.707196963096757*^9,
21972	3.7071969641085587`^9}, {3.7073968274735537`^9, 3.707396828325622*^9}, {
21973	3.7074043139801292`^9, 3.707404317755911^9}, {3.7074053023188467`*^9,
21974	3.707405302915038^9}, {3.707730114023314^9, 3.707730124419199*^9}, {
21975	3.7077337383961143`^9, 3.707733741518713^9}, {3.713951635803303*^9,
21976	3.71395165206149^9}, {3.713951695549211^9, 3.713951695853513*^9}, {
21977	3.71395173874929^9, 3.7139517413107147`^9}, {3.713952603189982*^9,
21978	3.713952603424769*^9},
21979	3.714654259683798*^9},ExpressionUUID->"c96967fe-d0ce-4def-9de2-\
21980	967cfa4f2c84"],
21981
21982	Cell[CellGroupData[{
21983
21984	Cell[BoxData["\<\"MFV framework selected\"\>"], "Print",
21985	CellChangeTimes->{3.729588421351053*^9,
21986	3.729591844775613*^9},ExpressionUUID->"9871ae34-7d47-499b-b8f6-\
21987	2767c6244486"],
21988
21989	Cell[BoxData[
21990	InterpretationBox[
21991	RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]", "\[Alpha]",
21992	"\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]",
21993	SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>",
21994	"\[InvisibleSpace]",
21995	SubscriptBox["G", "f"]}],
21996	SequenceForm["Input parameters: ", FeynRules`\[Alpha], ", ",
21997	Subscript[FeynRules`m, $CellContext`Z], ", ",
21998	Subscript[FeynRules`G, FeynRules`f]],
21999	Editable->False]], "Print",
22000	CellChangeTimes->{3.729588421351053*^9,
22001	3.729591844777457*^9},ExpressionUUID->"621a76ce-3ad5-48ff-aeee-\
22002	05184d1f5cb5"],
22003
22004	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
22005	CellChangeTimes->{3.729588421351053*^9,
22006	3.7295918447944717`*^9},ExpressionUUID->"e9bae040-672c-46ca-885d-\
22007	f8d852cd8006"],
22008
22009	Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
22010	CellChangeTimes->{3.729588421351053*^9,
22011	3.7295918447957363`*^9},ExpressionUUID->"1ac0528a-9197-4eee-a030-\
22012	ddf20308ae0c"],
22013
22014	Cell[BoxData[
22015	InterpretationBox[
22016	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
22017	SequenceForm["Model Version: ", "2.1"],
22018	Editable->False]], "Print",
22019	CellChangeTimes->{3.729588421351053*^9,
22020	3.729591844797571*^9},ExpressionUUID->"e99aa4aa-410c-4ac9-89f9-\
22021	b0113d8dd468"],
22022
22023	Cell[BoxData["\<\"Please cite\"\>"], "Print",
22024	CellChangeTimes->{3.729588421351053*^9,
22025	3.729591844799769*^9},ExpressionUUID->"f6c609b0-fbbd-4007-9e74-\
22026	c22cb884ddc9"],
22027
22028	Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
22029	CellChangeTimes->{3.729588421351053*^9,
22030	3.7295918448011837`*^9},ExpressionUUID->"b584af75-12d7-4525-8c88-\
22031	e7c83d3e492a"],
22032
22033	Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
22034	CellChangeTimes->{3.729588421351053*^9,
22035	3.729591844802578*^9},ExpressionUUID->"c932331d-9277-4f50-869e-\
22036	6eacd129644b"],
22037
22038	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
22039	"Print",
22040	CellChangeTimes->{3.729588421351053*^9,
22041	3.729591844803864*^9},ExpressionUUID->"acb1057f-b5b6-436f-bb1c-\
22042	c0cbc406a53a"],
22043
22044	Cell[BoxData["\<\"\"\>"], "Print",
22045	CellChangeTimes->{3.729588421351053*^9,
22046	3.72959184480508*^9},ExpressionUUID->"f343e017-8731-48df-baf6-22f4a668f317"],
22047
22048	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
22049	CellChangeTimes->{3.729588421351053*^9,
22050	3.729591844806357*^9},ExpressionUUID->"e01db5e8-91cd-4c7b-9c32-\
22051	8eff4fffaf00"],
22052
22053	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
22054	CellChangeTimes->{3.729588421351053*^9,
22055	3.7295918449011717`*^9},ExpressionUUID->"70b9a06c-b121-4f7e-8a65-\
22056	03d28c1475ca"],
22057
22058	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
22059	CellChangeTimes->{3.729588421351053*^9,
22060	3.7295918449195843`*^9},ExpressionUUID->"dee15fcd-0aa5-44f8-8afa-\
22061	ea2e5acb9ab6"],
22062
22063	Cell[BoxData[
22064	InterpretationBox[
22065	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>",
22066	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
22067	SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
22068	Editable->False]], "Print",
22069	CellChangeTimes->{3.729588421351053*^9,
22070	3.72959184544377*^9},ExpressionUUID->"1a58d854-59cf-4b03-ad20-ca69c77febc4"]
22071	}, Open ]]
22072	}, Open ]],
22073
22074	Cell[BoxData[
22075	RowBox[{
22076	RowBox[{"(*", " ",
22077	RowBox[{
22078	"simplify", " ", "collecting", " ", "the", " ", "Wilson", " ",
22079	"coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
22080	RowBox[{
22081	RowBox[{"WCsimplify", "[", "x_", "]"}], ":=",
22082	RowBox[{"Collect", "[",
22083	RowBox[{
22084	RowBox[{"Expand", "[", "x", "]"}], ",",
22085	RowBox[{"Join", "[",
22086	RowBox[{"WC6", ",",
22087	RowBox[{"Conjugate", "/@", "WC6"}], ",",
22088	RowBox[{"{",
22089	RowBox[{
22090	"dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
22091	",", "dgw"}], "}"}]}], "]"}], ",",
22092	RowBox[{
22093	RowBox[{"FullSimplify", "[",
22094	RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\
22095
22096	CellChangeTimes->{{3.69727251229317^9, 3.697272539780883^9}, {
22097	3.6972725951948023`^9, 3.6972726157586107`^9}, {3.6973553500832977`*^9,
22098	3.697355359264447^9}, {3.697355426066744^9, 3.697355428425048*^9}, {
22099	3.697359800031402^9, 3.697359816794314^9}, {3.697361185105711*^9,
22100	3.697361198769485^9}, {3.697367251862154^9, 3.697367258246785*^9}, {
22101	3.697536724781671^9, 3.697536725470097^9}, {3.698645443776215*^9,
22102	3.6986454466349792`^9}, {3.6990803840045652`^9,
22103	3.6990803931031227`^9}, {3.707025063385503^9, 3.707025074535533*^9}, {
22104	3.707026201080791^9, 3.707026206097932^9}, {3.707733746790945*^9,
22105	3.707733759745702^9}, {3.711875906183223^9, 3.71187590676577*^9}, {
22106	3.712555385621932^9, 3.712555393408392^9},
22107	3.7146542635459137`*^9},ExpressionUUID->"3b334ef7-fec0-44dd-baaf-\
22108	30b43ebbdc21"],
22109
22110	Cell[CellGroupData[{
22111
22112	Cell[TextData[{
22113	"Example - extraction of aTGC ",
22114	Cell[BoxData[
22115	FormBox[
22116	RowBox[{"(", " ",
22117	SuperscriptBox[
22118	SubscriptBox["g", "1"], "V"]}], TraditionalForm]],
22119	FormatType->"TraditionalForm"],
22120	", ",
22121	Cell[BoxData[
22122	FormBox[
22123	SubscriptBox["\[Kappa]", "V"], TraditionalForm]],
22124	FormatType->"TraditionalForm"],
22125	" )"
22126	}], "Subsection",
22127	CellChangeTimes->{{3.697366338889289^9, 3.697366341458261^9}, {
22128	3.714474539132268^9, 3.71447454549291^9}, {3.7144748778381844`*^9,
22129	3.714474881170227^9}, {3.7146522087316093`^9, 3.7146522332696543`*^9}}],
22130
22131	Cell[BoxData[
22132	RowBox[{
22133	RowBox[{"L1", " ", "=", " ",
22134	RowBox[{
22135	RowBox[{"LGauge", "+", "L6cl4"}], "//", "OptimizeIndex"}]}],
22136	";"}]], "Input",
22137	CellChangeTimes->{{3.714474548996854^9, 3.714474607567834^9}, {
22138	3.714474713747148^9, 3.7144747165634403`^9}, {3.714474885107195*^9,
22139	3.714474885248617^9}, {3.7144750445122128`^9, 3.714475058126898*^9}, {
22140	3.7144751339781103`^9, 3.714475137908736^9}, {3.714656111298061*^9,
22141	3.71465611302945*^9}},ExpressionUUID->"b64a72d8-cd0b-46cf-ab1f-\
22142	2d15f02058f7"],
22143
22144	Cell[CellGroupData[{
22145
22146	Cell[BoxData[
22147	RowBox[{
22148	RowBox[{"zww", "=",
22149	RowBox[{"GetInteractionTerms", "[",
22150	RowBox[{"L1", ",",
22151	RowBox[{"SelectParticles", "\[Rule]",
22152	RowBox[{"{",
22153	RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}],
22154	";"}]], "Input",
22155	CellChangeTimes->{{3.697355190045856*^9,
22156	3.697355204589117*^9}},ExpressionUUID->"e4f2da7e-ab0c-42b3-b480-\
22157	8274c60b7576"],
22158
22159	Cell[CellGroupData[{
22160
22161	Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
22162	eigenstates should be selected!\"\>"], "Print",
22163	CellChangeTimes->{3.714652273867529^9, 3.714656184555667^9,
22164	3.72958851344135*^9},ExpressionUUID->"ac9873ce-1826-4945-bbe3-eaf6b6a12f79"],
22165
22166	Cell[BoxData[
22167	InterpretationBox[
22168	RowBox[{"\<\"Neglecting all terms with more than \"\>",
22169	"\[InvisibleSpace]", "\<\"3\"\>",
22170	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
22171	SequenceForm["Neglecting all terms with more than ", "3", " particles."],
22172	Editable->False]], "Print",
22173	CellChangeTimes->{3.714652273867529^9, 3.714656184555667^9,
22174	3.7295885135351353`*^9},ExpressionUUID->"0b8cc4d1-cf59-4340-90e5-\
22175	a8b14c334e61"],
22176
22177	Cell[BoxData[
22178	InterpretationBox[
22179	RowBox[{"\<\"Neglecting all terms with less than \"\>",
22180	"\[InvisibleSpace]", "\<\"3\"\>",
22181	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
22182	SequenceForm["Neglecting all terms with less than ", "3", " particles."],
22183	Editable->False]], "Print",
22184	CellChangeTimes->{3.714652273867529^9, 3.714656184555667^9,
22185	3.729588513572562*^9},ExpressionUUID->"9484a446-b4e6-43ce-982b-\
22186	8bab9f4f93ae"]
22187	}, Open ]]
22188	}, Open ]],
22189
22190	Cell[CellGroupData[{
22191
22192	Cell[BoxData[
22193	RowBox[{
22194	RowBox[{"(", " ", "g1z", " ", ")"}], "\[IndentingNewLine]",
22195	RowBox[{
22196	RowBox[{
22197	RowBox[{"zww", "/.",
22198	RowBox[{
22199	RowBox[{"del", "[",
22200	RowBox[{
22201	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
22202	"Simplify"}], "\[IndentingNewLine]",
22203	RowBox[{
22204	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
22205	"\[IndentingNewLine]",
22206	RowBox[{
22207	RowBox[{"Simplify", "[",
22208	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
22209	RowBox[{"WCsimplify", "[",
22210	FractionBox["%",
22211	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
22212	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
22213	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
22214	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
22215	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
22216	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
22217	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
22218	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
22219	3.697366570896222^9, 3.697366573045783^9}, {3.697371239528208*^9,
22220	3.697371253607347^9}, {3.697779754300777^9, 3.6977797626704483`*^9}, {
22221	3.70081318564122^9, 3.700813191980774^9}, {3.700813246330406*^9,
22222	3.700813285428583^9}, {3.7077337321979713`^9, 3.707733734591858*^9}, {
22223	3.714474619041273^9, 3.7144746223430567`^9}, {3.714474993096156*^9,
22224	3.7144750018697557`^9}, 3.7146522446651382`^9, {3.7146522849326553`*^9,
22225	3.7146523139288273`^9}, {3.714652367401491^9, 3.714652379324503*^9}, {
22226	3.714652412441049^9, 3.714652464776884^9},
22227	3.714652626095168*^9},ExpressionUUID->"0646bcf0-e2c3-48ad-99b1-\
22228	16feea6b5f9e"],
22229
22230	Cell[BoxData[
22231	RowBox[{"-",
22232	FractionBox[
22233	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22234	RowBox[{"(",
22235	RowBox[{
22236	RowBox[{
22237	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22238	RowBox[{"(",
22239	RowBox[{
22240	RowBox[{"-", "2"}], "-",
22241	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
22242	RowBox[{"2", " ",
22243	RowBox[{"(",
22244	RowBox[{"1", "+", "dgw"}], ")"}], " ",
22245	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
22246	RowBox[{
22247	SubscriptBox["c", "HWB"], " ",
22248	SubscriptBox["c", "\[Theta]"], " ",
22249	SubscriptBox["s", "\[Theta]"], " ",
22250	SuperscriptBox[
22251	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
22252	RowBox[{"(",
22253	RowBox[{
22254	RowBox[{
22255	RowBox[{
22256	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22257	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
22258	RowBox[{"(",
22259	RowBox[{
22260	RowBox[{
22261	SubscriptBox["W", "mu$2"], " ",
22262	SubscriptBox["Z", "mu$1"]}], "-",
22263	RowBox[{
22264	SubscriptBox["W", "mu$1"], " ",
22265	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
22266	RowBox[{
22267	RowBox[{
22268	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22269	SubscriptBox["W", "mu$1"], "]"}], " ",
22270	RowBox[{"(",
22271	RowBox[{
22272	RowBox[{
22273	RowBox[{"-",
22274	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
22275	SubscriptBox["Z", "mu$1"]}], "+",
22276	RowBox[{
22277	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
22278	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
22279	RowBox[{"2", " ",
22280	SubscriptBox["c", "\[Theta]"], " ",
22281	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22282	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
22283	CellChangeTimes->{
22284	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
22285	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
22286	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
22287	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
22288	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
22289	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
22290	3.714656184982973*^9,
22291	3.729588514012908*^9},ExpressionUUID->"2c969cc3-8325-4339-b0fb-\
22292	19ffa6d99d4d"],
22293
22294	Cell[BoxData[
22295	RowBox[{"-",
22296	FractionBox[
22297	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22298	RowBox[{"(",
22299	RowBox[{
22300	RowBox[{"4", " ",
22301	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22302	RowBox[{"(",
22303	RowBox[{"1", "-",
22304	RowBox[{"3", " ",
22305	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
22306	RowBox[{"2", " ",
22307	SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}], "+",
22308	RowBox[{
22309	RowBox[{"(",
22310	RowBox[{
22311	RowBox[{"-",
22312	SubscriptBox["c", "HD"]}], "-",
22313	RowBox[{"4", " ",
22314	TemplateBox[{"c","Hl","3"},
22315	"Subsuperscript"]}], "+",
22316	RowBox[{"2", " ",
22317	TemplateBox[{"c","ll","Prime"},
22318	"Subsuperscript"]}], "-",
22319	RowBox[{"4", " ",
22320	SubscriptBox["c", "HWB"], " ",
22321	SubscriptBox["c", "\[Theta]"], " ",
22322	SubscriptBox["s", "\[Theta]"]}], "+",
22323	RowBox[{
22324	RowBox[{"(",
22325	RowBox[{
22326	SubscriptBox["c", "HD"], "+",
22327	RowBox[{"4", " ",
22328	TemplateBox[{"c","Hl","3"},
22329	"Subsuperscript"]}], "-",
22330	RowBox[{"2", " ",
22331	TemplateBox[{"c","ll","Prime"},
22332	"Subsuperscript"]}]}], ")"}], " ",
22333	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
22334	SuperscriptBox[
22335	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
22336	RowBox[{"(",
22337	RowBox[{
22338	RowBox[{
22339	RowBox[{
22340	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22341	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
22342	RowBox[{"(",
22343	RowBox[{
22344	RowBox[{
22345	SubscriptBox["W", "mu$2"], " ",
22346	SubscriptBox["Z", "mu$1"]}], "-",
22347	RowBox[{
22348	SubscriptBox["W", "mu$1"], " ",
22349	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
22350	RowBox[{
22351	RowBox[{
22352	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22353	SubscriptBox["W", "mu$1"], "]"}], " ",
22354	RowBox[{"(",
22355	RowBox[{
22356	RowBox[{
22357	RowBox[{"-",
22358	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
22359	SubscriptBox["Z", "mu$1"]}], "+",
22360	RowBox[{
22361	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
22362	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
22363	RowBox[{"4", " ",
22364	SubscriptBox["c", "\[Theta]"], " ",
22365	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22366	SubscriptBox["s", "\[Theta]"], " ",
22367	RowBox[{"(",
22368	RowBox[{
22369	RowBox[{"-", "1"}], "+",
22370	RowBox[{"2", " ",
22371	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]], "Output",
22372	CellChangeTimes->{
22373	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
22374	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
22375	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
22376	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
22377	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
22378	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
22379	3.714656184982973*^9,
22380	3.729588514530102*^9},ExpressionUUID->"d0b24693-b490-4bf2-8c24-\
22381	1fb40eb65870"],
22382
22383	Cell[BoxData[
22384	RowBox[{"-",
22385	FractionBox[
22386	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22387	RowBox[{"(",
22388	RowBox[{
22389	RowBox[{"-", "1"}], "+",
22390	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
22391	RowBox[{"(",
22392	RowBox[{"1", "+",
22393	FractionBox[
22394	RowBox[{
22395	TemplateBox[{"c","ll","Prime"},
22396	"Subsuperscript"], " ",
22397	SuperscriptBox[
22398	OverscriptBox["v", "^"], "2"]}],
22399	RowBox[{"2", " ",
22400	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22401	RowBox[{"(",
22402	RowBox[{"1", "-",
22403	RowBox[{"2", " ",
22404	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
22405	FractionBox[
22406	RowBox[{
22407	SubscriptBox["c", "HD"], " ",
22408	SuperscriptBox[
22409	OverscriptBox["v", "^"], "2"]}],
22410	RowBox[{"4", " ",
22411	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22412	RowBox[{"(",
22413	RowBox[{
22414	RowBox[{"-", "1"}], "+",
22415	RowBox[{"2", " ",
22416	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
22417	FractionBox[
22418	RowBox[{
22419	TemplateBox[{"c","Hl","3"},
22420	"Subsuperscript"], " ",
22421	SuperscriptBox[
22422	OverscriptBox["v", "^"], "2"]}],
22423	RowBox[{
22424	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22425	RowBox[{"(",
22426	RowBox[{
22427	RowBox[{"-", "1"}], "+",
22428	RowBox[{"2", " ",
22429	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "-",
22430	FractionBox[
22431	RowBox[{
22432	SubscriptBox["c", "HWB"], " ",
22433	SubscriptBox["c", "\[Theta]"], " ",
22434	SubscriptBox["s", "\[Theta]"], " ",
22435	SuperscriptBox[
22436	OverscriptBox["v", "^"], "2"]}],
22437	RowBox[{
22438	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22439	RowBox[{"(",
22440	RowBox[{"1", "-",
22441	RowBox[{"3", " ",
22442	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
22443	RowBox[{"2", " ",
22444	SubsuperscriptBox["s", "\[Theta]", "4"]}]}], ")"}]}]]}], ")"}],
22445	" ",
22446	RowBox[{"(",
22447	RowBox[{
22448	RowBox[{
22449	RowBox[{
22450	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22451	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
22452	RowBox[{"(",
22453	RowBox[{
22454	RowBox[{
22455	SubscriptBox["W", "mu$2"], " ",
22456	SubscriptBox["Z", "mu$1"]}], "-",
22457	RowBox[{
22458	SubscriptBox["W", "mu$1"], " ",
22459	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
22460	RowBox[{
22461	RowBox[{
22462	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22463	SubscriptBox["W", "mu$1"], "]"}], " ",
22464	RowBox[{"(",
22465	RowBox[{
22466	RowBox[{
22467	RowBox[{"-",
22468	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
22469	SubscriptBox["Z", "mu$1"]}], "+",
22470	RowBox[{
22471	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
22472	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
22473	RowBox[{
22474	SubscriptBox["c", "\[Theta]"], " ",
22475	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
22476	CellChangeTimes->{
22477	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
22478	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
22479	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
22480	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
22481	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
22482	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
22483	3.714656184982973*^9,
22484	3.729588514734849*^9},ExpressionUUID->"3600052c-2748-4e90-a1f9-\
22485	3ca2e60228a9"]
22486	}, Open ]],
22487
22488	Cell[CellGroupData[{
22489
22490	Cell[BoxData[
22491	RowBox[{
22492	RowBox[{"(", " ", "\[Kappa]z", " ", ")"}], "\[IndentingNewLine]",
22493	RowBox[{
22494	RowBox[{
22495	RowBox[{"zww", "/.",
22496	RowBox[{
22497	RowBox[{
22498	RowBox[{"del", "[",
22499	RowBox[{
22500	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
22501	RowBox[{"del", "[",
22502	RowBox[{
22503	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
22504	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
22505	RowBox[{
22506	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
22507	"\[IndentingNewLine]",
22508	RowBox[{
22509	RowBox[{"Simplify", "[",
22510	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
22511	RowBox[{"WCsimplify", "[",
22512	FractionBox["%",
22513	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
22514	CellChangeTimes->{{3.714652472649456*^9,
22515	3.714652608904799*^9}},ExpressionUUID->"f4980fd6-ea42-4d15-8ae6-\
22516	4f5314e10508"],
22517
22518	Cell[BoxData[
22519	FractionBox[
22520	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22521	RowBox[{"(",
22522	RowBox[{
22523	RowBox[{
22524	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22525	RowBox[{"(",
22526	RowBox[{
22527	RowBox[{"-", "2"}], "-",
22528	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
22529	RowBox[{"2", " ",
22530	RowBox[{"(",
22531	RowBox[{"1", "+", "dgw"}], ")"}], " ",
22532	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
22533	RowBox[{
22534	SubscriptBox["c", "HWB"], " ",
22535	SubscriptBox["c", "\[Theta]"], " ",
22536	SubscriptBox["s", "\[Theta]"], " ",
22537	SuperscriptBox[
22538	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
22539	RowBox[{
22540	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22541	SubscriptBox["Z", "mu$1"], "]"}], " ",
22542	RowBox[{"(",
22543	RowBox[{
22544	RowBox[{
22545	SubscriptBox["W", "mu$2"], " ",
22546	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
22547	RowBox[{
22548	SubscriptBox["W", "mu$1"], " ",
22549	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
22550	RowBox[{"2", " ",
22551	SubscriptBox["c", "\[Theta]"], " ",
22552	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22553	SubscriptBox["s", "\[Theta]"]}]]], "Output",
22554	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
22555	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
22556	3.714652609565043^9}, 3.714656185731509^9,
22557	3.729588514977376*^9},ExpressionUUID->"7d60860e-b7a8-4a97-83cc-\
22558	60c42b341b73"],
22559
22560	Cell[BoxData[
22561	FractionBox[
22562	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22563	RowBox[{"(",
22564	RowBox[{
22565	RowBox[{"-", "1"}], "+",
22566	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
22567	RowBox[{"(",
22568	RowBox[{
22569	RowBox[{
22570	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22571	RowBox[{"(",
22572	RowBox[{
22573	RowBox[{"-", "4"}], "+",
22574	RowBox[{"8", " ",
22575	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
22576	RowBox[{
22577	RowBox[{"(",
22578	RowBox[{
22579	SubscriptBox["c", "HD"], "+",
22580	RowBox[{"4", " ",
22581	TemplateBox[{"c","Hl","3"},
22582	"Subsuperscript"]}], "-",
22583	RowBox[{"2", " ",
22584	TemplateBox[{"c","ll","Prime"},
22585	"Subsuperscript"]}], "+",
22586	RowBox[{"8", " ",
22587	SubscriptBox["c", "HWB"], " ",
22588	SubscriptBox["c", "\[Theta]"], " ",
22589	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
22590	SuperscriptBox[
22591	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
22592	RowBox[{
22593	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22594	SubscriptBox["Z", "mu$1"], "]"}], " ",
22595	RowBox[{"(",
22596	RowBox[{
22597	RowBox[{
22598	SubscriptBox["W", "mu$2"], " ",
22599	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
22600	RowBox[{
22601	SubscriptBox["W", "mu$1"], " ",
22602	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
22603	RowBox[{"4", " ",
22604	SubscriptBox["c", "\[Theta]"], " ",
22605	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22606	SubscriptBox["s", "\[Theta]"], " ",
22607	RowBox[{"(",
22608	RowBox[{
22609	RowBox[{"-", "1"}], "+",
22610	RowBox[{"2", " ",
22611	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]], "Output",
22612	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
22613	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
22614	3.714652609565043^9}, 3.714656185731509^9,
22615	3.7295885152709293`*^9},ExpressionUUID->"5395b4f2-1183-453f-90ca-\
22616	d4dee311aaee"],
22617
22618	Cell[BoxData[
22619	FractionBox[
22620	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22621	RowBox[{"(",
22622	RowBox[{
22623	RowBox[{"-", "1"}], "+",
22624	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
22625	RowBox[{"(",
22626	RowBox[{"1", "+",
22627	FractionBox[
22628	RowBox[{"2", " ",
22629	TemplateBox[{"c","ll","Prime"},
22630	"Subsuperscript"], " ",
22631	SuperscriptBox[
22632	OverscriptBox["v", "^"], "2"]}],
22633	RowBox[{
22634	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22635	RowBox[{"(",
22636	RowBox[{"4", "-",
22637	RowBox[{"8", " ",
22638	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
22639	FractionBox[
22640	RowBox[{
22641	TemplateBox[{"c","Hl","3"},
22642	"Subsuperscript"], " ",
22643	SuperscriptBox[
22644	OverscriptBox["v", "^"], "2"]}],
22645	RowBox[{
22646	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22647	RowBox[{"(",
22648	RowBox[{
22649	RowBox[{"-", "1"}], "+",
22650	RowBox[{"2", " ",
22651	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
22652	FractionBox[
22653	RowBox[{"2", " ",
22654	SubscriptBox["c", "HWB"], " ",
22655	SubscriptBox["c", "\[Theta]"], " ",
22656	SubscriptBox["s", "\[Theta]"], " ",
22657	SuperscriptBox[
22658	OverscriptBox["v", "^"], "2"]}],
22659	RowBox[{
22660	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22661	RowBox[{"(",
22662	RowBox[{
22663	RowBox[{"-", "1"}], "+",
22664	RowBox[{"2", " ",
22665	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]], "+",
22666	FractionBox[
22667	RowBox[{
22668	SubscriptBox["c", "HD"], " ",
22669	SuperscriptBox[
22670	OverscriptBox["v", "^"], "2"]}],
22671	RowBox[{
22672	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22673	RowBox[{"(",
22674	RowBox[{
22675	RowBox[{"-", "4"}], "+",
22676	RowBox[{"8", " ",
22677	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}], ")"}], " ",
22678	RowBox[{
22679	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22680	SubscriptBox["Z", "mu$1"], "]"}], " ",
22681	RowBox[{"(",
22682	RowBox[{
22683	RowBox[{
22684	SubscriptBox["W", "mu$2"], " ",
22685	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
22686	RowBox[{
22687	SubscriptBox["W", "mu$1"], " ",
22688	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
22689	RowBox[{
22690	SubscriptBox["c", "\[Theta]"], " ",
22691	SubscriptBox["s", "\[Theta]"]}]]], "Output",
22692	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
22693	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
22694	3.714652609565043^9}, 3.714656185731509^9,
22695	3.729588515369708*^9},ExpressionUUID->"7fed0cfe-dc93-4b40-9ebb-\
22696	974d879698fb"]
22697	}, Open ]],
22698
22699	Cell[BoxData[""], "Input",
22700	CellChangeTimes->{3.714652368810739*^9,
22701	3.7146524695105267`*^9},ExpressionUUID->"b9f9880a-8747-4371-9cd2-\
22702	a83ae65c4142"],
22703
22704	Cell[BoxData[
22705	RowBox[{
22706	RowBox[{"aww", "=",
22707	RowBox[{"GetInteractionTerms", "[",
22708	RowBox[{"L1", ",",
22709	RowBox[{"SelectParticles", "\[Rule]",
22710	RowBox[{"{",
22711	RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}],
22712	";"}]], "Input",
22713	CellChangeTimes->{{3.697355190045856^9, 3.697355204589117^9}, {
22714	3.697369511884927*^9,
22715	3.697369515354232*^9}},ExpressionUUID->"191d3bc4-eea9-4e3a-8e0a-\
22716	b2107197a77b"],
22717
22718	Cell[CellGroupData[{
22719
22720	Cell[BoxData[
22721	RowBox[{
22722	RowBox[{"(", "g1\[Gamma]", ")"}], "\[IndentingNewLine]",
22723	RowBox[{
22724	RowBox[{
22725	RowBox[{"aww", "/.",
22726	RowBox[{
22727	RowBox[{"del", "[",
22728	RowBox[{
22729	RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
22730	"Simplify"}], "\[IndentingNewLine]",
22731	RowBox[{
22732	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}]}]}]], "Input",
22733	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
22734	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
22735	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
22736	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
22737	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
22738	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
22739	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
22740	3.697366570896222^9, 3.697366573045783^9}, {3.697369517344802*^9,
22741	3.697369545423195^9}, {3.6973696026572323`^9, 3.697369618340808*^9},
22742	3.6974392939947577`^9, {3.697779796502404^9, 3.6977798017864113`*^9}, {
22743	3.700813620506486^9, 3.700813621426474^9}, {3.714652643567873*^9,
22744	3.714652669421071*^9}},ExpressionUUID->"07590436-e350-4503-b484-\
22745	c7316c8eadb3"],
22746
22747	Cell[BoxData[
22748	FractionBox[
22749	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22750	RowBox[{"(",
22751	RowBox[{
22752	RowBox[{"dsth2", " ",
22753	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
22754	RowBox[{
22755	SubscriptBox["s", "\[Theta]"], " ",
22756	RowBox[{"(",
22757	RowBox[{
22758	RowBox[{"2", " ",
22759	RowBox[{"(",
22760	RowBox[{"1", "+", "dgw"}], ")"}], " ",
22761	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22762	SubscriptBox["s", "\[Theta]"]}], "-",
22763	RowBox[{
22764	SubscriptBox["c", "HWB"], " ",
22765	SubscriptBox["c", "\[Theta]"], " ",
22766	SuperscriptBox[
22767	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
22768	SubscriptBox["A", "mu$1"], " ",
22769	RowBox[{"(",
22770	RowBox[{
22771	RowBox[{
22772	RowBox[{
22773	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22774	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
22775	SubscriptBox["W", "mu$2"]}], "-",
22776	RowBox[{
22777	RowBox[{
22778	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
22779	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
22780	SubscriptBox["W", "mu$2"]}], "+",
22781	RowBox[{
22782	RowBox[{"(",
22783	RowBox[{
22784	RowBox[{"-",
22785	RowBox[{
22786	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22787	SubscriptBox["W", "mu$1"], "]"}]}], "+",
22788	RowBox[{
22789	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
22790	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
22791	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
22792	RowBox[{"2", " ",
22793	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22794	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
22795	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
22796	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
22797	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
22798	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
22799	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
22800	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
22801	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
22802	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
22803	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
22804	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
22805	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
22806	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
22807	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
22808	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
22809	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
22810	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
22811	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
22812	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
22813	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
22814	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
22815	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
22816	3.7146561896969433`*^9,
22817	3.729588520210363*^9},ExpressionUUID->"ada966bb-c6cf-46f8-8bd5-\
22818	7b8244de6740"],
22819
22820	Cell[BoxData[
22821	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22822	SubscriptBox["A", "mu$1"], " ",
22823	RowBox[{"(",
22824	RowBox[{
22825	RowBox[{
22826	RowBox[{
22827	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22828	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
22829	SubscriptBox["W", "mu$2"]}], "-",
22830	RowBox[{
22831	RowBox[{
22832	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
22833	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
22834	SubscriptBox["W", "mu$2"]}], "+",
22835	RowBox[{
22836	RowBox[{"(",
22837	RowBox[{
22838	RowBox[{"-",
22839	RowBox[{
22840	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22841	SubscriptBox["W", "mu$1"], "]"}]}], "+",
22842	RowBox[{
22843	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
22844	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
22845	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
22846	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
22847	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
22848	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
22849	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
22850	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
22851	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
22852	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
22853	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
22854	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
22855	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
22856	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
22857	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
22858	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
22859	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
22860	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
22861	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
22862	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
22863	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
22864	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
22865	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
22866	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
22867	3.7146561896969433`*^9,
22868	3.7295885203139133`*^9},ExpressionUUID->"0f2a2f73-7aab-4ab5-b863-\
22869	2c74130402cd"]
22870	}, Open ]],
22871
22872	Cell[CellGroupData[{
22873
22874	Cell[BoxData[
22875	RowBox[{
22876	RowBox[{"(", "\[Kappa]\[Gamma]", ")"}], "\[IndentingNewLine]",
22877	RowBox[{
22878	RowBox[{
22879	RowBox[{"aww", "/.",
22880	RowBox[{
22881	RowBox[{
22882	RowBox[{"del", "[",
22883	RowBox[{
22884	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
22885	RowBox[{"del", "[",
22886	RowBox[{
22887	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
22888	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
22889	RowBox[{
22890	RowBox[{"%", "//.", "alphaShifts"}], "//", "Simplify"}],
22891	"\[IndentingNewLine]",
22892	RowBox[{
22893	RowBox[{"Simplify", "[",
22894	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
22895	RowBox[{"WCsimplify", "[",
22896	FractionBox["%",
22897	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
22898	CellChangeTimes->{{3.714652676781377*^9,
22899	3.71465270986456*^9}},ExpressionUUID->"c51cb444-efd9-4b66-a54c-\
22900	65cec7c0eeda"],
22901
22902	Cell[BoxData[
22903	RowBox[{"-",
22904	FractionBox[
22905	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22906	RowBox[{"(",
22907	RowBox[{
22908	RowBox[{"dsth2", " ",
22909	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
22910	RowBox[{
22911	SubscriptBox["s", "\[Theta]"], " ",
22912	RowBox[{"(",
22913	RowBox[{
22914	RowBox[{"2", " ",
22915	RowBox[{"(",
22916	RowBox[{"1", "+", "dgw"}], ")"}], " ",
22917	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22918	SubscriptBox["s", "\[Theta]"]}], "+",
22919	RowBox[{
22920	SubscriptBox["c", "HWB"], " ",
22921	SubscriptBox["c", "\[Theta]"], " ",
22922	SuperscriptBox[
22923	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
22924	RowBox[{
22925	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22926	SubscriptBox["A", "mu$1"], "]"}], " ",
22927	RowBox[{"(",
22928	RowBox[{
22929	RowBox[{
22930	SubscriptBox["W", "mu$2"], " ",
22931	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
22932	RowBox[{
22933	SubscriptBox["W", "mu$1"], " ",
22934	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
22935	RowBox[{"2", " ",
22936	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22937	SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
22938	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
22939	3.7146561899462633`*^9,
22940	3.7295885204644613`*^9},ExpressionUUID->"9bed9348-e530-4b9f-9345-\
22941	0b3b965b5513"],
22942
22943	Cell[BoxData[
22944	RowBox[{"-",
22945	FractionBox[
22946	RowBox[{"\[ImaginaryI]", " ", "e", " ",
22947	RowBox[{"(",
22948	RowBox[{
22949	RowBox[{
22950	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22951	SubscriptBox["s", "\[Theta]"]}], "+",
22952	RowBox[{
22953	SubscriptBox["c", "HWB"], " ",
22954	SubscriptBox["c", "\[Theta]"], " ",
22955	SuperscriptBox[
22956	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
22957	RowBox[{
22958	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22959	SubscriptBox["A", "mu$1"], "]"}], " ",
22960	RowBox[{"(",
22961	RowBox[{
22962	RowBox[{
22963	SubscriptBox["W", "mu$2"], " ",
22964	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
22965	RowBox[{
22966	SubscriptBox["W", "mu$1"], " ",
22967	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
22968	RowBox[{
22969	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22970	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
22971	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
22972	3.7146561899462633`*^9,
22973	3.729588520598548*^9},ExpressionUUID->"76b4b571-a50e-468b-9485-\
22974	16fd645b522f"],
22975
22976	Cell[BoxData[
22977	RowBox[{
22978	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
22979	RowBox[{"(",
22980	RowBox[{"1", "+",
22981	FractionBox[
22982	RowBox[{
22983	SubscriptBox["c", "HWB"], " ",
22984	SubscriptBox["c", "\[Theta]"], " ",
22985	SuperscriptBox[
22986	OverscriptBox["v", "^"], "2"]}],
22987	RowBox[{
22988	SuperscriptBox["\[CapitalLambda]", "2"], " ",
22989	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
22990	RowBox[{
22991	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
22992	SubscriptBox["A", "mu$1"], "]"}], " ",
22993	RowBox[{"(",
22994	RowBox[{
22995	RowBox[{
22996	SubscriptBox["W", "mu$2"], " ",
22997	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
22998	RowBox[{
22999	SubscriptBox["W", "mu$1"], " ",
23000	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
23001	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
23002	3.7146561899462633`*^9,
23003	3.729588520633849*^9},ExpressionUUID->"c3c86c78-c430-42ff-823c-\
23004	c7e36701aa97"]
23005	}, Open ]]
23006	}, Closed]],
23007
23008	Cell[CellGroupData[{
23009
23010	Cell["Example : h Z Z coupling ", "Subsection",
23011	CellChangeTimes->{{3.714653069350562^9, 3.714653080585577^9}, {
23012	3.71465313260557^9, 3.714653135145647^9}, {3.7146561420383987`*^9,
23013	3.714656142208275*^9}}],
23014
23015	Cell[CellGroupData[{
23016
23017	Cell[BoxData[
23018	RowBox[{"hzz", "=",
23019	RowBox[{
23020	RowBox[{"GetInteractionTerms", "[",
23021	RowBox[{
23022	RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], ",",
23023	RowBox[{"SelectParticles", "\[Rule]",
23024	RowBox[{"{",
23025	RowBox[{"{",
23026	RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//",
23027	"Simplify"}]}]], "Input",
23028	CellChangeTimes->{{3.697540540429167^9, 3.697540577497007^9}, {
23029	3.697542681098937^9, 3.6975427025673847`^9}, {3.697781972728959*^9,
23030	3.697781973755425^9}, {3.714653122093409^9, 3.714653151135909*^9}, {
23031	3.714656151886788*^9,
23032	3.714656152346603*^9}},ExpressionUUID->"eb669595-383a-47d0-93fb-\
23033	d6ab3f503353"],
23034
23035	Cell[BoxData[
23036	FractionBox[
23037	RowBox[{"H", " ",
23038	OverscriptBox["v", "^"], " ",
23039	RowBox[{"(",
23040	RowBox[{
23041	RowBox[{
23042	RowBox[{"-", "32"}], " ",
23043	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
23044	RowBox[{"(",
23045	RowBox[{
23046	RowBox[{"-", "1"}], "+",
23047	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23048	RowBox[{"(",
23049	RowBox[{
23050	SubscriptBox["c", "HW"], "+",
23051	RowBox[{
23052	SubscriptBox["c", "HWB"], " ",
23053	SubscriptBox["c", "\[Theta]"], " ",
23054	SubscriptBox["s", "\[Theta]"]}], "+",
23055	RowBox[{
23056	RowBox[{"(",
23057	RowBox[{
23058	SubscriptBox["c", "HB"], "-",
23059	SubscriptBox["c", "HW"]}], ")"}], " ",
23060	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
23061	SuperscriptBox[
23062	RowBox[{
23063	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
23064	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
23065	RowBox[{"32", " ",
23066	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
23067	RowBox[{"(",
23068	RowBox[{
23069	RowBox[{"-", "1"}], "+",
23070	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23071	RowBox[{"(",
23072	RowBox[{
23073	SubscriptBox["c", "HW"], "+",
23074	RowBox[{
23075	SubscriptBox["c", "HWB"], " ",
23076	SubscriptBox["c", "\[Theta]"], " ",
23077	SubscriptBox["s", "\[Theta]"]}], "+",
23078	RowBox[{
23079	RowBox[{"(",
23080	RowBox[{
23081	SubscriptBox["c", "HB"], "-",
23082	SubscriptBox["c", "HW"]}], ")"}], " ",
23083	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
23084	RowBox[{
23085	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
23086	SubscriptBox["Z", "mu$1"], "]"}], " ",
23087	RowBox[{
23088	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
23089	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
23090	RowBox[{
23091	SuperscriptBox["e", "2"], " ",
23092	RowBox[{"(",
23093	RowBox[{
23094	RowBox[{"2", " ",
23095	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23096	RowBox[{"(",
23097	RowBox[{"2", "+",
23098	RowBox[{
23099	SqrtBox["2"], " ", "dGf"}], "+",
23100	RowBox[{"4", " ", "dgw"}], "+",
23101	RowBox[{"4", " ",
23102	RowBox[{"(",
23103	RowBox[{"dg1", "-", "dgw"}], ")"}], " ",
23104	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
23105	RowBox[{
23106	RowBox[{"(",
23107	RowBox[{
23108	RowBox[{"4", " ",
23109	SubscriptBox["c",
23110	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
23111	RowBox[{"3", " ",
23112	SubscriptBox["c", "HD"]}], "+",
23113	RowBox[{"8", " ",
23114	SubscriptBox["c", "HWB"], " ",
23115	SubscriptBox["c", "\[Theta]"], " ",
23116	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
23117	SuperscriptBox[
23118	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23119	SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}],
23120	RowBox[{"16", " ",
23121	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23122	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23123	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
23124	CellChangeTimes->{3.714653202225688^9, 3.71465622360679^9,
23125	3.729588551983281*^9},ExpressionUUID->"75cee970-0bd3-4256-9cdc-\
23126	62ea5dd43d1e"]
23127	}, Open ]],
23128
23129	Cell[CellGroupData[{
23130
23131	Cell[BoxData[
23132	RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
23133	CellChangeTimes->{{3.714653438713478*^9,
23134	3.7146534431183643`*^9}},ExpressionUUID->"8b188c78-d7e1-417e-95d0-\
23135	341977fb02a0"],
23136
23137	Cell[BoxData[
23138	FractionBox[
23139	RowBox[{
23140	SuperscriptBox["e", "2"], " ", "H", " ",
23141	OverscriptBox["v", "^"], " ",
23142	SubsuperscriptBox["Z", "mu$1", "2"]}],
23143	RowBox[{"4", " ",
23144	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23145	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
23146	CellChangeTimes->{3.71465344371563^9, 3.714656223705248^9,
23147	3.729588552035398*^9},ExpressionUUID->"f530183e-92e4-476f-b2b0-\
23148	3d4fe26e5f64"]
23149	}, Open ]],
23150
23151	Cell[CellGroupData[{
23152
23153	Cell[BoxData[
23154	RowBox[{"Collect", "[",
23155	RowBox[{"hzz", ",", " ",
23156	RowBox[{"{",
23157	RowBox[{
23158	SuperscriptBox[
23159	RowBox[{"Z", "[", "_", "]"}], "2"], ",",
23160	RowBox[{"del", "[",
23161	RowBox[{
23162	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",",
23163	"WCsimplify"}], "]"}]], "Input",
23164	CellChangeTimes->{{3.6975405853373423`^9, 3.697540591707506^9}, {
23165	3.697541657728915^9, 3.697541658783434^9}, {3.697780136114642*^9,
23166	3.697780142223364^9}, {3.7146531763975058`^9, 3.714653240146103*^9}, {
23167	3.714653274464172^9, 3.7146533884198837`^9}, {3.714653429727*^9,
23168	3.7146534351677427`*^9}},ExpressionUUID->"cc5d8ea1-51f8-4072-ac64-\
23169	be73d58c6c44"],
23170
23171	Cell[BoxData[
23172	RowBox[{
23173	RowBox[{
23174	RowBox[{"(",
23175	RowBox[{
23176	RowBox[{"-",
23177	FractionBox[
23178	RowBox[{"2", " ",
23179	SubscriptBox["c", "HWB"], " ", "H", " ",
23180	SubscriptBox["s", "\[Theta]"], " ",
23181	RowBox[{"(",
23182	RowBox[{
23183	RowBox[{"-", "1"}], "+",
23184	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23185	OverscriptBox["v", "^"]}],
23186	RowBox[{
23187	SubscriptBox["c", "\[Theta]"], " ",
23188	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-",
23189	FractionBox[
23190	RowBox[{"2", " ",
23191	SubscriptBox["c", "HB"], " ", "H", " ",
23192	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
23193	RowBox[{"(",
23194	RowBox[{
23195	RowBox[{"-", "1"}], "+",
23196	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23197	OverscriptBox["v", "^"]}],
23198	RowBox[{
23199	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23200	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
23201	FractionBox[
23202	RowBox[{"2", " ",
23203	SubscriptBox["c", "HW"], " ", "H", " ",
23204	SuperscriptBox[
23205	RowBox[{"(",
23206	RowBox[{
23207	RowBox[{"-", "1"}], "+",
23208	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
23209	OverscriptBox["v", "^"]}],
23210	RowBox[{
23211	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23212	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
23213	SuperscriptBox[
23214	RowBox[{
23215	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
23216	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
23217	RowBox[{
23218	RowBox[{"(",
23219	RowBox[{
23220	FractionBox[
23221	RowBox[{"2", " ",
23222	SubscriptBox["c", "HWB"], " ", "H", " ",
23223	SubscriptBox["s", "\[Theta]"], " ",
23224	RowBox[{"(",
23225	RowBox[{
23226	RowBox[{"-", "1"}], "+",
23227	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23228	OverscriptBox["v", "^"]}],
23229	RowBox[{
23230	SubscriptBox["c", "\[Theta]"], " ",
23231	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
23232	FractionBox[
23233	RowBox[{"2", " ",
23234	SubscriptBox["c", "HB"], " ", "H", " ",
23235	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
23236	RowBox[{"(",
23237	RowBox[{
23238	RowBox[{"-", "1"}], "+",
23239	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23240	OverscriptBox["v", "^"]}],
23241	RowBox[{
23242	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23243	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
23244	FractionBox[
23245	RowBox[{"2", " ",
23246	SubscriptBox["c", "HW"], " ", "H", " ",
23247	SuperscriptBox[
23248	RowBox[{"(",
23249	RowBox[{
23250	RowBox[{"-", "1"}], "+",
23251	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
23252	OverscriptBox["v", "^"]}],
23253	RowBox[{
23254	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23255	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
23256	RowBox[{
23257	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
23258	SubscriptBox["Z", "mu$1"], "]"}], " ",
23259	RowBox[{
23260	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
23261	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
23262	RowBox[{
23263	RowBox[{"(",
23264	RowBox[{
23265	FractionBox[
23266	RowBox[{"dg1", " ",
23267	SuperscriptBox["e", "2"], " ", "H", " ",
23268	OverscriptBox["v", "^"]}],
23269	RowBox[{"2", " ",
23270	SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+",
23271	FractionBox[
23272	RowBox[{
23273	SuperscriptBox["e", "2"], " ", "H", " ",
23274	OverscriptBox["v", "^"]}],
23275	RowBox[{"4", " ",
23276	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23277	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
23278	FractionBox[
23279	RowBox[{"dGf", " ",
23280	SuperscriptBox["e", "2"], " ", "H", " ",
23281	OverscriptBox["v", "^"]}],
23282	RowBox[{"4", " ",
23283	SqrtBox["2"], " ",
23284	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23285	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-",
23286	FractionBox[
23287	RowBox[{"dgw", " ",
23288	SuperscriptBox["e", "2"], " ", "H", " ",
23289	RowBox[{"(",
23290	RowBox[{
23291	RowBox[{"-", "1"}], "+",
23292	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23293	OverscriptBox["v", "^"]}],
23294	RowBox[{"2", " ",
23295	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23296	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
23297	FractionBox[
23298	RowBox[{
23299	SubscriptBox["c",
23300	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
23301	SuperscriptBox["e", "2"], " ", "H", " ",
23302	SuperscriptBox[
23303	OverscriptBox["v", "^"], "3"]}],
23304	RowBox[{"4", " ",
23305	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23306	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23307	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
23308	FractionBox[
23309	RowBox[{"3", " ",
23310	SubscriptBox["c", "HD"], " ",
23311	SuperscriptBox["e", "2"], " ", "H", " ",
23312	SuperscriptBox[
23313	OverscriptBox["v", "^"], "3"]}],
23314	RowBox[{"16", " ",
23315	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23316	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23317	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
23318	FractionBox[
23319	RowBox[{
23320	SubscriptBox["c", "HWB"], " ",
23321	SuperscriptBox["e", "2"], " ", "H", " ",
23322	SuperscriptBox[
23323	OverscriptBox["v", "^"], "3"]}],
23324	RowBox[{"2", " ",
23325	SubscriptBox["c", "\[Theta]"], " ",
23326	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23327	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
23328	SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
23329	CellChangeTimes->{
23330	3.700893354200268^9, 3.712654290029169^9, 3.71396688057451*^9, {
23331	3.714653206742526^9, 3.71465324075095^9}, {3.714653297211488*^9,
23332	3.7146533889881983`^9}, {3.714653430663045^9, 3.714653435702468*^9},
23333	3.714656223934009*^9,
23334	3.729588552288351*^9},ExpressionUUID->"e0a67780-11b8-4e08-8da3-\
23335	168e5ec295ac"]
23336	}, Open ]],
23337
23338	Cell[BoxData[
23339	RowBox[{"Coefficient", " ", "for", " ",
23340	SubscriptBox["Z", "\[Mu]"],
23341	SuperscriptBox["Z", "\[Mu]"]}]], "Text",
23342	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}, {
23343	3.7146562034254837`^9, 3.714656204213971^9}}],
23344
23345	Cell[CellGroupData[{
23346
23347	Cell[BoxData[{
23348	RowBox[{
23349	RowBox[{
23350	RowBox[{"hzz", "/.",
23351	RowBox[{
23352	RowBox[{"del", "[",
23353	RowBox[{
23354	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
23355	"alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
23356	RowBox[{
23357	RowBox[{"SMlimit", "[", "%", "]"}], " ",
23358	RowBox[{"WCsimplify", "[",
23359	FractionBox["%",
23360	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
23361	CellChangeTimes->{{3.714653537675856*^9,
23362	3.714653585931526*^9}},ExpressionUUID->"4d30f3d1-0aa2-453c-87ad-\
23363	29ae841bd168"],
23364
23365	Cell[BoxData[
23366	FractionBox[
23367	RowBox[{
23368	SuperscriptBox["e", "2"], " ", "H", " ",
23369	OverscriptBox["v", "^"], " ",
23370	RowBox[{"(",
23371	RowBox[{
23372	RowBox[{"4", " ",
23373	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
23374	RowBox[{
23375	RowBox[{"(",
23376	RowBox[{
23377	RowBox[{"4", " ",
23378	SubscriptBox["c",
23379	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
23380	SubscriptBox["c", "HD"], "-",
23381	RowBox[{"4", " ",
23382	TemplateBox[{"c","Hl","3"},
23383	"Subsuperscript"]}], "+",
23384	RowBox[{"2", " ",
23385	TemplateBox[{"c","ll","Prime"},
23386	"Subsuperscript"]}]}], ")"}], " ",
23387	SuperscriptBox[
23388	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23389	SubsuperscriptBox["Z", "mu$1", "2"]}],
23390	RowBox[{"16", " ",
23391	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23392	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23393	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
23394	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9},
23395	3.714656224062125*^9,
23396	3.729588552390667*^9},ExpressionUUID->"8f9c977d-cd52-403d-b3ba-\
23397	7c916a698243"],
23398
23399	Cell[BoxData[
23400	FractionBox[
23401	RowBox[{
23402	SuperscriptBox["e", "2"], " ", "H", " ",
23403	OverscriptBox["v", "^"], " ",
23404	RowBox[{"(",
23405	RowBox[{"1", "+",
23406	FractionBox[
23407	RowBox[{
23408	SubscriptBox["c",
23409	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
23410	SuperscriptBox[
23411	OverscriptBox["v", "^"], "2"]}],
23412	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
23413	FractionBox[
23414	RowBox[{
23415	SubscriptBox["c", "HD"], " ",
23416	SuperscriptBox[
23417	OverscriptBox["v", "^"], "2"]}],
23418	RowBox[{"4", " ",
23419	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
23420	FractionBox[
23421	RowBox[{
23422	TemplateBox[{"c","Hl","3"},
23423	"Subsuperscript"], " ",
23424	SuperscriptBox[
23425	OverscriptBox["v", "^"], "2"]}],
23426	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
23427	FractionBox[
23428	RowBox[{
23429	TemplateBox[{"c","ll","Prime"},
23430	"Subsuperscript"], " ",
23431	SuperscriptBox[
23432	OverscriptBox["v", "^"], "2"]}],
23433	RowBox[{"2", " ",
23434	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
23435	SubsuperscriptBox["Z", "mu$1", "2"]}],
23436	RowBox[{"4", " ",
23437	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23438	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
23439	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9},
23440	3.714656224062125*^9,
23441	3.729588552419573*^9},ExpressionUUID->"da17b81e-22fb-4d26-a571-\
23442	6d3f2540427c"]
23443	}, Open ]],
23444
23445	Cell[BoxData[
23446	RowBox[{"Coefficient", " ", "for", " ",
23447	RowBox[{
23448	SubscriptBox["\[PartialD]", "\[Mu]"],
23449	SubscriptBox["Z", "\[Nu]"]}],
23450	RowBox[{"(",
23451	RowBox[{
23452	RowBox[{
23453	SuperscriptBox["\[PartialD]", "\[Mu]"],
23454	SuperscriptBox["Z", "\[Nu]"]}], "-",
23455	RowBox[{
23456	SuperscriptBox["\[PartialD]", "\[Nu]"],
23457	SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
23458	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}, {
23459	3.714653634026601^9, 3.714653660281114^9}}],
23460
23461	Cell[CellGroupData[{
23462
23463	Cell[BoxData[
23464	RowBox[{
23465	RowBox[{
23466	RowBox[{
23467	RowBox[{"hzz", "/.",
23468	RowBox[{
23469	SuperscriptBox[
23470	RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.",
23471	"alphaShifts"}], "//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
23472	CellChangeTimes->{{3.714653537675856^9, 3.714653585931526^9}, {
23473	3.714653677707417*^9,
23474	3.714653739972247*^9}},ExpressionUUID->"0ab581fa-70ab-495d-91a8-\
23475	d75e3b1a772a"],
23476
23477	Cell[BoxData[
23478	FractionBox[
23479	RowBox[{"2", " ", "H", " ",
23480	RowBox[{"(",
23481	RowBox[{
23482	RowBox[{"-", "1"}], "+",
23483	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
23484	RowBox[{"(",
23485	RowBox[{
23486	SubscriptBox["c", "HW"], "+",
23487	RowBox[{
23488	SubscriptBox["c", "HWB"], " ",
23489	SubscriptBox["c", "\[Theta]"], " ",
23490	SubscriptBox["s", "\[Theta]"]}], "+",
23491	RowBox[{
23492	RowBox[{"(",
23493	RowBox[{
23494	SubscriptBox["c", "HB"], "-",
23495	SubscriptBox["c", "HW"]}], ")"}], " ",
23496	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
23497	OverscriptBox["v", "^"], " ",
23498	RowBox[{
23499	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
23500	SubscriptBox["Z", "mu$1"], "]"}], " ",
23501	RowBox[{"(",
23502	RowBox[{
23503	RowBox[{"-",
23504	RowBox[{
23505	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
23506	SubscriptBox["Z", "mu$1"], "]"}]}], "+",
23507	RowBox[{
23508	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
23509	SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}],
23510	RowBox[{
23511	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
23512	SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
23513	CellChangeTimes->{{3.714653685513557^9, 3.714653740251841^9},
23514	3.7146562242545652`*^9,
23515	3.72958855259804*^9},ExpressionUUID->"7b8855f3-f575-4677-923e-\
23516	66db27b5d9f4"]
23517	}, Open ]]
23518	}, Closed]],
23519
23520	Cell[CellGroupData[{
23521
23522	Cell[TextData[{
23523	"Example - Fermion Z ",
23524	Cell[BoxData[
23525	FormBox["couplings", TraditionalForm]]],
23526	" (non-dipole structures)"
23527	}], "Subsection",
23528	CellChangeTimes->{{3.6974638309413443`^9, 3.697463841478889^9}, {
23529	3.707196728078579^9, 3.707196728973489^9}, {3.709116189885594*^9,
23530	3.7091161899213247`^9}, {3.7111737190476913`^9, 3.711173721023136*^9}, {
23531	3.714474653133204^9, 3.7144746902228537`^9}}],
23532
23533	Cell[BoxData[
23534	RowBox[{
23535	RowBox[{"L2", "=",
23536	RowBox[{
23537	RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}],
23538	";"}]], "Input",
23539	CellChangeTimes->{{3.714474671414948*^9,
23540	3.714474706220644*^9}},ExpressionUUID->"6f10f71f-a5a0-427b-b5a2-\
23541	ba70df43c36a"],
23542
23543	Cell[CellGroupData[{
23544
23545	Cell[BoxData[
23546	RowBox[{"ZffCouplings", "=",
23547	RowBox[{
23548	RowBox[{
23549	RowBox[{
23550	RowBox[{"FeynmanRules", "[",
23551	RowBox[{"L2", ",",
23552	RowBox[{"Contains", "\[Rule]",
23553	RowBox[{"{", "Z", "}"}]}], ",",
23554	RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//",
23555	"OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
23556	CellChangeTimes->{{3.697463857630127^9, 3.697463897475298^9}, {
23557	3.697464136487383^9, 3.6974641367049007`^9}, {3.6974642201407433`*^9,
23558	3.697464224325818^9}, {3.697779806045223^9, 3.6977798069672327`*^9}, {
23559	3.697781531384438^9, 3.6977815317278852`^9}, {3.706961693077465*^9,
23560	3.7069617104980583`^9}, {3.70696208279708^9, 3.706962082840859*^9}, {
23561	3.70702385358392^9, 3.707023854145379^9}, 3.71423999167645*^9, {
23562	3.714475504960969^9, 3.714475525688051^9}, {3.7146527509492188`*^9,
23563	3.714652756642342^9}, {3.714652909302999^9,
23564	3.7146529149076347`*^9}},ExpressionUUID->"3997fa46-2a4e-41bf-b27f-\
23565	7da19b870f74"],
23566
23567	Cell[CellGroupData[{
23568
23569	Cell[BoxData[
23570	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
23571	StripOnInput->False,
23572	LineColor->RGBColor[1, 0.5, 0],
23573	FrontFaceColor->RGBColor[1, 0.5, 0],
23574	BackFaceColor->RGBColor[1, 0.5, 0],
23575	GraphicsColor->RGBColor[1, 0.5, 0],
23576	FontWeight->Bold,
23577	FontColor->RGBColor[1, 0.5, 0]]], "Print",
23578	CellChangeTimes->{3.714658285551125*^9,
23579	3.729588588728286*^9},ExpressionUUID->"c4569476-9fe1-4b07-8d16-\
23580	8b3464561185"],
23581
23582	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
23583	CellChangeTimes->{3.714658285551125*^9,
23584	3.7295885887302523`*^9},ExpressionUUID->"36abba1e-9dcb-4a64-a6f9-\
23585	3a60c6108cc3"],
23586
23587	Cell[BoxData[
23588	InterpretationBox[
23589	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
23590	"\[InvisibleSpace]", "\<\" cores\"\>"}],
23591	SequenceForm["Expanding the indices over ", 2, " cores"],
23592	Editable->False]], "Print",
23593	CellChangeTimes->{3.714658285551125*^9,
23594	3.729588588736885*^9},ExpressionUUID->"90cf04f0-40cc-44d5-91b0-\
23595	457f6809b264"],
23596
23597	Cell[BoxData["\<\"Collecting the different structures that enter the \
23598	vertex.\"\>"], "Print",
23599	CellChangeTimes->{3.714658285551125*^9,
23600	3.729588605379652*^9},ExpressionUUID->"403d2679-18b7-4ce6-a021-\
23601	f47f85ffdb31"],
23602
23603	Cell[BoxData[
23604	InterpretationBox[
23605	RowBox[{
23606	"4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
23607	-> starting the computation: \"\>", "\[InvisibleSpace]",
23608	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
23609	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
23610	"\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
23611	SequenceForm[
23612	4, " possible non-zero vertices have been found -> starting the \
23613	computation: ",
23614	Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
23615	Editable->False]], "Print",
23616	CellChangeTimes->{3.714658285551125*^9,
23617	3.729588605419929*^9},ExpressionUUID->"048a50da-7fa9-4634-877b-\
23618	856ec4bc5088"],
23619
23620	Cell[BoxData[
23621	InterpretationBox[
23622	RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
23623	SequenceForm[4, " vertices obtained."],
23624	Editable->False]], "Print",
23625	CellChangeTimes->{3.714658285551125*^9,
23626	3.729588609020893*^9},ExpressionUUID->"f5b06563-65bc-4222-8b53-\
23627	c4f5652d7461"]
23628	}, Open ]],
23629
23630	Cell[BoxData[
23631	InterpretationBox[GridBox[{
23632	{GridBox[{
23633	{
23634	OverscriptBox["dq", "\<\"-\"\>"], "1"},
23635	{"dq", "2"},
23636	{"Z", "3"}
23637	},
23638	GridBoxAlignment->{
23639	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
23640	"RowsIndexed" -> {}},
23641	GridBoxSpacings->{"Columns" -> {
23642	Offset[0.27999999999999997`], {
23643	Offset[0.7]},
23644	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
23645	Offset[0.2], {
23646	Offset[0.1]},
23647	Offset[0.2]}, "RowsIndexed" -> {}}],
23648	RowBox[{"-",
23649	FractionBox[
23650	RowBox[{"\[ImaginaryI]", " ", "e", " ",
23651	SubscriptBox["\[Delta]",
23652	RowBox[{
23653	SubscriptBox["\<\"m\"\>", "1"], ",",
23654	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
23655	RowBox[{"(",
23656	RowBox[{
23657	RowBox[{
23658	SubscriptBox["\[Delta]",
23659	RowBox[{
23660	SubscriptBox["\<\"f\"\>", "1"], ",",
23661	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
23662	RowBox[{"(",
23663	RowBox[{
23664	RowBox[{
23665	RowBox[{"(",
23666	RowBox[{
23667	RowBox[{
23668	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23669	RowBox[{"(",
23670	RowBox[{
23671	RowBox[{"-", "3"}], "-",
23672	RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+",
23673	RowBox[{
23674	RowBox[{"(",
23675	RowBox[{"2", "-", "dg1", "+",
23676	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
23677	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
23678	RowBox[{
23679	RowBox[{"(",
23680	RowBox[{
23681	RowBox[{"3", " ",
23682	TemplateBox[{"c","Hq","1"},
23683	"Subsuperscript"]}], "+",
23684	RowBox[{"3", " ",
23685	TemplateBox[{"c","Hq","3"},
23686	"Subsuperscript"]}], "+",
23687	RowBox[{"2", " ",
23688	SubscriptBox["c", "HWB"], " ",
23689	SubscriptBox["c", "\[Theta]"], " ",
23690	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
23691	SuperscriptBox[
23692	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23693	SubscriptBox[
23694	RowBox[{
23695	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23696	"Superscript"], ".",
23697	SubscriptBox["P", "\<\"-\"\>"]}],
23698	RowBox[{
23699	SubscriptBox["\<\"s\"\>", "1"], ",",
23700	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
23701	RowBox[{
23702	RowBox[{"(",
23703	RowBox[{
23704	RowBox[{"dsth2", " ",
23705	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
23706	RowBox[{"2", " ",
23707	RowBox[{"(",
23708	RowBox[{"1", "+", "dg1"}], ")"}], " ",
23709	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23710	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
23711	RowBox[{
23712	RowBox[{"(",
23713	RowBox[{
23714	RowBox[{
23715	RowBox[{"-", "3"}], " ",
23716	SubscriptBox["c", "Hd"]}], "+",
23717	RowBox[{
23718	SubscriptBox["c", "HWB"], " ",
23719	SubscriptBox["c", "\[Theta]"], " ",
23720	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
23721	SuperscriptBox[
23722	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23723	SubscriptBox[
23724	RowBox[{
23725	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23726	"Superscript"], ".",
23727	SubscriptBox["P", "\<\"+\"\>"]}],
23728	RowBox[{
23729	SubscriptBox["\<\"s\"\>", "1"], ",",
23730	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-",
23731	RowBox[{"3", " ",
23732	SuperscriptBox[
23733	OverscriptBox["v", "^"], "2"], " ",
23734	RowBox[{"(",
23735	RowBox[{
23736	RowBox[{
23737	RowBox[{"(",
23738	RowBox[{
23739	TagBox[
23740	RowBox[{
23741	SubscriptBox["\[CapitalDelta]", "u"], " ",
23742	TemplateBox[{"c","Hq","1"},
23743	"Subsuperscript"]}],
23744	HoldForm], "+",
23745	TagBox[
23746	RowBox[{
23747	SubscriptBox["\[CapitalDelta]", "u"], " ",
23748	TemplateBox[{"c","Hq","3"},
23749	"Subsuperscript"]}],
23750	HoldForm]}], ")"}], " ",
23751	SubscriptBox[
23752	TemplateBox[{"V","CKM"},
23753	"Superscript"],
23754	RowBox[{"Generation$1", ",",
23755	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
23756	SubsuperscriptBox[
23757	RowBox[{"(",
23758	TemplateBox[{"V","CKM"},
23759	"Superscript"], ")"}],
23760	RowBox[{"Generation$2", ",",
23761	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
23762	SubscriptBox[
23763	TemplateBox[{"S","u"},
23764	"Superscript"],
23765	RowBox[{"Generation$2", ",", "Generation$1"}]], " ",
23766	SubscriptBox[
23767	RowBox[{
23768	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23769	"Superscript"], ".",
23770	SubscriptBox["P", "\<\"-\"\>"]}],
23771	RowBox[{
23772	SubscriptBox["\<\"s\"\>", "1"], ",",
23773	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
23774	RowBox[{
23775	SubscriptBox[
23776	TemplateBox[{"S","d"},
23777	"Superscript"],
23778	RowBox[{
23779	SubscriptBox["\<\"f\"\>", "1"], ",",
23780	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
23781	RowBox[{"(",
23782	RowBox[{
23783	RowBox[{
23784	RowBox[{"(",
23785	RowBox[{
23786	TagBox[
23787	RowBox[{
23788	SubscriptBox["\[CapitalDelta]", "d"], " ",
23789	TemplateBox[{"c","Hq","1"},
23790	"Subsuperscript"]}],
23791	HoldForm], "+",
23792	TagBox[
23793	RowBox[{
23794	SubscriptBox["\[CapitalDelta]", "d"], " ",
23795	TemplateBox[{"c","Hq","3"},
23796	"Subsuperscript"]}],
23797	HoldForm]}], ")"}], " ",
23798	SubscriptBox[
23799	RowBox[{
23800	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23801	"Superscript"], ".",
23802	SubscriptBox["P", "\<\"-\"\>"]}],
23803	RowBox[{
23804	SubscriptBox["\<\"s\"\>", "1"], ",",
23805	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
23806	RowBox[{
23807	SubscriptBox["\[CapitalDelta]c", "Hd"], " ",
23808	SubscriptBox[
23809	RowBox[{
23810	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23811	"Superscript"], ".",
23812	SubscriptBox["P", "\<\"+\"\>"]}],
23813	RowBox[{
23814	SubscriptBox["\<\"s\"\>", "1"], ",",
23815	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}],
23816	")"}]}]}], ")"}]}],
23817	RowBox[{"6", " ",
23818	SubscriptBox["c", "\[Theta]"], " ",
23819	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23820	SubscriptBox["s", "\[Theta]"]}]]}]},
23821	{GridBox[{
23822	{
23823	OverscriptBox["l", "\<\"-\"\>"], "1"},
23824	{"l", "2"},
23825	{"Z", "3"}
23826	},
23827	GridBoxAlignment->{
23828	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
23829	"RowsIndexed" -> {}},
23830	GridBoxSpacings->{"Columns" -> {
23831	Offset[0.27999999999999997`], {
23832	Offset[0.7]},
23833	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
23834	Offset[0.2], {
23835	Offset[0.1]},
23836	Offset[0.2]}, "RowsIndexed" -> {}}],
23837	RowBox[{"-",
23838	FractionBox[
23839	RowBox[{"\[ImaginaryI]", " ", "e", " ",
23840	SubscriptBox["\[Delta]",
23841	RowBox[{
23842	SubscriptBox["\<\"f\"\>", "1"], ",",
23843	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
23844	RowBox[{"(",
23845	RowBox[{
23846	RowBox[{
23847	RowBox[{"(",
23848	RowBox[{
23849	RowBox[{
23850	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23851	RowBox[{"(",
23852	RowBox[{
23853	RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+",
23854	RowBox[{
23855	RowBox[{"(",
23856	RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ",
23857	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
23858	RowBox[{
23859	RowBox[{"(",
23860	RowBox[{
23861	TemplateBox[{"c","Hl","1"},
23862	"Subsuperscript"], "+",
23863	TemplateBox[{"c","Hl","3"},
23864	"Subsuperscript"]}], ")"}], " ",
23865	SuperscriptBox[
23866	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23867	SubscriptBox[
23868	RowBox[{
23869	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23870	"Superscript"], ".",
23871	SubscriptBox["P", "\<\"-\"\>"]}],
23872	RowBox[{
23873	SubscriptBox["\<\"s\"\>", "1"], ",",
23874	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
23875	RowBox[{
23876	RowBox[{"(",
23877	RowBox[{
23878	RowBox[{"dsth2", " ",
23879	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
23880	RowBox[{"2", " ",
23881	RowBox[{"(",
23882	RowBox[{"1", "+", "dg1"}], ")"}], " ",
23883	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23884	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
23885	RowBox[{
23886	RowBox[{"(",
23887	RowBox[{
23888	RowBox[{"-",
23889	SubscriptBox["c", "He"]}], "+",
23890	RowBox[{
23891	SubscriptBox["c", "HWB"], " ",
23892	SubscriptBox["c", "\[Theta]"], " ",
23893	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
23894	SuperscriptBox[
23895	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23896	SubscriptBox[
23897	RowBox[{
23898	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23899	"Superscript"], ".",
23900	SubscriptBox["P", "\<\"+\"\>"]}],
23901	RowBox[{
23902	SubscriptBox["\<\"s\"\>", "1"], ",",
23903	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
23904	RowBox[{"2", " ",
23905	SubscriptBox["c", "\[Theta]"], " ",
23906	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23907	SubscriptBox["s", "\[Theta]"]}]]}]},
23908	{GridBox[{
23909	{
23910	OverscriptBox["uq", "\<\"-\"\>"], "1"},
23911	{"uq", "2"},
23912	{"Z", "3"}
23913	},
23914	GridBoxAlignment->{
23915	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
23916	"RowsIndexed" -> {}},
23917	GridBoxSpacings->{"Columns" -> {
23918	Offset[0.27999999999999997`], {
23919	Offset[0.7]},
23920	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
23921	Offset[0.2], {
23922	Offset[0.1]},
23923	Offset[0.2]}, "RowsIndexed" -> {}}],
23924	FractionBox[
23925	RowBox[{"\[ImaginaryI]", " ", "e", " ",
23926	SubscriptBox["\[Delta]",
23927	RowBox[{
23928	SubscriptBox["\<\"m\"\>", "1"], ",",
23929	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
23930	RowBox[{"(",
23931	RowBox[{
23932	RowBox[{
23933	SubscriptBox["\[Delta]",
23934	RowBox[{
23935	SubscriptBox["\<\"f\"\>", "1"], ",",
23936	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
23937	RowBox[{"(",
23938	RowBox[{
23939	RowBox[{
23940	RowBox[{"(",
23941	RowBox[{
23942	RowBox[{
23943	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23944	RowBox[{"(",
23945	RowBox[{
23946	RowBox[{"-", "3"}], "-",
23947	RowBox[{"3", " ", "dgw"}], "+",
23948	RowBox[{"2", " ", "dsth2"}], "+",
23949	RowBox[{
23950	RowBox[{"(",
23951	RowBox[{"4", "+", "dg1", "+",
23952	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
23953	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
23954
23955	RowBox[{
23956	RowBox[{"(",
23957	RowBox[{
23958	RowBox[{"3", " ",
23959	TemplateBox[{"c","Hq","1"},
23960	"Subsuperscript"]}], "-",
23961	RowBox[{"3", " ",
23962	TemplateBox[{"c","Hq","3"},
23963	"Subsuperscript"]}], "-",
23964	RowBox[{
23965	SubscriptBox["c", "HWB"], " ",
23966	SubscriptBox["c", "\[Theta]"], " ",
23967	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
23968	SuperscriptBox[
23969	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23970	SubscriptBox[
23971	RowBox[{
23972	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
23973	"Superscript"], ".",
23974	SubscriptBox["P", "\<\"-\"\>"]}],
23975	RowBox[{
23976	SubscriptBox["\<\"s\"\>", "1"], ",",
23977	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
23978	RowBox[{
23979	RowBox[{"(",
23980	RowBox[{
23981	RowBox[{"2", " ", "dsth2", " ",
23982	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
23983	RowBox[{"4", " ",
23984	RowBox[{"(",
23985	RowBox[{"1", "+", "dg1"}], ")"}], " ",
23986	SuperscriptBox["\[CapitalLambda]", "2"], " ",
23987	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
23988	RowBox[{
23989	RowBox[{"(",
23990	RowBox[{
23991	RowBox[{"3", " ",
23992	SubscriptBox["c", "Hu"]}], "+",
23993	RowBox[{"2", " ",
23994	SubscriptBox["c", "HWB"], " ",
23995	SubscriptBox["c", "\[Theta]"], " ",
23996	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
23997	SuperscriptBox[
23998	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
23999	SubscriptBox[
24000	RowBox[{
24001	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24002	"Superscript"], ".",
24003	SubscriptBox["P", "\<\"+\"\>"]}],
24004	RowBox[{
24005	SubscriptBox["\<\"s\"\>", "1"], ",",
24006	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+",
24007	RowBox[{"3", " ",
24008	SuperscriptBox[
24009	OverscriptBox["v", "^"], "2"], " ",
24010	RowBox[{"(",
24011	RowBox[{
24012	RowBox[{
24013	RowBox[{"(",
24014	RowBox[{
24015	TagBox[
24016	RowBox[{
24017	SubscriptBox["\[CapitalDelta]", "d"], " ",
24018	TemplateBox[{"c","Hq","1"},
24019	"Subsuperscript"]}],
24020	HoldForm], "-",
24021	TagBox[
24022	RowBox[{
24023	SubscriptBox["\[CapitalDelta]", "d"], " ",
24024	TemplateBox[{"c","Hq","3"},
24025	"Subsuperscript"]}],
24026	HoldForm]}], ")"}], " ",
24027	SubscriptBox[
24028	TemplateBox[{"V","CKM"},
24029	"Superscript"],
24030	RowBox[{
24031	SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]], " ",
24032	SubsuperscriptBox[
24033	RowBox[{"(",
24034	TemplateBox[{"V","CKM"},
24035	"Superscript"], ")"}],
24036	RowBox[{
24037	SubscriptBox["\<\"f\"\>", "2"], ",",
24038	"Generation$2"}], "\<\"*\"\>"], " ",
24039	SubscriptBox[
24040	TemplateBox[{"S","d"},
24041	"Superscript"],
24042	RowBox[{"Generation$1", ",", "Generation$2"}]], " ",
24043	SubscriptBox[
24044	RowBox[{
24045	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24046	"Superscript"], ".",
24047	SubscriptBox["P", "\<\"-\"\>"]}],
24048	RowBox[{
24049	SubscriptBox["\<\"s\"\>", "1"], ",",
24050	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
24051	RowBox[{
24052	SubscriptBox[
24053	TemplateBox[{"S","u"},
24054	"Superscript"],
24055	RowBox[{
24056	SubscriptBox["\<\"f\"\>", "1"], ",",
24057	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
24058	RowBox[{"(",
24059	RowBox[{
24060	RowBox[{
24061	RowBox[{"(",
24062	RowBox[{
24063	TagBox[
24064	RowBox[{
24065	SubscriptBox["\[CapitalDelta]", "u"], " ",
24066	TemplateBox[{"c","Hq","1"},
24067	"Subsuperscript"]}],
24068	HoldForm], "-",
24069	TagBox[
24070	RowBox[{
24071	SubscriptBox["\[CapitalDelta]", "u"], " ",
24072	TemplateBox[{"c","Hq","3"},
24073	"Subsuperscript"]}],
24074	HoldForm]}], ")"}], " ",
24075	SubscriptBox[
24076	RowBox[{
24077	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24078	"Superscript"], ".",
24079	SubscriptBox["P", "\<\"-\"\>"]}],
24080	RowBox[{
24081	SubscriptBox["\<\"s\"\>", "1"], ",",
24082	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
24083	RowBox[{
24084	SubscriptBox["\[CapitalDelta]c", "Hu"], " ",
24085	SubscriptBox[
24086	RowBox[{
24087	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24088	"Superscript"], ".",
24089	SubscriptBox["P", "\<\"+\"\>"]}],
24090	RowBox[{
24091	SubscriptBox["\<\"s\"\>", "1"], ",",
24092	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}]}],
24093	")"}]}],
24094	RowBox[{"6", " ",
24095	SubscriptBox["c", "\[Theta]"], " ",
24096	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24097	SubscriptBox["s", "\[Theta]"]}]]},
24098	{GridBox[{
24099	{
24100	OverscriptBox["vl", "\<\"-\"\>"], "1"},
24101	{"vl", "2"},
24102	{"Z", "3"}
24103	},
24104	GridBoxAlignment->{
24105	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
24106	"RowsIndexed" -> {}},
24107	GridBoxSpacings->{"Columns" -> {
24108	Offset[0.27999999999999997`], {
24109	Offset[0.7]},
24110	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
24111	Offset[0.2], {
24112	Offset[0.1]},
24113	Offset[0.2]}, "RowsIndexed" -> {}}],
24114	FractionBox[
24115	RowBox[{"\[ImaginaryI]", " ", "e", " ",
24116	RowBox[{"(",
24117	RowBox[{
24118	RowBox[{
24119	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24120	RowBox[{"(",
24121	RowBox[{
24122	RowBox[{"-", "1"}], "-", "dgw", "+",
24123	RowBox[{
24124	RowBox[{"(",
24125	RowBox[{
24126	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
24127	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
24128	RowBox[{
24129	RowBox[{"(",
24130	RowBox[{
24131	TemplateBox[{"c","Hl","1"},
24132	"Subsuperscript"], "-",
24133	TemplateBox[{"c","Hl","3"},
24134	"Subsuperscript"], "-",
24135	RowBox[{
24136	SubscriptBox["c", "HWB"], " ",
24137	SubscriptBox["c", "\[Theta]"], " ",
24138	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
24139	SuperscriptBox[
24140	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
24141	SubscriptBox["\[Delta]",
24142	RowBox[{
24143	SubscriptBox["\<\"f\"\>", "1"], ",",
24144	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
24145	SubscriptBox[
24146	RowBox[{
24147	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24148	"Superscript"], ".",
24149	SubscriptBox["P", "\<\"-\"\>"]}],
24150	RowBox[{
24151	SubscriptBox["\<\"s\"\>", "1"], ",",
24152	SubscriptBox["\<\"s\"\>", "2"]}]]}],
24153	RowBox[{"2", " ",
24154	SubscriptBox["c", "\[Theta]"], " ",
24155	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24156	SubscriptBox["s", "\[Theta]"]}]]}
24157	},
24158	GridBoxAlignment->{
24159	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
24160	"RowsIndexed" -> {}},
24161	GridBoxSpacings->{"Columns" -> {
24162	Offset[0.27999999999999997`], {
24163	Offset[2.0999999999999996`]},
24164	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
24165	Offset[0.2], {
24166	Offset[0.4]},
24167	Offset[0.2]}, "RowsIndexed" -> {}}],
24168	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
24169	3}}, Complex[0,
24170	Rational[-1, 6]] $CellContext`cth^(-1)
24171	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
24172	FeynRules`IndexDelta[
24173	FeynRules`Index[FeynRules`Colour,
24174	FeynRules`Ext[1]],
24175	FeynRules`Index[FeynRules`Colour,
24176	FeynRules`Ext[2]]] (FeynRules`IndexDelta[
24177	FeynRules`Index[$CellContext`Generation,
24178	FeynRules`Ext[1]],
24179	FeynRules`Index[$CellContext`Generation,
24180	FeynRules`Ext[
24181	2]]] (($CellContext`LambdaSMEFT^2 (-3 -
24182	3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 +
24183	3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq10 +
24184	3 $CellContext`cHq30 +
24185	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
24186	$CellContext`vevhat^2) FeynRules`TensDot[
24187	FeynRules`Ga[
24188	FeynRules`Index[FeynRules`Lorentz,
24189	FeynRules`Ext[3]]], FeynRules`ProjM][
24190	FeynRules`Index[FeynRules`Spin,
24191	FeynRules`Ext[1]],
24192	FeynRules`Index[FeynRules`Spin,
24193	FeynRules`Ext[
24194	2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
24195	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
24196	$CellContext`sth^2 + ((-3) $CellContext`cHd0 + $CellContext`cHWB \
24197	$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
24198	FeynRules`Ga[
24199	FeynRules`Index[FeynRules`Lorentz,
24200	FeynRules`Ext[3]]], FeynRules`ProjP][
24201	FeynRules`Index[FeynRules`Spin,
24202	FeynRules`Ext[1]],
24203	FeynRules`Index[FeynRules`Spin,
24204	FeynRules`Ext[2]]]) -
24205	3 $CellContext`vevhat^2 (($CellContext`DeltaucHq1 + \
24206	$CellContext`DeltaucHq3) $CellContext`CKM[
24207	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
24208	FeynRules`Index[$CellContext`Generation,
24209	FeynRules`Ext[2]]] Conjugate[
24210	$CellContext`CKM[
24211
24212	FeynRules`Index[$CellContext`Generation, \
24213	$CellContext`Generation$2],
24214	FeynRules`Index[$CellContext`Generation,
24215	FeynRules`Ext[1]]]] $CellContext`Su[
24216	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$2],
24217	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1]]
24218	FeynRules`TensDot[
24219	FeynRules`Ga[
24220	FeynRules`Index[FeynRules`Lorentz,
24221	FeynRules`Ext[3]]], FeynRules`ProjM][
24222	FeynRules`Index[FeynRules`Spin,
24223	FeynRules`Ext[1]],
24224	FeynRules`Index[FeynRules`Spin,
24225	FeynRules`Ext[2]]] + $CellContext`Sd[
24226	FeynRules`Index[$CellContext`Generation,
24227	FeynRules`Ext[1]],
24228	FeynRules`Index[$CellContext`Generation,
24229	FeynRules`Ext[
24230	2]]] (($CellContext`DeltadcHq1 + $CellContext`DeltadcHq3)
24231	FeynRules`TensDot[
24232	FeynRules`Ga[
24233	FeynRules`Index[FeynRules`Lorentz,
24234	FeynRules`Ext[3]]], FeynRules`ProjM][
24235	FeynRules`Index[FeynRules`Spin,
24236	FeynRules`Ext[1]],
24237	FeynRules`Index[FeynRules`Spin,
24238	FeynRules`Ext[2]]] + $CellContext`DeltacHd FeynRules`TensDot[
24239	FeynRules`Ga[
24240	FeynRules`Index[FeynRules`Lorentz,
24241	FeynRules`Ext[3]]], FeynRules`ProjP][
24242	FeynRules`Index[FeynRules`Spin,
24243	FeynRules`Ext[1]],
24244	FeynRules`Index[FeynRules`Spin,
24245	FeynRules`Ext[2]]])))}, {{{$CellContext`lbar, 1}, {
24246	FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0,
24247	Rational[-1, 2]] $CellContext`cth^(-1)
24248	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
24249	FeynRules`IndexDelta[
24250	FeynRules`Index[$CellContext`Generation,
24251	FeynRules`Ext[1]],
24252	FeynRules`Index[$CellContext`Generation,
24253	FeynRules`Ext[
24254	2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
24255	$CellContext`dsth2 + (
24256	2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
24257	($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2)
24258	FeynRules`TensDot[
24259	FeynRules`Ga[
24260	FeynRules`Index[FeynRules`Lorentz,
24261	FeynRules`Ext[3]]], FeynRules`ProjM][
24262	FeynRules`Index[FeynRules`Spin,
24263	FeynRules`Ext[1]],
24264	FeynRules`Index[FeynRules`Spin,
24265	FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
24266	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
24267	$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
24268	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
24269	FeynRules`Ga[
24270	FeynRules`Index[FeynRules`Lorentz,
24271	FeynRules`Ext[3]]], FeynRules`ProjP][
24272	FeynRules`Index[FeynRules`Spin,
24273	FeynRules`Ext[1]],
24274	FeynRules`Index[FeynRules`Spin,
24275	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
24276	2}, {$CellContext`Z, 3}}, Complex[0,
24277	Rational[1, 6]] $CellContext`cth^(-1)
24278	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
24279	FeynRules`IndexDelta[
24280	FeynRules`Index[FeynRules`Colour,
24281	FeynRules`Ext[1]],
24282	FeynRules`Index[FeynRules`Colour,
24283	FeynRules`Ext[2]]] (FeynRules`IndexDelta[
24284	FeynRules`Index[$CellContext`Generation,
24285	FeynRules`Ext[1]],
24286	FeynRules`Index[$CellContext`Generation,
24287	FeynRules`Ext[
24288	2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw +
24289	2 $CellContext`dsth2 + (4 + $CellContext`dg1 +
24290	3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq10 -
24291	3 $CellContext`cHq30 - $CellContext`cHWB $CellContext`cth \
24292	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
24293	FeynRules`Ga[
24294	FeynRules`Index[FeynRules`Lorentz,
24295	FeynRules`Ext[3]]], FeynRules`ProjM][
24296	FeynRules`Index[FeynRules`Spin,
24297	FeynRules`Ext[1]],
24298	FeynRules`Index[FeynRules`Spin,
24299	FeynRules`Ext[2]]] + (
24300	2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
24301	4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
24302	$CellContext`sth^2 + (3 $CellContext`cHu0 +
24303	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
24304	$CellContext`vevhat^2) FeynRules`TensDot[
24305	FeynRules`Ga[
24306	FeynRules`Index[FeynRules`Lorentz,
24307	FeynRules`Ext[3]]], FeynRules`ProjP][
24308	FeynRules`Index[FeynRules`Spin,
24309	FeynRules`Ext[1]],
24310	FeynRules`Index[FeynRules`Spin,
24311	FeynRules`Ext[2]]]) +
24312	3 $CellContext`vevhat^2 (($CellContext`DeltadcHq1 - \
24313	$CellContext`DeltadcHq3) $CellContext`CKM[
24314	FeynRules`Index[$CellContext`Generation,
24315	FeynRules`Ext[1]],
24316
24317	FeynRules`Index[$CellContext`Generation, \
24318	$CellContext`Generation$1]] Conjugate[
24319	$CellContext`CKM[
24320	FeynRules`Index[$CellContext`Generation,
24321	FeynRules`Ext[2]],
24322
24323	FeynRules`Index[$CellContext`Generation, \
24324	$CellContext`Generation$2]]] $CellContext`Sd[
24325
24326	FeynRules`Index[$CellContext`Generation, \
24327	$CellContext`Generation$1],
24328
24329	FeynRules`Index[$CellContext`Generation, \
24330	$CellContext`Generation$2]] FeynRules`TensDot[
24331	FeynRules`Ga[
24332	FeynRules`Index[FeynRules`Lorentz,
24333	FeynRules`Ext[3]]], FeynRules`ProjM][
24334	FeynRules`Index[FeynRules`Spin,
24335	FeynRules`Ext[1]],
24336	FeynRules`Index[FeynRules`Spin,
24337	FeynRules`Ext[2]]] + $CellContext`Su[
24338	FeynRules`Index[$CellContext`Generation,
24339	FeynRules`Ext[1]],
24340	FeynRules`Index[$CellContext`Generation,
24341	FeynRules`Ext[
24342	2]]] (($CellContext`DeltaucHq1 - $CellContext`DeltaucHq3)
24343	FeynRules`TensDot[
24344	FeynRules`Ga[
24345	FeynRules`Index[FeynRules`Lorentz,
24346	FeynRules`Ext[3]]], FeynRules`ProjM][
24347	FeynRules`Index[FeynRules`Spin,
24348	FeynRules`Ext[1]],
24349	FeynRules`Index[FeynRules`Spin,
24350	FeynRules`Ext[2]]] + $CellContext`DeltacHu FeynRules`TensDot[
24351	FeynRules`Ga[
24352	FeynRules`Index[FeynRules`Lorentz,
24353	FeynRules`Ext[3]]], FeynRules`ProjP][
24354	FeynRules`Index[FeynRules`Spin,
24355	FeynRules`Ext[1]],
24356	FeynRules`Index[FeynRules`Spin,
24357	FeynRules`Ext[2]]])))}, {{{$CellContext`vlbar,
24358	1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, Complex[0,
24359	Rational[1, 2]] $CellContext`cth^(-1)
24360	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
24361	($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
24362	$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
24363	$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
24364	$CellContext`vevhat^2) FeynRules`IndexDelta[
24365	FeynRules`Index[$CellContext`Generation,
24366	FeynRules`Ext[1]],
24367	FeynRules`Index[$CellContext`Generation,
24368	FeynRules`Ext[2]]] FeynRules`TensDot[
24369	FeynRules`Ga[
24370	FeynRules`Index[FeynRules`Lorentz,
24371	FeynRules`Ext[3]]], FeynRules`ProjM][
24372	FeynRules`Index[FeynRules`Spin,
24373	FeynRules`Ext[1]],
24374	FeynRules`Index[FeynRules`Spin,
24375	FeynRules`Ext[2]]]}}]]], "Output",
24376	CellChangeTimes->{
24377	3.711173839167266^9, 3.712483365603745^9, 3.7139663983257236`*^9, {
24378	3.7146527464730873`^9, 3.714652771211906^9}, 3.7146529268852043`*^9,
24379	3.714656269991343^9, 3.714658234106804^9, 3.714658307356669*^9,
24380	3.729588615519225*^9},ExpressionUUID->"4bedfd76-07ce-498a-8592-\
24381	3667df2434b1"]
24382	}, Open ]],
24383
24384	Cell["neutrino coupling :", "Text",
24385	CellChangeTimes->{{3.7146528020724363`^9, 3.7146528092589808`^9}}],
24386
24387	Cell[CellGroupData[{
24388
24389	Cell[BoxData[{
24390	RowBox[{"ZffCouplings", "[",
24391	RowBox[{"[",
24392	RowBox[{"1", ",",
24393	RowBox[{"-", "1"}], ",",
24394	RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
24395	RowBox[{
24396	RowBox[{"%", "//.", "alphaShifts"}], "//",
24397	"Simplify"}], "\[IndentingNewLine]",
24398	RowBox[{
24399	RowBox[{"SMlimit", "[", "%", "]"}], " ",
24400	RowBox[{"WCsimplify", "[",
24401	RowBox[{
24402	FractionBox["%",
24403	RowBox[{"SMlimit", "[", "%", "]"}]], "/.",
24404	RowBox[{
24405	RowBox[{"IndexDelta", "[",
24406	RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
24407	CellChangeTimes->{{3.706961712640883^9, 3.7069617312434893`^9},
24408	3.711174006710514^9, {3.711174069176218^9, 3.711174078189027*^9}, {
24409	3.714475532098426^9, 3.7144755376724243`^9}, {3.714652781745085*^9,
24410	3.714652890708997^9}, {3.714652953030558^9,
24411	3.7146530356237173`*^9}},ExpressionUUID->"a7ee4570-6761-452c-ba60-\
24412	994e4e00c1d7"],
24413
24414	Cell[BoxData[
24415	FractionBox[
24416	RowBox[{"\[ImaginaryI]", " ", "e", " ",
24417	RowBox[{"(",
24418	RowBox[{
24419	RowBox[{
24420	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24421	RowBox[{"(",
24422	RowBox[{
24423	RowBox[{"-", "1"}], "-", "dgw", "+",
24424	RowBox[{
24425	RowBox[{"(",
24426	RowBox[{
24427	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
24428	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
24429	RowBox[{
24430	RowBox[{"(",
24431	RowBox[{
24432	TemplateBox[{"c","Hl","1"},
24433	"Subsuperscript"], "-",
24434	TemplateBox[{"c","Hl","3"},
24435	"Subsuperscript"], "-",
24436	RowBox[{
24437	SubscriptBox["c", "HWB"], " ",
24438	SubscriptBox["c", "\[Theta]"], " ",
24439	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
24440	SuperscriptBox[
24441	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
24442	SubscriptBox["\[Delta]",
24443	RowBox[{
24444	SubscriptBox["\<\"f\"\>", "1"], ",",
24445	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
24446	SubscriptBox[
24447	RowBox[{
24448	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24449	"Superscript"], ".",
24450	SubscriptBox["P", "\<\"-\"\>"]}],
24451	RowBox[{
24452	SubscriptBox["\<\"s\"\>", "1"], ",",
24453	SubscriptBox["\<\"s\"\>", "2"]}]]}],
24454	RowBox[{"2", " ",
24455	SubscriptBox["c", "\[Theta]"], " ",
24456	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24457	SubscriptBox["s", "\[Theta]"]}]]], "Output",
24458	CellChangeTimes->{
24459	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
24460	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
24461	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
24462	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
24463	3.714652929930028^9, 3.7146530359952927`^9}, 3.714656270052293*^9,
24464	3.714658307559985*^9,
24465	3.729588615587829*^9},ExpressionUUID->"01b27544-4fa5-4388-93de-\
24466	1d4d2fbf955a"],
24467
24468	Cell[BoxData[
24469	RowBox[{"-",
24470	FractionBox[
24471	RowBox[{"\[ImaginaryI]", " ", "e", " ",
24472	RowBox[{"(",
24473	RowBox[{
24474	RowBox[{"4", " ",
24475	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
24476	RowBox[{
24477	RowBox[{"(",
24478	RowBox[{
24479	SubscriptBox["c", "HD"], "+",
24480	RowBox[{"4", " ",
24481	TemplateBox[{"c","Hl","1"},
24482	"Subsuperscript"]}], "-",
24483	RowBox[{"2", " ",
24484	TemplateBox[{"c","ll","Prime"},
24485	"Subsuperscript"]}]}], ")"}], " ",
24486	SuperscriptBox[
24487	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
24488	SubscriptBox["\[Delta]",
24489	RowBox[{
24490	SubscriptBox["\<\"f\"\>", "1"], ",",
24491	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
24492	SubscriptBox[
24493	RowBox[{
24494	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24495	"Superscript"], ".",
24496	SubscriptBox["P", "\<\"-\"\>"]}],
24497	RowBox[{
24498	SubscriptBox["\<\"s\"\>", "1"], ",",
24499	SubscriptBox["\<\"s\"\>", "2"]}]]}],
24500	RowBox[{"8", " ",
24501	SubscriptBox["c", "\[Theta]"], " ",
24502	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24503	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
24504	CellChangeTimes->{
24505	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
24506	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
24507	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
24508	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
24509	3.714652929930028^9, 3.7146530359952927`^9}, 3.714656270052293*^9,
24510	3.714658307559985*^9,
24511	3.7295886158251123`*^9},ExpressionUUID->"f220256c-6adf-4e6c-a530-\
24512	09a498818b68"],
24513
24514	Cell[BoxData[
24515	RowBox[{"-",
24516	FractionBox[
24517	RowBox[{"\[ImaginaryI]", " ", "e", " ",
24518	RowBox[{"(",
24519	RowBox[{"1", "-",
24520	FractionBox[
24521	RowBox[{
24522	SubscriptBox["c", "HD"], " ",
24523	SuperscriptBox[
24524	OverscriptBox["v", "^"], "2"]}],
24525	RowBox[{"4", " ",
24526	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
24527	FractionBox[
24528	RowBox[{
24529	TemplateBox[{"c","Hl","1"},
24530	"Subsuperscript"], " ",
24531	SuperscriptBox[
24532	OverscriptBox["v", "^"], "2"]}],
24533	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
24534	FractionBox[
24535	RowBox[{
24536	TemplateBox[{"c","ll","Prime"},
24537	"Subsuperscript"], " ",
24538	SuperscriptBox[
24539	OverscriptBox["v", "^"], "2"]}],
24540	RowBox[{"2", " ",
24541	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
24542	SubscriptBox["\[Delta]",
24543	RowBox[{
24544	SubscriptBox["\<\"f\"\>", "1"], ",",
24545	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
24546	SubscriptBox[
24547	RowBox[{
24548	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
24549	"Superscript"], ".",
24550	SubscriptBox["P", "\<\"-\"\>"]}],
24551	RowBox[{
24552	SubscriptBox["\<\"s\"\>", "1"], ",",
24553	SubscriptBox["\<\"s\"\>", "2"]}]]}],
24554	RowBox[{"2", " ",
24555	SubscriptBox["c", "\[Theta]"], " ",
24556	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
24557	CellChangeTimes->{
24558	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
24559	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
24560	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
24561	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
24562	3.714652929930028^9, 3.7146530359952927`^9}, 3.714656270052293*^9,
24563	3.714658307559985*^9,
24564	3.729588615863163*^9},ExpressionUUID->"a5626ab7-6381-4fa2-a252-\
24565	58993c83a75a"]
24566	}, Open ]],
24567
24568	Cell["up quarks coupling: flavor expansion with spurions", "Text",
24569	CellChangeTimes->{{3.714658087911981^9, 3.714658112774782^9}}],
24570
24571	Cell[CellGroupData[{
24572
24573	Cell[BoxData[
24574	RowBox[{
24575	RowBox[{
24576	RowBox[{
24577	RowBox[{
24578	RowBox[{
24579	RowBox[{
24580	RowBox[{"{",
24581	RowBox[{"ZffCouplings", "[",
24582	RowBox[{"[",
24583	RowBox[{"1", ",", "1"}], "]"}], "]"}], "}"}], "//.",
24584	"alphaShifts"}], "//", "FlavorExpansion"}], "//",
24585	RowBox[{
24586	RowBox[{"ReplaceAll", "[",
24587	RowBox[{"#", ",",
24588	RowBox[{"Abbreviations", "[", "]"}]}], "]"}], "&"}]}], "//",
24589	"LinearWC"}], "//", "Simplify"}], "//", "TableForm"}]], "Input",
24590	CellChangeTimes->{{3.7146579364846163`^9, 3.714657993955915^9}, {
24591	3.714658032558496^9, 3.714658054565364^9}, {3.714658137278632*^9,
24592	3.7146581444312162`^9}, {3.714658279687245^9,
24593	3.714658281751854*^9}},ExpressionUUID->"1747e576-2965-4296-8867-\
24594	6436cdbea2da"],
24595
24596	Cell[BoxData[
24597	InterpretationBox[
24598	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
24599	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
24600	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
24601	"\[InvisibleSpace]", "1"}],
24602	SequenceForm["Flavor expansion of the vertices: ",
24603	Dynamic[FeynRules`FR$Count1], " / ", 1],
24604	Editable->False]], "Print",
24605	CellChangeTimes->{{3.714657950014279^9, 3.7146579634419203`^9},
24606	3.714657995078278^9, {3.7146580371920567`^9, 3.71465805571782*^9},
24607	3.714658145675453^9, 3.714658309013132^9,
24608	3.729588616828477*^9},ExpressionUUID->"f5a24736-3f70-415e-b7f6-\
24609	011139582649"],
24610
24611	Cell[BoxData[
24612	InterpretationBox[GridBox[{
24613	{GridBox[{
24614	{"Z", "1"},
24615	{
24616	OverscriptBox["d", "\<\"-\"\>"], "2"},
24617	{"d", "3"}
24618	},
24619	GridBoxAlignment->{
24620	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
24621	"RowsIndexed" -> {}},
24622	GridBoxSpacings->{"Columns" -> {
24623	Offset[0.27999999999999997`], {
24624	Offset[0.7]},
24625	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
24626	Offset[0.2], {
24627	Offset[0.1]},
24628	Offset[0.2]}, "RowsIndexed" -> {}}],
24629	RowBox[{"-",
24630	FractionBox[
24631	RowBox[{"\[ImaginaryI]", " ", "e", " ",
24632	SubscriptBox["\[Delta]",
24633	RowBox[{
24634	SubscriptBox["\<\"m\"\>", "2"], ",",
24635	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
24636	RowBox[{"(",
24637	RowBox[{
24638	RowBox[{"16", " ",
24639	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24640	SubsuperscriptBox["s", "\[Theta]", "4"], " ",
24641	TemplateBox[{SubscriptBox["\[Gamma]",
24642	RowBox[{
24643	SubscriptBox["\"s\"", "2"], ",",
24644	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
24645
24646	"Superscript"]}], "-",
24647	RowBox[{"8", " ",
24648	SubscriptBox["c", "HWB"], " ",
24649	SubscriptBox["c", "\[Theta]"], " ",
24650	SubscriptBox["s", "\[Theta]"], " ",
24651	SuperscriptBox[
24652	OverscriptBox["v", "^"], "2"], " ",
24653	TemplateBox[{SubscriptBox["\[Gamma]",
24654	RowBox[{
24655	SubscriptBox["\"s\"", "2"], ",",
24656	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
24657
24658	"Superscript"]}], "+",
24659	RowBox[{"12", " ",
24660	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24661	SubscriptBox[
24662	RowBox[{
24663	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24664	"Superscript"], ".",
24665	SubscriptBox["P", "\<\"-\"\>"]}],
24666	RowBox[{
24667	SubscriptBox["\<\"s\"\>", "2"], ",",
24668	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
24669	RowBox[{"8", " ",
24670	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24671	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
24672	RowBox[{"(",
24673	RowBox[{
24674	RowBox[{"4", " ",
24675	SubscriptBox[
24676	RowBox[{
24677	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24678	"Superscript"], ".",
24679	SubscriptBox["P", "\<\"-\"\>"]}],
24680	RowBox[{
24681	SubscriptBox["\<\"s\"\>", "2"], ",",
24682	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
24683	SubscriptBox[
24684	RowBox[{
24685	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24686	"Superscript"], ".",
24687	SubscriptBox["P", "\<\"+\"\>"]}],
24688	RowBox[{
24689	SubscriptBox["\<\"s\"\>", "2"], ",",
24690	SubscriptBox["\<\"s\"\>", "3"]}]]}], ")"}]}], "-",
24691	RowBox[{"3", " ",
24692	SuperscriptBox[
24693	OverscriptBox["v", "^"], "2"], " ",
24694	RowBox[{"(",
24695	RowBox[{
24696	RowBox[{
24697	RowBox[{"(",
24698	RowBox[{
24699	SubscriptBox["c", "HD"], "+",
24700	RowBox[{"4", " ",
24701	TemplateBox[{"c","Hl","3"},
24702	"Subsuperscript"]}], "-",
24703	RowBox[{"4", " ",
24704	TemplateBox[{"c","Hq","1"},
24705	"Subsuperscript"]}], "-",
24706	RowBox[{"4", " ",
24707	TemplateBox[{"c","Hq","3"},
24708	"Subsuperscript"]}], "-",
24709	RowBox[{"2", " ",
24710	TemplateBox[{"c","ll","Prime"},
24711	"Subsuperscript"]}], "-",
24712	RowBox[{"4", " ",
24713	RowBox[{"(",
24714	TagBox[
24715	RowBox[{
24716	SubscriptBox["\[CapitalDelta]", "d"], " ",
24717	TemplateBox[{"c","Hq","1"},
24718	"Subsuperscript"]}],
24719	HoldForm], ")"}], " ", "Sd1x1"}], "-",
24720	RowBox[{"4", " ",
24721	RowBox[{"(",
24722	TagBox[
24723	RowBox[{
24724	SubscriptBox["\[CapitalDelta]", "d"], " ",
24725	TemplateBox[{"c","Hq","3"},
24726	"Subsuperscript"]}],
24727	HoldForm], ")"}], " ", "Sd1x1"}], "-",
24728	RowBox[{"4", " ", "CKM1x1", " ",
24729	RowBox[{"(",
24730	RowBox[{
24731	TagBox[
24732	RowBox[{
24733	SubscriptBox["\[CapitalDelta]", "u"], " ",
24734	TemplateBox[{"c","Hq","1"},
24735	"Subsuperscript"]}],
24736	HoldForm], "+",
24737	TagBox[
24738	RowBox[{
24739	SubscriptBox["\[CapitalDelta]", "u"], " ",
24740	TemplateBox[{"c","Hq","3"},
24741	"Subsuperscript"]}],
24742	HoldForm]}], ")"}], " ", "Su1x1", " ",
24743	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "-",
24744	RowBox[{"4", " ", "CKM2x1", " ",
24745	RowBox[{"(",
24746	RowBox[{
24747	TagBox[
24748	RowBox[{
24749	SubscriptBox["\[CapitalDelta]", "u"], " ",
24750	TemplateBox[{"c","Hq","1"},
24751	"Subsuperscript"]}],
24752	HoldForm], "+",
24753	TagBox[
24754	RowBox[{
24755	SubscriptBox["\[CapitalDelta]", "u"], " ",
24756	TemplateBox[{"c","Hq","3"},
24757	"Subsuperscript"]}],
24758	HoldForm]}], ")"}], " ", "Su2x2", " ",
24759	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "-",
24760	RowBox[{"4", " ", "CKM3x1", " ",
24761	RowBox[{"(",
24762	TagBox[
24763	RowBox[{
24764	SubscriptBox["\[CapitalDelta]", "u"], " ",
24765	TemplateBox[{"c","Hq","1"},
24766	"Subsuperscript"]}],
24767	HoldForm], ")"}], " ", "Su3x3", " ",
24768	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}], "-",
24769	RowBox[{"4", " ", "CKM3x1", " ",
24770	RowBox[{"(",
24771	TagBox[
24772	RowBox[{
24773	SubscriptBox["\[CapitalDelta]", "u"], " ",
24774	TemplateBox[{"c","Hq","3"},
24775	"Subsuperscript"]}],
24776	HoldForm], ")"}], " ", "Su3x3", " ",
24777	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
24778	SubscriptBox[
24779	RowBox[{
24780	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24781	"Superscript"], ".",
24782	SubscriptBox["P", "\<\"-\"\>"]}],
24783	RowBox[{
24784	SubscriptBox["\<\"s\"\>", "2"], ",",
24785	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
24786	RowBox[{"4", " ",
24787	RowBox[{"(",
24788	RowBox[{
24789	SubscriptBox["c", "Hd"], "+",
24790	RowBox[{
24791	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd1x1"}]}],
24792	")"}], " ",
24793	SubscriptBox[
24794	RowBox[{
24795	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24796	"Superscript"], ".",
24797	SubscriptBox["P", "\<\"+\"\>"]}],
24798	RowBox[{
24799	SubscriptBox["\<\"s\"\>", "2"], ",",
24800	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], "+",
24801	RowBox[{
24802	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
24803	SuperscriptBox[
24804	OverscriptBox["v", "^"], "2"], " ",
24805	RowBox[{"(",
24806	RowBox[{
24807	RowBox[{"4", " ",
24808	RowBox[{"(",
24809	RowBox[{
24810	SubscriptBox["c", "HD"], "+",
24811	RowBox[{"4", " ",
24812	TemplateBox[{"c","Hl","3"},
24813	"Subsuperscript"]}], "-",
24814	RowBox[{"6", " ",
24815	TemplateBox[{"c","Hq","1"},
24816	"Subsuperscript"]}], "-",
24817	RowBox[{"6", " ",
24818	TemplateBox[{"c","Hq","3"},
24819	"Subsuperscript"]}], "-",
24820	RowBox[{"2", " ",
24821	TemplateBox[{"c","ll","Prime"},
24822	"Subsuperscript"]}], "-",
24823	RowBox[{"6", " ",
24824	RowBox[{"(",
24825	TagBox[
24826	RowBox[{
24827	SubscriptBox["\[CapitalDelta]", "d"], " ",
24828	TemplateBox[{"c","Hq","1"},
24829	"Subsuperscript"]}],
24830	HoldForm], ")"}], " ", "Sd1x1"}], "-",
24831	RowBox[{"6", " ",
24832	RowBox[{"(",
24833	TagBox[
24834	RowBox[{
24835	SubscriptBox["\[CapitalDelta]", "d"], " ",
24836	TemplateBox[{"c","Hq","3"},
24837	"Subsuperscript"]}],
24838	HoldForm], ")"}], " ", "Sd1x1"}], "-",
24839	RowBox[{"6", " ", "CKM1x1", " ",
24840	RowBox[{"(",
24841	RowBox[{
24842	TagBox[
24843	RowBox[{
24844	SubscriptBox["\[CapitalDelta]", "u"], " ",
24845	TemplateBox[{"c","Hq","1"},
24846	"Subsuperscript"]}],
24847	HoldForm], "+",
24848	TagBox[
24849	RowBox[{
24850	SubscriptBox["\[CapitalDelta]", "u"], " ",
24851	TemplateBox[{"c","Hq","3"},
24852	"Subsuperscript"]}],
24853	HoldForm]}], ")"}], " ", "Su1x1", " ",
24854	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "-",
24855	RowBox[{"6", " ", "CKM2x1", " ",
24856	RowBox[{"(",
24857	RowBox[{
24858	TagBox[
24859	RowBox[{
24860	SubscriptBox["\[CapitalDelta]", "u"], " ",
24861	TemplateBox[{"c","Hq","1"},
24862	"Subsuperscript"]}],
24863	HoldForm], "+",
24864	TagBox[
24865	RowBox[{
24866	SubscriptBox["\[CapitalDelta]", "u"], " ",
24867	TemplateBox[{"c","Hq","3"},
24868	"Subsuperscript"]}],
24869	HoldForm]}], ")"}], " ", "Su2x2", " ",
24870	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "-",
24871	RowBox[{"6", " ", "CKM3x1", " ",
24872	RowBox[{"(",
24873	TagBox[
24874	RowBox[{
24875	SubscriptBox["\[CapitalDelta]", "u"], " ",
24876	TemplateBox[{"c","Hq","1"},
24877	"Subsuperscript"]}],
24878	HoldForm], ")"}], " ", "Su3x3", " ",
24879	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}], "-",
24880	RowBox[{"6", " ", "CKM3x1", " ",
24881	RowBox[{"(",
24882	TagBox[
24883	RowBox[{
24884	SubscriptBox["\[CapitalDelta]", "u"], " ",
24885	TemplateBox[{"c","Hq","3"},
24886	"Subsuperscript"]}],
24887	HoldForm], ")"}], " ", "Su3x3", " ",
24888	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
24889	SubscriptBox[
24890	RowBox[{
24891	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24892	"Superscript"], ".",
24893	SubscriptBox["P", "\<\"-\"\>"]}],
24894	RowBox[{
24895	SubscriptBox["\<\"s\"\>", "2"], ",",
24896	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
24897	RowBox[{"2", " ",
24898	RowBox[{"(",
24899	RowBox[{
24900	RowBox[{"12", " ",
24901	SubscriptBox["c", "Hd"]}], "+",
24902	SubscriptBox["c", "HD"], "+",
24903	RowBox[{"4", " ",
24904	TemplateBox[{"c","Hl","3"},
24905	"Subsuperscript"]}], "-",
24906	RowBox[{"2", " ",
24907	TemplateBox[{"c","ll","Prime"},
24908	"Subsuperscript"]}], "+",
24909	RowBox[{"12", " ",
24910	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd1x1"}]}],
24911	")"}], " ",
24912	SubscriptBox[
24913	RowBox[{
24914	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24915	"Superscript"], ".",
24916	SubscriptBox["P", "\<\"+\"\>"]}],
24917	RowBox[{
24918	SubscriptBox["\<\"s\"\>", "2"], ",",
24919	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
24920	RowBox[{"24", " ",
24921	SubscriptBox["c", "\[Theta]"], " ",
24922	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24923	SubscriptBox["s", "\[Theta]"], " ",
24924	RowBox[{"(",
24925	RowBox[{
24926	RowBox[{"-", "1"}], "+",
24927	RowBox[{"2", " ",
24928	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]},
24929	{GridBox[{
24930	{"Z", "1"},
24931	{
24932	OverscriptBox["d", "\<\"-\"\>"], "2"},
24933	{"s", "3"}
24934	},
24935	GridBoxAlignment->{
24936	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
24937	"RowsIndexed" -> {}},
24938	GridBoxSpacings->{"Columns" -> {
24939	Offset[0.27999999999999997`], {
24940	Offset[0.7]},
24941	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
24942	Offset[0.2], {
24943	Offset[0.1]},
24944	Offset[0.2]}, "RowsIndexed" -> {}}],
24945	FractionBox[
24946	RowBox[{"\[ImaginaryI]", " ",
24947	RowBox[{"(",
24948	RowBox[{
24949	TagBox[
24950	RowBox[{
24951	SubscriptBox["\[CapitalDelta]", "u"], " ",
24952	TemplateBox[{"c","Hq","1"},
24953	"Subsuperscript"]}],
24954	HoldForm], "+",
24955	TagBox[
24956	RowBox[{
24957	SubscriptBox["\[CapitalDelta]", "u"], " ",
24958	TemplateBox[{"c","Hq","3"},
24959	"Subsuperscript"]}],
24960	HoldForm]}], ")"}], " ", "e", " ",
24961	SuperscriptBox[
24962	OverscriptBox["v", "^"], "2"], " ",
24963	RowBox[{"(",
24964	RowBox[{
24965	RowBox[{"CKM1x2", " ", "Su1x1", " ",
24966	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+",
24967	RowBox[{"CKM2x2", " ", "Su2x2", " ",
24968	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+",
24969	RowBox[{"CKM3x2", " ", "Su3x3", " ",
24970	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
24971	SubscriptBox["\[Delta]",
24972	RowBox[{
24973	SubscriptBox["\<\"m\"\>", "2"], ",",
24974	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
24975	SubscriptBox[
24976	RowBox[{
24977	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
24978	"Superscript"], ".",
24979	SubscriptBox["P", "\<\"-\"\>"]}],
24980	RowBox[{
24981	SubscriptBox["\<\"s\"\>", "2"], ",",
24982	SubscriptBox["\<\"s\"\>", "3"]}]]}],
24983	RowBox[{"2", " ",
24984	SubscriptBox["c", "\[Theta]"], " ",
24985	SuperscriptBox["\[CapitalLambda]", "2"], " ",
24986	SubscriptBox["s", "\[Theta]"]}]]},
24987	{GridBox[{
24988	{"Z", "1"},
24989	{
24990	OverscriptBox["d", "\<\"-\"\>"], "2"},
24991	{"b", "3"}
24992	},
24993	GridBoxAlignment->{
24994	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
24995	"RowsIndexed" -> {}},
24996	GridBoxSpacings->{"Columns" -> {
24997	Offset[0.27999999999999997`], {
24998	Offset[0.7]},
24999	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25000	Offset[0.2], {
25001	Offset[0.1]},
25002	Offset[0.2]}, "RowsIndexed" -> {}}],
25003	FractionBox[
25004	RowBox[{"\[ImaginaryI]", " ",
25005	RowBox[{"(",
25006	RowBox[{
25007	TagBox[
25008	RowBox[{
25009	SubscriptBox["\[CapitalDelta]", "u"], " ",
25010	TemplateBox[{"c","Hq","1"},
25011	"Subsuperscript"]}],
25012	HoldForm], "+",
25013	TagBox[
25014	RowBox[{
25015	SubscriptBox["\[CapitalDelta]", "u"], " ",
25016	TemplateBox[{"c","Hq","3"},
25017	"Subsuperscript"]}],
25018	HoldForm]}], ")"}], " ", "e", " ",
25019	SuperscriptBox[
25020	OverscriptBox["v", "^"], "2"], " ",
25021	RowBox[{"(",
25022	RowBox[{
25023	RowBox[{"CKM1x3", " ", "Su1x1", " ",
25024	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+",
25025	RowBox[{"CKM2x3", " ", "Su2x2", " ",
25026	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+",
25027	RowBox[{"CKM3x3", " ", "Su3x3", " ",
25028	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
25029	SubscriptBox["\[Delta]",
25030	RowBox[{
25031	SubscriptBox["\<\"m\"\>", "2"], ",",
25032	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25033	SubscriptBox[
25034	RowBox[{
25035	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25036	"Superscript"], ".",
25037	SubscriptBox["P", "\<\"-\"\>"]}],
25038	RowBox[{
25039	SubscriptBox["\<\"s\"\>", "2"], ",",
25040	SubscriptBox["\<\"s\"\>", "3"]}]]}],
25041	RowBox[{"2", " ",
25042	SubscriptBox["c", "\[Theta]"], " ",
25043	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25044	SubscriptBox["s", "\[Theta]"]}]]},
25045	{GridBox[{
25046	{"Z", "1"},
25047	{
25048	OverscriptBox["s", "\<\"-\"\>"], "2"},
25049	{"d", "3"}
25050	},
25051	GridBoxAlignment->{
25052	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25053	"RowsIndexed" -> {}},
25054	GridBoxSpacings->{"Columns" -> {
25055	Offset[0.27999999999999997`], {
25056	Offset[0.7]},
25057	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25058	Offset[0.2], {
25059	Offset[0.1]},
25060	Offset[0.2]}, "RowsIndexed" -> {}}],
25061	FractionBox[
25062	RowBox[{"\[ImaginaryI]", " ",
25063	RowBox[{"(",
25064	RowBox[{
25065	TagBox[
25066	RowBox[{
25067	SubscriptBox["\[CapitalDelta]", "u"], " ",
25068	TemplateBox[{"c","Hq","1"},
25069	"Subsuperscript"]}],
25070	HoldForm], "+",
25071	TagBox[
25072	RowBox[{
25073	SubscriptBox["\[CapitalDelta]", "u"], " ",
25074	TemplateBox[{"c","Hq","3"},
25075	"Subsuperscript"]}],
25076	HoldForm]}], ")"}], " ", "e", " ",
25077	SuperscriptBox[
25078	OverscriptBox["v", "^"], "2"], " ",
25079	RowBox[{"(",
25080	RowBox[{
25081	RowBox[{"CKM1x1", " ", "Su1x1", " ",
25082	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+",
25083	RowBox[{"CKM2x1", " ", "Su2x2", " ",
25084	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+",
25085	RowBox[{"CKM3x1", " ", "Su3x3", " ",
25086	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
25087	SubscriptBox["\[Delta]",
25088	RowBox[{
25089	SubscriptBox["\<\"m\"\>", "2"], ",",
25090	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25091	SubscriptBox[
25092	RowBox[{
25093	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25094	"Superscript"], ".",
25095	SubscriptBox["P", "\<\"-\"\>"]}],
25096	RowBox[{
25097	SubscriptBox["\<\"s\"\>", "2"], ",",
25098	SubscriptBox["\<\"s\"\>", "3"]}]]}],
25099	RowBox[{"2", " ",
25100	SubscriptBox["c", "\[Theta]"], " ",
25101	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25102	SubscriptBox["s", "\[Theta]"]}]]},
25103	{GridBox[{
25104	{"Z", "1"},
25105	{
25106	OverscriptBox["s", "\<\"-\"\>"], "2"},
25107	{"s", "3"}
25108	},
25109	GridBoxAlignment->{
25110	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25111	"RowsIndexed" -> {}},
25112	GridBoxSpacings->{"Columns" -> {
25113	Offset[0.27999999999999997`], {
25114	Offset[0.7]},
25115	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25116	Offset[0.2], {
25117	Offset[0.1]},
25118	Offset[0.2]}, "RowsIndexed" -> {}}],
25119	RowBox[{"-",
25120	FractionBox[
25121	RowBox[{"\[ImaginaryI]", " ", "e", " ",
25122	SubscriptBox["\[Delta]",
25123	RowBox[{
25124	SubscriptBox["\<\"m\"\>", "2"], ",",
25125	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25126	RowBox[{"(",
25127	RowBox[{
25128	RowBox[{"16", " ",
25129	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25130	SubsuperscriptBox["s", "\[Theta]", "4"], " ",
25131	TemplateBox[{SubscriptBox["\[Gamma]",
25132	RowBox[{
25133	SubscriptBox["\"s\"", "2"], ",",
25134	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
25135
25136	"Superscript"]}], "-",
25137	RowBox[{"8", " ",
25138	SubscriptBox["c", "HWB"], " ",
25139	SubscriptBox["c", "\[Theta]"], " ",
25140	SubscriptBox["s", "\[Theta]"], " ",
25141	SuperscriptBox[
25142	OverscriptBox["v", "^"], "2"], " ",
25143	TemplateBox[{SubscriptBox["\[Gamma]",
25144	RowBox[{
25145	SubscriptBox["\"s\"", "2"], ",",
25146	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
25147
25148	"Superscript"]}], "+",
25149	RowBox[{"12", " ",
25150	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25151	SubscriptBox[
25152	RowBox[{
25153	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25154	"Superscript"], ".",
25155	SubscriptBox["P", "\<\"-\"\>"]}],
25156	RowBox[{
25157	SubscriptBox["\<\"s\"\>", "2"], ",",
25158	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
25159	RowBox[{"8", " ",
25160	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25161	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
25162	RowBox[{"(",
25163	RowBox[{
25164	RowBox[{"4", " ",
25165	SubscriptBox[
25166	RowBox[{
25167	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25168	"Superscript"], ".",
25169	SubscriptBox["P", "\<\"-\"\>"]}],
25170	RowBox[{
25171	SubscriptBox["\<\"s\"\>", "2"], ",",
25172	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
25173	SubscriptBox[
25174	RowBox[{
25175	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25176	"Superscript"], ".",
25177	SubscriptBox["P", "\<\"+\"\>"]}],
25178	RowBox[{
25179	SubscriptBox["\<\"s\"\>", "2"], ",",
25180	SubscriptBox["\<\"s\"\>", "3"]}]]}], ")"}]}], "-",
25181	RowBox[{"3", " ",
25182	SuperscriptBox[
25183	OverscriptBox["v", "^"], "2"], " ",
25184	RowBox[{"(",
25185	RowBox[{
25186	RowBox[{
25187	RowBox[{"(",
25188	RowBox[{
25189	SubscriptBox["c", "HD"], "+",
25190	RowBox[{"4", " ",
25191	TemplateBox[{"c","Hl","3"},
25192	"Subsuperscript"]}], "-",
25193	RowBox[{"4", " ",
25194	TemplateBox[{"c","Hq","1"},
25195	"Subsuperscript"]}], "-",
25196	RowBox[{"4", " ",
25197	TemplateBox[{"c","Hq","3"},
25198	"Subsuperscript"]}], "-",
25199	RowBox[{"2", " ",
25200	TemplateBox[{"c","ll","Prime"},
25201	"Subsuperscript"]}], "-",
25202	RowBox[{"4", " ",
25203	RowBox[{"(",
25204	TagBox[
25205	RowBox[{
25206	SubscriptBox["\[CapitalDelta]", "d"], " ",
25207	TemplateBox[{"c","Hq","1"},
25208	"Subsuperscript"]}],
25209	HoldForm], ")"}], " ", "Sd2x2"}], "-",
25210	RowBox[{"4", " ",
25211	RowBox[{"(",
25212	TagBox[
25213	RowBox[{
25214	SubscriptBox["\[CapitalDelta]", "d"], " ",
25215	TemplateBox[{"c","Hq","3"},
25216	"Subsuperscript"]}],
25217	HoldForm], ")"}], " ", "Sd2x2"}], "-",
25218	RowBox[{"4", " ", "CKM1x2", " ",
25219	RowBox[{"(",
25220	RowBox[{
25221	TagBox[
25222	RowBox[{
25223	SubscriptBox["\[CapitalDelta]", "u"], " ",
25224	TemplateBox[{"c","Hq","1"},
25225	"Subsuperscript"]}],
25226	HoldForm], "+",
25227	TagBox[
25228	RowBox[{
25229	SubscriptBox["\[CapitalDelta]", "u"], " ",
25230	TemplateBox[{"c","Hq","3"},
25231	"Subsuperscript"]}],
25232	HoldForm]}], ")"}], " ", "Su1x1", " ",
25233	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "-",
25234	RowBox[{"4", " ", "CKM2x2", " ",
25235	RowBox[{"(",
25236	RowBox[{
25237	TagBox[
25238	RowBox[{
25239	SubscriptBox["\[CapitalDelta]", "u"], " ",
25240	TemplateBox[{"c","Hq","1"},
25241	"Subsuperscript"]}],
25242	HoldForm], "+",
25243	TagBox[
25244	RowBox[{
25245	SubscriptBox["\[CapitalDelta]", "u"], " ",
25246	TemplateBox[{"c","Hq","3"},
25247	"Subsuperscript"]}],
25248	HoldForm]}], ")"}], " ", "Su2x2", " ",
25249	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "-",
25250	RowBox[{"4", " ", "CKM3x2", " ",
25251	RowBox[{"(",
25252	TagBox[
25253	RowBox[{
25254	SubscriptBox["\[CapitalDelta]", "u"], " ",
25255	TemplateBox[{"c","Hq","1"},
25256	"Subsuperscript"]}],
25257	HoldForm], ")"}], " ", "Su3x3", " ",
25258	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}], "-",
25259	RowBox[{"4", " ", "CKM3x2", " ",
25260	RowBox[{"(",
25261	TagBox[
25262	RowBox[{
25263	SubscriptBox["\[CapitalDelta]", "u"], " ",
25264	TemplateBox[{"c","Hq","3"},
25265	"Subsuperscript"]}],
25266	HoldForm], ")"}], " ", "Su3x3", " ",
25267	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
25268	SubscriptBox[
25269	RowBox[{
25270	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25271	"Superscript"], ".",
25272	SubscriptBox["P", "\<\"-\"\>"]}],
25273	RowBox[{
25274	SubscriptBox["\<\"s\"\>", "2"], ",",
25275	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
25276	RowBox[{"4", " ",
25277	RowBox[{"(",
25278	RowBox[{
25279	SubscriptBox["c", "Hd"], "+",
25280	RowBox[{
25281	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd2x2"}]}],
25282	")"}], " ",
25283	SubscriptBox[
25284	RowBox[{
25285	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25286	"Superscript"], ".",
25287	SubscriptBox["P", "\<\"+\"\>"]}],
25288	RowBox[{
25289	SubscriptBox["\<\"s\"\>", "2"], ",",
25290	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], "+",
25291	RowBox[{
25292	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
25293	SuperscriptBox[
25294	OverscriptBox["v", "^"], "2"], " ",
25295	RowBox[{"(",
25296	RowBox[{
25297	RowBox[{"4", " ",
25298	RowBox[{"(",
25299	RowBox[{
25300	SubscriptBox["c", "HD"], "+",
25301	RowBox[{"4", " ",
25302	TemplateBox[{"c","Hl","3"},
25303	"Subsuperscript"]}], "-",
25304	RowBox[{"6", " ",
25305	TemplateBox[{"c","Hq","1"},
25306	"Subsuperscript"]}], "-",
25307	RowBox[{"6", " ",
25308	TemplateBox[{"c","Hq","3"},
25309	"Subsuperscript"]}], "-",
25310	RowBox[{"2", " ",
25311	TemplateBox[{"c","ll","Prime"},
25312	"Subsuperscript"]}], "-",
25313	RowBox[{"6", " ",
25314	RowBox[{"(",
25315	TagBox[
25316	RowBox[{
25317	SubscriptBox["\[CapitalDelta]", "d"], " ",
25318	TemplateBox[{"c","Hq","1"},
25319	"Subsuperscript"]}],
25320	HoldForm], ")"}], " ", "Sd2x2"}], "-",
25321	RowBox[{"6", " ",
25322	RowBox[{"(",
25323	TagBox[
25324	RowBox[{
25325	SubscriptBox["\[CapitalDelta]", "d"], " ",
25326	TemplateBox[{"c","Hq","3"},
25327	"Subsuperscript"]}],
25328	HoldForm], ")"}], " ", "Sd2x2"}], "-",
25329	RowBox[{"6", " ", "CKM1x2", " ",
25330	RowBox[{"(",
25331	RowBox[{
25332	TagBox[
25333	RowBox[{
25334	SubscriptBox["\[CapitalDelta]", "u"], " ",
25335	TemplateBox[{"c","Hq","1"},
25336	"Subsuperscript"]}],
25337	HoldForm], "+",
25338	TagBox[
25339	RowBox[{
25340	SubscriptBox["\[CapitalDelta]", "u"], " ",
25341	TemplateBox[{"c","Hq","3"},
25342	"Subsuperscript"]}],
25343	HoldForm]}], ")"}], " ", "Su1x1", " ",
25344	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "-",
25345	RowBox[{"6", " ", "CKM2x2", " ",
25346	RowBox[{"(",
25347	RowBox[{
25348	TagBox[
25349	RowBox[{
25350	SubscriptBox["\[CapitalDelta]", "u"], " ",
25351	TemplateBox[{"c","Hq","1"},
25352	"Subsuperscript"]}],
25353	HoldForm], "+",
25354	TagBox[
25355	RowBox[{
25356	SubscriptBox["\[CapitalDelta]", "u"], " ",
25357	TemplateBox[{"c","Hq","3"},
25358	"Subsuperscript"]}],
25359	HoldForm]}], ")"}], " ", "Su2x2", " ",
25360	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "-",
25361	RowBox[{"6", " ", "CKM3x2", " ",
25362	RowBox[{"(",
25363	TagBox[
25364	RowBox[{
25365	SubscriptBox["\[CapitalDelta]", "u"], " ",
25366	TemplateBox[{"c","Hq","1"},
25367	"Subsuperscript"]}],
25368	HoldForm], ")"}], " ", "Su3x3", " ",
25369	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}], "-",
25370	RowBox[{"6", " ", "CKM3x2", " ",
25371	RowBox[{"(",
25372	TagBox[
25373	RowBox[{
25374	SubscriptBox["\[CapitalDelta]", "u"], " ",
25375	TemplateBox[{"c","Hq","3"},
25376	"Subsuperscript"]}],
25377	HoldForm], ")"}], " ", "Su3x3", " ",
25378	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
25379	SubscriptBox[
25380	RowBox[{
25381	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25382	"Superscript"], ".",
25383	SubscriptBox["P", "\<\"-\"\>"]}],
25384	RowBox[{
25385	SubscriptBox["\<\"s\"\>", "2"], ",",
25386	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
25387	RowBox[{"2", " ",
25388	RowBox[{"(",
25389	RowBox[{
25390	RowBox[{"12", " ",
25391	SubscriptBox["c", "Hd"]}], "+",
25392	SubscriptBox["c", "HD"], "+",
25393	RowBox[{"4", " ",
25394	TemplateBox[{"c","Hl","3"},
25395	"Subsuperscript"]}], "-",
25396	RowBox[{"2", " ",
25397	TemplateBox[{"c","ll","Prime"},
25398	"Subsuperscript"]}], "+",
25399	RowBox[{"12", " ",
25400	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd2x2"}]}],
25401	")"}], " ",
25402	SubscriptBox[
25403	RowBox[{
25404	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25405	"Superscript"], ".",
25406	SubscriptBox["P", "\<\"+\"\>"]}],
25407	RowBox[{
25408	SubscriptBox["\<\"s\"\>", "2"], ",",
25409	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
25410	RowBox[{"24", " ",
25411	SubscriptBox["c", "\[Theta]"], " ",
25412	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25413	SubscriptBox["s", "\[Theta]"], " ",
25414	RowBox[{"(",
25415	RowBox[{
25416	RowBox[{"-", "1"}], "+",
25417	RowBox[{"2", " ",
25418	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]},
25419	{GridBox[{
25420	{"Z", "1"},
25421	{
25422	OverscriptBox["s", "\<\"-\"\>"], "2"},
25423	{"b", "3"}
25424	},
25425	GridBoxAlignment->{
25426	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25427	"RowsIndexed" -> {}},
25428	GridBoxSpacings->{"Columns" -> {
25429	Offset[0.27999999999999997`], {
25430	Offset[0.7]},
25431	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25432	Offset[0.2], {
25433	Offset[0.1]},
25434	Offset[0.2]}, "RowsIndexed" -> {}}],
25435	FractionBox[
25436	RowBox[{"\[ImaginaryI]", " ",
25437	RowBox[{"(",
25438	RowBox[{
25439	TagBox[
25440	RowBox[{
25441	SubscriptBox["\[CapitalDelta]", "u"], " ",
25442	TemplateBox[{"c","Hq","1"},
25443	"Subsuperscript"]}],
25444	HoldForm], "+",
25445	TagBox[
25446	RowBox[{
25447	SubscriptBox["\[CapitalDelta]", "u"], " ",
25448	TemplateBox[{"c","Hq","3"},
25449	"Subsuperscript"]}],
25450	HoldForm]}], ")"}], " ", "e", " ",
25451	SuperscriptBox[
25452	OverscriptBox["v", "^"], "2"], " ",
25453	RowBox[{"(",
25454	RowBox[{
25455	RowBox[{"CKM1x3", " ", "Su1x1", " ",
25456	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+",
25457	RowBox[{"CKM2x3", " ", "Su2x2", " ",
25458	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+",
25459	RowBox[{"CKM3x3", " ", "Su3x3", " ",
25460	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
25461	SubscriptBox["\[Delta]",
25462	RowBox[{
25463	SubscriptBox["\<\"m\"\>", "2"], ",",
25464	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25465	SubscriptBox[
25466	RowBox[{
25467	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25468	"Superscript"], ".",
25469	SubscriptBox["P", "\<\"-\"\>"]}],
25470	RowBox[{
25471	SubscriptBox["\<\"s\"\>", "2"], ",",
25472	SubscriptBox["\<\"s\"\>", "3"]}]]}],
25473	RowBox[{"2", " ",
25474	SubscriptBox["c", "\[Theta]"], " ",
25475	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25476	SubscriptBox["s", "\[Theta]"]}]]},
25477	{GridBox[{
25478	{"Z", "1"},
25479	{
25480	OverscriptBox["b", "\<\"-\"\>"], "2"},
25481	{"d", "3"}
25482	},
25483	GridBoxAlignment->{
25484	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25485	"RowsIndexed" -> {}},
25486	GridBoxSpacings->{"Columns" -> {
25487	Offset[0.27999999999999997`], {
25488	Offset[0.7]},
25489	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25490	Offset[0.2], {
25491	Offset[0.1]},
25492	Offset[0.2]}, "RowsIndexed" -> {}}],
25493	FractionBox[
25494	RowBox[{"\[ImaginaryI]", " ",
25495	RowBox[{"(",
25496	RowBox[{
25497	TagBox[
25498	RowBox[{
25499	SubscriptBox["\[CapitalDelta]", "u"], " ",
25500	TemplateBox[{"c","Hq","1"},
25501	"Subsuperscript"]}],
25502	HoldForm], "+",
25503	TagBox[
25504	RowBox[{
25505	SubscriptBox["\[CapitalDelta]", "u"], " ",
25506	TemplateBox[{"c","Hq","3"},
25507	"Subsuperscript"]}],
25508	HoldForm]}], ")"}], " ", "e", " ",
25509	SuperscriptBox[
25510	OverscriptBox["v", "^"], "2"], " ",
25511	RowBox[{"(",
25512	RowBox[{
25513	RowBox[{"CKM1x1", " ", "Su1x1", " ",
25514	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+",
25515	RowBox[{"CKM2x1", " ", "Su2x2", " ",
25516	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+",
25517	RowBox[{"CKM3x1", " ", "Su3x3", " ",
25518	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
25519	SubscriptBox["\[Delta]",
25520	RowBox[{
25521	SubscriptBox["\<\"m\"\>", "2"], ",",
25522	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25523	SubscriptBox[
25524	RowBox[{
25525	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25526	"Superscript"], ".",
25527	SubscriptBox["P", "\<\"-\"\>"]}],
25528	RowBox[{
25529	SubscriptBox["\<\"s\"\>", "2"], ",",
25530	SubscriptBox["\<\"s\"\>", "3"]}]]}],
25531	RowBox[{"2", " ",
25532	SubscriptBox["c", "\[Theta]"], " ",
25533	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25534	SubscriptBox["s", "\[Theta]"]}]]},
25535	{GridBox[{
25536	{"Z", "1"},
25537	{
25538	OverscriptBox["b", "\<\"-\"\>"], "2"},
25539	{"s", "3"}
25540	},
25541	GridBoxAlignment->{
25542	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25543	"RowsIndexed" -> {}},
25544	GridBoxSpacings->{"Columns" -> {
25545	Offset[0.27999999999999997`], {
25546	Offset[0.7]},
25547	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25548	Offset[0.2], {
25549	Offset[0.1]},
25550	Offset[0.2]}, "RowsIndexed" -> {}}],
25551	FractionBox[
25552	RowBox[{"\[ImaginaryI]", " ",
25553	RowBox[{"(",
25554	RowBox[{
25555	TagBox[
25556	RowBox[{
25557	SubscriptBox["\[CapitalDelta]", "u"], " ",
25558	TemplateBox[{"c","Hq","1"},
25559	"Subsuperscript"]}],
25560	HoldForm], "+",
25561	TagBox[
25562	RowBox[{
25563	SubscriptBox["\[CapitalDelta]", "u"], " ",
25564	TemplateBox[{"c","Hq","3"},
25565	"Subsuperscript"]}],
25566	HoldForm]}], ")"}], " ", "e", " ",
25567	SuperscriptBox[
25568	OverscriptBox["v", "^"], "2"], " ",
25569	RowBox[{"(",
25570	RowBox[{
25571	RowBox[{"CKM1x2", " ", "Su1x1", " ",
25572	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+",
25573	RowBox[{"CKM2x2", " ", "Su2x2", " ",
25574	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+",
25575	RowBox[{"CKM3x2", " ", "Su3x3", " ",
25576	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
25577	SubscriptBox["\[Delta]",
25578	RowBox[{
25579	SubscriptBox["\<\"m\"\>", "2"], ",",
25580	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25581	SubscriptBox[
25582	RowBox[{
25583	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25584	"Superscript"], ".",
25585	SubscriptBox["P", "\<\"-\"\>"]}],
25586	RowBox[{
25587	SubscriptBox["\<\"s\"\>", "2"], ",",
25588	SubscriptBox["\<\"s\"\>", "3"]}]]}],
25589	RowBox[{"2", " ",
25590	SubscriptBox["c", "\[Theta]"], " ",
25591	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25592	SubscriptBox["s", "\[Theta]"]}]]},
25593	{GridBox[{
25594	{"Z", "1"},
25595	{
25596	OverscriptBox["b", "\<\"-\"\>"], "2"},
25597	{"b", "3"}
25598	},
25599	GridBoxAlignment->{
25600	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25601	"RowsIndexed" -> {}},
25602	GridBoxSpacings->{"Columns" -> {
25603	Offset[0.27999999999999997`], {
25604	Offset[0.7]},
25605	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25606	Offset[0.2], {
25607	Offset[0.1]},
25608	Offset[0.2]}, "RowsIndexed" -> {}}],
25609	RowBox[{"-",
25610	FractionBox[
25611	RowBox[{"\[ImaginaryI]", " ", "e", " ",
25612	SubscriptBox["\[Delta]",
25613	RowBox[{
25614	SubscriptBox["\<\"m\"\>", "2"], ",",
25615	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
25616	RowBox[{"(",
25617	RowBox[{
25618	RowBox[{"16", " ",
25619	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25620	SubsuperscriptBox["s", "\[Theta]", "4"], " ",
25621	TemplateBox[{SubscriptBox["\[Gamma]",
25622	RowBox[{
25623	SubscriptBox["\"s\"", "2"], ",",
25624	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
25625
25626	"Superscript"]}], "-",
25627	RowBox[{"8", " ",
25628	SubscriptBox["c", "HWB"], " ",
25629	SubscriptBox["c", "\[Theta]"], " ",
25630	SubscriptBox["s", "\[Theta]"], " ",
25631	SuperscriptBox[
25632	OverscriptBox["v", "^"], "2"], " ",
25633	TemplateBox[{SubscriptBox["\[Gamma]",
25634	RowBox[{
25635	SubscriptBox["\"s\"", "2"], ",",
25636	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
25637
25638	"Superscript"]}], "+",
25639	RowBox[{"12", " ",
25640	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25641	SubscriptBox[
25642	RowBox[{
25643	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25644	"Superscript"], ".",
25645	SubscriptBox["P", "\<\"-\"\>"]}],
25646	RowBox[{
25647	SubscriptBox["\<\"s\"\>", "2"], ",",
25648	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
25649	RowBox[{"8", " ",
25650	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25651	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
25652	RowBox[{"(",
25653	RowBox[{
25654	RowBox[{"4", " ",
25655	SubscriptBox[
25656	RowBox[{
25657	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25658	"Superscript"], ".",
25659	SubscriptBox["P", "\<\"-\"\>"]}],
25660	RowBox[{
25661	SubscriptBox["\<\"s\"\>", "2"], ",",
25662	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
25663	SubscriptBox[
25664	RowBox[{
25665	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25666	"Superscript"], ".",
25667	SubscriptBox["P", "\<\"+\"\>"]}],
25668	RowBox[{
25669	SubscriptBox["\<\"s\"\>", "2"], ",",
25670	SubscriptBox["\<\"s\"\>", "3"]}]]}], ")"}]}], "-",
25671	RowBox[{"3", " ",
25672	SuperscriptBox[
25673	OverscriptBox["v", "^"], "2"], " ",
25674	RowBox[{"(",
25675	RowBox[{
25676	RowBox[{
25677	RowBox[{"(",
25678	RowBox[{
25679	SubscriptBox["c", "HD"], "+",
25680	RowBox[{"4", " ",
25681	TemplateBox[{"c","Hl","3"},
25682	"Subsuperscript"]}], "-",
25683	RowBox[{"4", " ",
25684	TemplateBox[{"c","Hq","1"},
25685	"Subsuperscript"]}], "-",
25686	RowBox[{"4", " ",
25687	TemplateBox[{"c","Hq","3"},
25688	"Subsuperscript"]}], "-",
25689	RowBox[{"2", " ",
25690	TemplateBox[{"c","ll","Prime"},
25691	"Subsuperscript"]}], "-",
25692	RowBox[{"4", " ",
25693	RowBox[{"(",
25694	TagBox[
25695	RowBox[{
25696	SubscriptBox["\[CapitalDelta]", "d"], " ",
25697	TemplateBox[{"c","Hq","1"},
25698	"Subsuperscript"]}],
25699	HoldForm], ")"}], " ", "Sd3x3"}], "-",
25700	RowBox[{"4", " ",
25701	RowBox[{"(",
25702	TagBox[
25703	RowBox[{
25704	SubscriptBox["\[CapitalDelta]", "d"], " ",
25705	TemplateBox[{"c","Hq","3"},
25706	"Subsuperscript"]}],
25707	HoldForm], ")"}], " ", "Sd3x3"}], "-",
25708	RowBox[{"4", " ", "CKM1x3", " ",
25709	RowBox[{"(",
25710	RowBox[{
25711	TagBox[
25712	RowBox[{
25713	SubscriptBox["\[CapitalDelta]", "u"], " ",
25714	TemplateBox[{"c","Hq","1"},
25715	"Subsuperscript"]}],
25716	HoldForm], "+",
25717	TagBox[
25718	RowBox[{
25719	SubscriptBox["\[CapitalDelta]", "u"], " ",
25720	TemplateBox[{"c","Hq","3"},
25721	"Subsuperscript"]}],
25722	HoldForm]}], ")"}], " ", "Su1x1", " ",
25723	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "-",
25724	RowBox[{"4", " ", "CKM2x3", " ",
25725	RowBox[{"(",
25726	RowBox[{
25727	TagBox[
25728	RowBox[{
25729	SubscriptBox["\[CapitalDelta]", "u"], " ",
25730	TemplateBox[{"c","Hq","1"},
25731	"Subsuperscript"]}],
25732	HoldForm], "+",
25733	TagBox[
25734	RowBox[{
25735	SubscriptBox["\[CapitalDelta]", "u"], " ",
25736	TemplateBox[{"c","Hq","3"},
25737	"Subsuperscript"]}],
25738	HoldForm]}], ")"}], " ", "Su2x2", " ",
25739	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "-",
25740	RowBox[{"4", " ", "CKM3x3", " ",
25741	RowBox[{"(",
25742	TagBox[
25743	RowBox[{
25744	SubscriptBox["\[CapitalDelta]", "u"], " ",
25745	TemplateBox[{"c","Hq","1"},
25746	"Subsuperscript"]}],
25747	HoldForm], ")"}], " ", "Su3x3", " ",
25748	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}], "-",
25749	RowBox[{"4", " ", "CKM3x3", " ",
25750	RowBox[{"(",
25751	TagBox[
25752	RowBox[{
25753	SubscriptBox["\[CapitalDelta]", "u"], " ",
25754	TemplateBox[{"c","Hq","3"},
25755	"Subsuperscript"]}],
25756	HoldForm], ")"}], " ", "Su3x3", " ",
25757	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
25758	SubscriptBox[
25759	RowBox[{
25760	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25761	"Superscript"], ".",
25762	SubscriptBox["P", "\<\"-\"\>"]}],
25763	RowBox[{
25764	SubscriptBox["\<\"s\"\>", "2"], ",",
25765	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
25766	RowBox[{"4", " ",
25767	RowBox[{"(",
25768	RowBox[{
25769	SubscriptBox["c", "Hd"], "+",
25770	RowBox[{
25771	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd3x3"}]}],
25772	")"}], " ",
25773	SubscriptBox[
25774	RowBox[{
25775	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25776	"Superscript"], ".",
25777	SubscriptBox["P", "\<\"+\"\>"]}],
25778	RowBox[{
25779	SubscriptBox["\<\"s\"\>", "2"], ",",
25780	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}], "+",
25781	RowBox[{
25782	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
25783	SuperscriptBox[
25784	OverscriptBox["v", "^"], "2"], " ",
25785	RowBox[{"(",
25786	RowBox[{
25787	RowBox[{"4", " ",
25788	RowBox[{"(",
25789	RowBox[{
25790	SubscriptBox["c", "HD"], "+",
25791	RowBox[{"4", " ",
25792	TemplateBox[{"c","Hl","3"},
25793	"Subsuperscript"]}], "-",
25794	RowBox[{"6", " ",
25795	TemplateBox[{"c","Hq","1"},
25796	"Subsuperscript"]}], "-",
25797	RowBox[{"6", " ",
25798	TemplateBox[{"c","Hq","3"},
25799	"Subsuperscript"]}], "-",
25800	RowBox[{"2", " ",
25801	TemplateBox[{"c","ll","Prime"},
25802	"Subsuperscript"]}], "-",
25803	RowBox[{"6", " ",
25804	RowBox[{"(",
25805	TagBox[
25806	RowBox[{
25807	SubscriptBox["\[CapitalDelta]", "d"], " ",
25808	TemplateBox[{"c","Hq","1"},
25809	"Subsuperscript"]}],
25810	HoldForm], ")"}], " ", "Sd3x3"}], "-",
25811	RowBox[{"6", " ",
25812	RowBox[{"(",
25813	TagBox[
25814	RowBox[{
25815	SubscriptBox["\[CapitalDelta]", "d"], " ",
25816	TemplateBox[{"c","Hq","3"},
25817	"Subsuperscript"]}],
25818	HoldForm], ")"}], " ", "Sd3x3"}], "-",
25819	RowBox[{"6", " ", "CKM1x3", " ",
25820	RowBox[{"(",
25821	RowBox[{
25822	TagBox[
25823	RowBox[{
25824	SubscriptBox["\[CapitalDelta]", "u"], " ",
25825	TemplateBox[{"c","Hq","1"},
25826	"Subsuperscript"]}],
25827	HoldForm], "+",
25828	TagBox[
25829	RowBox[{
25830	SubscriptBox["\[CapitalDelta]", "u"], " ",
25831	TemplateBox[{"c","Hq","3"},
25832	"Subsuperscript"]}],
25833	HoldForm]}], ")"}], " ", "Su1x1", " ",
25834	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "-",
25835	RowBox[{"6", " ", "CKM2x3", " ",
25836	RowBox[{"(",
25837	RowBox[{
25838	TagBox[
25839	RowBox[{
25840	SubscriptBox["\[CapitalDelta]", "u"], " ",
25841	TemplateBox[{"c","Hq","1"},
25842	"Subsuperscript"]}],
25843	HoldForm], "+",
25844	TagBox[
25845	RowBox[{
25846	SubscriptBox["\[CapitalDelta]", "u"], " ",
25847	TemplateBox[{"c","Hq","3"},
25848	"Subsuperscript"]}],
25849	HoldForm]}], ")"}], " ", "Su2x2", " ",
25850	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "-",
25851	RowBox[{"6", " ", "CKM3x3", " ",
25852	RowBox[{"(",
25853	TagBox[
25854	RowBox[{
25855	SubscriptBox["\[CapitalDelta]", "u"], " ",
25856	TemplateBox[{"c","Hq","1"},
25857	"Subsuperscript"]}],
25858	HoldForm], ")"}], " ", "Su3x3", " ",
25859	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}], "-",
25860	RowBox[{"6", " ", "CKM3x3", " ",
25861	RowBox[{"(",
25862	TagBox[
25863	RowBox[{
25864	SubscriptBox["\[CapitalDelta]", "u"], " ",
25865	TemplateBox[{"c","Hq","3"},
25866	"Subsuperscript"]}],
25867	HoldForm], ")"}], " ", "Su3x3", " ",
25868	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
25869	SubscriptBox[
25870	RowBox[{
25871	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25872	"Superscript"], ".",
25873	SubscriptBox["P", "\<\"-\"\>"]}],
25874	RowBox[{
25875	SubscriptBox["\<\"s\"\>", "2"], ",",
25876	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
25877	RowBox[{"2", " ",
25878	RowBox[{"(",
25879	RowBox[{
25880	RowBox[{"12", " ",
25881	SubscriptBox["c", "Hd"]}], "+",
25882	SubscriptBox["c", "HD"], "+",
25883	RowBox[{"4", " ",
25884	TemplateBox[{"c","Hl","3"},
25885	"Subsuperscript"]}], "-",
25886	RowBox[{"2", " ",
25887	TemplateBox[{"c","ll","Prime"},
25888	"Subsuperscript"]}], "+",
25889	RowBox[{"12", " ",
25890	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd3x3"}]}],
25891	")"}], " ",
25892	SubscriptBox[
25893	RowBox[{
25894	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
25895	"Superscript"], ".",
25896	SubscriptBox["P", "\<\"+\"\>"]}],
25897	RowBox[{
25898	SubscriptBox["\<\"s\"\>", "2"], ",",
25899	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
25900	RowBox[{"24", " ",
25901	SubscriptBox["c", "\[Theta]"], " ",
25902	SuperscriptBox["\[CapitalLambda]", "2"], " ",
25903	SubscriptBox["s", "\[Theta]"], " ",
25904	RowBox[{"(",
25905	RowBox[{
25906	RowBox[{"-", "1"}], "+",
25907	RowBox[{"2", " ",
25908	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}]]}]}
25909	},
25910	GridBoxAlignment->{
25911	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
25912	"RowsIndexed" -> {}},
25913	GridBoxSpacings->{"Columns" -> {
25914	Offset[0.27999999999999997`], {
25915	Offset[2.0999999999999996`]},
25916	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
25917	Offset[0.2], {
25918	Offset[0.4]},
25919	Offset[0.2]}, "RowsIndexed" -> {}}],
25920	TableForm[{{{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {FeynRules`d, 3}},
25921	Complex[0,
25922	Rational[-1, 24]] $CellContext`cth^(-1)
25923	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) (-1 +
25924	2 $CellContext`sth^2)^(-1) FeynRules`IndexDelta[
25925	FeynRules`Index[FeynRules`Colour,
25926	FeynRules`Ext[2]],
25927	FeynRules`Index[FeynRules`Colour,
25928	FeynRules`Ext[3]]] (
25929	16 $CellContext`LambdaSMEFT^2 $CellContext`sth^4 FeynRules`Ga[
25930	FeynRules`Index[FeynRules`Lorentz,
25931	FeynRules`Ext[1]],
25932	FeynRules`Index[FeynRules`Spin,
25933	FeynRules`Ext[2]],
25934	FeynRules`Index[FeynRules`Spin,
25935	FeynRules`Ext[3]]] -
25936	8 $CellContext`cHWB $CellContext`cth $CellContext`sth \
25937	$CellContext`vevhat^2 FeynRules`Ga[
25938	FeynRules`Index[FeynRules`Lorentz,
25939	FeynRules`Ext[1]],
25940	FeynRules`Index[FeynRules`Spin,
25941	FeynRules`Ext[2]],
25942	FeynRules`Index[FeynRules`Spin,
25943	FeynRules`Ext[3]]] +
25944	12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
25945	FeynRules`Ga[
25946	FeynRules`Index[FeynRules`Lorentz,
25947	FeynRules`Ext[1]]], FeynRules`ProjM][
25948	FeynRules`Index[FeynRules`Spin,
25949	FeynRules`Ext[2]],
25950	FeynRules`Index[FeynRules`Spin,
25951	FeynRules`Ext[3]]] -
25952	8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 (4 FeynRules`TensDot[
25953	FeynRules`Ga[
25954	FeynRules`Index[FeynRules`Lorentz,
25955	FeynRules`Ext[1]]], FeynRules`ProjM][
25956	FeynRules`Index[FeynRules`Spin,
25957	FeynRules`Ext[2]],
25958	FeynRules`Index[FeynRules`Spin,
25959	FeynRules`Ext[3]]] + FeynRules`TensDot[
25960	FeynRules`Ga[
25961	FeynRules`Index[FeynRules`Lorentz,
25962	FeynRules`Ext[1]]], FeynRules`ProjP][
25963	FeynRules`Index[FeynRules`Spin,
25964	FeynRules`Ext[2]],
25965	FeynRules`Index[FeynRules`Spin,
25966	FeynRules`Ext[3]]]) -
25967	3 $CellContext`vevhat^2 (($CellContext`cHDD + 4 $CellContext`cHl3 -
25968	4 $CellContext`cHq10 - 4 $CellContext`cHq30 - 2 $CellContext`cll1 -
25969	4 $CellContext`DeltadcHq1 $CellContext`Sd1x1 -
25970	4 $CellContext`DeltadcHq3 $CellContext`Sd1x1 -
25971	4 $CellContext`CKM1x1 ($CellContext`DeltaucHq1 + \
25972	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x1] -
25973	4 $CellContext`CKM2x1 ($CellContext`DeltaucHq1 + \
25974	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x1] -
25975	4 $CellContext`CKM3x1 $CellContext`DeltaucHq1 $CellContext`Su3x3
25976	Conjugate[$CellContext`CKM3x1] -
25977	4 $CellContext`CKM3x1 $CellContext`DeltaucHq3 $CellContext`Su3x3
25978	Conjugate[$CellContext`CKM3x1]) FeynRules`TensDot[
25979	FeynRules`Ga[
25980	FeynRules`Index[FeynRules`Lorentz,
25981	FeynRules`Ext[1]]], FeynRules`ProjM][
25982	FeynRules`Index[FeynRules`Spin,
25983	FeynRules`Ext[2]],
25984	FeynRules`Index[FeynRules`Spin,
25985	FeynRules`Ext[3]]] -
25986	4 ($CellContext`cHd0 + $CellContext`DeltacHd $CellContext`Sd1x1)
25987	FeynRules`TensDot[
25988	FeynRules`Ga[
25989	FeynRules`Index[FeynRules`Lorentz,
25990	FeynRules`Ext[1]]], FeynRules`ProjP][
25991	FeynRules`Index[FeynRules`Spin,
25992	FeynRules`Ext[2]],
25993	FeynRules`Index[FeynRules`Spin,
25994	FeynRules`Ext[3]]]) + $CellContext`sth^2 $CellContext`vevhat^2 (
25995	4 ($CellContext`cHDD + 4 $CellContext`cHl3 - 6 $CellContext`cHq10 -
25996	6 $CellContext`cHq30 - 2 $CellContext`cll1 -
25997	6 $CellContext`DeltadcHq1 $CellContext`Sd1x1 -
25998	6 $CellContext`DeltadcHq3 $CellContext`Sd1x1 -
25999	6 $CellContext`CKM1x1 ($CellContext`DeltaucHq1 + \
26000	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x1] -
26001	6 $CellContext`CKM2x1 ($CellContext`DeltaucHq1 + \
26002	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x1] -
26003	6 $CellContext`CKM3x1 $CellContext`DeltaucHq1 $CellContext`Su3x3
26004	Conjugate[$CellContext`CKM3x1] -
26005	6 $CellContext`CKM3x1 $CellContext`DeltaucHq3 $CellContext`Su3x3
26006	Conjugate[$CellContext`CKM3x1]) FeynRules`TensDot[
26007	FeynRules`Ga[
26008	FeynRules`Index[FeynRules`Lorentz,
26009	FeynRules`Ext[1]]], FeynRules`ProjM][
26010	FeynRules`Index[FeynRules`Spin,
26011	FeynRules`Ext[2]],
26012	FeynRules`Index[FeynRules`Spin,
26013	FeynRules`Ext[3]]] -
26014	2 (12 $CellContext`cHd0 + $CellContext`cHDD + 4 $CellContext`cHl3 -
26015	2 $CellContext`cll1 + 12 $CellContext`DeltacHd $CellContext`Sd1x1)
26016	FeynRules`TensDot[
26017	FeynRules`Ga[
26018	FeynRules`Index[FeynRules`Lorentz,
26019	FeynRules`Ext[1]]], FeynRules`ProjP][
26020	FeynRules`Index[FeynRules`Spin,
26021	FeynRules`Ext[2]],
26022	FeynRules`Index[FeynRules`Spin,
26023	FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`dbar,
26024	2}, {FeynRules`s, 3}}, Complex[0,
26025	Rational[
26026	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
26027	$CellContext`DeltaucHq3)
26028	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
26029	$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1
26030	Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x2 \
26031	$CellContext`Su2x2
26032	Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x2 \
26033	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
26034	FeynRules`Index[FeynRules`Colour,
26035	FeynRules`Ext[2]],
26036	FeynRules`Index[FeynRules`Colour,
26037	FeynRules`Ext[3]]] FeynRules`TensDot[
26038	FeynRules`Ga[
26039	FeynRules`Index[FeynRules`Lorentz,
26040	FeynRules`Ext[1]]], FeynRules`ProjM][
26041	FeynRules`Index[FeynRules`Spin,
26042	FeynRules`Ext[2]],
26043	FeynRules`Index[FeynRules`Spin,
26044	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {
26045	FeynRules`b, 3}}, Complex[0,
26046	Rational[
26047	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
26048	$CellContext`DeltaucHq3)
26049	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
26050	$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1
26051	Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x3 \
26052	$CellContext`Su2x2
26053	Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x3 \
26054	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
26055	FeynRules`Index[FeynRules`Colour,
26056	FeynRules`Ext[2]],
26057	FeynRules`Index[FeynRules`Colour,
26058	FeynRules`Ext[3]]] FeynRules`TensDot[
26059	FeynRules`Ga[
26060	FeynRules`Index[FeynRules`Lorentz,
26061	FeynRules`Ext[1]]], FeynRules`ProjM][
26062	FeynRules`Index[FeynRules`Spin,
26063	FeynRules`Ext[2]],
26064	FeynRules`Index[FeynRules`Spin,
26065	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
26066	FeynRules`d, 3}}, Complex[0,
26067	Rational[
26068	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
26069	$CellContext`DeltaucHq3)
26070	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
26071	$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1
26072	Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x1 \
26073	$CellContext`Su2x2
26074	Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x1 \
26075	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
26076	FeynRules`Index[FeynRules`Colour,
26077	FeynRules`Ext[2]],
26078	FeynRules`Index[FeynRules`Colour,
26079	FeynRules`Ext[3]]] FeynRules`TensDot[
26080	FeynRules`Ga[
26081	FeynRules`Index[FeynRules`Lorentz,
26082	FeynRules`Ext[1]]], FeynRules`ProjM][
26083	FeynRules`Index[FeynRules`Spin,
26084	FeynRules`Ext[2]],
26085	FeynRules`Index[FeynRules`Spin,
26086	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
26087	FeynRules`s, 3}}, Complex[0,
26088	Rational[-1, 24]] $CellContext`cth^(-1)
26089	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) (-1 +
26090	2 $CellContext`sth^2)^(-1) FeynRules`IndexDelta[
26091	FeynRules`Index[FeynRules`Colour,
26092	FeynRules`Ext[2]],
26093	FeynRules`Index[FeynRules`Colour,
26094	FeynRules`Ext[3]]] (
26095	16 $CellContext`LambdaSMEFT^2 $CellContext`sth^4 FeynRules`Ga[
26096	FeynRules`Index[FeynRules`Lorentz,
26097	FeynRules`Ext[1]],
26098	FeynRules`Index[FeynRules`Spin,
26099	FeynRules`Ext[2]],
26100	FeynRules`Index[FeynRules`Spin,
26101	FeynRules`Ext[3]]] -
26102	8 $CellContext`cHWB $CellContext`cth $CellContext`sth \
26103	$CellContext`vevhat^2 FeynRules`Ga[
26104	FeynRules`Index[FeynRules`Lorentz,
26105	FeynRules`Ext[1]],
26106	FeynRules`Index[FeynRules`Spin,
26107	FeynRules`Ext[2]],
26108	FeynRules`Index[FeynRules`Spin,
26109	FeynRules`Ext[3]]] +
26110	12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
26111	FeynRules`Ga[
26112	FeynRules`Index[FeynRules`Lorentz,
26113	FeynRules`Ext[1]]], FeynRules`ProjM][
26114	FeynRules`Index[FeynRules`Spin,
26115	FeynRules`Ext[2]],
26116	FeynRules`Index[FeynRules`Spin,
26117	FeynRules`Ext[3]]] -
26118	8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 (4 FeynRules`TensDot[
26119	FeynRules`Ga[
26120	FeynRules`Index[FeynRules`Lorentz,
26121	FeynRules`Ext[1]]], FeynRules`ProjM][
26122	FeynRules`Index[FeynRules`Spin,
26123	FeynRules`Ext[2]],
26124	FeynRules`Index[FeynRules`Spin,
26125	FeynRules`Ext[3]]] + FeynRules`TensDot[
26126	FeynRules`Ga[
26127	FeynRules`Index[FeynRules`Lorentz,
26128	FeynRules`Ext[1]]], FeynRules`ProjP][
26129	FeynRules`Index[FeynRules`Spin,
26130	FeynRules`Ext[2]],
26131	FeynRules`Index[FeynRules`Spin,
26132	FeynRules`Ext[3]]]) -
26133	3 $CellContext`vevhat^2 (($CellContext`cHDD + 4 $CellContext`cHl3 -
26134	4 $CellContext`cHq10 - 4 $CellContext`cHq30 - 2 $CellContext`cll1 -
26135	4 $CellContext`DeltadcHq1 $CellContext`Sd2x2 -
26136	4 $CellContext`DeltadcHq3 $CellContext`Sd2x2 -
26137	4 $CellContext`CKM1x2 ($CellContext`DeltaucHq1 + \
26138	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x2] -
26139	4 $CellContext`CKM2x2 ($CellContext`DeltaucHq1 + \
26140	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x2] -
26141	4 $CellContext`CKM3x2 $CellContext`DeltaucHq1 $CellContext`Su3x3
26142	Conjugate[$CellContext`CKM3x2] -
26143	4 $CellContext`CKM3x2 $CellContext`DeltaucHq3 $CellContext`Su3x3
26144	Conjugate[$CellContext`CKM3x2]) FeynRules`TensDot[
26145	FeynRules`Ga[
26146	FeynRules`Index[FeynRules`Lorentz,
26147	FeynRules`Ext[1]]], FeynRules`ProjM][
26148	FeynRules`Index[FeynRules`Spin,
26149	FeynRules`Ext[2]],
26150	FeynRules`Index[FeynRules`Spin,
26151	FeynRules`Ext[3]]] -
26152	4 ($CellContext`cHd0 + $CellContext`DeltacHd $CellContext`Sd2x2)
26153	FeynRules`TensDot[
26154	FeynRules`Ga[
26155	FeynRules`Index[FeynRules`Lorentz,
26156	FeynRules`Ext[1]]], FeynRules`ProjP][
26157	FeynRules`Index[FeynRules`Spin,
26158	FeynRules`Ext[2]],
26159	FeynRules`Index[FeynRules`Spin,
26160	FeynRules`Ext[3]]]) + $CellContext`sth^2 $CellContext`vevhat^2 (
26161	4 ($CellContext`cHDD + 4 $CellContext`cHl3 - 6 $CellContext`cHq10 -
26162	6 $CellContext`cHq30 - 2 $CellContext`cll1 -
26163	6 $CellContext`DeltadcHq1 $CellContext`Sd2x2 -
26164	6 $CellContext`DeltadcHq3 $CellContext`Sd2x2 -
26165	6 $CellContext`CKM1x2 ($CellContext`DeltaucHq1 + \
26166	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x2] -
26167	6 $CellContext`CKM2x2 ($CellContext`DeltaucHq1 + \
26168	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x2] -
26169	6 $CellContext`CKM3x2 $CellContext`DeltaucHq1 $CellContext`Su3x3
26170	Conjugate[$CellContext`CKM3x2] -
26171	6 $CellContext`CKM3x2 $CellContext`DeltaucHq3 $CellContext`Su3x3
26172	Conjugate[$CellContext`CKM3x2]) FeynRules`TensDot[
26173	FeynRules`Ga[
26174	FeynRules`Index[FeynRules`Lorentz,
26175	FeynRules`Ext[1]]], FeynRules`ProjM][
26176	FeynRules`Index[FeynRules`Spin,
26177	FeynRules`Ext[2]],
26178	FeynRules`Index[FeynRules`Spin,
26179	FeynRules`Ext[3]]] -
26180	2 (12 $CellContext`cHd0 + $CellContext`cHDD + 4 $CellContext`cHl3 -
26181	2 $CellContext`cll1 + 12 $CellContext`DeltacHd $CellContext`Sd2x2)
26182	FeynRules`TensDot[
26183	FeynRules`Ga[
26184	FeynRules`Index[FeynRules`Lorentz,
26185	FeynRules`Ext[1]]], FeynRules`ProjP][
26186	FeynRules`Index[FeynRules`Spin,
26187	FeynRules`Ext[2]],
26188	FeynRules`Index[FeynRules`Spin,
26189	FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`sbar,
26190	2}, {FeynRules`b, 3}}, Complex[0,
26191	Rational[
26192	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
26193	$CellContext`DeltaucHq3)
26194	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
26195	$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1
26196	Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x3 \
26197	$CellContext`Su2x2
26198	Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x3 \
26199	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
26200	FeynRules`Index[FeynRules`Colour,
26201	FeynRules`Ext[2]],
26202	FeynRules`Index[FeynRules`Colour,
26203	FeynRules`Ext[3]]] FeynRules`TensDot[
26204	FeynRules`Ga[
26205	FeynRules`Index[FeynRules`Lorentz,
26206	FeynRules`Ext[1]]], FeynRules`ProjM][
26207	FeynRules`Index[FeynRules`Spin,
26208	FeynRules`Ext[2]],
26209	FeynRules`Index[FeynRules`Spin,
26210	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
26211	FeynRules`d, 3}}, Complex[0,
26212	Rational[
26213	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
26214	$CellContext`DeltaucHq3)
26215	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
26216	$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1
26217	Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x1 \
26218	$CellContext`Su2x2
26219	Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x1 \
26220	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
26221	FeynRules`Index[FeynRules`Colour,
26222	FeynRules`Ext[2]],
26223	FeynRules`Index[FeynRules`Colour,
26224	FeynRules`Ext[3]]] FeynRules`TensDot[
26225	FeynRules`Ga[
26226	FeynRules`Index[FeynRules`Lorentz,
26227	FeynRules`Ext[1]]], FeynRules`ProjM][
26228	FeynRules`Index[FeynRules`Spin,
26229	FeynRules`Ext[2]],
26230	FeynRules`Index[FeynRules`Spin,
26231	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
26232	FeynRules`s, 3}}, Complex[0,
26233	Rational[
26234	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
26235	$CellContext`DeltaucHq3)
26236	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
26237	$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1
26238	Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x2 \
26239	$CellContext`Su2x2
26240	Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x2 \
26241	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
26242	FeynRules`Index[FeynRules`Colour,
26243	FeynRules`Ext[2]],
26244	FeynRules`Index[FeynRules`Colour,
26245	FeynRules`Ext[3]]] FeynRules`TensDot[
26246	FeynRules`Ga[
26247	FeynRules`Index[FeynRules`Lorentz,
26248	FeynRules`Ext[1]]], FeynRules`ProjM][
26249	FeynRules`Index[FeynRules`Spin,
26250	FeynRules`Ext[2]],
26251	FeynRules`Index[FeynRules`Spin,
26252	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
26253	FeynRules`b, 3}}, Complex[0,
26254	Rational[-1, 24]] $CellContext`cth^(-1)
26255	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) (-1 +
26256	2 $CellContext`sth^2)^(-1) FeynRules`IndexDelta[
26257	FeynRules`Index[FeynRules`Colour,
26258	FeynRules`Ext[2]],
26259	FeynRules`Index[FeynRules`Colour,
26260	FeynRules`Ext[3]]] (
26261	16 $CellContext`LambdaSMEFT^2 $CellContext`sth^4 FeynRules`Ga[
26262	FeynRules`Index[FeynRules`Lorentz,
26263	FeynRules`Ext[1]],
26264	FeynRules`Index[FeynRules`Spin,
26265	FeynRules`Ext[2]],
26266	FeynRules`Index[FeynRules`Spin,
26267	FeynRules`Ext[3]]] -
26268	8 $CellContext`cHWB $CellContext`cth $CellContext`sth \
26269	$CellContext`vevhat^2 FeynRules`Ga[
26270	FeynRules`Index[FeynRules`Lorentz,
26271	FeynRules`Ext[1]],
26272	FeynRules`Index[FeynRules`Spin,
26273	FeynRules`Ext[2]],
26274	FeynRules`Index[FeynRules`Spin,
26275	FeynRules`Ext[3]]] +
26276	12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
26277	FeynRules`Ga[
26278	FeynRules`Index[FeynRules`Lorentz,
26279	FeynRules`Ext[1]]], FeynRules`ProjM][
26280	FeynRules`Index[FeynRules`Spin,
26281	FeynRules`Ext[2]],
26282	FeynRules`Index[FeynRules`Spin,
26283	FeynRules`Ext[3]]] -
26284	8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 (4 FeynRules`TensDot[
26285	FeynRules`Ga[
26286	FeynRules`Index[FeynRules`Lorentz,
26287	FeynRules`Ext[1]]], FeynRules`ProjM][
26288	FeynRules`Index[FeynRules`Spin,
26289	FeynRules`Ext[2]],
26290	FeynRules`Index[FeynRules`Spin,
26291	FeynRules`Ext[3]]] + FeynRules`TensDot[
26292	FeynRules`Ga[
26293	FeynRules`Index[FeynRules`Lorentz,
26294	FeynRules`Ext[1]]], FeynRules`ProjP][
26295	FeynRules`Index[FeynRules`Spin,
26296	FeynRules`Ext[2]],
26297	FeynRules`Index[FeynRules`Spin,
26298	FeynRules`Ext[3]]]) -
26299	3 $CellContext`vevhat^2 (($CellContext`cHDD + 4 $CellContext`cHl3 -
26300	4 $CellContext`cHq10 - 4 $CellContext`cHq30 - 2 $CellContext`cll1 -
26301	4 $CellContext`DeltadcHq1 $CellContext`Sd3x3 -
26302	4 $CellContext`DeltadcHq3 $CellContext`Sd3x3 -
26303	4 $CellContext`CKM1x3 ($CellContext`DeltaucHq1 + \
26304	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x3] -
26305	4 $CellContext`CKM2x3 ($CellContext`DeltaucHq1 + \
26306	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x3] -
26307	4 $CellContext`CKM3x3 $CellContext`DeltaucHq1 $CellContext`Su3x3
26308	Conjugate[$CellContext`CKM3x3] -
26309	4 $CellContext`CKM3x3 $CellContext`DeltaucHq3 $CellContext`Su3x3
26310	Conjugate[$CellContext`CKM3x3]) FeynRules`TensDot[
26311	FeynRules`Ga[
26312	FeynRules`Index[FeynRules`Lorentz,
26313	FeynRules`Ext[1]]], FeynRules`ProjM][
26314	FeynRules`Index[FeynRules`Spin,
26315	FeynRules`Ext[2]],
26316	FeynRules`Index[FeynRules`Spin,
26317	FeynRules`Ext[3]]] -
26318	4 ($CellContext`cHd0 + $CellContext`DeltacHd $CellContext`Sd3x3)
26319	FeynRules`TensDot[
26320	FeynRules`Ga[
26321	FeynRules`Index[FeynRules`Lorentz,
26322	FeynRules`Ext[1]]], FeynRules`ProjP][
26323	FeynRules`Index[FeynRules`Spin,
26324	FeynRules`Ext[2]],
26325	FeynRules`Index[FeynRules`Spin,
26326	FeynRules`Ext[3]]]) + $CellContext`sth^2 $CellContext`vevhat^2 (
26327	4 ($CellContext`cHDD + 4 $CellContext`cHl3 - 6 $CellContext`cHq10 -
26328	6 $CellContext`cHq30 - 2 $CellContext`cll1 -
26329	6 $CellContext`DeltadcHq1 $CellContext`Sd3x3 -
26330	6 $CellContext`DeltadcHq3 $CellContext`Sd3x3 -
26331	6 $CellContext`CKM1x3 ($CellContext`DeltaucHq1 + \
26332	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x3] -
26333	6 $CellContext`CKM2x3 ($CellContext`DeltaucHq1 + \
26334	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x3] -
26335	6 $CellContext`CKM3x3 $CellContext`DeltaucHq1 $CellContext`Su3x3
26336	Conjugate[$CellContext`CKM3x3] -
26337	6 $CellContext`CKM3x3 $CellContext`DeltaucHq3 $CellContext`Su3x3
26338	Conjugate[$CellContext`CKM3x3]) FeynRules`TensDot[
26339	FeynRules`Ga[
26340	FeynRules`Index[FeynRules`Lorentz,
26341	FeynRules`Ext[1]]], FeynRules`ProjM][
26342	FeynRules`Index[FeynRules`Spin,
26343	FeynRules`Ext[2]],
26344	FeynRules`Index[FeynRules`Spin,
26345	FeynRules`Ext[3]]] -
26346	2 (12 $CellContext`cHd0 + $CellContext`cHDD + 4 $CellContext`cHl3 -
26347	2 $CellContext`cll1 + 12 $CellContext`DeltacHd $CellContext`Sd3x3)
26348	FeynRules`TensDot[
26349	FeynRules`Ga[
26350	FeynRules`Index[FeynRules`Lorentz,
26351	FeynRules`Ext[1]]], FeynRules`ProjP][
26352	FeynRules`Index[FeynRules`Spin,
26353	FeynRules`Ext[2]],
26354	FeynRules`Index[FeynRules`Spin,
26355	FeynRules`Ext[3]]]))}}]]], "Output",
26356	CellChangeTimes->{{3.714657950098637^9, 3.714657963888904^9},
26357	3.714657998040905^9, {3.71465804041544^9, 3.714658062787704*^9},
26358	3.7146581568958817`^9, 3.7146583437098217`^9,
26359	3.729588650629637*^9},ExpressionUUID->"af0520b6-893d-4341-aa7e-\
26360	388223c7d241"]
26361	}, Open ]]
26362	}, Closed]],
26363
26364	Cell[CellGroupData[{
26365
26366	Cell["Example : Yukawa couplings", "Subsection",
26367	CellChangeTimes->{{3.714653803679809^9, 3.714653813127017^9}}],
26368
26369	Cell[BoxData[
26370	RowBox[{
26371	RowBox[{"LYuk", " ", "=", " ",
26372	RowBox[{
26373	RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}]}],
26374	";"}]], "Input",
26375	CellChangeTimes->{{3.71465381867803^9, 3.7146538339978323`^9},
26376	3.714653880639667^9, {3.7146539581117077`^9, 3.714653960288474*^9}, {
26377	3.714656312155267^9, 3.7146563157427807`^9}, {3.7146564182116413`*^9,
26378	3.714656421562209^9}, {3.714656653224125^9,
26379	3.7146566537421703`*^9}},ExpressionUUID->"8d699341-7e16-4b0e-ad8b-\
26380	322b805ea828"],
26381
26382	Cell[CellGroupData[{
26383
26384	Cell[BoxData[
26385	RowBox[{"hff", "=",
26386	RowBox[{
26387	RowBox[{
26388	RowBox[{"FeynmanRules", "[",
26389	RowBox[{"LYuk", ",",
26390	RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
26391	RowBox[{"Contains", "\[Rule]",
26392	RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//",
26393	"TableForm"}]}]], "Input",
26394	CellChangeTimes->{{3.714653838776801*^9,
26395	3.7146538891931353`*^9}},ExpressionUUID->"0cf1f12e-c836-4def-8403-\
26396	813cdfd899a8"],
26397
26398	Cell[CellGroupData[{
26399
26400	Cell[BoxData[
26401	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
26402	StripOnInput->False,
26403	LineColor->RGBColor[1, 0.5, 0],
26404	FrontFaceColor->RGBColor[1, 0.5, 0],
26405	BackFaceColor->RGBColor[1, 0.5, 0],
26406	GraphicsColor->RGBColor[1, 0.5, 0],
26407	FontWeight->Bold,
26408	FontColor->RGBColor[1, 0.5, 0]]], "Print",
26409	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
26410	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
26411	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
26412	3.714656957164216*^9,
26413	3.729588657929446*^9},ExpressionUUID->"af8fdc55-15d1-478e-845e-\
26414	9b7392b194c6"],
26415
26416	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
26417	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
26418	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
26419	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
26420	3.714656957164216*^9,
26421	3.729588657930336*^9},ExpressionUUID->"ca0caffd-f374-495a-9cd9-\
26422	845682e93750"],
26423
26424	Cell[BoxData[
26425	InterpretationBox[
26426	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
26427	"\[InvisibleSpace]", "\<\" cores\"\>"}],
26428	SequenceForm["Expanding the indices over ", 2, " cores"],
26429	Editable->False]], "Print",
26430	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
26431	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
26432	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
26433	3.714656957164216*^9,
26434	3.7295886579326572`*^9},ExpressionUUID->"da0ede2a-bf73-4cfe-b788-\
26435	2ad5d54321da"],
26436
26437	Cell[BoxData["\<\"Collecting the different structures that enter the \
26438	vertex.\"\>"], "Print",
26439	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
26440	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
26441	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
26442	3.714656957164216*^9,
26443	3.729588661775419*^9},ExpressionUUID->"21cf9ff6-635a-48a7-a784-\
26444	fdda062db8ee"],
26445
26446	Cell[BoxData[
26447	InterpretationBox[
26448	RowBox[{
26449	"3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
26450	-> starting the computation: \"\>", "\[InvisibleSpace]",
26451	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
26452	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
26453	"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
26454	SequenceForm[
26455	3, " possible non-zero vertices have been found -> starting the \
26456	computation: ",
26457	Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
26458	Editable->False]], "Print",
26459	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
26460	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
26461	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
26462	3.714656957164216*^9,
26463	3.729588661804522*^9},ExpressionUUID->"e383cf82-adbd-47a3-b2fc-\
26464	4788544d52ad"],
26465
26466	Cell[BoxData[
26467	InterpretationBox[
26468	RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
26469	SequenceForm[3, " vertices obtained."],
26470	Editable->False]], "Print",
26471	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
26472	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
26473	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
26474	3.714656957164216*^9,
26475	3.729588662690753*^9},ExpressionUUID->"26ebdd16-5cab-43e5-92e3-\
26476	1fc0d1d2ae43"]
26477	}, Open ]],
26478
26479	Cell[BoxData[
26480	InterpretationBox[GridBox[{
26481	{GridBox[{
26482	{
26483	OverscriptBox["dq", "\<\"-\"\>"], "1"},
26484	{"dq", "2"},
26485	{"H", "3"}
26486	},
26487	GridBoxAlignment->{
26488	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
26489	"RowsIndexed" -> {}},
26490	GridBoxSpacings->{"Columns" -> {
26491	Offset[0.27999999999999997`], {
26492	Offset[0.7]},
26493	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
26494	Offset[0.2], {
26495	Offset[0.1]},
26496	Offset[0.2]}, "RowsIndexed" -> {}}],
26497	RowBox[{
26498	FractionBox[
26499	RowBox[{"\[ImaginaryI]", " ",
26500	SubscriptBox["\[CapitalDelta]c", "dH"], " ",
26501	SuperscriptBox[
26502	OverscriptBox["v", "^"], "2"], " ",
26503	SubscriptBox["\[Delta]",
26504	RowBox[{
26505	SubscriptBox["\<\"m\"\>", "1"], ",",
26506	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26507	RowBox[{"(",
26508	RowBox[{
26509	RowBox[{
26510	SubscriptBox[
26511	SubscriptBox["P", "\<\"+\"\>"],
26512	RowBox[{
26513	SubscriptBox["\<\"s\"\>", "1"], ",",
26514	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26515	RowBox[{"(",
26516	RowBox[{
26517	RowBox[{"3", " ",
26518	SubscriptBox[
26519	TemplateBox[{"S","d"},
26520	"Superscript"],
26521	RowBox[{"Generation$1", ",",
26522	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
26523	SubscriptBox[
26524	TemplateBox[{"S","d"},
26525	"Superscript"],
26526	RowBox[{
26527	SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}],
26528	")"}], " ",
26529	SubscriptBox[
26530	TemplateBox[{"y","d"},
26531	"Superscript"],
26532	RowBox[{"Generation$1", ",",
26533	SubscriptBox["\<\"f\"\>", "1"]}]]}], "-",
26534	RowBox[{
26535	SubscriptBox[
26536	SubscriptBox["P", "\<\"-\"\>"],
26537	RowBox[{
26538	SubscriptBox["\<\"s\"\>", "1"], ",",
26539	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26540	RowBox[{"(",
26541	RowBox[{
26542	SubscriptBox[
26543	TemplateBox[{"S","d"},
26544	"Superscript"],
26545	RowBox[{"Generation$1", ",",
26546	SubscriptBox["\<\"f\"\>", "1"]}]], "-",
26547	RowBox[{"3", " ",
26548	SubscriptBox[
26549	TemplateBox[{"S","d"},
26550	"Superscript"],
26551	RowBox[{
26552	SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}],
26553	")"}], " ",
26554	SubscriptBox[
26555	TemplateBox[{"y","d"},
26556	"Superscript"],
26557	RowBox[{"Generation$1", ",",
26558	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
26559	RowBox[{"2", " ",
26560	SqrtBox["2"], " ",
26561	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
26562	FractionBox[
26563	RowBox[{"\[ImaginaryI]", " ",
26564	SubscriptBox["\[Delta]",
26565	RowBox[{
26566	SubscriptBox["\<\"m\"\>", "1"], ",",
26567	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26568	RowBox[{"(",
26569	RowBox[{
26570	RowBox[{
26571	SubscriptBox[
26572	SubscriptBox["P", "\<\"-\"\>"],
26573	RowBox[{
26574	SubscriptBox["\<\"s\"\>", "1"], ",",
26575	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26576	SubscriptBox[
26577	TemplateBox[{"y","d"},
26578	"Superscript"],
26579	RowBox[{
26580	SubscriptBox["\<\"f\"\>", "1"], ",",
26581	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26582	RowBox[{
26583	SubscriptBox[
26584	SubscriptBox["P", "\<\"+\"\>"],
26585	RowBox[{
26586	SubscriptBox["\<\"s\"\>", "1"], ",",
26587	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26588	SubscriptBox[
26589	TemplateBox[{"y","d"},
26590	"Superscript"],
26591	RowBox[{
26592	SubscriptBox["\<\"f\"\>", "2"], ",",
26593	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26594	SqrtBox["2"]], "+",
26595	RowBox[{
26596	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ",
26597	SubscriptBox["\[Delta]",
26598	RowBox[{
26599	SubscriptBox["\<\"m\"\>", "1"], ",",
26600	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26601	RowBox[{"(",
26602	RowBox[{
26603	RowBox[{
26604	SubscriptBox[
26605	SubscriptBox["P", "\<\"-\"\>"],
26606	RowBox[{
26607	SubscriptBox["\<\"s\"\>", "1"], ",",
26608	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26609	SubscriptBox[
26610	TemplateBox[{"y","d"},
26611	"Superscript"],
26612	RowBox[{
26613	SubscriptBox["\<\"f\"\>", "1"], ",",
26614	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26615	RowBox[{
26616	SubscriptBox[
26617	SubscriptBox["P", "\<\"+\"\>"],
26618	RowBox[{
26619	SubscriptBox["\<\"s\"\>", "1"], ",",
26620	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26621	SubscriptBox[
26622	TemplateBox[{"y","d"},
26623	"Superscript"],
26624	RowBox[{
26625	SubscriptBox["\<\"f\"\>", "2"], ",",
26626	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "+",
26627	FractionBox[
26628	RowBox[{"\[ImaginaryI]", " ",
26629	SubscriptBox["c", "dH"], " ",
26630	SuperscriptBox[
26631	OverscriptBox["v", "^"], "2"], " ",
26632	SubscriptBox["\[Delta]",
26633	RowBox[{
26634	SubscriptBox["\<\"m\"\>", "1"], ",",
26635	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26636	RowBox[{"(",
26637	RowBox[{
26638	RowBox[{
26639	SubscriptBox[
26640	SubscriptBox["P", "\<\"-\"\>"],
26641	RowBox[{
26642	SubscriptBox["\<\"s\"\>", "1"], ",",
26643	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26644	SubscriptBox[
26645	TemplateBox[{"y","d"},
26646	"Superscript"],
26647	RowBox[{
26648	SubscriptBox["\<\"f\"\>", "1"], ",",
26649	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26650	RowBox[{
26651	SubscriptBox[
26652	SubscriptBox["P", "\<\"+\"\>"],
26653	RowBox[{
26654	SubscriptBox["\<\"s\"\>", "1"], ",",
26655	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26656	SubscriptBox[
26657	TemplateBox[{"y","d"},
26658	"Superscript"],
26659	RowBox[{
26660	SubscriptBox["\<\"f\"\>", "2"], ",",
26661	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26662	RowBox[{
26663	SqrtBox["2"], " ",
26664	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
26665	FractionBox[
26666	RowBox[{"\[ImaginaryI]", " ",
26667	SubscriptBox["c",
26668	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
26669	SuperscriptBox[
26670	OverscriptBox["v", "^"], "2"], " ",
26671	SubscriptBox["\[Delta]",
26672	RowBox[{
26673	SubscriptBox["\<\"m\"\>", "1"], ",",
26674	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26675	RowBox[{"(",
26676	RowBox[{
26677	RowBox[{
26678	SubscriptBox[
26679	SubscriptBox["P", "\<\"-\"\>"],
26680	RowBox[{
26681	SubscriptBox["\<\"s\"\>", "1"], ",",
26682	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26683	SubscriptBox[
26684	TemplateBox[{"y","d"},
26685	"Superscript"],
26686	RowBox[{
26687	SubscriptBox["\<\"f\"\>", "1"], ",",
26688	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26689	RowBox[{
26690	SubscriptBox[
26691	SubscriptBox["P", "\<\"+\"\>"],
26692	RowBox[{
26693	SubscriptBox["\<\"s\"\>", "1"], ",",
26694	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26695	SubscriptBox[
26696	TemplateBox[{"y","d"},
26697	"Superscript"],
26698	RowBox[{
26699	SubscriptBox["\<\"f\"\>", "2"], ",",
26700	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26701	RowBox[{
26702	SqrtBox["2"], " ",
26703	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
26704	FractionBox[
26705	RowBox[{"\[ImaginaryI]", " ",
26706	SubscriptBox["c", "HD"], " ",
26707	SuperscriptBox[
26708	OverscriptBox["v", "^"], "2"], " ",
26709	SubscriptBox["\[Delta]",
26710	RowBox[{
26711	SubscriptBox["\<\"m\"\>", "1"], ",",
26712	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26713	RowBox[{"(",
26714	RowBox[{
26715	RowBox[{
26716	SubscriptBox[
26717	SubscriptBox["P", "\<\"-\"\>"],
26718	RowBox[{
26719	SubscriptBox["\<\"s\"\>", "1"], ",",
26720	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26721	SubscriptBox[
26722	TemplateBox[{"y","d"},
26723	"Superscript"],
26724	RowBox[{
26725	SubscriptBox["\<\"f\"\>", "1"], ",",
26726	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26727	RowBox[{
26728	SubscriptBox[
26729	SubscriptBox["P", "\<\"+\"\>"],
26730	RowBox[{
26731	SubscriptBox["\<\"s\"\>", "1"], ",",
26732	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26733	SubscriptBox[
26734	TemplateBox[{"y","d"},
26735	"Superscript"],
26736	RowBox[{
26737	SubscriptBox["\<\"f\"\>", "2"], ",",
26738	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26739	RowBox[{"4", " ",
26740	SqrtBox["2"], " ",
26741	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
26742	{GridBox[{
26743	{
26744	OverscriptBox["l", "\<\"-\"\>"], "1"},
26745	{"l", "2"},
26746	{"H", "3"}
26747	},
26748	GridBoxAlignment->{
26749	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
26750	"RowsIndexed" -> {}},
26751	GridBoxSpacings->{"Columns" -> {
26752	Offset[0.27999999999999997`], {
26753	Offset[0.7]},
26754	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
26755	Offset[0.2], {
26756	Offset[0.1]},
26757	Offset[0.2]}, "RowsIndexed" -> {}}],
26758	RowBox[{
26759	FractionBox[
26760	RowBox[{"3", " ", "\[ImaginaryI]", " ",
26761	SubscriptBox["c", "eH"], " ",
26762	SuperscriptBox[
26763	OverscriptBox["v", "^"], "2"], " ",
26764	RowBox[{"(",
26765	RowBox[{
26766	RowBox[{
26767	SubscriptBox[
26768	SubscriptBox["P", "\<\"-\"\>"],
26769	RowBox[{
26770	SubscriptBox["\<\"s\"\>", "1"], ",",
26771	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26772	SubscriptBox[
26773	TemplateBox[{"y","l"},
26774	"Superscript"],
26775	RowBox[{
26776	SubscriptBox["\<\"f\"\>", "1"], ",",
26777	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26778	RowBox[{
26779	SubscriptBox[
26780	SubscriptBox["P", "\<\"+\"\>"],
26781	RowBox[{
26782	SubscriptBox["\<\"s\"\>", "1"], ",",
26783	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26784	SubscriptBox[
26785	TemplateBox[{"y","l"},
26786	"Superscript"],
26787	RowBox[{
26788	SubscriptBox["\<\"f\"\>", "2"], ",",
26789	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26790	RowBox[{"2", " ",
26791	SqrtBox["2"], " ",
26792	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
26793	FractionBox[
26794	RowBox[{"\[ImaginaryI]", " ",
26795	RowBox[{"(",
26796	RowBox[{
26797	RowBox[{
26798	SubscriptBox[
26799	SubscriptBox["P", "\<\"-\"\>"],
26800	RowBox[{
26801	SubscriptBox["\<\"s\"\>", "1"], ",",
26802	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26803	SubscriptBox["yl0",
26804	RowBox[{
26805	SubscriptBox["\<\"f\"\>", "1"], ",",
26806	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26807	RowBox[{
26808	SubscriptBox[
26809	SubscriptBox["P", "\<\"+\"\>"],
26810	RowBox[{
26811	SubscriptBox["\<\"s\"\>", "1"], ",",
26812	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26813	SubscriptBox["yl0",
26814	RowBox[{
26815	SubscriptBox["\<\"f\"\>", "2"], ",",
26816	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26817	SqrtBox["2"]], "-",
26818	FractionBox[
26819	RowBox[{"\[ImaginaryI]", " ",
26820	SubscriptBox["c",
26821	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
26822	SuperscriptBox[
26823	OverscriptBox["v", "^"], "2"], " ",
26824	RowBox[{"(",
26825	RowBox[{
26826	RowBox[{
26827	SubscriptBox[
26828	SubscriptBox["P", "\<\"-\"\>"],
26829	RowBox[{
26830	SubscriptBox["\<\"s\"\>", "1"], ",",
26831	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26832	SubscriptBox["yl0",
26833	RowBox[{
26834	SubscriptBox["\<\"f\"\>", "1"], ",",
26835	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26836	RowBox[{
26837	SubscriptBox[
26838	SubscriptBox["P", "\<\"+\"\>"],
26839	RowBox[{
26840	SubscriptBox["\<\"s\"\>", "1"], ",",
26841	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26842	SubscriptBox["yl0",
26843	RowBox[{
26844	SubscriptBox["\<\"f\"\>", "2"], ",",
26845	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26846	RowBox[{
26847	SqrtBox["2"], " ",
26848	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
26849	FractionBox[
26850	RowBox[{"\[ImaginaryI]", " ",
26851	SubscriptBox["c", "HD"], " ",
26852	SuperscriptBox[
26853	OverscriptBox["v", "^"], "2"], " ",
26854	RowBox[{"(",
26855	RowBox[{
26856	RowBox[{
26857	SubscriptBox[
26858	SubscriptBox["P", "\<\"-\"\>"],
26859	RowBox[{
26860	SubscriptBox["\<\"s\"\>", "1"], ",",
26861	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26862	SubscriptBox["yl0",
26863	RowBox[{
26864	SubscriptBox["\<\"f\"\>", "1"], ",",
26865	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26866	RowBox[{
26867	SubscriptBox[
26868	SubscriptBox["P", "\<\"+\"\>"],
26869	RowBox[{
26870	SubscriptBox["\<\"s\"\>", "1"], ",",
26871	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26872	SubscriptBox["yl0",
26873	RowBox[{
26874	SubscriptBox["\<\"f\"\>", "2"], ",",
26875	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26876	RowBox[{"4", " ",
26877	SqrtBox["2"], " ",
26878	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
26879	{GridBox[{
26880	{
26881	OverscriptBox["uq", "\<\"-\"\>"], "1"},
26882	{"uq", "2"},
26883	{"H", "3"}
26884	},
26885	GridBoxAlignment->{
26886	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
26887	"RowsIndexed" -> {}},
26888	GridBoxSpacings->{"Columns" -> {
26889	Offset[0.27999999999999997`], {
26890	Offset[0.7]},
26891	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
26892	Offset[0.2], {
26893	Offset[0.1]},
26894	Offset[0.2]}, "RowsIndexed" -> {}}],
26895	RowBox[{
26896	FractionBox[
26897	RowBox[{"\[ImaginaryI]", " ",
26898	SubscriptBox["\[CapitalDelta]c", "uH"], " ",
26899	SuperscriptBox[
26900	OverscriptBox["v", "^"], "2"], " ",
26901	SubscriptBox["\[Delta]",
26902	RowBox[{
26903	SubscriptBox["\<\"m\"\>", "1"], ",",
26904	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26905	RowBox[{"(",
26906	RowBox[{
26907	RowBox[{
26908	SubscriptBox[
26909	SubscriptBox["P", "\<\"+\"\>"],
26910	RowBox[{
26911	SubscriptBox["\<\"s\"\>", "1"], ",",
26912	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26913	RowBox[{"(",
26914	RowBox[{
26915	RowBox[{"3", " ",
26916	SubscriptBox[
26917	TemplateBox[{"S","u"},
26918	"Superscript"],
26919	RowBox[{"Generation$1", ",",
26920	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
26921	SubscriptBox[
26922	TemplateBox[{"S","u"},
26923	"Superscript"],
26924	RowBox[{
26925	SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}],
26926	")"}], " ",
26927	SubscriptBox[
26928	TemplateBox[{"y","u"},
26929	"Superscript"],
26930	RowBox[{"Generation$1", ",",
26931	SubscriptBox["\<\"f\"\>", "1"]}]]}], "-",
26932	RowBox[{
26933	SubscriptBox[
26934	SubscriptBox["P", "\<\"-\"\>"],
26935	RowBox[{
26936	SubscriptBox["\<\"s\"\>", "1"], ",",
26937	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26938	RowBox[{"(",
26939	RowBox[{
26940	SubscriptBox[
26941	TemplateBox[{"S","u"},
26942	"Superscript"],
26943	RowBox[{"Generation$1", ",",
26944	SubscriptBox["\<\"f\"\>", "1"]}]], "-",
26945	RowBox[{"3", " ",
26946	SubscriptBox[
26947	TemplateBox[{"S","u"},
26948	"Superscript"],
26949	RowBox[{
26950	SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}],
26951	")"}], " ",
26952	SubscriptBox[
26953	TemplateBox[{"y","u"},
26954	"Superscript"],
26955	RowBox[{"Generation$1", ",",
26956	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
26957	RowBox[{"2", " ",
26958	SqrtBox["2"], " ",
26959	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
26960	FractionBox[
26961	RowBox[{"\[ImaginaryI]", " ",
26962	SubscriptBox["\[Delta]",
26963	RowBox[{
26964	SubscriptBox["\<\"m\"\>", "1"], ",",
26965	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26966	RowBox[{"(",
26967	RowBox[{
26968	RowBox[{
26969	SubscriptBox[
26970	SubscriptBox["P", "\<\"-\"\>"],
26971	RowBox[{
26972	SubscriptBox["\<\"s\"\>", "1"], ",",
26973	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26974	SubscriptBox[
26975	TemplateBox[{"y","u"},
26976	"Superscript"],
26977	RowBox[{
26978	SubscriptBox["\<\"f\"\>", "1"], ",",
26979	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
26980	RowBox[{
26981	SubscriptBox[
26982	SubscriptBox["P", "\<\"+\"\>"],
26983	RowBox[{
26984	SubscriptBox["\<\"s\"\>", "1"], ",",
26985	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
26986	SubscriptBox[
26987	TemplateBox[{"y","u"},
26988	"Superscript"],
26989	RowBox[{
26990	SubscriptBox["\<\"f\"\>", "2"], ",",
26991	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
26992	SqrtBox["2"]], "+",
26993	RowBox[{
26994	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ",
26995	SubscriptBox["\[Delta]",
26996	RowBox[{
26997	SubscriptBox["\<\"m\"\>", "1"], ",",
26998	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
26999	RowBox[{"(",
27000	RowBox[{
27001	RowBox[{
27002	SubscriptBox[
27003	SubscriptBox["P", "\<\"-\"\>"],
27004	RowBox[{
27005	SubscriptBox["\<\"s\"\>", "1"], ",",
27006	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27007	SubscriptBox[
27008	TemplateBox[{"y","u"},
27009	"Superscript"],
27010	RowBox[{
27011	SubscriptBox["\<\"f\"\>", "1"], ",",
27012	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
27013	RowBox[{
27014	SubscriptBox[
27015	SubscriptBox["P", "\<\"+\"\>"],
27016	RowBox[{
27017	SubscriptBox["\<\"s\"\>", "1"], ",",
27018	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27019	SubscriptBox[
27020	TemplateBox[{"y","u"},
27021	"Superscript"],
27022	RowBox[{
27023	SubscriptBox["\<\"f\"\>", "2"], ",",
27024	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "-",
27025	FractionBox[
27026	RowBox[{"\[ImaginaryI]", " ",
27027	SubscriptBox["c",
27028	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
27029	SuperscriptBox[
27030	OverscriptBox["v", "^"], "2"], " ",
27031	SubscriptBox["\[Delta]",
27032	RowBox[{
27033	SubscriptBox["\<\"m\"\>", "1"], ",",
27034	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
27035	RowBox[{"(",
27036	RowBox[{
27037	RowBox[{
27038	SubscriptBox[
27039	SubscriptBox["P", "\<\"-\"\>"],
27040	RowBox[{
27041	SubscriptBox["\<\"s\"\>", "1"], ",",
27042	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27043	SubscriptBox[
27044	TemplateBox[{"y","u"},
27045	"Superscript"],
27046	RowBox[{
27047	SubscriptBox["\<\"f\"\>", "1"], ",",
27048	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
27049	RowBox[{
27050	SubscriptBox[
27051	SubscriptBox["P", "\<\"+\"\>"],
27052	RowBox[{
27053	SubscriptBox["\<\"s\"\>", "1"], ",",
27054	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27055	SubscriptBox[
27056	TemplateBox[{"y","u"},
27057	"Superscript"],
27058	RowBox[{
27059	SubscriptBox["\<\"f\"\>", "2"], ",",
27060	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
27061	RowBox[{
27062	SqrtBox["2"], " ",
27063	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
27064	FractionBox[
27065	RowBox[{"\[ImaginaryI]", " ",
27066	SubscriptBox["c", "HD"], " ",
27067	SuperscriptBox[
27068	OverscriptBox["v", "^"], "2"], " ",
27069	SubscriptBox["\[Delta]",
27070	RowBox[{
27071	SubscriptBox["\<\"m\"\>", "1"], ",",
27072	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
27073	RowBox[{"(",
27074	RowBox[{
27075	RowBox[{
27076	SubscriptBox[
27077	SubscriptBox["P", "\<\"-\"\>"],
27078	RowBox[{
27079	SubscriptBox["\<\"s\"\>", "1"], ",",
27080	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27081	SubscriptBox[
27082	TemplateBox[{"y","u"},
27083	"Superscript"],
27084	RowBox[{
27085	SubscriptBox["\<\"f\"\>", "1"], ",",
27086	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
27087	RowBox[{
27088	SubscriptBox[
27089	SubscriptBox["P", "\<\"+\"\>"],
27090	RowBox[{
27091	SubscriptBox["\<\"s\"\>", "1"], ",",
27092	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27093	SubscriptBox[
27094	TemplateBox[{"y","u"},
27095	"Superscript"],
27096	RowBox[{
27097	SubscriptBox["\<\"f\"\>", "2"], ",",
27098	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
27099	RowBox[{"4", " ",
27100	SqrtBox["2"], " ",
27101	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
27102	FractionBox[
27103	RowBox[{"\[ImaginaryI]", " ",
27104	SubscriptBox["c", "uH"], " ",
27105	SuperscriptBox[
27106	OverscriptBox["v", "^"], "2"], " ",
27107	SubscriptBox["\[Delta]",
27108	RowBox[{
27109	SubscriptBox["\<\"m\"\>", "1"], ",",
27110	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
27111	RowBox[{"(",
27112	RowBox[{
27113	RowBox[{
27114	SubscriptBox[
27115	SubscriptBox["P", "\<\"-\"\>"],
27116	RowBox[{
27117	SubscriptBox["\<\"s\"\>", "1"], ",",
27118	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27119	SubscriptBox[
27120	TemplateBox[{"y","u"},
27121	"Superscript"],
27122	RowBox[{
27123	SubscriptBox["\<\"f\"\>", "1"], ",",
27124	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
27125	RowBox[{
27126	SubscriptBox[
27127	SubscriptBox["P", "\<\"+\"\>"],
27128	RowBox[{
27129	SubscriptBox["\<\"s\"\>", "1"], ",",
27130	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
27131	SubscriptBox[
27132	TemplateBox[{"y","u"},
27133	"Superscript"],
27134	RowBox[{
27135	SubscriptBox["\<\"f\"\>", "2"], ",",
27136	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
27137	RowBox[{
27138	SqrtBox["2"], " ",
27139	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
27140	},
27141	GridBoxAlignment->{
27142	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27143	"RowsIndexed" -> {}},
27144	GridBoxSpacings->{"Columns" -> {
27145	Offset[0.27999999999999997`], {
27146	Offset[2.0999999999999996`]},
27147	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27148	Offset[0.2], {
27149	Offset[0.4]},
27150	Offset[0.2]}, "RowsIndexed" -> {}}],
27151	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
27152	FeynRules`H, 3}}, Complex[0,
27153	Rational[1, 2]]
27154	2^Rational[-1,
27155	2] $CellContext`DeltacdH $CellContext`LambdaSMEFT^(-2) \
27156	$CellContext`vevhat^2 FeynRules`IndexDelta[
27157	FeynRules`Index[FeynRules`Colour,
27158	FeynRules`Ext[1]],
27159	FeynRules`Index[FeynRules`Colour,
27160	FeynRules`Ext[2]]] (FeynRules`ProjP[
27161	FeynRules`Index[FeynRules`Spin,
27162	FeynRules`Ext[1]],
27163	FeynRules`Index[FeynRules`Spin,
27164	FeynRules`Ext[2]]] (3 $CellContext`Sd[
27165
27166	FeynRules`Index[$CellContext`Generation, \
27167	$CellContext`Generation$1],
27168	FeynRules`Index[$CellContext`Generation,
27169	FeynRules`Ext[2]]] - $CellContext`Sd[
27170	FeynRules`Index[$CellContext`Generation,
27171	FeynRules`Ext[2]],
27172
27173	FeynRules`Index[$CellContext`Generation, \
27174	$CellContext`Generation$1]]) $CellContext`yd[
27175	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
27176	FeynRules`Index[$CellContext`Generation,
27177	FeynRules`Ext[1]]] - FeynRules`ProjM[
27178	FeynRules`Index[FeynRules`Spin,
27179	FeynRules`Ext[1]],
27180	FeynRules`Index[FeynRules`Spin,
27181	FeynRules`Ext[2]]] ($CellContext`Sd[
27182	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
27183	FeynRules`Index[$CellContext`Generation,
27184	FeynRules`Ext[1]]] - 3 $CellContext`Sd[
27185	FeynRules`Index[$CellContext`Generation,
27186	FeynRules`Ext[1]],
27187
27188	FeynRules`Index[$CellContext`Generation, \
27189	$CellContext`Generation$1]]) $CellContext`yd[
27190	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
27191
27192	FeynRules`Index[$CellContext`Generation,
27193	FeynRules`Ext[2]]]) +
27194	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
27195	FeynRules`Index[FeynRules`Colour,
27196	FeynRules`Ext[1]],
27197	FeynRules`Index[FeynRules`Colour,
27198	FeynRules`Ext[2]]] (FeynRules`ProjM[
27199	FeynRules`Index[FeynRules`Spin,
27200	FeynRules`Ext[1]],
27201	FeynRules`Index[FeynRules`Spin,
27202	FeynRules`Ext[2]]] $CellContext`yd[
27203	FeynRules`Index[$CellContext`Generation,
27204	FeynRules`Ext[1]],
27205	FeynRules`Index[$CellContext`Generation,
27206	FeynRules`Ext[2]]] + FeynRules`ProjP[
27207	FeynRules`Index[FeynRules`Spin,
27208	FeynRules`Ext[1]],
27209	FeynRules`Index[FeynRules`Spin,
27210	FeynRules`Ext[2]]] $CellContext`yd[
27211	FeynRules`Index[$CellContext`Generation,
27212	FeynRules`Ext[2]],
27213	FeynRules`Index[$CellContext`Generation,
27214	FeynRules`Ext[1]]]) + Complex[0,
27215	Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
27216	FeynRules`Index[FeynRules`Colour,
27217	FeynRules`Ext[1]],
27218	FeynRules`Index[FeynRules`Colour,
27219	FeynRules`Ext[2]]] (FeynRules`ProjM[
27220	FeynRules`Index[FeynRules`Spin,
27221	FeynRules`Ext[1]],
27222	FeynRules`Index[FeynRules`Spin,
27223	FeynRules`Ext[2]]] $CellContext`yd[
27224	FeynRules`Index[$CellContext`Generation,
27225	FeynRules`Ext[1]],
27226	FeynRules`Index[$CellContext`Generation,
27227	FeynRules`Ext[2]]] + FeynRules`ProjP[
27228	FeynRules`Index[FeynRules`Spin,
27229	FeynRules`Ext[1]],
27230	FeynRules`Index[FeynRules`Spin,
27231	FeynRules`Ext[2]]] $CellContext`yd[
27232	FeynRules`Index[$CellContext`Generation,
27233	FeynRules`Ext[2]],
27234	FeynRules`Index[$CellContext`Generation,
27235	FeynRules`Ext[1]]]) +
27236	Complex[0, 1]
27237	2^Rational[-1,
27238	2] $CellContext`cdH0 $CellContext`LambdaSMEFT^(-2) \
27239	$CellContext`vevhat^2 FeynRules`IndexDelta[
27240	FeynRules`Index[FeynRules`Colour,
27241	FeynRules`Ext[1]],
27242	FeynRules`Index[FeynRules`Colour,
27243	FeynRules`Ext[2]]] (FeynRules`ProjM[
27244	FeynRules`Index[FeynRules`Spin,
27245	FeynRules`Ext[1]],
27246	FeynRules`Index[FeynRules`Spin,
27247	FeynRules`Ext[2]]] $CellContext`yd[
27248	FeynRules`Index[$CellContext`Generation,
27249	FeynRules`Ext[1]],
27250	FeynRules`Index[$CellContext`Generation,
27251	FeynRules`Ext[2]]] + FeynRules`ProjP[
27252	FeynRules`Index[FeynRules`Spin,
27253	FeynRules`Ext[1]],
27254	FeynRules`Index[FeynRules`Spin,
27255	FeynRules`Ext[2]]] $CellContext`yd[
27256	FeynRules`Index[$CellContext`Generation,
27257	FeynRules`Ext[2]],
27258	FeynRules`Index[$CellContext`Generation,
27259	FeynRules`Ext[1]]]) +
27260	Complex[0, -1]
27261	2^Rational[-1,
27262	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
27263	$CellContext`vevhat^2 FeynRules`IndexDelta[
27264	FeynRules`Index[FeynRules`Colour,
27265	FeynRules`Ext[1]],
27266	FeynRules`Index[FeynRules`Colour,
27267	FeynRules`Ext[2]]] (FeynRules`ProjM[
27268	FeynRules`Index[FeynRules`Spin,
27269	FeynRules`Ext[1]],
27270	FeynRules`Index[FeynRules`Spin,
27271	FeynRules`Ext[2]]] $CellContext`yd[
27272	FeynRules`Index[$CellContext`Generation,
27273	FeynRules`Ext[1]],
27274	FeynRules`Index[$CellContext`Generation,
27275	FeynRules`Ext[2]]] + FeynRules`ProjP[
27276	FeynRules`Index[FeynRules`Spin,
27277	FeynRules`Ext[1]],
27278	FeynRules`Index[FeynRules`Spin,
27279	FeynRules`Ext[2]]] $CellContext`yd[
27280	FeynRules`Index[$CellContext`Generation,
27281	FeynRules`Ext[2]],
27282	FeynRules`Index[$CellContext`Generation,
27283	FeynRules`Ext[1]]]) + Complex[0,
27284	Rational[1, 4]]
27285	2^Rational[-1,
27286	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
27287	$CellContext`vevhat^2 FeynRules`IndexDelta[
27288	FeynRules`Index[FeynRules`Colour,
27289	FeynRules`Ext[1]],
27290	FeynRules`Index[FeynRules`Colour,
27291	FeynRules`Ext[2]]] (FeynRules`ProjM[
27292	FeynRules`Index[FeynRules`Spin,
27293	FeynRules`Ext[1]],
27294	FeynRules`Index[FeynRules`Spin,
27295	FeynRules`Ext[2]]] $CellContext`yd[
27296	FeynRules`Index[$CellContext`Generation,
27297	FeynRules`Ext[1]],
27298	FeynRules`Index[$CellContext`Generation,
27299	FeynRules`Ext[2]]] + FeynRules`ProjP[
27300	FeynRules`Index[FeynRules`Spin,
27301	FeynRules`Ext[1]],
27302	FeynRules`Index[FeynRules`Spin,
27303	FeynRules`Ext[2]]] $CellContext`yd[
27304	FeynRules`Index[$CellContext`Generation,
27305	FeynRules`Ext[2]],
27306	FeynRules`Index[$CellContext`Generation,
27307	FeynRules`Ext[1]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
27308	FeynRules`H, 3}}, Complex[0,
27309	Rational[3, 2]]
27310	2^Rational[-1,
27311	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
27312	$CellContext`vevhat^2 (FeynRules`ProjM[
27313	FeynRules`Index[FeynRules`Spin,
27314	FeynRules`Ext[1]],
27315	FeynRules`Index[FeynRules`Spin,
27316	FeynRules`Ext[2]]] $CellContext`yl[
27317	FeynRules`Index[$CellContext`Generation,
27318	FeynRules`Ext[1]],
27319	FeynRules`Index[$CellContext`Generation,
27320	FeynRules`Ext[2]]] + FeynRules`ProjP[
27321	FeynRules`Index[FeynRules`Spin,
27322	FeynRules`Ext[1]],
27323	FeynRules`Index[FeynRules`Spin,
27324	FeynRules`Ext[2]]] $CellContext`yl[
27325	FeynRules`Index[$CellContext`Generation,
27326	FeynRules`Ext[2]],
27327	FeynRules`Index[$CellContext`Generation,
27328	FeynRules`Ext[1]]]) +
27329	Complex[0, -1] 2^Rational[-1, 2] (FeynRules`ProjM[
27330	FeynRules`Index[FeynRules`Spin,
27331	FeynRules`Ext[1]],
27332	FeynRules`Index[FeynRules`Spin,
27333	FeynRules`Ext[2]]] $CellContext`yl0[
27334	FeynRules`Index[$CellContext`Generation,
27335	FeynRules`Ext[1]],
27336	FeynRules`Index[$CellContext`Generation,
27337	FeynRules`Ext[2]]] + FeynRules`ProjP[
27338	FeynRules`Index[FeynRules`Spin,
27339	FeynRules`Ext[1]],
27340	FeynRules`Index[FeynRules`Spin,
27341	FeynRules`Ext[2]]] $CellContext`yl0[
27342	FeynRules`Index[$CellContext`Generation,
27343	FeynRules`Ext[2]],
27344	FeynRules`Index[$CellContext`Generation,
27345	FeynRules`Ext[1]]]) +
27346	Complex[0, -1]
27347	2^Rational[-1,
27348	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
27349	$CellContext`vevhat^2 (FeynRules`ProjM[
27350	FeynRules`Index[FeynRules`Spin,
27351	FeynRules`Ext[1]],
27352	FeynRules`Index[FeynRules`Spin,
27353	FeynRules`Ext[2]]] $CellContext`yl0[
27354	FeynRules`Index[$CellContext`Generation,
27355	FeynRules`Ext[1]],
27356	FeynRules`Index[$CellContext`Generation,
27357	FeynRules`Ext[2]]] + FeynRules`ProjP[
27358	FeynRules`Index[FeynRules`Spin,
27359	FeynRules`Ext[1]],
27360	FeynRules`Index[FeynRules`Spin,
27361	FeynRules`Ext[2]]] $CellContext`yl0[
27362	FeynRules`Index[$CellContext`Generation,
27363	FeynRules`Ext[2]],
27364	FeynRules`Index[$CellContext`Generation,
27365	FeynRules`Ext[1]]]) + Complex[0,
27366	Rational[1, 4]]
27367	2^Rational[-1,
27368	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
27369	$CellContext`vevhat^2 (FeynRules`ProjM[
27370	FeynRules`Index[FeynRules`Spin,
27371	FeynRules`Ext[1]],
27372	FeynRules`Index[FeynRules`Spin,
27373	FeynRules`Ext[2]]] $CellContext`yl0[
27374	FeynRules`Index[$CellContext`Generation,
27375	FeynRules`Ext[1]],
27376	FeynRules`Index[$CellContext`Generation,
27377	FeynRules`Ext[2]]] + FeynRules`ProjP[
27378	FeynRules`Index[FeynRules`Spin,
27379	FeynRules`Ext[1]],
27380	FeynRules`Index[FeynRules`Spin,
27381	FeynRules`Ext[2]]] $CellContext`yl0[
27382	FeynRules`Index[$CellContext`Generation,
27383	FeynRules`Ext[2]],
27384	FeynRules`Index[$CellContext`Generation,
27385	FeynRules`Ext[1]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
27386	2}, {FeynRules`H, 3}}, Complex[0,
27387	Rational[1, 2]]
27388	2^Rational[-1,
27389	2] $CellContext`DeltacuH $CellContext`LambdaSMEFT^(-2) \
27390	$CellContext`vevhat^2 FeynRules`IndexDelta[
27391	FeynRules`Index[FeynRules`Colour,
27392	FeynRules`Ext[1]],
27393	FeynRules`Index[FeynRules`Colour,
27394	FeynRules`Ext[2]]] (FeynRules`ProjP[
27395	FeynRules`Index[FeynRules`Spin,
27396	FeynRules`Ext[1]],
27397	FeynRules`Index[FeynRules`Spin,
27398	FeynRules`Ext[2]]] (3 $CellContext`Su[
27399
27400	FeynRules`Index[$CellContext`Generation, \
27401	$CellContext`Generation$1],
27402	FeynRules`Index[$CellContext`Generation,
27403	FeynRules`Ext[2]]] - $CellContext`Su[
27404	FeynRules`Index[$CellContext`Generation,
27405	FeynRules`Ext[2]],
27406
27407	FeynRules`Index[$CellContext`Generation, \
27408	$CellContext`Generation$1]]) $CellContext`yu[
27409	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
27410	FeynRules`Index[$CellContext`Generation,
27411	FeynRules`Ext[1]]] - FeynRules`ProjM[
27412	FeynRules`Index[FeynRules`Spin,
27413	FeynRules`Ext[1]],
27414	FeynRules`Index[FeynRules`Spin,
27415	FeynRules`Ext[2]]] ($CellContext`Su[
27416	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
27417	FeynRules`Index[$CellContext`Generation,
27418	FeynRules`Ext[1]]] - 3 $CellContext`Su[
27419	FeynRules`Index[$CellContext`Generation,
27420	FeynRules`Ext[1]],
27421
27422	FeynRules`Index[$CellContext`Generation, \
27423	$CellContext`Generation$1]]) $CellContext`yu[
27424	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
27425
27426	FeynRules`Index[$CellContext`Generation,
27427	FeynRules`Ext[2]]]) +
27428	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
27429	FeynRules`Index[FeynRules`Colour,
27430	FeynRules`Ext[1]],
27431	FeynRules`Index[FeynRules`Colour,
27432	FeynRules`Ext[2]]] (FeynRules`ProjM[
27433	FeynRules`Index[FeynRules`Spin,
27434	FeynRules`Ext[1]],
27435	FeynRules`Index[FeynRules`Spin,
27436	FeynRules`Ext[2]]] $CellContext`yu[
27437	FeynRules`Index[$CellContext`Generation,
27438	FeynRules`Ext[1]],
27439	FeynRules`Index[$CellContext`Generation,
27440	FeynRules`Ext[2]]] + FeynRules`ProjP[
27441	FeynRules`Index[FeynRules`Spin,
27442	FeynRules`Ext[1]],
27443	FeynRules`Index[FeynRules`Spin,
27444	FeynRules`Ext[2]]] $CellContext`yu[
27445	FeynRules`Index[$CellContext`Generation,
27446	FeynRules`Ext[2]],
27447	FeynRules`Index[$CellContext`Generation,
27448	FeynRules`Ext[1]]]) + Complex[0,
27449	Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
27450	FeynRules`Index[FeynRules`Colour,
27451	FeynRules`Ext[1]],
27452	FeynRules`Index[FeynRules`Colour,
27453	FeynRules`Ext[2]]] (FeynRules`ProjM[
27454	FeynRules`Index[FeynRules`Spin,
27455	FeynRules`Ext[1]],
27456	FeynRules`Index[FeynRules`Spin,
27457	FeynRules`Ext[2]]] $CellContext`yu[
27458	FeynRules`Index[$CellContext`Generation,
27459	FeynRules`Ext[1]],
27460	FeynRules`Index[$CellContext`Generation,
27461	FeynRules`Ext[2]]] + FeynRules`ProjP[
27462	FeynRules`Index[FeynRules`Spin,
27463	FeynRules`Ext[1]],
27464	FeynRules`Index[FeynRules`Spin,
27465	FeynRules`Ext[2]]] $CellContext`yu[
27466	FeynRules`Index[$CellContext`Generation,
27467	FeynRules`Ext[2]],
27468	FeynRules`Index[$CellContext`Generation,
27469	FeynRules`Ext[1]]]) +
27470	Complex[0, -1]
27471	2^Rational[-1,
27472	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
27473	$CellContext`vevhat^2 FeynRules`IndexDelta[
27474	FeynRules`Index[FeynRules`Colour,
27475	FeynRules`Ext[1]],
27476	FeynRules`Index[FeynRules`Colour,
27477	FeynRules`Ext[2]]] (FeynRules`ProjM[
27478	FeynRules`Index[FeynRules`Spin,
27479	FeynRules`Ext[1]],
27480	FeynRules`Index[FeynRules`Spin,
27481	FeynRules`Ext[2]]] $CellContext`yu[
27482	FeynRules`Index[$CellContext`Generation,
27483	FeynRules`Ext[1]],
27484	FeynRules`Index[$CellContext`Generation,
27485	FeynRules`Ext[2]]] + FeynRules`ProjP[
27486	FeynRules`Index[FeynRules`Spin,
27487	FeynRules`Ext[1]],
27488	FeynRules`Index[FeynRules`Spin,
27489	FeynRules`Ext[2]]] $CellContext`yu[
27490	FeynRules`Index[$CellContext`Generation,
27491	FeynRules`Ext[2]],
27492	FeynRules`Index[$CellContext`Generation,
27493	FeynRules`Ext[1]]]) + Complex[0,
27494	Rational[1, 4]]
27495	2^Rational[-1,
27496	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
27497	$CellContext`vevhat^2 FeynRules`IndexDelta[
27498	FeynRules`Index[FeynRules`Colour,
27499	FeynRules`Ext[1]],
27500	FeynRules`Index[FeynRules`Colour,
27501	FeynRules`Ext[2]]] (FeynRules`ProjM[
27502	FeynRules`Index[FeynRules`Spin,
27503	FeynRules`Ext[1]],
27504	FeynRules`Index[FeynRules`Spin,
27505	FeynRules`Ext[2]]] $CellContext`yu[
27506	FeynRules`Index[$CellContext`Generation,
27507	FeynRules`Ext[1]],
27508	FeynRules`Index[$CellContext`Generation,
27509	FeynRules`Ext[2]]] + FeynRules`ProjP[
27510	FeynRules`Index[FeynRules`Spin,
27511	FeynRules`Ext[1]],
27512	FeynRules`Index[FeynRules`Spin,
27513	FeynRules`Ext[2]]] $CellContext`yu[
27514	FeynRules`Index[$CellContext`Generation,
27515	FeynRules`Ext[2]],
27516	FeynRules`Index[$CellContext`Generation,
27517	FeynRules`Ext[1]]]) +
27518	Complex[0, 1]
27519	2^Rational[-1,
27520	2] $CellContext`cuH0 $CellContext`LambdaSMEFT^(-2) \
27521	$CellContext`vevhat^2 FeynRules`IndexDelta[
27522	FeynRules`Index[FeynRules`Colour,
27523	FeynRules`Ext[1]],
27524	FeynRules`Index[FeynRules`Colour,
27525	FeynRules`Ext[2]]] (FeynRules`ProjM[
27526	FeynRules`Index[FeynRules`Spin,
27527	FeynRules`Ext[1]],
27528	FeynRules`Index[FeynRules`Spin,
27529	FeynRules`Ext[2]]] $CellContext`yu[
27530	FeynRules`Index[$CellContext`Generation,
27531	FeynRules`Ext[1]],
27532	FeynRules`Index[$CellContext`Generation,
27533	FeynRules`Ext[2]]] + FeynRules`ProjP[
27534	FeynRules`Index[FeynRules`Spin,
27535	FeynRules`Ext[1]],
27536	FeynRules`Index[FeynRules`Spin,
27537	FeynRules`Ext[2]]] $CellContext`yu[
27538	FeynRules`Index[$CellContext`Generation,
27539	FeynRules`Ext[2]],
27540	FeynRules`Index[$CellContext`Generation,
27541	FeynRules`Ext[1]]])}}]]], "Output",
27542	CellChangeTimes->{3.714656678968668^9, 3.7146568357978363`^9,
27543	3.714656962394742*^9,
27544	3.729588664901985*^9},ExpressionUUID->"1ee6735c-d47d-4e76-a4df-\
27545	94f672d19b2e"]
27546	}, Open ]],
27547
27548	Cell["Flavor expansion for the leptons' case", "Text",
27549	CellChangeTimes->{{3.7146540002012587`^9, 3.714654016686934^9}}],
27550
27551	Cell[CellGroupData[{
27552
27553	Cell[BoxData[
27554	RowBox[{"hll", "=",
27555	RowBox[{
27556	RowBox[{
27557	RowBox[{
27558	RowBox[{
27559	RowBox[{"{",
27560	RowBox[{"hff", "[",
27561	RowBox[{"[",
27562	RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//",
27563	"FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//",
27564	"TableForm"}]}]], "Input",
27565	CellChangeTimes->{{3.714653897213532*^9,
27566	3.714653998430573*^9}},ExpressionUUID->"c2dbceb0-16ea-4898-86d0-\
27567	98cbf49e5e18"],
27568
27569	Cell[BoxData[
27570	InterpretationBox[
27571	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
27572	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
27573	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
27574	"\[InvisibleSpace]", "1"}],
27575	SequenceForm["Flavor expansion of the vertices: ",
27576	Dynamic[FeynRules`FR$Count1], " / ", 1],
27577	Editable->False]], "Print",
27578	CellChangeTimes->{{3.714653911127839^9, 3.714653919833921^9}, {
27579	3.714653951564291^9, 3.71465401970082^9}, 3.714656836154119*^9, {
27580	3.71465696265897^9, 3.714656984380176^9},
27581	3.729588665065198*^9},ExpressionUUID->"f9b3db37-f64b-4871-bc5f-\
27582	98f260585624"],
27583
27584	Cell[BoxData[
27585	InterpretationBox[GridBox[{
27586	{GridBox[{
27587	{"H", "1"},
27588	{
27589	OverscriptBox["e", "\<\"-\"\>"], "2"},
27590	{"e", "3"}
27591	},
27592	GridBoxAlignment->{
27593	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27594	"RowsIndexed" -> {}},
27595	GridBoxSpacings->{"Columns" -> {
27596	Offset[0.27999999999999997`], {
27597	Offset[0.7]},
27598	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27599	Offset[0.2], {
27600	Offset[0.1]},
27601	Offset[0.2]}, "RowsIndexed" -> {}}],
27602	RowBox[{
27603	RowBox[{"-",
27604	FractionBox[
27605	RowBox[{"\[ImaginaryI]", " ", "ye", " ",
27606	SubscriptBox["\[Delta]",
27607	RowBox[{
27608	SubscriptBox["\<\"s\"\>", "2"], ",",
27609	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27610	SqrtBox["2"]]}], "+",
27611	RowBox[{
27612	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye",
27613	" ",
27614	SubscriptBox["\[Delta]",
27615	RowBox[{
27616	SubscriptBox["\<\"s\"\>", "2"], ",",
27617	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
27618	FractionBox[
27619	RowBox[{"\[ImaginaryI]", " ",
27620	SubscriptBox["c", "eH"], " ",
27621	SuperscriptBox[
27622	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
27623	SubscriptBox["\[Delta]",
27624	RowBox[{
27625	SubscriptBox["\<\"s\"\>", "2"], ",",
27626	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27627	RowBox[{
27628	SqrtBox["2"], " ",
27629	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
27630	FractionBox[
27631	RowBox[{"\[ImaginaryI]", " ",
27632	SubscriptBox["c",
27633	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
27634	SuperscriptBox[
27635	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
27636	SubscriptBox["\[Delta]",
27637	RowBox[{
27638	SubscriptBox["\<\"s\"\>", "2"], ",",
27639	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27640	RowBox[{
27641	SqrtBox["2"], " ",
27642	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
27643	FractionBox[
27644	RowBox[{"\[ImaginaryI]", " ",
27645	SubscriptBox["c", "HD"], " ",
27646	SuperscriptBox[
27647	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
27648	SubscriptBox["\[Delta]",
27649	RowBox[{
27650	SubscriptBox["\<\"s\"\>", "2"], ",",
27651	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27652	RowBox[{"4", " ",
27653	SqrtBox["2"], " ",
27654	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
27655	{GridBox[{
27656	{"H", "1"},
27657	{
27658	OverscriptBox["mu", "\<\"-\"\>"], "2"},
27659	{"mu", "3"}
27660	},
27661	GridBoxAlignment->{
27662	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27663	"RowsIndexed" -> {}},
27664	GridBoxSpacings->{"Columns" -> {
27665	Offset[0.27999999999999997`], {
27666	Offset[0.7]},
27667	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27668	Offset[0.2], {
27669	Offset[0.1]},
27670	Offset[0.2]}, "RowsIndexed" -> {}}],
27671	RowBox[{
27672	RowBox[{"-",
27673	FractionBox[
27674	RowBox[{"\[ImaginaryI]", " ", "ym", " ",
27675	SubscriptBox["\[Delta]",
27676	RowBox[{
27677	SubscriptBox["\<\"s\"\>", "2"], ",",
27678	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27679	SqrtBox["2"]]}], "+",
27680	RowBox[{
27681	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym",
27682	" ",
27683	SubscriptBox["\[Delta]",
27684	RowBox[{
27685	SubscriptBox["\<\"s\"\>", "2"], ",",
27686	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
27687	FractionBox[
27688	RowBox[{"\[ImaginaryI]", " ",
27689	SubscriptBox["c", "eH"], " ",
27690	SuperscriptBox[
27691	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
27692	SubscriptBox["\[Delta]",
27693	RowBox[{
27694	SubscriptBox["\<\"s\"\>", "2"], ",",
27695	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27696	RowBox[{
27697	SqrtBox["2"], " ",
27698	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
27699	FractionBox[
27700	RowBox[{"\[ImaginaryI]", " ",
27701	SubscriptBox["c",
27702	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
27703	SuperscriptBox[
27704	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
27705	SubscriptBox["\[Delta]",
27706	RowBox[{
27707	SubscriptBox["\<\"s\"\>", "2"], ",",
27708	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27709	RowBox[{
27710	SqrtBox["2"], " ",
27711	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
27712	FractionBox[
27713	RowBox[{"\[ImaginaryI]", " ",
27714	SubscriptBox["c", "HD"], " ",
27715	SuperscriptBox[
27716	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
27717	SubscriptBox["\[Delta]",
27718	RowBox[{
27719	SubscriptBox["\<\"s\"\>", "2"], ",",
27720	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27721	RowBox[{"4", " ",
27722	SqrtBox["2"], " ",
27723	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
27724	{GridBox[{
27725	{"H", "1"},
27726	{
27727	OverscriptBox["ta", "\<\"-\"\>"], "2"},
27728	{"ta", "3"}
27729	},
27730	GridBoxAlignment->{
27731	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27732	"RowsIndexed" -> {}},
27733	GridBoxSpacings->{"Columns" -> {
27734	Offset[0.27999999999999997`], {
27735	Offset[0.7]},
27736	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27737	Offset[0.2], {
27738	Offset[0.1]},
27739	Offset[0.2]}, "RowsIndexed" -> {}}],
27740	RowBox[{
27741	RowBox[{"-",
27742	FractionBox[
27743	RowBox[{"\[ImaginaryI]", " ", "ytau", " ",
27744	SubscriptBox["\[Delta]",
27745	RowBox[{
27746	SubscriptBox["\<\"s\"\>", "2"], ",",
27747	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27748	SqrtBox["2"]]}], "+",
27749	RowBox[{
27750	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau",
27751	" ",
27752	SubscriptBox["\[Delta]",
27753	RowBox[{
27754	SubscriptBox["\<\"s\"\>", "2"], ",",
27755	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
27756	FractionBox[
27757	RowBox[{"\[ImaginaryI]", " ",
27758	SubscriptBox["c", "eH"], " ",
27759	SuperscriptBox[
27760	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
27761	SubscriptBox["\[Delta]",
27762	RowBox[{
27763	SubscriptBox["\<\"s\"\>", "2"], ",",
27764	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27765	RowBox[{
27766	SqrtBox["2"], " ",
27767	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
27768	FractionBox[
27769	RowBox[{"\[ImaginaryI]", " ",
27770	SubscriptBox["c",
27771	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
27772	SuperscriptBox[
27773	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
27774	SubscriptBox["\[Delta]",
27775	RowBox[{
27776	SubscriptBox["\<\"s\"\>", "2"], ",",
27777	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27778	RowBox[{
27779	SqrtBox["2"], " ",
27780	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
27781	FractionBox[
27782	RowBox[{"\[ImaginaryI]", " ",
27783	SubscriptBox["c", "HD"], " ",
27784	SuperscriptBox[
27785	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
27786	SubscriptBox["\[Delta]",
27787	RowBox[{
27788	SubscriptBox["\<\"s\"\>", "2"], ",",
27789	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27790	RowBox[{"4", " ",
27791	SqrtBox["2"], " ",
27792	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
27793	},
27794	GridBoxAlignment->{
27795	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27796	"RowsIndexed" -> {}},
27797	GridBoxSpacings->{"Columns" -> {
27798	Offset[0.27999999999999997`], {
27799	Offset[2.0999999999999996`]},
27800	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27801	Offset[0.2], {
27802	Offset[0.4]},
27803	Offset[0.2]}, "RowsIndexed" -> {}}],
27804	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
27805	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
27806	FeynRules`Index[FeynRules`Spin,
27807	FeynRules`Ext[2]],
27808	FeynRules`Index[FeynRules`Spin,
27809	FeynRules`Ext[3]]] + Complex[0,
27810	Rational[1, 2]] $CellContext`dGf $CellContext`ye
27811	FeynRules`IndexDelta[
27812	FeynRules`Index[FeynRules`Spin,
27813	FeynRules`Ext[2]],
27814	FeynRules`Index[FeynRules`Spin,
27815	FeynRules`Ext[3]]] +
27816	Complex[0, 1]
27817	2^Rational[-1,
27818	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
27819	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
27820	FeynRules`Index[FeynRules`Spin,
27821	FeynRules`Ext[2]],
27822	FeynRules`Index[FeynRules`Spin,
27823	FeynRules`Ext[3]]] +
27824	Complex[0, -1]
27825	2^Rational[-1,
27826	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
27827	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
27828	FeynRules`Index[FeynRules`Spin,
27829	FeynRules`Ext[2]],
27830	FeynRules`Index[FeynRules`Spin,
27831	FeynRules`Ext[3]]] + Complex[0,
27832	Rational[1, 4]]
27833	2^Rational[-1,
27834	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
27835	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
27836	FeynRules`Index[FeynRules`Spin,
27837	FeynRules`Ext[2]],
27838	FeynRules`Index[FeynRules`Spin,
27839	FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
27840	FeynRules`mu, 3}},
27841	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
27842	FeynRules`Index[FeynRules`Spin,
27843	FeynRules`Ext[2]],
27844	FeynRules`Index[FeynRules`Spin,
27845	FeynRules`Ext[3]]] + Complex[0,
27846	Rational[1, 2]] $CellContext`dGf $CellContext`ym
27847	FeynRules`IndexDelta[
27848	FeynRules`Index[FeynRules`Spin,
27849	FeynRules`Ext[2]],
27850	FeynRules`Index[FeynRules`Spin,
27851	FeynRules`Ext[3]]] +
27852	Complex[0, 1]
27853	2^Rational[-1,
27854	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
27855	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
27856	FeynRules`Index[FeynRules`Spin,
27857	FeynRules`Ext[2]],
27858	FeynRules`Index[FeynRules`Spin,
27859	FeynRules`Ext[3]]] +
27860	Complex[0, -1]
27861	2^Rational[-1,
27862	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
27863	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
27864	FeynRules`Index[FeynRules`Spin,
27865	FeynRules`Ext[2]],
27866	FeynRules`Index[FeynRules`Spin,
27867	FeynRules`Ext[3]]] + Complex[0,
27868	Rational[1, 4]]
27869	2^Rational[-1,
27870	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
27871	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
27872	FeynRules`Index[FeynRules`Spin,
27873	FeynRules`Ext[2]],
27874	FeynRules`Index[FeynRules`Spin,
27875	FeynRules`Ext[3]]]}, {{{
27876	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
27877	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
27878	FeynRules`Index[FeynRules`Spin,
27879	FeynRules`Ext[2]],
27880	FeynRules`Index[FeynRules`Spin,
27881	FeynRules`Ext[3]]] + Complex[0,
27882	Rational[1, 2]] $CellContext`dGf $CellContext`ytau
27883	FeynRules`IndexDelta[
27884	FeynRules`Index[FeynRules`Spin,
27885	FeynRules`Ext[2]],
27886	FeynRules`Index[FeynRules`Spin,
27887	FeynRules`Ext[3]]] +
27888	Complex[0, 1]
27889	2^Rational[-1,
27890	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
27891	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
27892	FeynRules`Index[FeynRules`Spin,
27893	FeynRules`Ext[2]],
27894	FeynRules`Index[FeynRules`Spin,
27895	FeynRules`Ext[3]]] +
27896	Complex[0, -1]
27897	2^Rational[-1,
27898	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
27899	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
27900	FeynRules`Index[FeynRules`Spin,
27901	FeynRules`Ext[2]],
27902	FeynRules`Index[FeynRules`Spin,
27903	FeynRules`Ext[3]]] + Complex[0,
27904	Rational[1, 4]]
27905	2^Rational[-1,
27906	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
27907	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
27908	FeynRules`Index[FeynRules`Spin,
27909	FeynRules`Ext[2]],
27910	FeynRules`Index[FeynRules`Spin,
27911	FeynRules`Ext[3]]]}}]]], "Output",
27912	CellChangeTimes->{{3.714653911402326^9, 3.714653920602931^9}, {
27913	3.714653952474135^9, 3.714654020646657^9}, 3.7146568374768543`*^9, {
27914	3.714656963605565^9, 3.7146569852875^9},
27915	3.72958866603432*^9},ExpressionUUID->"3bf6baa3-2b99-486b-b8cf-\
27916	f91058cb01b1"]
27917	}, Open ]],
27918
27919	Cell[CellGroupData[{
27920
27921	Cell[BoxData[
27922	RowBox[{
27923	RowBox[{
27924	RowBox[{"hll", "//.", "alphaShifts"}], "//", "WCsimplify"}], "//",
27925	"TableForm"}]], "Input",
27926	CellChangeTimes->{{3.7146540238619328`*^9,
27927	3.714654043748782*^9}},ExpressionUUID->"4467bda6-b4af-4f27-a728-\
27928	6d435b1b6187"],
27929
27930	Cell[BoxData[
27931	TagBox[
27932	InterpretationBox[GridBox[{
27933	{GridBox[{
27934	{"H", "1"},
27935	{
27936	OverscriptBox["e", "\<\"-\"\>"], "2"},
27937	{"e", "3"}
27938	},
27939	GridBoxAlignment->{
27940	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27941	"RowsIndexed" -> {}},
27942	GridBoxSpacings->{"Columns" -> {
27943	Offset[0.27999999999999997`], {
27944	Offset[0.7]},
27945	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27946	Offset[0.2], {
27947	Offset[0.1]},
27948	Offset[0.2]}, "RowsIndexed" -> {}}],
27949	RowBox[{"-",
27950	FractionBox[
27951	RowBox[{"\[ImaginaryI]", " ",
27952	RowBox[{"(",
27953	RowBox[{
27954	RowBox[{"4", " ",
27955	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
27956	RowBox[{
27957	RowBox[{"(",
27958	RowBox[{
27959	RowBox[{"4", " ",
27960	SubscriptBox["c", "eH"]}], "-",
27961	RowBox[{"4", " ",
27962	SubscriptBox["c",
27963	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
27964	SubscriptBox["c", "HD"], "+",
27965	RowBox[{"4", " ",
27966	TemplateBox[{"c","Hl","3"},
27967	"Subsuperscript"]}], "-",
27968	RowBox[{"2", " ",
27969	TemplateBox[{"c","ll","Prime"},
27970	"Subsuperscript"]}]}], ")"}], " ",
27971	SuperscriptBox[
27972	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ye", " ",
27973	SubscriptBox["\[Delta]",
27974	RowBox[{
27975	SubscriptBox["\<\"s\"\>", "2"], ",",
27976	SubscriptBox["\<\"s\"\>", "3"]}]]}],
27977	RowBox[{"4", " ",
27978	SqrtBox["2"], " ",
27979	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
27980	{GridBox[{
27981	{"H", "1"},
27982	{
27983	OverscriptBox["mu", "\<\"-\"\>"], "2"},
27984	{"mu", "3"}
27985	},
27986	GridBoxAlignment->{
27987	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
27988	"RowsIndexed" -> {}},
27989	GridBoxSpacings->{"Columns" -> {
27990	Offset[0.27999999999999997`], {
27991	Offset[0.7]},
27992	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
27993	Offset[0.2], {
27994	Offset[0.1]},
27995	Offset[0.2]}, "RowsIndexed" -> {}}],
27996	RowBox[{"-",
27997	FractionBox[
27998	RowBox[{"\[ImaginaryI]", " ",
27999	RowBox[{"(",
28000	RowBox[{
28001	RowBox[{"4", " ",
28002	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
28003	RowBox[{
28004	RowBox[{"(",
28005	RowBox[{
28006	RowBox[{"4", " ",
28007	SubscriptBox["c", "eH"]}], "-",
28008	RowBox[{"4", " ",
28009	SubscriptBox["c",
28010	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
28011	SubscriptBox["c", "HD"], "+",
28012	RowBox[{"4", " ",
28013	TemplateBox[{"c","Hl","3"},
28014	"Subsuperscript"]}], "-",
28015	RowBox[{"2", " ",
28016	TemplateBox[{"c","ll","Prime"},
28017	"Subsuperscript"]}]}], ")"}], " ",
28018	SuperscriptBox[
28019	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ym", " ",
28020	SubscriptBox["\[Delta]",
28021	RowBox[{
28022	SubscriptBox["\<\"s\"\>", "2"], ",",
28023	SubscriptBox["\<\"s\"\>", "3"]}]]}],
28024	RowBox[{"4", " ",
28025	SqrtBox["2"], " ",
28026	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
28027	{GridBox[{
28028	{"H", "1"},
28029	{
28030	OverscriptBox["ta", "\<\"-\"\>"], "2"},
28031	{"ta", "3"}
28032	},
28033	GridBoxAlignment->{
28034	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
28035	"RowsIndexed" -> {}},
28036	GridBoxSpacings->{"Columns" -> {
28037	Offset[0.27999999999999997`], {
28038	Offset[0.7]},
28039	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
28040	Offset[0.2], {
28041	Offset[0.1]},
28042	Offset[0.2]}, "RowsIndexed" -> {}}],
28043	RowBox[{"-",
28044	FractionBox[
28045	RowBox[{"\[ImaginaryI]", " ",
28046	RowBox[{"(",
28047	RowBox[{
28048	RowBox[{"4", " ",
28049	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
28050	RowBox[{
28051	RowBox[{"(",
28052	RowBox[{
28053	RowBox[{"4", " ",
28054	SubscriptBox["c", "eH"]}], "-",
28055	RowBox[{"4", " ",
28056	SubscriptBox["c",
28057	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
28058	SubscriptBox["c", "HD"], "+",
28059	RowBox[{"4", " ",
28060	TemplateBox[{"c","Hl","3"},
28061	"Subsuperscript"]}], "-",
28062	RowBox[{"2", " ",
28063	TemplateBox[{"c","ll","Prime"},
28064	"Subsuperscript"]}]}], ")"}], " ",
28065	SuperscriptBox[
28066	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ytau", " ",
28067	SubscriptBox["\[Delta]",
28068	RowBox[{
28069	SubscriptBox["\<\"s\"\>", "2"], ",",
28070	SubscriptBox["\<\"s\"\>", "3"]}]]}],
28071	RowBox[{"4", " ",
28072	SqrtBox["2"], " ",
28073	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
28074	},
28075	GridBoxAlignment->{
28076	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
28077	"RowsIndexed" -> {}},
28078	GridBoxSpacings->{"Columns" -> {
28079	Offset[0.27999999999999997`], {
28080	Offset[2.0999999999999996`]},
28081	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
28082	Offset[0.2], {
28083	Offset[0.4]},
28084	Offset[0.2]}, "RowsIndexed" -> {}}],
28085	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
28086	Complex[0,
28087	Rational[-1, 4]]
28088	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
28089	4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH -
28090	4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 -
28091	2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ye
28092	FeynRules`IndexDelta[
28093	FeynRules`Index[FeynRules`Spin,
28094	FeynRules`Ext[2]],
28095	FeynRules`Index[FeynRules`Spin,
28096	FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
28097	FeynRules`mu, 3}}, Complex[0,
28098	Rational[-1, 4]]
28099	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
28100	4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH -
28101	4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 -
28102	2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ym
28103	FeynRules`IndexDelta[
28104	FeynRules`Index[FeynRules`Spin,
28105	FeynRules`Ext[2]],
28106	FeynRules`Index[FeynRules`Spin,
28107	FeynRules`Ext[3]]]}, {{{
28108	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
28109	Complex[0,
28110	Rational[-1, 4]]
28111	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
28112	4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH -
28113	4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 -
28114	2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ytau
28115	FeynRules`IndexDelta[
28116	FeynRules`Index[FeynRules`Spin,
28117	FeynRules`Ext[2]],
28118	FeynRules`Index[FeynRules`Spin,
28119	FeynRules`Ext[3]]]}}]],
28120	Function[BoxForm`e$,
28121	TableForm[BoxForm`e$]]]], "Output",
28122	CellChangeTimes->{{3.71465403609652^9, 3.714654045478115^9},
28123	3.714656988199677*^9,
28124	3.7295886667903337`*^9},ExpressionUUID->"77470f04-9067-4899-84a8-\
28125	a00c3c6441ca"]
28126	}, Open ]]
28127	}, Closed]],
28128
28129	Cell[CellGroupData[{
28130
28131	Cell["Export to UFO", "Subsection",
28132	CellChangeTimes->{{3.697464870154114^9, 3.697464873666815^9}, {
28133	3.714654266603505^9, 3.7146542675202837`^9}}],
28134
28135	Cell[TextData[{
28136	StyleBox["Warning!",
28137	FontWeight->"Bold",
28138	FontColor->RGBColor[1, 0, 0]],
28139	" Exporting the MFV model to UFO in the most general case might take a long \
28140	time (~ 2.5 hours) \nThe time is significantly reduced using the massless \
28141	restriction"
28142	}], "Text",
28143	CellChangeTimes->{{3.714654622630918^9, 3.714654684037245^9}, {
28144	3.714654761972848^9, 3.714654820650289^9}},
28145	Background->RGBColor[1, 1, 0.85]],
28146
28147	Cell[CellGroupData[{
28148
28149	Cell[BoxData[
28150	RowBox[{"WriteUFO", "[",
28151	RowBox[{"LSMEFT", ",",
28152	RowBox[{"MaxParticles", "\[Rule]", "4"}], ",",
28153	RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_MFV_alphaScheme_UFO\>\""}]}],
28154	"]"}]], "Input",
28155	CellChangeTimes->{{3.711357093610547^9, 3.7113570956332912`^9}, {
28156	3.713541847073875^9, 3.713541858645399^9}, {3.713966972373098*^9,
28157	3.713966987928933^9}, {3.7139684888375883`^9, 3.713968491954339*^9}, {
28158	3.714027305929933^9, 3.7140273182314863`^9}, {3.714027352553897*^9,
28159	3.714027353791733^9}, {3.7140340581231403`^9, 3.714034062356689*^9}, {
28160	3.7140592135310183`^9, 3.7140592138676453`^9}, {3.7146547492689953`*^9,
28161	3.714654749853262^9}, {3.7146570002207127`^9, 3.714657002090333*^9}, {
28162	3.714658369038265^9, 3.714658373122863^9}, {3.729591851144595*^9,
28163	3.729591852588007*^9}},ExpressionUUID->"cc7bade2-5cef-447d-9aa6-\
28164	0b2579c429df"],
28165
28166	Cell[CellGroupData[{
28167
28168	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
28169	"Print",
28170	CellChangeTimes->{
28171	3.72959248804742*^9},ExpressionUUID->"c6b651fd-e9d5-4d2d-bf50-1aa838c44a9e"],
28172
28173	Cell[BoxData[
28174	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
28175	StripOnInput->False,
28176	LineColor->RGBColor[1, 0.5, 0],
28177	FrontFaceColor->RGBColor[1, 0.5, 0],
28178	BackFaceColor->RGBColor[1, 0.5, 0],
28179	GraphicsColor->RGBColor[1, 0.5, 0],
28180	FontWeight->Bold,
28181	FontColor->RGBColor[1, 0.5, 0]]], "Print",
28182	CellChangeTimes->{
28183	3.7295925029886293`*^9},ExpressionUUID->"466f3660-57b9-4144-a59f-\
28184	de136f000d27"],
28185
28186	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
28187	CellChangeTimes->{
28188	3.729592502990913*^9},ExpressionUUID->"f9b24c56-9d5a-4ffd-9e01-\
28189	ed77a07c527b"],
28190
28191	Cell[BoxData[
28192	InterpretationBox[
28193	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
28194	"\[InvisibleSpace]", "\<\" cores\"\>"}],
28195	SequenceForm["Expanding the indices over ", 2, " cores"],
28196	Editable->False]], "Print",
28197	CellChangeTimes->{
28198	3.729592502993197*^9},ExpressionUUID->"1e3a564e-b470-450e-b8ea-\
28199	f1712dffc6d7"],
28200
28201	Cell[BoxData[
28202	InterpretationBox[
28203	RowBox[{"\<\"Neglecting all terms with more than \"\>",
28204	"\[InvisibleSpace]", "\<\"4\"\>",
28205	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
28206	SequenceForm["Neglecting all terms with more than ", "4", " particles."],
28207	Editable->False]], "Print",
28208	CellChangeTimes->{
28209	3.729592503288171*^9},ExpressionUUID->"7e728990-ae42-48cf-9266-\
28210	3959ba3020d6"],
28211
28212	Cell[BoxData["\<\"Collecting the different structures that enter the \
28213	vertex.\"\>"], "Print",
28214	CellChangeTimes->{
28215	3.729592576010993*^9},ExpressionUUID->"6d288fcf-daad-4814-8304-\
28216	88d09c9d542c"],
28217
28218	Cell[BoxData[
28219	InterpretationBox[
28220	RowBox[{
28221	"82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
28222	-> starting the computation: \"\>", "\[InvisibleSpace]",
28223	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
28224	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
28225	"\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
28226	SequenceForm[
28227	82, " possible non-zero vertices have been found -> starting the \
28228	computation: ",
28229	Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
28230	Editable->False]], "Print",
28231	CellChangeTimes->{
28232	3.729592576379678*^9},ExpressionUUID->"b3a04723-19ea-4e64-b733-\
28233	5341e2c22f10"],
28234
28235	Cell[BoxData[
28236	InterpretationBox[
28237	RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
28238	SequenceForm[82, " vertices obtained."],
28239	Editable->False]], "Print",
28240	CellChangeTimes->{
28241	3.729592660058673*^9},ExpressionUUID->"2ac29189-c4b0-49d7-995b-\
28242	4792bcb4f422"],
28243
28244	Cell[BoxData[
28245	InterpretationBox[
28246	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
28247	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
28248	"\[InvisibleSpace]",
28249	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
28250	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
28251	"\[InvisibleSpace]", "82"}],
28252	SequenceForm[
28253	"Flavor expansion of the vertices distributed over ", 2, " cores: ",
28254	Dynamic[FeynRules`FR$Count1], " / ", 82],
28255	Editable->False]], "Print",
28256	CellChangeTimes->{
28257	3.729592704632373*^9},ExpressionUUID->"7402432c-6115-4e25-b861-\
28258	118b3c571326"],
28259
28260	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
28261	CellChangeTimes->{
28262	3.729592878700952*^9},ExpressionUUID->"2217cda5-68ec-46a0-932f-\
28263	f5440268644f"],
28264
28265	Cell[BoxData[
28266	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
28267	decays: \"\>",
28268	StripOnInput->False,
28269	LineColor->RGBColor[1, 0.5, 0],
28270	FrontFaceColor->RGBColor[1, 0.5, 0],
28271	BackFaceColor->RGBColor[1, 0.5, 0],
28272	GraphicsColor->RGBColor[1, 0.5, 0],
28273	FontWeight->Bold,
28274	FontColor->RGBColor[1, 0.5, 0]]], "Print",
28275	CellChangeTimes->{
28276	3.729592879041072*^9},ExpressionUUID->"0b30da22-1710-4612-955b-\
28277	69d540439aee"],
28278
28279	Cell[BoxData[
28280	InterpretationBox[
28281	RowBox[{
28282	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
28283	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
28284	"\[InvisibleSpace]", "78"}],
28285	SequenceForm[
28286	Dynamic[PRIVATE`mycounter], " / ", 78],
28287	Editable->False]], "Print",
28288	CellChangeTimes->{
28289	3.72959287907469*^9},ExpressionUUID->"b093671d-b197-4ee5-9e74-2383dacaa8ba"],
28290
28291	Cell[BoxData[
28292	InterpretationBox[
28293	RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
28294	"12311.112`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
28295	SequenceForm["Squared matrix elent compute in ", 12311.112, " seconds."],
28296	Editable->False]], "Print",
28297	CellChangeTimes->{
28298	3.7296078848099327`*^9},ExpressionUUID->"3fb9db8e-3b57-4556-9e67-\
28299	aeef462795c3"],
28300
28301	Cell[BoxData[
28302	InterpretationBox[
28303	RowBox[{
28304	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
28305	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
28306	"\[InvisibleSpace]", "97"}],
28307	SequenceForm[
28308	Dynamic[PRIVATE`mycounter], " / ", 97],
28309	Editable->False]], "Print",
28310	CellChangeTimes->{
28311	3.729607885287459*^9},ExpressionUUID->"86609b49-c43d-41a7-ad91-\
28312	c5c9f5dcc716"],
28313
28314	Cell[BoxData[
28315	InterpretationBox[
28316	RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "63.064`",
28317	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
28318	SequenceForm["Decay widths computed in ", 63.064, " seconds."],
28319	Editable->False]], "Print",
28320	CellChangeTimes->{
28321	3.729607950424966*^9},ExpressionUUID->"801350a6-478e-4c05-802c-\
28322	870f6b50c428"],
28323
28324	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
28325	CellChangeTimes->{
28326	3.7296079504272757`*^9},ExpressionUUID->"9f536787-6a9b-4382-a7c8-\
28327	0652b29adbf7"],
28328
28329	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
28330	"Print",
28331	CellChangeTimes->{
28332	3.7296079606248417`*^9},ExpressionUUID->"e65d279f-52fb-4555-a769-\
28333	274cd2fc8d18"],
28334
28335	Cell[BoxData[
28336	InterpretationBox[
28337	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
28338	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
28339	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
28340	Editable->False]], "Print",
28341	CellChangeTimes->{
28342	3.729607962178774*^9},ExpressionUUID->"408eaf45-8fac-4b68-9f99-\
28343	02c9fb59e1f5"],
28344
28345	Cell[BoxData[
28346	InterpretationBox[
28347	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
28348	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
28349	ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
28350	"\[InvisibleSpace]", "588", "\[InvisibleSpace]", "\<\" .\"\>"}],
28351	SequenceForm[" - Optimizing: ",
28352	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 588, " ."],
28353	Editable->False]], "Print",
28354	CellChangeTimes->{
28355	3.7296080008133287`*^9},ExpressionUUID->"e193eb79-ead1-4ff1-b596-\
28356	232da0f8f01e"],
28357
28358	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
28359	CellChangeTimes->{
28360	3.729608016986417*^9},ExpressionUUID->"4708d449-d5f1-4193-a004-\
28361	285528f82b1d"],
28362
28363	Cell[BoxData[
28364	StyleBox["\<\"Warning: Non positive interaction order QED.\\n \
28365	This might reduce the efficiency of certain matrix element generators.\\n \
28366	See logfile for more details.\"\>",
28367	StripOnInput->False,
28368	LineColor->RGBColor[1, 0, 0],
28369	FrontFaceColor->RGBColor[1, 0, 0],
28370	BackFaceColor->RGBColor[1, 0, 0],
28371	GraphicsColor->RGBColor[1, 0, 0],
28372	FontColor->RGBColor[1, 0, 0]]], "Print",
28373	CellChangeTimes->{
28374	3.7296080184668903`*^9},ExpressionUUID->"74d50938-074f-435c-b316-\
28375	0cdebbcb254f"],
28376
28377	Cell[BoxData["\<\"Done!\"\>"], "Print",
28378	CellChangeTimes->{
28379	3.729608029081057*^9},ExpressionUUID->"0c850f48-3937-4a59-ba98-\
28380	2548cca7786d"]
28381	}, Open ]]
28382	}, Open ]]
28383	}, Open ]]
28384	}, Closed]],
28385
28386	Cell[CellGroupData[{
28387
28388	Cell["model MFV Mw scheme", "Section",
28389	CellChangeTimes->{{3.696681316130834^9, 3.696681320670103^9}, {
28390	3.6972641901616383`^9, 3.697264190714314^9}, {3.6977796250127287`*^9,
28391	3.697779628134873^9}, {3.7008119849361362`^9, 3.7008119864866343`*^9}, {
28392	3.713951624097616^9, 3.7139516319877872`^9}, {3.714027345519704*^9,
28393	3.7140273462258577`^9}, {3.714034026337254^9, 3.7140340306501093`*^9}, {
28394	3.714059172051979^9, 3.714059172395143^9}, {3.714067703468307*^9,
28395	3.7140677041355143`^9}, {3.714654251598678^9,
28396	3.71465425524997*^9}},ExpressionUUID->"576f30b1-09bd-4c84-a3e3-\
28397	3903c7acc668"],
28398
28399	Cell[BoxData[{
28400	RowBox[{
28401	RowBox[{"Flavor", "=", "MFV"}], ";"}], "\[IndentingNewLine]",
28402	RowBox[{
28403	RowBox[{"Scheme", "=", "MwScheme"}], ";"}]}], "Input",
28404	CellChangeTimes->CompressedData["
28405	1:eJxTTMoPSmViYGAQB2IQvan72/9zq187tpziYjgPpPleZYWD6MNz8sF0qhnf
28406	BRCdzaALple/enYXRDee/wCm/6w0VL8ApFX8k8H0Y0ll14tAWtvIAUwv+3fo
28407	BYiO8bz4CkSbVc78BaLn/XsDpgO9TSUvAekjt3zAdK52oDGIjnoQBaZ5pae6
28408	gui2qH1g+lTbAx8QfeLqfzBtsq6yC0RvVFkGpn2cVypeBtIHRM9C6InyESA6
28409	oNYeTE9a3O3xDkhXPZoCpgU8O0JAdJj8LjBdpb3rFYjWCz8Gpmv45zz6CKTv
28410	tK0F02JTi1+B6HeBs8H0LmZl/a9AekfjPDA959+xEsY1QP8aXgDT06XL5rMC
28411	6Xet+8E0APAJ1n8=
28412	"],ExpressionUUID->"b8cfa8ee-c29c-499f-9d58-eb97f4753caf"],
28413
28414	Cell[CellGroupData[{
28415
28416	Cell[BoxData[{
28417	RowBox[{
28418	RowBox[{"LoadModel", "[", "\"\<SMEFTsim_A_main.fr\>\"", "]"}],
28419	";"}], "\[IndentingNewLine]",
28420	RowBox[{
28421	RowBox[{
28422	RowBox[{"$Assumptions", "=",
28423	RowBox[{
28424	RowBox[{
28425	RowBox[{
28426	RowBox[{"cth", "^", "2"}], "+",
28427	RowBox[{"sth", "^", "2"}]}], "\[Equal]", "1"}], "&&",
28428	RowBox[{
28429	RowBox[{"vevhat", "^", "2"}], "\[Equal]",
28430	RowBox[{"1", "/",
28431	RowBox[{"(",
28432	RowBox[{
28433	RowBox[{"Sqrt", "[", "2", "]"}], " ", "Gf"}], ")"}]}]}]}]}], ";"}],
28434	RowBox[{"(*",
28435	RowBox[{
28436	"definition", " ", "useful", " ", "for", " ", "algebraic", " ",
28437	"simplifications"}], "*)"}]}], "\[IndentingNewLine]"}], "Input",
28438	CellChangeTimes->{
28439	3.696317675402779^9, {3.6965773165572453`^9, 3.696577319156142*^9},
28440	3.696580983074707^9, {3.6965948918072433`^9, 3.696594894707777*^9},
28441	3.6966709211488647`^9, {3.69667828323773^9, 3.696678323509939*^9}, {
28442	3.69667951035196^9, 3.6966795109895697`^9}, {3.696681436195228*^9,
28443	3.696681438987885^9}, {3.6972650726318893`^9, 3.697265101991671*^9},
28444	3.697287098417327^9, {3.6973604685824413`^9, 3.69736046890945*^9}, {
28445	3.697779635251266^9, 3.69777963758922^9}, {3.698645426547124*^9,
28446	3.698645426699171^9}, {3.699076691858276^9, 3.699076748603301*^9}, {
28447	3.6990805929555798`^9, 3.6990805933718987`^9}, {3.699103784843251*^9,
28448	3.699103787233872^9}, {3.699174414331218^9, 3.699174423137232*^9}, {
28449	3.700810602928831^9, 3.700810603791377^9}, 3.700811190650639*^9, {
28450	3.700811373469302^9, 3.70081137419092^9}, {3.700811543944695*^9,
28451	3.700811545171196^9}, {3.7008116427840242`^9, 3.7008116439630938`*^9}, {
28452	3.700811709403363^9, 3.700811710009871^9}, {3.700811988139593*^9,
28453	3.700811989085125^9}, {3.706958250209116^9, 3.706958253094596*^9}, {
28454	3.70719446793911^9, 3.7071944683318357`^9}, {3.707196963096757*^9,
28455	3.7071969641085587`^9}, {3.7073968274735537`^9, 3.707396828325622*^9}, {
28456	3.7074043139801292`^9, 3.707404317755911^9}, {3.7074053023188467`*^9,
28457	3.707405302915038^9}, {3.707730114023314^9, 3.707730124419199*^9}, {
28458	3.7077337383961143`^9, 3.707733741518713^9}, {3.713951635803303*^9,
28459	3.71395165206149^9}, {3.713951695549211^9, 3.713951695853513*^9}, {
28460	3.71395173874929^9, 3.7139517413107147`^9}, {3.713952603189982*^9,
28461	3.713952603424769*^9},
28462	3.7146542743240833`*^9},ExpressionUUID->"ca147f48-49c0-46ca-94e0-\
28463	5a6f74474c82"],
28464
28465	Cell[CellGroupData[{
28466
28467	Cell[BoxData["\<\"MFV framework selected\"\>"], "Print",
28468	CellChangeTimes->{3.7296080796165257`*^9,
28469	3.729611293900223*^9},ExpressionUUID->"8f177e06-a158-42cb-b4c8-\
28470	06b202a26ba1"],
28471
28472	Cell[BoxData[
28473	InterpretationBox[
28474	RowBox[{"\<\"Input parameters: \"\>", "\[InvisibleSpace]",
28475	SubscriptBox["m", "W"], "\[InvisibleSpace]", "\<\", \"\>",
28476	"\[InvisibleSpace]",
28477	SubscriptBox["m", "Z"], "\[InvisibleSpace]", "\<\", \"\>",
28478	"\[InvisibleSpace]",
28479	SubscriptBox["G", "f"]}],
28480	SequenceForm["Input parameters: ",
28481	Subscript[FeynRules`m, FeynRules`W], ", ",
28482	Subscript[FeynRules`m, $CellContext`Z], ", ",
28483	Subscript[FeynRules`G, FeynRules`f]],
28484	Editable->False]], "Print",
28485	CellChangeTimes->{3.7296080796165257`*^9,
28486	3.729611293901513*^9},ExpressionUUID->"39469039-2c6b-4a67-a136-\
28487	103039ec695a"],
28488
28489	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
28490	CellChangeTimes->{3.7296080796165257`*^9,
28491	3.7296112939215813`*^9},ExpressionUUID->"3eb2d192-6b55-4bad-a65c-\
28492	9d904730d64a"],
28493
28494	Cell[BoxData["\<\"I. Brivio, Y. Jiang, M. Trott\"\>"], "Print",
28495	CellChangeTimes->{3.7296080796165257`*^9,
28496	3.729611293923018*^9},ExpressionUUID->"5cf66519-d66f-4c9f-bfd6-\
28497	9bd2625e07ba"],
28498
28499	Cell[BoxData[
28500	InterpretationBox[
28501	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
28502	SequenceForm["Model Version: ", "2.1"],
28503	Editable->False]], "Print",
28504	CellChangeTimes->{3.7296080796165257`*^9,
28505	3.729611293925462*^9},ExpressionUUID->"af161e64-e5b5-4c7b-a3a4-\
28506	a91a3f9d31ca"],
28507
28508	Cell[BoxData["\<\"Please cite\"\>"], "Print",
28509	CellChangeTimes->{3.7296080796165257`*^9,
28510	3.729611293926712*^9},ExpressionUUID->"d1c054b0-26f9-494a-b831-\
28511	e339d1b357aa"],
28512
28513	Cell[BoxData["\<\"arXiv:1709.06492\"\>"], "Print",
28514	CellChangeTimes->{3.7296080796165257`*^9,
28515	3.7296112939279213`*^9},ExpressionUUID->"b5fe5fc5-42c1-49d7-8b08-\
28516	906bb738cf8e"],
28517
28518	Cell[BoxData["\<\"https://feynrules.irmp.ucl.ac.be/wiki/SMEFT\"\>"], "Print",
28519	CellChangeTimes->{3.7296080796165257`*^9,
28520	3.729611293929141*^9},ExpressionUUID->"2b242a62-17b9-4fe5-9542-\
28521	852691476a90"],
28522
28523	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
28524	"Print",
28525	CellChangeTimes->{3.7296080796165257`*^9,
28526	3.729611293930388*^9},ExpressionUUID->"9ca60e3e-7e36-4f42-9a4e-\
28527	971aab6db25f"],
28528
28529	Cell[BoxData["\<\"\"\>"], "Print",
28530	CellChangeTimes->{3.7296080796165257`*^9,
28531	3.729611293931596*^9},ExpressionUUID->"6b811c3b-3cfe-49fd-8c34-\
28532	9fd1a0b251a5"],
28533
28534	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
28535	CellChangeTimes->{3.7296080796165257`*^9,
28536	3.729611293932828*^9},ExpressionUUID->"9d4504fb-fda4-46e3-9c62-\
28537	62e19c00e71c"],
28538
28539	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
28540	CellChangeTimes->{3.7296080796165257`*^9,
28541	3.729611294021492*^9},ExpressionUUID->"f66079f9-7152-4133-959d-\
28542	9c4fb569a090"],
28543
28544	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
28545	CellChangeTimes->{3.7296080796165257`*^9,
28546	3.72961129403865*^9},ExpressionUUID->"ac151c67-5b55-4094-be76-cf3f436cdc98"],
28547
28548	Cell[BoxData[
28549	InterpretationBox[
28550	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SMEFTsim_A\"\>",
28551	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
28552	SequenceForm["\nModel ", "SMEFTsim_A", " loaded."],
28553	Editable->False]], "Print",
28554	CellChangeTimes->{3.7296080796165257`*^9,
28555	3.729611294561262*^9},ExpressionUUID->"f1d2c690-3679-4603-aa9a-\
28556	01a74ecb7650"]
28557	}, Open ]]
28558	}, Open ]],
28559
28560	Cell[BoxData[
28561	RowBox[{
28562	RowBox[{"(*", " ",
28563	RowBox[{
28564	"simplify", " ", "collecting", " ", "the", " ", "Wilson", " ",
28565	"coefficients"}], " ", "*)"}], "\[IndentingNewLine]",
28566	RowBox[{
28567	RowBox[{"WCsimplify", "[", "x_", "]"}], ":=",
28568	RowBox[{"Collect", "[",
28569	RowBox[{
28570	RowBox[{"Expand", "[", "x", "]"}], ",",
28571	RowBox[{"Join", "[",
28572	RowBox[{"WC6", ",",
28573	RowBox[{"Conjugate", "/@", "WC6"}], ",",
28574	RowBox[{"{",
28575	RowBox[{
28576	"dsth2", ",", "dGf", ",", "dMZ2", ",", "dMW", ",", "dMH2", ",", "dg1",
28577	",", "dgw"}], "}"}]}], "]"}], ",",
28578	RowBox[{
28579	RowBox[{"FullSimplify", "[",
28580	RowBox[{"#", ",", "$Assumptions"}], "]"}], "&"}]}], "]"}]}]}]], "Input",\
28581
28582	CellChangeTimes->{{3.69727251229317^9, 3.697272539780883^9}, {
28583	3.6972725951948023`^9, 3.6972726157586107`^9}, {3.6973553500832977`*^9,
28584	3.697355359264447^9}, {3.697355426066744^9, 3.697355428425048*^9}, {
28585	3.697359800031402^9, 3.697359816794314^9}, {3.697361185105711*^9,
28586	3.697361198769485^9}, {3.697367251862154^9, 3.697367258246785*^9}, {
28587	3.697536724781671^9, 3.697536725470097^9}, {3.698645443776215*^9,
28588	3.6986454466349792`^9}, {3.6990803840045652`^9,
28589	3.6990803931031227`^9}, {3.707025063385503^9, 3.707025074535533*^9}, {
28590	3.707026201080791^9, 3.707026206097932^9}, {3.707733746790945*^9,
28591	3.707733759745702^9}, {3.711875906183223^9, 3.71187590676577*^9}, {
28592	3.712555385621932^9, 3.712555393408392^9},
28593	3.7146542779734697`*^9},ExpressionUUID->"b68ff3e6-cfaf-42b4-a85c-\
28594	ed50e97d9bb8"],
28595
28596	Cell[CellGroupData[{
28597
28598	Cell[TextData[{
28599	"Example - extraction of aTGC ",
28600	Cell[BoxData[
28601	FormBox[
28602	RowBox[{"(", " ",
28603	SuperscriptBox[
28604	SubscriptBox["g", "1"], "V"]}], TraditionalForm]],
28605	FormatType->"TraditionalForm"],
28606	", ",
28607	Cell[BoxData[
28608	FormBox[
28609	SubscriptBox["\[Kappa]", "V"], TraditionalForm]],
28610	FormatType->"TraditionalForm"],
28611	" )"
28612	}], "Subsection",
28613	CellChangeTimes->{{3.697366338889289^9, 3.697366341458261^9}, {
28614	3.714474539132268^9, 3.71447454549291^9}, {3.7144748778381844`*^9,
28615	3.714474881170227^9}, {3.7146522087316093`^9, 3.7146522332696543`*^9}}],
28616
28617	Cell[BoxData[
28618	RowBox[{
28619	RowBox[{"L1", " ", "=", " ",
28620	RowBox[{
28621	RowBox[{"LGauge", "+", "L6cl4"}], "//", "OptimizeIndex"}]}],
28622	";"}]], "Input",
28623	CellChangeTimes->{{3.714474548996854^9, 3.714474607567834^9}, {
28624	3.714474713747148^9, 3.7144747165634403`^9}, {3.714474885107195*^9,
28625	3.714474885248617^9}, {3.7144750445122128`^9, 3.714475058126898*^9}, {
28626	3.7144751339781103`^9, 3.714475137908736^9}, {3.714656111298061*^9,
28627	3.71465611302945*^9}},ExpressionUUID->"9c7cd592-0449-47b7-a179-\
28628	c94462a779a0"],
28629
28630	Cell[CellGroupData[{
28631
28632	Cell[BoxData[
28633	RowBox[{
28634	RowBox[{"zww", "=",
28635	RowBox[{"GetInteractionTerms", "[",
28636	RowBox[{"L1", ",",
28637	RowBox[{"SelectParticles", "\[Rule]",
28638	RowBox[{"{",
28639	RowBox[{"W", ",", "Wbar", ",", "Z"}], "}"}]}]}], "]"}]}],
28640	";"}]], "Input",
28641	CellChangeTimes->{{3.697355190045856*^9,
28642	3.697355204589117*^9}},ExpressionUUID->"c7054056-c199-4e84-baad-\
28643	408c19b1262d"],
28644
28645	Cell[CellGroupData[{
28646
28647	Cell[BoxData["\<\"Selecting specified field content. Warning! Only mass \
28648	eigenstates should be selected!\"\>"], "Print",
28649	CellChangeTimes->{3.714652273867529^9, 3.714656184555667^9,
28650	3.714657150063994*^9,
28651	3.7296081603645906`*^9},ExpressionUUID->"680713c3-7216-4d44-b0c7-\
28652	675f3ab7859e"],
28653
28654	Cell[BoxData[
28655	InterpretationBox[
28656	RowBox[{"\<\"Neglecting all terms with more than \"\>",
28657	"\[InvisibleSpace]", "\<\"3\"\>",
28658	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
28659	SequenceForm["Neglecting all terms with more than ", "3", " particles."],
28660	Editable->False]], "Print",
28661	CellChangeTimes->{3.714652273867529^9, 3.714656184555667^9,
28662	3.714657150063994*^9,
28663	3.729608160430159*^9},ExpressionUUID->"fe468ea7-5953-4527-b09c-\
28664	a827f8e71a9b"],
28665
28666	Cell[BoxData[
28667	InterpretationBox[
28668	RowBox[{"\<\"Neglecting all terms with less than \"\>",
28669	"\[InvisibleSpace]", "\<\"3\"\>",
28670	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
28671	SequenceForm["Neglecting all terms with less than ", "3", " particles."],
28672	Editable->False]], "Print",
28673	CellChangeTimes->{3.714652273867529^9, 3.714656184555667^9,
28674	3.714657150063994*^9,
28675	3.7296081604517727`*^9},ExpressionUUID->"c8b21f23-ab16-4b0c-b663-\
28676	1b24b05ba891"]
28677	}, Open ]]
28678	}, Open ]],
28679
28680	Cell[CellGroupData[{
28681
28682	Cell[BoxData[
28683	RowBox[{
28684	RowBox[{"(", " ", "g1z", " ", ")"}], "\[IndentingNewLine]",
28685	RowBox[{
28686	RowBox[{
28687	RowBox[{"zww", "/.",
28688	RowBox[{
28689	RowBox[{"del", "[",
28690	RowBox[{
28691	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
28692	"Simplify"}], "\[IndentingNewLine]",
28693	RowBox[{
28694	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
28695	"\[IndentingNewLine]",
28696	RowBox[{
28697	RowBox[{"Simplify", "[",
28698	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
28699	RowBox[{"WCsimplify", "[",
28700	FractionBox["%",
28701	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
28702	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
28703	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
28704	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
28705	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
28706	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
28707	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
28708	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
28709	3.697366570896222^9, 3.697366573045783^9}, {3.697371239528208*^9,
28710	3.697371253607347^9}, {3.697779754300777^9, 3.6977797626704483`*^9}, {
28711	3.70081318564122^9, 3.700813191980774^9}, {3.700813246330406*^9,
28712	3.700813285428583^9}, {3.7077337321979713`^9, 3.707733734591858*^9}, {
28713	3.714474619041273^9, 3.7144746223430567`^9}, {3.714474993096156*^9,
28714	3.7144750018697557`^9}, 3.7146522446651382`^9, {3.7146522849326553`*^9,
28715	3.7146523139288273`^9}, {3.714652367401491^9, 3.714652379324503*^9}, {
28716	3.714652412441049^9, 3.714652464776884^9}, 3.714652626095168*^9, {
28717	3.714657051070833*^9,
28718	3.714657052484799*^9}},ExpressionUUID->"ea45b9db-e06c-416c-87db-\
28719	65993721cc1b"],
28720
28721	Cell[BoxData[
28722	RowBox[{"-",
28723	FractionBox[
28724	RowBox[{"\[ImaginaryI]", " ", "e", " ",
28725	RowBox[{"(",
28726	RowBox[{
28727	RowBox[{
28728	SuperscriptBox["\[CapitalLambda]", "2"], " ",
28729	RowBox[{"(",
28730	RowBox[{
28731	RowBox[{"-", "2"}], "-",
28732	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
28733	RowBox[{"2", " ",
28734	RowBox[{"(",
28735	RowBox[{"1", "+", "dgw"}], ")"}], " ",
28736	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
28737	RowBox[{
28738	SubscriptBox["c", "HWB"], " ",
28739	SubscriptBox["c", "\[Theta]"], " ",
28740	SubscriptBox["s", "\[Theta]"], " ",
28741	SuperscriptBox[
28742	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
28743	RowBox[{"(",
28744	RowBox[{
28745	RowBox[{
28746	RowBox[{
28747	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28748	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
28749	RowBox[{"(",
28750	RowBox[{
28751	RowBox[{
28752	SubscriptBox["W", "mu$2"], " ",
28753	SubscriptBox["Z", "mu$1"]}], "-",
28754	RowBox[{
28755	SubscriptBox["W", "mu$1"], " ",
28756	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
28757	RowBox[{
28758	RowBox[{
28759	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28760	SubscriptBox["W", "mu$1"], "]"}], " ",
28761	RowBox[{"(",
28762	RowBox[{
28763	RowBox[{
28764	RowBox[{"-",
28765	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
28766	SubscriptBox["Z", "mu$1"]}], "+",
28767	RowBox[{
28768	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
28769	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
28770	RowBox[{"2", " ",
28771	SubscriptBox["c", "\[Theta]"], " ",
28772	SuperscriptBox["\[CapitalLambda]", "2"], " ",
28773	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
28774	CellChangeTimes->{
28775	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
28776	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
28777	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
28778	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
28779	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
28780	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
28781	3.714656184982973^9, 3.7146571506204863`^9,
28782	3.729608160775128*^9},ExpressionUUID->"35725e1f-e103-4df7-8188-\
28783	911af3143b23"],
28784
28785	Cell[BoxData[
28786	RowBox[{"-",
28787	FractionBox[
28788	RowBox[{"\[ImaginaryI]", " ", "e", " ",
28789	RowBox[{"(",
28790	RowBox[{
28791	RowBox[{"-", "1"}], "+",
28792	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
28793	RowBox[{"(",
28794	RowBox[{
28795	RowBox[{"4", " ",
28796	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
28797	RowBox[{
28798	RowBox[{"(",
28799	RowBox[{
28800	SubscriptBox["c", "HD"], "-",
28801	RowBox[{"4", " ",
28802	TemplateBox[{"c","Hl","3"},
28803	"Subsuperscript"]}], "+",
28804	RowBox[{"2", " ",
28805	TemplateBox[{"c","ll","Prime"},
28806	"Subsuperscript"]}], "+",
28807	RowBox[{"8", " ",
28808	SubscriptBox["c", "HWB"], " ",
28809	SubscriptBox["c", "\[Theta]"], " ",
28810	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
28811	SuperscriptBox[
28812	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
28813	RowBox[{"(",
28814	RowBox[{
28815	RowBox[{
28816	RowBox[{
28817	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28818	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
28819	RowBox[{"(",
28820	RowBox[{
28821	RowBox[{
28822	SubscriptBox["W", "mu$2"], " ",
28823	SubscriptBox["Z", "mu$1"]}], "-",
28824	RowBox[{
28825	SubscriptBox["W", "mu$1"], " ",
28826	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
28827	RowBox[{
28828	RowBox[{
28829	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28830	SubscriptBox["W", "mu$1"], "]"}], " ",
28831	RowBox[{"(",
28832	RowBox[{
28833	RowBox[{
28834	RowBox[{"-",
28835	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
28836	SubscriptBox["Z", "mu$1"]}], "+",
28837	RowBox[{
28838	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
28839	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
28840	RowBox[{"4", " ",
28841	SubscriptBox["c", "\[Theta]"], " ",
28842	SuperscriptBox["\[CapitalLambda]", "2"], " ",
28843	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
28844	CellChangeTimes->{
28845	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
28846	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
28847	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
28848	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
28849	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
28850	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
28851	3.714656184982973^9, 3.7146571506204863`^9,
28852	3.729608161078949*^9},ExpressionUUID->"a69f9ff7-3739-48b6-80a1-\
28853	5ad90cdf3327"],
28854
28855	Cell[BoxData[
28856	RowBox[{"-",
28857	FractionBox[
28858	RowBox[{"\[ImaginaryI]", " ", "e", " ",
28859	RowBox[{"(",
28860	RowBox[{
28861	RowBox[{"-", "1"}], "+",
28862	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
28863	RowBox[{"(",
28864	RowBox[{"1", "+",
28865	FractionBox[
28866	RowBox[{
28867	SubscriptBox["c", "HD"], " ",
28868	SuperscriptBox[
28869	OverscriptBox["v", "^"], "2"]}],
28870	RowBox[{"4", " ",
28871	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
28872	FractionBox[
28873	RowBox[{
28874	TemplateBox[{"c","Hl","3"},
28875	"Subsuperscript"], " ",
28876	SuperscriptBox[
28877	OverscriptBox["v", "^"], "2"]}],
28878	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
28879	FractionBox[
28880	RowBox[{
28881	TemplateBox[{"c","ll","Prime"},
28882	"Subsuperscript"], " ",
28883	SuperscriptBox[
28884	OverscriptBox["v", "^"], "2"]}],
28885	RowBox[{"2", " ",
28886	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
28887	FractionBox[
28888	RowBox[{"2", " ",
28889	SubscriptBox["c", "HWB"], " ",
28890	SubscriptBox["c", "\[Theta]"], " ",
28891	SubscriptBox["s", "\[Theta]"], " ",
28892	SuperscriptBox[
28893	OverscriptBox["v", "^"], "2"]}],
28894	SuperscriptBox["\[CapitalLambda]", "2"]]}], ")"}], " ",
28895	RowBox[{"(",
28896	RowBox[{
28897	RowBox[{
28898	RowBox[{
28899	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28900	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
28901	RowBox[{"(",
28902	RowBox[{
28903	RowBox[{
28904	SubscriptBox["W", "mu$2"], " ",
28905	SubscriptBox["Z", "mu$1"]}], "-",
28906	RowBox[{
28907	SubscriptBox["W", "mu$1"], " ",
28908	SubscriptBox["Z", "mu$2"]}]}], ")"}]}], "+",
28909	RowBox[{
28910	RowBox[{
28911	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28912	SubscriptBox["W", "mu$1"], "]"}], " ",
28913	RowBox[{"(",
28914	RowBox[{
28915	RowBox[{
28916	RowBox[{"-",
28917	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}], " ",
28918	SubscriptBox["Z", "mu$1"]}], "+",
28919	RowBox[{
28920	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], " ",
28921	SubscriptBox["Z", "mu$2"]}]}], ")"}]}]}], ")"}]}],
28922	RowBox[{
28923	SubscriptBox["c", "\[Theta]"], " ",
28924	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
28925	CellChangeTimes->{
28926	3.700893279666334^9, 3.7071966956066923`^9, 3.707733723497389*^9,
28927	3.7077338940130663`^9, 3.707734286441903^9, 3.707734385577182*^9,
28928	3.7111736975917177`^9, 3.713966271969263^9, {3.714474986321164*^9,
28929	3.7144750081662188`^9}, 3.714475229510091^9, {3.7146522881667643`*^9,
28930	3.714652314436377^9}, {3.714652368593678^9, 3.7146523798063517`*^9}, {
28931	3.714652413596797^9, 3.714652465351494^9}, 3.714652627092247*^9,
28932	3.714656184982973^9, 3.7146571506204863`^9,
28933	3.729608161166007*^9},ExpressionUUID->"5bbb8ca0-cfa9-4e7e-a838-\
28934	ee0cee332a26"]
28935	}, Open ]],
28936
28937	Cell[CellGroupData[{
28938
28939	Cell[BoxData[
28940	RowBox[{
28941	RowBox[{"(", " ", "\[Kappa]z", " ", ")"}], "\[IndentingNewLine]",
28942	RowBox[{
28943	RowBox[{
28944	RowBox[{"zww", "/.",
28945	RowBox[{
28946	RowBox[{
28947	RowBox[{"del", "[",
28948	RowBox[{
28949	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
28950	RowBox[{"del", "[",
28951	RowBox[{
28952	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
28953	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
28954	RowBox[{
28955	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
28956	"\[IndentingNewLine]",
28957	RowBox[{
28958	RowBox[{"Simplify", "[",
28959	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
28960	RowBox[{"WCsimplify", "[",
28961	FractionBox["%",
28962	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
28963	CellChangeTimes->{{3.714652472649456^9, 3.714652608904799^9}, {
28964	3.714657055090991*^9,
28965	3.714657056486824*^9}},ExpressionUUID->"42c41f02-2424-4769-98fb-\
28966	f60aed9f4acc"],
28967
28968	Cell[BoxData[
28969	FractionBox[
28970	RowBox[{"\[ImaginaryI]", " ", "e", " ",
28971	RowBox[{"(",
28972	RowBox[{
28973	RowBox[{
28974	SuperscriptBox["\[CapitalLambda]", "2"], " ",
28975	RowBox[{"(",
28976	RowBox[{
28977	RowBox[{"-", "2"}], "-",
28978	RowBox[{"2", " ", "dgw"}], "+", "dsth2", "+",
28979	RowBox[{"2", " ",
28980	RowBox[{"(",
28981	RowBox[{"1", "+", "dgw"}], ")"}], " ",
28982	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
28983	RowBox[{
28984	SubscriptBox["c", "HWB"], " ",
28985	SubscriptBox["c", "\[Theta]"], " ",
28986	SubscriptBox["s", "\[Theta]"], " ",
28987	SuperscriptBox[
28988	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
28989	RowBox[{
28990	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
28991	SubscriptBox["Z", "mu$1"], "]"}], " ",
28992	RowBox[{"(",
28993	RowBox[{
28994	RowBox[{
28995	SubscriptBox["W", "mu$2"], " ",
28996	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
28997	RowBox[{
28998	SubscriptBox["W", "mu$1"], " ",
28999	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29000	RowBox[{"2", " ",
29001	SubscriptBox["c", "\[Theta]"], " ",
29002	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29003	SubscriptBox["s", "\[Theta]"]}]]], "Output",
29004	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
29005	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
29006	3.714652609565043^9}, 3.714656185731509^9, 3.7146571512736073`*^9,
29007	3.729608161306015*^9},ExpressionUUID->"10961436-4624-4348-b0a9-\
29008	4fd9fc01a716"],
29009
29010	Cell[BoxData[
29011	FractionBox[
29012	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29013	RowBox[{"(",
29014	RowBox[{
29015	RowBox[{"4", " ",
29016	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29017	RowBox[{"(",
29018	RowBox[{
29019	RowBox[{"-", "1"}], "+",
29020	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}], "+",
29021	RowBox[{
29022	RowBox[{"(",
29023	RowBox[{
29024	RowBox[{"-",
29025	SubscriptBox["c", "HD"]}], "+",
29026	RowBox[{"4", " ",
29027	TemplateBox[{"c","Hl","3"},
29028	"Subsuperscript"]}], "-",
29029	RowBox[{"2", " ",
29030	TemplateBox[{"c","ll","Prime"},
29031	"Subsuperscript"]}], "-",
29032	RowBox[{"4", " ",
29033	SubscriptBox["c", "HWB"], " ",
29034	SubscriptBox["c", "\[Theta]"], " ",
29035	SubscriptBox["s", "\[Theta]"]}], "+",
29036	RowBox[{
29037	RowBox[{"(",
29038	RowBox[{
29039	SubscriptBox["c", "HD"], "-",
29040	RowBox[{"4", " ",
29041	TemplateBox[{"c","Hl","3"},
29042	"Subsuperscript"]}], "+",
29043	RowBox[{"2", " ",
29044	TemplateBox[{"c","ll","Prime"},
29045	"Subsuperscript"]}]}], ")"}], " ",
29046	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
29047	RowBox[{"8", " ",
29048	SubscriptBox["c", "HWB"], " ",
29049	SubscriptBox["c", "\[Theta]"], " ",
29050	SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ",
29051	SuperscriptBox[
29052	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
29053	RowBox[{
29054	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29055	SubscriptBox["Z", "mu$1"], "]"}], " ",
29056	RowBox[{"(",
29057	RowBox[{
29058	RowBox[{
29059	SubscriptBox["W", "mu$2"], " ",
29060	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
29061	RowBox[{
29062	SubscriptBox["W", "mu$1"], " ",
29063	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29064	RowBox[{"4", " ",
29065	SubscriptBox["c", "\[Theta]"], " ",
29066	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29067	SubscriptBox["s", "\[Theta]"]}]]], "Output",
29068	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
29069	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
29070	3.714652609565043^9}, 3.714656185731509^9, 3.7146571512736073`*^9,
29071	3.729608161505319*^9},ExpressionUUID->"b83c0063-07bd-4067-9db8-\
29072	535ca128248c"],
29073
29074	Cell[BoxData[
29075	FractionBox[
29076	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29077	RowBox[{"(",
29078	RowBox[{
29079	RowBox[{"-", "1"}], "+",
29080	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29081	RowBox[{"(",
29082	RowBox[{"1", "+",
29083	FractionBox[
29084	RowBox[{
29085	SubscriptBox["c", "HD"], " ",
29086	SuperscriptBox[
29087	OverscriptBox["v", "^"], "2"]}],
29088	RowBox[{"4", " ",
29089	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
29090	FractionBox[
29091	RowBox[{
29092	TemplateBox[{"c","Hl","3"},
29093	"Subsuperscript"], " ",
29094	SuperscriptBox[
29095	OverscriptBox["v", "^"], "2"]}],
29096	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
29097	FractionBox[
29098	RowBox[{
29099	TemplateBox[{"c","ll","Prime"},
29100	"Subsuperscript"], " ",
29101	SuperscriptBox[
29102	OverscriptBox["v", "^"], "2"]}],
29103	RowBox[{"2", " ",
29104	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
29105	FractionBox[
29106	RowBox[{
29107	SubscriptBox["c", "HWB"], " ",
29108	SubscriptBox["c", "\[Theta]"], " ",
29109	SubscriptBox["s", "\[Theta]"], " ",
29110	RowBox[{"(",
29111	RowBox[{
29112	RowBox[{"-", "1"}], "+",
29113	RowBox[{"2", " ",
29114	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
29115	SuperscriptBox[
29116	OverscriptBox["v", "^"], "2"]}],
29117	RowBox[{
29118	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29119	RowBox[{"(",
29120	RowBox[{
29121	RowBox[{"-", "1"}], "+",
29122	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}]}]]}], ")"}], " ",
29123	RowBox[{
29124	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29125	SubscriptBox["Z", "mu$1"], "]"}], " ",
29126	RowBox[{"(",
29127	RowBox[{
29128	RowBox[{
29129	SubscriptBox["W", "mu$2"], " ",
29130	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
29131	RowBox[{
29132	SubscriptBox["W", "mu$1"], " ",
29133	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29134	RowBox[{
29135	SubscriptBox["c", "\[Theta]"], " ",
29136	SubscriptBox["s", "\[Theta]"]}]]], "Output",
29137	CellChangeTimes->{{3.7146524762328167`^9, 3.7146525136762342`^9}, {
29138	3.714652549082369^9, 3.714652563355587^9}, {3.714652594505663*^9,
29139	3.714652609565043^9}, 3.714656185731509^9, 3.7146571512736073`*^9,
29140	3.729608161573168*^9},ExpressionUUID->"edb5c467-ea5e-4374-a213-\
29141	17576678f732"]
29142	}, Open ]],
29143
29144	Cell[BoxData[""], "Input",
29145	CellChangeTimes->{3.714652368810739*^9,
29146	3.7146524695105267`*^9},ExpressionUUID->"48f4a6a0-0208-449b-bd3c-\
29147	08e37916f22c"],
29148
29149	Cell[BoxData[
29150	RowBox[{
29151	RowBox[{"aww", "=",
29152	RowBox[{"GetInteractionTerms", "[",
29153	RowBox[{"L1", ",",
29154	RowBox[{"SelectParticles", "\[Rule]",
29155	RowBox[{"{",
29156	RowBox[{"W", ",", "Wbar", ",", "A"}], "}"}]}]}], "]"}]}],
29157	";"}]], "Input",
29158	CellChangeTimes->{{3.697355190045856^9, 3.697355204589117^9}, {
29159	3.697369511884927*^9,
29160	3.697369515354232*^9}},ExpressionUUID->"55070546-6783-42b9-836b-\
29161	28eb11537caf"],
29162
29163	Cell[CellGroupData[{
29164
29165	Cell[BoxData[
29166	RowBox[{
29167	RowBox[{"(", "g1\[Gamma]", ")"}], "\[IndentingNewLine]",
29168	RowBox[{
29169	RowBox[{
29170	RowBox[{"aww", "/.",
29171	RowBox[{
29172	RowBox[{"del", "[",
29173	RowBox[{
29174	RowBox[{"A", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//",
29175	"Simplify"}], "\[IndentingNewLine]",
29176	RowBox[{
29177	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
29178	"\[IndentingNewLine]",
29179	RowBox[{
29180	RowBox[{"Simplify", "[",
29181	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
29182	RowBox[{"WCsimplify", "[",
29183	FractionBox["%",
29184	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
29185	CellChangeTimes->{{3.697354674749395^9, 3.6973547040678988`^9}, {
29186	3.697354788393664^9, 3.697354888284493^9}, {3.697354959353713*^9,
29187	3.697354964732182^9}, {3.697355088279593^9, 3.697355129066331*^9}, {
29188	3.69735516302254^9, 3.697355168084354^9}, {3.697355208346438*^9,
29189	3.697355217629507^9}, {3.6973552529570923`^9, 3.69735534156024*^9}, {
29190	3.697355373005555^9, 3.697355527757762^9}, {3.697366167616441*^9,
29191	3.697366173885779^9}, {3.697366474184607^9, 3.697366480945156*^9}, {
29192	3.697366570896222^9, 3.697366573045783^9}, {3.697369517344802*^9,
29193	3.697369545423195^9}, {3.6973696026572323`^9, 3.697369618340808*^9},
29194	3.6974392939947577`^9, {3.697779796502404^9, 3.6977798017864113`*^9}, {
29195	3.700813620506486^9, 3.700813621426474^9}, {3.714652643567873*^9,
29196	3.714652669421071^9}, {3.714657059287918^9,
29197	3.71465706925286*^9}},ExpressionUUID->"e21d1a7f-bb8b-4ca7-ac26-\
29198	27c7aa491ce9"],
29199
29200	Cell[BoxData[
29201	FractionBox[
29202	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29203	RowBox[{"(",
29204	RowBox[{
29205	RowBox[{"dsth2", " ",
29206	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
29207	RowBox[{
29208	SubscriptBox["s", "\[Theta]"], " ",
29209	RowBox[{"(",
29210	RowBox[{
29211	RowBox[{"2", " ",
29212	RowBox[{"(",
29213	RowBox[{"1", "+", "dgw"}], ")"}], " ",
29214	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29215	SubscriptBox["s", "\[Theta]"]}], "-",
29216	RowBox[{
29217	SubscriptBox["c", "HWB"], " ",
29218	SubscriptBox["c", "\[Theta]"], " ",
29219	SuperscriptBox[
29220	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
29221	SubscriptBox["A", "mu$1"], " ",
29222	RowBox[{"(",
29223	RowBox[{
29224	RowBox[{
29225	RowBox[{
29226	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29227	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
29228	SubscriptBox["W", "mu$2"]}], "-",
29229	RowBox[{
29230	RowBox[{
29231	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29232	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
29233	SubscriptBox["W", "mu$2"]}], "+",
29234	RowBox[{
29235	RowBox[{"(",
29236	RowBox[{
29237	RowBox[{"-",
29238	RowBox[{
29239	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29240	SubscriptBox["W", "mu$1"], "]"}]}], "+",
29241	RowBox[{
29242	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29243	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
29244	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29245	RowBox[{"2", " ",
29246	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29247	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
29248	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
29249	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
29250	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
29251	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
29252	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
29253	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
29254	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
29255	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
29256	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
29257	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
29258	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
29259	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
29260	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
29261	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
29262	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
29263	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
29264	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
29265	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
29266	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
29267	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
29268	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
29269	3.7146561896969433`^9, 3.71465715558003^9,
29270	3.7296081652489157`*^9},ExpressionUUID->"377f4099-14b5-4051-9351-\
29271	0f0c3315ecf8"],
29272
29273	Cell[BoxData[
29274	FractionBox[
29275	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29276	RowBox[{"(",
29277	RowBox[{
29278	RowBox[{"4", " ",
29279	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29280	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
29281	RowBox[{
29282	RowBox[{"(",
29283	RowBox[{
29284	RowBox[{"-",
29285	SubscriptBox["c", "HD"]}], "-",
29286	RowBox[{"8", " ",
29287	SubscriptBox["c", "HWB"], " ",
29288	SubscriptBox["c", "\[Theta]"], " ",
29289	SubscriptBox["s", "\[Theta]"]}], "+",
29290	RowBox[{
29291	RowBox[{"(",
29292	RowBox[{
29293	SubscriptBox["c", "HD"], "-",
29294	RowBox[{"4", " ",
29295	TemplateBox[{"c","Hl","3"},
29296	"Subsuperscript"]}], "+",
29297	RowBox[{"2", " ",
29298	TemplateBox[{"c","ll","Prime"},
29299	"Subsuperscript"]}]}], ")"}], " ",
29300	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
29301	RowBox[{"8", " ",
29302	SubscriptBox["c", "HWB"], " ",
29303	SubscriptBox["c", "\[Theta]"], " ",
29304	SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ",
29305	SuperscriptBox[
29306	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
29307	SubscriptBox["A", "mu$1"], " ",
29308	RowBox[{"(",
29309	RowBox[{
29310	RowBox[{
29311	RowBox[{
29312	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29313	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
29314	SubscriptBox["W", "mu$2"]}], "-",
29315	RowBox[{
29316	RowBox[{
29317	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29318	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
29319	SubscriptBox["W", "mu$2"]}], "+",
29320	RowBox[{
29321	RowBox[{"(",
29322	RowBox[{
29323	RowBox[{"-",
29324	RowBox[{
29325	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29326	SubscriptBox["W", "mu$1"], "]"}]}], "+",
29327	RowBox[{
29328	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29329	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
29330	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29331	RowBox[{"4", " ",
29332	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29333	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
29334	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
29335	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
29336	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
29337	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
29338	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
29339	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
29340	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
29341	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
29342	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
29343	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
29344	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
29345	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
29346	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
29347	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
29348	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
29349	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
29350	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
29351	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
29352	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
29353	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
29354	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
29355	3.7146561896969433`^9, 3.71465715558003^9,
29356	3.729608165493496*^9},ExpressionUUID->"ac5ceffb-b133-4d9e-8ddb-\
29357	ce11b82fcfbe"],
29358
29359	Cell[BoxData[
29360	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29361	RowBox[{"(",
29362	RowBox[{"1", "-",
29363	FractionBox[
29364	RowBox[{
29365	TemplateBox[{"c","Hl","3"},
29366	"Subsuperscript"], " ",
29367	SuperscriptBox[
29368	OverscriptBox["v", "^"], "2"]}],
29369	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
29370	FractionBox[
29371	RowBox[{
29372	TemplateBox[{"c","ll","Prime"},
29373	"Subsuperscript"], " ",
29374	SuperscriptBox[
29375	OverscriptBox["v", "^"], "2"]}],
29376	RowBox[{"2", " ",
29377	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
29378	FractionBox[
29379	RowBox[{
29380	SubscriptBox["c", "HD"], " ",
29381	RowBox[{"(",
29382	RowBox[{
29383	RowBox[{"-", "1"}], "+",
29384	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29385	SuperscriptBox[
29386	OverscriptBox["v", "^"], "2"]}],
29387	RowBox[{"4", " ",
29388	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29389	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
29390	FractionBox[
29391	RowBox[{"2", " ",
29392	SubscriptBox["c", "HWB"], " ",
29393	SubscriptBox["c", "\[Theta]"], " ",
29394	RowBox[{"(",
29395	RowBox[{
29396	RowBox[{"-", "1"}], "+",
29397	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29398	SuperscriptBox[
29399	OverscriptBox["v", "^"], "2"]}],
29400	RowBox[{
29401	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29402	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
29403	SubscriptBox["A", "mu$1"], " ",
29404	RowBox[{"(",
29405	RowBox[{
29406	RowBox[{
29407	RowBox[{
29408	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29409	SubsuperscriptBox["W", "mu$1", "\[Dagger]"], "]"}], " ",
29410	SubscriptBox["W", "mu$2"]}], "-",
29411	RowBox[{
29412	RowBox[{
29413	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29414	SubsuperscriptBox["W", "mu$2", "\[Dagger]"], "]"}], " ",
29415	SubscriptBox["W", "mu$2"]}], "+",
29416	RowBox[{
29417	RowBox[{"(",
29418	RowBox[{
29419	RowBox[{"-",
29420	RowBox[{
29421	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29422	SubscriptBox["W", "mu$1"], "]"}]}], "+",
29423	RowBox[{
29424	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29425	SubscriptBox["W", "mu$2"], "]"}]}], ")"}], " ",
29426	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
29427	CellChangeTimes->{{3.69735477355079^9, 3.69735483777607^9}, {
29428	3.6973548749018717`^9, 3.697354912003601^9}, {3.697354951823205*^9,
29429	3.697354976653989^9}, {3.697355040336031^9, 3.69735506271215*^9},
29430	3.6973550991893473`^9, 3.6973551353504972`^9, 3.697355173570112*^9, {
29431	3.697355212856141^9, 3.697355217896731^9}, {3.6973552655731707`*^9,
29432	3.697355335565867^9}, {3.6973553753832903`^9, 3.697355528685162*^9}, {
29433	3.6973618809639997`^9, 3.6973618884523478`^9}, 3.69736254544621*^9,
29434	3.697366175220421^9, {3.697366477031822^9, 3.6973664872469378`*^9},
29435	3.697366573839696^9, 3.697367425291477^9, {3.697369540208457*^9,
29436	3.6973695457160273`^9}, {3.697369608320189^9, 3.697369618895755*^9},
29437	3.697371350774935^9, {3.697435587855359^9, 3.6974355951215067`*^9},
29438	3.697437120380061^9, {3.697439279398834^9, 3.6974392944268293`*^9},
29439	3.69743999827137^9, 3.6974409502283916`^9, 3.6974454917219887`*^9,
29440	3.697448077977255^9, 3.697449197095973^9, 3.6974492998733587`*^9,
29441	3.697449349239826^9, 3.697449993336981^9, 3.6974500481121063`*^9,
29442	3.6974501386861067`^9, 3.697450841892688^9, 3.697451046672083*^9,
29443	3.697462126771233^9, 3.697538077327023^9, 3.6975385314050303`*^9, {
29444	3.6977797927289677`^9, 3.6977798026372766`^9}, {3.7008136163606367`*^9,
29445	3.700813622538437^9}, 3.7008932950681887`^9, 3.707196709860269*^9,
29446	3.707734406116391^9, 3.711173707660508^9, 3.7139662839070787`*^9,
29447	3.714475236456897^9, {3.714652644431587^9, 3.714652670158429*^9},
29448	3.7146561896969433`^9, 3.71465715558003^9,
29449	3.7296081655458603`*^9},ExpressionUUID->"cbd7fbf2-a376-4211-a7e1-\
29450	d51390bcd28b"]
29451	}, Open ]],
29452
29453	Cell[CellGroupData[{
29454
29455	Cell[BoxData[
29456	RowBox[{
29457	RowBox[{"(", "\[Kappa]\[Gamma]", ")"}], "\[IndentingNewLine]",
29458	RowBox[{
29459	RowBox[{
29460	RowBox[{"aww", "/.",
29461	RowBox[{
29462	RowBox[{
29463	RowBox[{"del", "[",
29464	RowBox[{
29465	RowBox[{"W", "[", "_", "]"}], ",", "_"}], "]"}], "\|",
29466	RowBox[{"del", "[",
29467	RowBox[{
29468	RowBox[{"Wbar", "[", "_", "]"}], ",", "_"}], "]"}]}], "\[Rule]",
29469	"0"}]}], "//", "Simplify"}], "\[IndentingNewLine]",
29470	RowBox[{
29471	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}],
29472	"\[IndentingNewLine]",
29473	RowBox[{
29474	RowBox[{"Simplify", "[",
29475	RowBox[{"SMlimit", "[", "%", "]"}], "]"}], " ",
29476	RowBox[{"WCsimplify", "[",
29477	FractionBox["%",
29478	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}]}]], "Input",
29479	CellChangeTimes->{{3.714652676781377^9, 3.71465270986456^9}, {
29480	3.714657063557783*^9,
29481	3.714657064822434*^9}},ExpressionUUID->"716ca696-b7ef-4516-81d9-\
29482	3da73a793e72"],
29483
29484	Cell[BoxData[
29485	RowBox[{"-",
29486	FractionBox[
29487	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29488	RowBox[{"(",
29489	RowBox[{
29490	RowBox[{"dsth2", " ",
29491	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
29492	RowBox[{
29493	SubscriptBox["s", "\[Theta]"], " ",
29494	RowBox[{"(",
29495	RowBox[{
29496	RowBox[{"2", " ",
29497	RowBox[{"(",
29498	RowBox[{"1", "+", "dgw"}], ")"}], " ",
29499	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29500	SubscriptBox["s", "\[Theta]"]}], "+",
29501	RowBox[{
29502	SubscriptBox["c", "HWB"], " ",
29503	SubscriptBox["c", "\[Theta]"], " ",
29504	SuperscriptBox[
29505	OverscriptBox["v", "^"], "2"]}]}], ")"}]}]}], ")"}], " ",
29506	RowBox[{
29507	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29508	SubscriptBox["A", "mu$1"], "]"}], " ",
29509	RowBox[{"(",
29510	RowBox[{
29511	RowBox[{
29512	SubscriptBox["W", "mu$2"], " ",
29513	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
29514	RowBox[{
29515	SubscriptBox["W", "mu$1"], " ",
29516	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29517	RowBox[{"2", " ",
29518	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29519	SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
29520	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
29521	3.7146561899462633`^9, 3.714657156219308^9,
29522	3.729608165650984*^9},ExpressionUUID->"a41dd100-cf9e-48df-904d-\
29523	b16216d5b30e"],
29524
29525	Cell[BoxData[
29526	RowBox[{"-",
29527	FractionBox[
29528	RowBox[{"\[ImaginaryI]", " ", "e", " ",
29529	RowBox[{"(",
29530	RowBox[{
29531	RowBox[{"4", " ",
29532	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29533	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
29534	RowBox[{
29535	RowBox[{"(",
29536	RowBox[{
29537	RowBox[{"-",
29538	SubscriptBox["c", "HD"]}], "-",
29539	RowBox[{"4", " ",
29540	SubscriptBox["c", "HWB"], " ",
29541	SubscriptBox["c", "\[Theta]"], " ",
29542	SubscriptBox["s", "\[Theta]"]}], "+",
29543	RowBox[{
29544	RowBox[{"(",
29545	RowBox[{
29546	SubscriptBox["c", "HD"], "-",
29547	RowBox[{"4", " ",
29548	TemplateBox[{"c","Hl","3"},
29549	"Subsuperscript"]}], "+",
29550	RowBox[{"2", " ",
29551	TemplateBox[{"c","ll","Prime"},
29552	"Subsuperscript"]}]}], ")"}], " ",
29553	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
29554	RowBox[{"8", " ",
29555	SubscriptBox["c", "HWB"], " ",
29556	SubscriptBox["c", "\[Theta]"], " ",
29557	SubsuperscriptBox["s", "\[Theta]", "3"]}]}], ")"}], " ",
29558	SuperscriptBox[
29559	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
29560	RowBox[{
29561	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29562	SubscriptBox["A", "mu$1"], "]"}], " ",
29563	RowBox[{"(",
29564	RowBox[{
29565	RowBox[{
29566	SubscriptBox["W", "mu$2"], " ",
29567	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
29568	RowBox[{
29569	SubscriptBox["W", "mu$1"], " ",
29570	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}],
29571	RowBox[{"4", " ",
29572	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29573	SubsuperscriptBox["s", "\[Theta]", "2"]}]]}]], "Output",
29574	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
29575	3.7146561899462633`^9, 3.714657156219308^9,
29576	3.729608165792717*^9},ExpressionUUID->"2c133b22-982f-4e58-a7a8-\
29577	41e7ec2b87e0"],
29578
29579	Cell[BoxData[
29580	RowBox[{
29581	RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
29582	RowBox[{"(",
29583	RowBox[{"1", "-",
29584	FractionBox[
29585	RowBox[{
29586	TemplateBox[{"c","Hl","3"},
29587	"Subsuperscript"], " ",
29588	SuperscriptBox[
29589	OverscriptBox["v", "^"], "2"]}],
29590	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
29591	FractionBox[
29592	RowBox[{
29593	TemplateBox[{"c","ll","Prime"},
29594	"Subsuperscript"], " ",
29595	SuperscriptBox[
29596	OverscriptBox["v", "^"], "2"]}],
29597	RowBox[{"2", " ",
29598	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
29599	FractionBox[
29600	RowBox[{
29601	SubscriptBox["c", "HD"], " ",
29602	RowBox[{"(",
29603	RowBox[{
29604	RowBox[{"-", "1"}], "+",
29605	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29606	SuperscriptBox[
29607	OverscriptBox["v", "^"], "2"]}],
29608	RowBox[{"4", " ",
29609	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29610	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
29611	FractionBox[
29612	RowBox[{
29613	SubscriptBox["c", "HWB"], " ",
29614	SubscriptBox["c", "\[Theta]"], " ",
29615	RowBox[{"(",
29616	RowBox[{
29617	RowBox[{"-", "1"}], "+",
29618	RowBox[{"2", " ",
29619	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
29620	SuperscriptBox[
29621	OverscriptBox["v", "^"], "2"]}],
29622	RowBox[{
29623	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29624	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
29625	RowBox[{
29626	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29627	SubscriptBox["A", "mu$1"], "]"}], " ",
29628	RowBox[{"(",
29629	RowBox[{
29630	RowBox[{
29631	SubscriptBox["W", "mu$2"], " ",
29632	SubsuperscriptBox["W", "mu$1", "\[Dagger]"]}], "-",
29633	RowBox[{
29634	SubscriptBox["W", "mu$1"], " ",
29635	SubsuperscriptBox["W", "mu$2", "\[Dagger]"]}]}], ")"}]}]], "Output",
29636	CellChangeTimes->{{3.714652686916037^9, 3.714652710522811^9},
29637	3.7146561899462633`^9, 3.714657156219308^9,
29638	3.729608165818507*^9},ExpressionUUID->"c0b8bd6c-3d8d-434b-bf57-\
29639	bc1054bdb7fb"]
29640	}, Open ]]
29641	}, Closed]],
29642
29643	Cell[CellGroupData[{
29644
29645	Cell["Example : h Z Z coupling ", "Subsection",
29646	CellChangeTimes->{{3.714653069350562^9, 3.714653080585577^9}, {
29647	3.71465313260557^9, 3.714653135145647^9}, {3.7146561420383987`*^9,
29648	3.714656142208275*^9}}],
29649
29650	Cell[CellGroupData[{
29651
29652	Cell[BoxData[
29653	RowBox[{"hzz", "=",
29654	RowBox[{
29655	RowBox[{"GetInteractionTerms", "[",
29656	RowBox[{
29657	RowBox[{"LHiggs", "+", "L6cl2", "+", "L6cl3", "+", "L6cl4"}], ",",
29658	RowBox[{"SelectParticles", "\[Rule]",
29659	RowBox[{"{",
29660	RowBox[{"{",
29661	RowBox[{"Z", ",", "Z", ",", "H"}], "}"}], "}"}]}]}], "]"}], "//",
29662	"Simplify"}]}]], "Input",
29663	CellChangeTimes->{{3.697540540429167^9, 3.697540577497007^9}, {
29664	3.697542681098937^9, 3.6975427025673847`^9}, {3.697781972728959*^9,
29665	3.697781973755425^9}, {3.714653122093409^9, 3.714653151135909*^9}, {
29666	3.714656151886788*^9,
29667	3.714656152346603*^9}},ExpressionUUID->"7f03158f-cf4c-4e14-abc4-\
29668	d5d7c5ea9326"],
29669
29670	Cell[BoxData[
29671	RowBox[{
29672	FractionBox["1",
29673	RowBox[{"16", " ",
29674	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29675	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29676	SubsuperscriptBox["s", "\[Theta]", "2"]}]],
29677	RowBox[{"H", " ",
29678	OverscriptBox["v", "^"], " ",
29679	RowBox[{"(",
29680	RowBox[{
29681	RowBox[{
29682	RowBox[{"-", "32"}], " ",
29683	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
29684	RowBox[{"(",
29685	RowBox[{
29686	RowBox[{"-", "1"}], "+",
29687	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29688	RowBox[{"(",
29689	RowBox[{
29690	SubscriptBox["c", "HW"], "+",
29691	RowBox[{
29692	SubscriptBox["c", "HWB"], " ",
29693	SubscriptBox["c", "\[Theta]"], " ",
29694	SubscriptBox["s", "\[Theta]"]}], "+",
29695	RowBox[{
29696	RowBox[{"(",
29697	RowBox[{
29698	SubscriptBox["c", "HB"], "-",
29699	SubscriptBox["c", "HW"]}], ")"}], " ",
29700	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
29701	SuperscriptBox[
29702	RowBox[{
29703	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29704	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
29705	RowBox[{"32", " ",
29706	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
29707	RowBox[{"(",
29708	RowBox[{
29709	RowBox[{"-", "1"}], "+",
29710	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29711	RowBox[{"(",
29712	RowBox[{
29713	SubscriptBox["c", "HW"], "+",
29714	RowBox[{
29715	SubscriptBox["c", "HWB"], " ",
29716	SubscriptBox["c", "\[Theta]"], " ",
29717	SubscriptBox["s", "\[Theta]"]}], "+",
29718	RowBox[{
29719	RowBox[{"(",
29720	RowBox[{
29721	SubscriptBox["c", "HB"], "-",
29722	SubscriptBox["c", "HW"]}], ")"}], " ",
29723	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
29724	RowBox[{
29725	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29726	SubscriptBox["Z", "mu$1"], "]"}], " ",
29727	RowBox[{
29728	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29729	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
29730	RowBox[{
29731	SuperscriptBox["e", "2"], " ",
29732	RowBox[{"(",
29733	RowBox[{
29734	RowBox[{"2", " ",
29735	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29736	RowBox[{"(",
29737	RowBox[{"2", "+",
29738	RowBox[{
29739	SqrtBox["2"], " ", "dGf"}], "+",
29740	RowBox[{"4", " ", "dgw"}], "+",
29741	RowBox[{"4", " ",
29742	RowBox[{"(",
29743	RowBox[{"dg1", "-", "dgw"}], ")"}], " ",
29744	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
29745	RowBox[{
29746	RowBox[{"(",
29747	RowBox[{
29748	RowBox[{"4", " ",
29749	SubscriptBox["c",
29750	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
29751	RowBox[{"3", " ",
29752	SubscriptBox["c", "HD"]}], "+",
29753	RowBox[{"8", " ",
29754	SubscriptBox["c", "HWB"], " ",
29755	SubscriptBox["c", "\[Theta]"], " ",
29756	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
29757	SuperscriptBox[
29758	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
29759	SubsuperscriptBox["Z", "mu$1", "2"]}]}], ")"}]}]}]], "Output",
29760	CellChangeTimes->{3.714653202225688^9, 3.71465622360679^9,
29761	3.714657179909767*^9,
29762	3.729608190504463*^9},ExpressionUUID->"09645b77-661f-4a7a-ba1a-\
29763	831e22522421"]
29764	}, Open ]],
29765
29766	Cell[CellGroupData[{
29767
29768	Cell[BoxData[
29769	RowBox[{"SMlimit", "[", "hzz", "]"}]], "Input",
29770	CellChangeTimes->{{3.714653438713478*^9,
29771	3.7146534431183643`*^9}},ExpressionUUID->"94dac829-09f9-4c29-944b-\
29772	cc3babf409ff"],
29773
29774	Cell[BoxData[
29775	FractionBox[
29776	RowBox[{
29777	SuperscriptBox["e", "2"], " ", "H", " ",
29778	OverscriptBox["v", "^"], " ",
29779	SubsuperscriptBox["Z", "mu$1", "2"]}],
29780	RowBox[{"4", " ",
29781	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29782	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
29783	CellChangeTimes->{3.71465344371563^9, 3.714656223705248^9,
29784	3.71465718015981*^9,
29785	3.7296081905649157`*^9},ExpressionUUID->"039d44b9-3c7b-42cb-bd5c-\
29786	9adae1446d7b"]
29787	}, Open ]],
29788
29789	Cell[CellGroupData[{
29790
29791	Cell[BoxData[
29792	RowBox[{"Collect", "[",
29793	RowBox[{"hzz", ",", " ",
29794	RowBox[{"{",
29795	RowBox[{
29796	SuperscriptBox[
29797	RowBox[{"Z", "[", "_", "]"}], "2"], ",",
29798	RowBox[{"del", "[",
29799	RowBox[{
29800	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}]}], "}"}], ",",
29801	"WCsimplify"}], "]"}]], "Input",
29802	CellChangeTimes->{{3.6975405853373423`^9, 3.697540591707506^9}, {
29803	3.697541657728915^9, 3.697541658783434^9}, {3.697780136114642*^9,
29804	3.697780142223364^9}, {3.7146531763975058`^9, 3.714653240146103*^9}, {
29805	3.714653274464172^9, 3.7146533884198837`^9}, {3.714653429727*^9,
29806	3.7146534351677427`*^9}},ExpressionUUID->"36b03974-bd4e-41b5-8c38-\
29807	8cf84f3bef60"],
29808
29809	Cell[BoxData[
29810	RowBox[{
29811	RowBox[{
29812	RowBox[{"(",
29813	RowBox[{
29814	RowBox[{"-",
29815	FractionBox[
29816	RowBox[{"2", " ",
29817	SubscriptBox["c", "HWB"], " ", "H", " ",
29818	SubscriptBox["s", "\[Theta]"], " ",
29819	RowBox[{"(",
29820	RowBox[{
29821	RowBox[{"-", "1"}], "+",
29822	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29823	OverscriptBox["v", "^"]}],
29824	RowBox[{
29825	SubscriptBox["c", "\[Theta]"], " ",
29826	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], "-",
29827	FractionBox[
29828	RowBox[{"2", " ",
29829	SubscriptBox["c", "HB"], " ", "H", " ",
29830	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
29831	RowBox[{"(",
29832	RowBox[{
29833	RowBox[{"-", "1"}], "+",
29834	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29835	OverscriptBox["v", "^"]}],
29836	RowBox[{
29837	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29838	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
29839	FractionBox[
29840	RowBox[{"2", " ",
29841	SubscriptBox["c", "HW"], " ", "H", " ",
29842	SuperscriptBox[
29843	RowBox[{"(",
29844	RowBox[{
29845	RowBox[{"-", "1"}], "+",
29846	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
29847	OverscriptBox["v", "^"]}],
29848	RowBox[{
29849	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29850	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
29851	SuperscriptBox[
29852	RowBox[{
29853	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29854	SubscriptBox["Z", "mu$1"], "]"}], "2"]}], "+",
29855	RowBox[{
29856	RowBox[{"(",
29857	RowBox[{
29858	FractionBox[
29859	RowBox[{"2", " ",
29860	SubscriptBox["c", "HWB"], " ", "H", " ",
29861	SubscriptBox["s", "\[Theta]"], " ",
29862	RowBox[{"(",
29863	RowBox[{
29864	RowBox[{"-", "1"}], "+",
29865	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29866	OverscriptBox["v", "^"]}],
29867	RowBox[{
29868	SubscriptBox["c", "\[Theta]"], " ",
29869	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
29870	FractionBox[
29871	RowBox[{"2", " ",
29872	SubscriptBox["c", "HB"], " ", "H", " ",
29873	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
29874	RowBox[{"(",
29875	RowBox[{
29876	RowBox[{"-", "1"}], "+",
29877	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29878	OverscriptBox["v", "^"]}],
29879	RowBox[{
29880	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29881	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
29882	FractionBox[
29883	RowBox[{"2", " ",
29884	SubscriptBox["c", "HW"], " ", "H", " ",
29885	SuperscriptBox[
29886	RowBox[{"(",
29887	RowBox[{
29888	RowBox[{"-", "1"}], "+",
29889	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], "2"], " ",
29890	OverscriptBox["v", "^"]}],
29891	RowBox[{
29892	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29893	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
29894	RowBox[{
29895	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
29896	SubscriptBox["Z", "mu$1"], "]"}], " ",
29897	RowBox[{
29898	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
29899	SubscriptBox["Z", "mu$2"], "]"}]}], "+",
29900	RowBox[{
29901	RowBox[{"(",
29902	RowBox[{
29903	FractionBox[
29904	RowBox[{"dg1", " ",
29905	SuperscriptBox["e", "2"], " ", "H", " ",
29906	OverscriptBox["v", "^"]}],
29907	RowBox[{"2", " ",
29908	SubsuperscriptBox["c", "\[Theta]", "2"]}]], "+",
29909	FractionBox[
29910	RowBox[{
29911	SuperscriptBox["e", "2"], " ", "H", " ",
29912	OverscriptBox["v", "^"]}],
29913	RowBox[{"4", " ",
29914	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29915	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
29916	FractionBox[
29917	RowBox[{"dGf", " ",
29918	SuperscriptBox["e", "2"], " ", "H", " ",
29919	OverscriptBox["v", "^"]}],
29920	RowBox[{"4", " ",
29921	SqrtBox["2"], " ",
29922	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29923	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "-",
29924	FractionBox[
29925	RowBox[{"dgw", " ",
29926	SuperscriptBox["e", "2"], " ", "H", " ",
29927	RowBox[{"(",
29928	RowBox[{
29929	RowBox[{"-", "1"}], "+",
29930	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
29931	OverscriptBox["v", "^"]}],
29932	RowBox[{"2", " ",
29933	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29934	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
29935	FractionBox[
29936	RowBox[{
29937	SubscriptBox["c",
29938	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
29939	SuperscriptBox["e", "2"], " ", "H", " ",
29940	SuperscriptBox[
29941	OverscriptBox["v", "^"], "3"]}],
29942	RowBox[{"4", " ",
29943	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29944	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29945	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
29946	FractionBox[
29947	RowBox[{"3", " ",
29948	SubscriptBox["c", "HD"], " ",
29949	SuperscriptBox["e", "2"], " ", "H", " ",
29950	SuperscriptBox[
29951	OverscriptBox["v", "^"], "3"]}],
29952	RowBox[{"16", " ",
29953	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
29954	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29955	SubsuperscriptBox["s", "\[Theta]", "2"]}]], "+",
29956	FractionBox[
29957	RowBox[{
29958	SubscriptBox["c", "HWB"], " ",
29959	SuperscriptBox["e", "2"], " ", "H", " ",
29960	SuperscriptBox[
29961	OverscriptBox["v", "^"], "3"]}],
29962	RowBox[{"2", " ",
29963	SubscriptBox["c", "\[Theta]"], " ",
29964	SuperscriptBox["\[CapitalLambda]", "2"], " ",
29965	SubscriptBox["s", "\[Theta]"]}]]}], ")"}], " ",
29966	SubsuperscriptBox["Z", "mu$1", "2"]}]}]], "Output",
29967	CellChangeTimes->{
29968	3.700893354200268^9, 3.712654290029169^9, 3.71396688057451*^9, {
29969	3.714653206742526^9, 3.71465324075095^9}, {3.714653297211488*^9,
29970	3.7146533889881983`^9}, {3.714653430663045^9, 3.714653435702468*^9},
29971	3.714656223934009^9, 3.714657180378113^9,
29972	3.729608190755707*^9},ExpressionUUID->"64a6493c-22dd-48a3-b7ef-\
29973	5b5bac7da647"]
29974	}, Open ]],
29975
29976	Cell[BoxData[
29977	RowBox[{"Coefficient", " ", "for", " ",
29978	SubscriptBox["Z", "\[Mu]"],
29979	SuperscriptBox["Z", "\[Mu]"]}]], "Text",
29980	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}, {
29981	3.7146562034254837`^9, 3.714656204213971^9}}],
29982
29983	Cell[CellGroupData[{
29984
29985	Cell[BoxData[{
29986	RowBox[{
29987	RowBox[{
29988	RowBox[{"hzz", "/.",
29989	RowBox[{
29990	RowBox[{"del", "[",
29991	RowBox[{
29992	RowBox[{"Z", "[", "_", "]"}], ",", "_"}], "]"}], "\[Rule]", "0"}]}], "//.",
29993	"MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
29994	RowBox[{
29995	RowBox[{"SMlimit", "[", "%", "]"}], " ",
29996	RowBox[{"WCsimplify", "[",
29997	FractionBox["%",
29998	RowBox[{"SMlimit", "[", "%", "]"}]], "]"}]}]}], "Input",
29999	CellChangeTimes->{{3.714653537675856^9, 3.714653585931526^9}, {
30000	3.714657080555853*^9,
30001	3.714657081859074*^9}},ExpressionUUID->"94c3ebd8-3c6e-4af8-bcca-\
30002	aefd56a8c01b"],
30003
30004	Cell[BoxData[
30005	FractionBox[
30006	RowBox[{
30007	SuperscriptBox["e", "2"], " ", "H", " ",
30008	OverscriptBox["v", "^"], " ",
30009	RowBox[{"(",
30010	RowBox[{
30011	RowBox[{"4", " ",
30012	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
30013	RowBox[{
30014	RowBox[{"(",
30015	RowBox[{
30016	RowBox[{"4", " ",
30017	SubscriptBox["c",
30018	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
30019	SubscriptBox["c", "HD"], "-",
30020	RowBox[{"4", " ",
30021	TemplateBox[{"c","Hl","3"},
30022	"Subsuperscript"]}], "+",
30023	RowBox[{"2", " ",
30024	TemplateBox[{"c","ll","Prime"},
30025	"Subsuperscript"]}]}], ")"}], " ",
30026	SuperscriptBox[
30027	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30028	SubsuperscriptBox["Z", "mu$1", "2"]}],
30029	RowBox[{"16", " ",
30030	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
30031	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30032	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
30033	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9},
30034	3.714656224062125^9, 3.714657180554426^9,
30035	3.7296081908101473`*^9},ExpressionUUID->"07f0c32d-fa88-4908-a52d-\
30036	50b5ef148d8a"],
30037
30038	Cell[BoxData[
30039	FractionBox[
30040	RowBox[{
30041	SuperscriptBox["e", "2"], " ", "H", " ",
30042	OverscriptBox["v", "^"], " ",
30043	RowBox[{"(",
30044	RowBox[{"1", "+",
30045	FractionBox[
30046	RowBox[{
30047	SubscriptBox["c",
30048	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
30049	SuperscriptBox[
30050	OverscriptBox["v", "^"], "2"]}],
30051	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
30052	FractionBox[
30053	RowBox[{
30054	SubscriptBox["c", "HD"], " ",
30055	SuperscriptBox[
30056	OverscriptBox["v", "^"], "2"]}],
30057	RowBox[{"4", " ",
30058	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
30059	FractionBox[
30060	RowBox[{
30061	TemplateBox[{"c","Hl","3"},
30062	"Subsuperscript"], " ",
30063	SuperscriptBox[
30064	OverscriptBox["v", "^"], "2"]}],
30065	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
30066	FractionBox[
30067	RowBox[{
30068	TemplateBox[{"c","ll","Prime"},
30069	"Subsuperscript"], " ",
30070	SuperscriptBox[
30071	OverscriptBox["v", "^"], "2"]}],
30072	RowBox[{"2", " ",
30073	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
30074	SubsuperscriptBox["Z", "mu$1", "2"]}],
30075	RowBox[{"4", " ",
30076	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
30077	SubsuperscriptBox["s", "\[Theta]", "2"]}]]], "Output",
30078	CellChangeTimes->{{3.714653545156804^9, 3.714653586602043^9},
30079	3.714656224062125^9, 3.714657180554426^9,
30080	3.7296081908189297`*^9},ExpressionUUID->"4cd1a919-d8e4-4fee-898e-\
30081	028c259a575b"]
30082	}, Open ]],
30083
30084	Cell[BoxData[
30085	RowBox[{"Coefficient", " ", "for", " ",
30086	RowBox[{
30087	SubscriptBox["\[PartialD]", "\[Mu]"],
30088	SubscriptBox["Z", "\[Nu]"]}],
30089	RowBox[{"(",
30090	RowBox[{
30091	RowBox[{
30092	SuperscriptBox["\[PartialD]", "\[Mu]"],
30093	SuperscriptBox["Z", "\[Nu]"]}], "-",
30094	RowBox[{
30095	SuperscriptBox["\[PartialD]", "\[Nu]"],
30096	SuperscriptBox["Z", "\[Mu]"]}]}], ")"}]}]], "Text",
30097	CellChangeTimes->{{3.714653489006771^9, 3.714653533124165^9}, {
30098	3.714653634026601^9, 3.714653660281114^9}}],
30099
30100	Cell[CellGroupData[{
30101
30102	Cell[BoxData[
30103	RowBox[{
30104	RowBox[{
30105	RowBox[{
30106	RowBox[{"hzz", "/.",
30107	RowBox[{
30108	SuperscriptBox[
30109	RowBox[{"Z", "[", "_", "]"}], "2"], "->", "0"}]}], "//.", "MwShifts"}],
30110	"//", "Simplify"}], "\[IndentingNewLine]"}]], "Input",
30111	CellChangeTimes->{{3.714653537675856^9, 3.714653585931526^9}, {
30112	3.714653677707417^9, 3.714653739972247^9}, {3.714657084302898*^9,
30113	3.71465708601402*^9}},ExpressionUUID->"3be70be7-c90b-4f5f-a2c8-\
30114	5b8efc629c5c"],
30115
30116	Cell[BoxData[
30117	FractionBox[
30118	RowBox[{"2", " ", "H", " ",
30119	RowBox[{"(",
30120	RowBox[{
30121	RowBox[{"-", "1"}], "+",
30122	SubsuperscriptBox["s", "\[Theta]", "2"]}], ")"}], " ",
30123	RowBox[{"(",
30124	RowBox[{
30125	SubscriptBox["c", "HW"], "+",
30126	RowBox[{
30127	SubscriptBox["c", "HWB"], " ",
30128	SubscriptBox["c", "\[Theta]"], " ",
30129	SubscriptBox["s", "\[Theta]"]}], "+",
30130	RowBox[{
30131	RowBox[{"(",
30132	RowBox[{
30133	SubscriptBox["c", "HB"], "-",
30134	SubscriptBox["c", "HW"]}], ")"}], " ",
30135	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}], " ",
30136	OverscriptBox["v", "^"], " ",
30137	RowBox[{
30138	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
30139	SubscriptBox["Z", "mu$1"], "]"}], " ",
30140	RowBox[{"(",
30141	RowBox[{
30142	RowBox[{"-",
30143	RowBox[{
30144	SubscriptBox["\<\"\[PartialD]\"\>", "mu$2"], "[",
30145	SubscriptBox["Z", "mu$1"], "]"}]}], "+",
30146	RowBox[{
30147	SubscriptBox["\<\"\[PartialD]\"\>", "mu$1"], "[",
30148	SubscriptBox["Z", "mu$2"], "]"}]}], ")"}]}],
30149	RowBox[{
30150	SubsuperscriptBox["c", "\[Theta]", "2"], " ",
30151	SuperscriptBox["\[CapitalLambda]", "2"]}]]], "Output",
30152	CellChangeTimes->{{3.714653685513557^9, 3.714653740251841^9},
30153	3.7146562242545652`^9, 3.714657180791407^9,
30154	3.729608190924728*^9},ExpressionUUID->"a0120f06-7bb0-4d9d-85d5-\
30155	04c3e9102f0b"]
30156	}, Open ]]
30157	}, Closed]],
30158
30159	Cell[CellGroupData[{
30160
30161	Cell[TextData[{
30162	"Example - Fermion Z ",
30163	Cell[BoxData[
30164	FormBox["couplings", TraditionalForm]]],
30165	" (non-dipole structures)"
30166	}], "Subsection",
30167	CellChangeTimes->{{3.6974638309413443`^9, 3.697463841478889^9}, {
30168	3.707196728078579^9, 3.707196728973489^9}, {3.709116189885594*^9,
30169	3.7091161899213247`^9}, {3.7111737190476913`^9, 3.711173721023136*^9}, {
30170	3.714474653133204^9, 3.7144746902228537`^9}}],
30171
30172	Cell[BoxData[
30173	RowBox[{
30174	RowBox[{"L2", "=",
30175	RowBox[{
30176	RowBox[{"LFermions", "+", "L6cl7"}], "//", "OptimizeIndex"}]}],
30177	";"}]], "Input",
30178	CellChangeTimes->{{3.714474671414948*^9,
30179	3.714474706220644*^9}},ExpressionUUID->"324c2dfc-5255-4f3e-8064-\
30180	f19e80a8f000"],
30181
30182	Cell[CellGroupData[{
30183
30184	Cell[BoxData[
30185	RowBox[{"ZffCouplings", "=",
30186	RowBox[{
30187	RowBox[{
30188	RowBox[{
30189	RowBox[{"FeynmanRules", "[",
30190	RowBox[{"L2", ",",
30191	RowBox[{"Contains", "\[Rule]",
30192	RowBox[{"{", "Z", "}"}]}], ",",
30193	RowBox[{"MaxParticles", "\[Rule]", "3"}]}], "]"}], "//",
30194	"OptimizeIndex"}], "//", "Simplify"}], "//", "TableForm"}]}]], "Input",
30195	CellChangeTimes->{{3.697463857630127^9, 3.697463897475298^9}, {
30196	3.697464136487383^9, 3.6974641367049007`^9}, {3.6974642201407433`*^9,
30197	3.697464224325818^9}, {3.697779806045223^9, 3.6977798069672327`*^9}, {
30198	3.697781531384438^9, 3.6977815317278852`^9}, {3.706961693077465*^9,
30199	3.7069617104980583`^9}, {3.70696208279708^9, 3.706962082840859*^9}, {
30200	3.70702385358392^9, 3.707023854145379^9}, 3.71423999167645*^9, {
30201	3.714475504960969^9, 3.714475525688051^9}, {3.7146527509492188`*^9,
30202	3.714652756642342^9}, {3.714652909302999^9,
30203	3.7146529149076347`*^9}},ExpressionUUID->"b3dae78e-fd74-497d-83fa-\
30204	f3fa31c363d9"],
30205
30206	Cell[CellGroupData[{
30207
30208	Cell[BoxData[
30209	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
30210	StripOnInput->False,
30211	LineColor->RGBColor[1, 0.5, 0],
30212	FrontFaceColor->RGBColor[1, 0.5, 0],
30213	BackFaceColor->RGBColor[1, 0.5, 0],
30214	GraphicsColor->RGBColor[1, 0.5, 0],
30215	FontWeight->Bold,
30216	FontColor->RGBColor[1, 0.5, 0]]], "Print",
30217	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
30218	3.71465625612295^9, 3.714657206975029^9,
30219	3.729608220005457*^9},ExpressionUUID->"d66e01e6-4d51-4eb6-8963-\
30220	781791e00d7c"],
30221
30222	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
30223	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
30224	3.71465625612295^9, 3.714657206975029^9,
30225	3.7296082200065737`*^9},ExpressionUUID->"d67ab65c-f140-4653-a05a-\
30226	b0a788bd9ca8"],
30227
30228	Cell[BoxData[
30229	InterpretationBox[
30230	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
30231	"\[InvisibleSpace]", "\<\" cores\"\>"}],
30232	SequenceForm["Expanding the indices over ", 2, " cores"],
30233	Editable->False]], "Print",
30234	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
30235	3.71465625612295^9, 3.714657206975029^9,
30236	3.729608220009325*^9},ExpressionUUID->"8c8ef279-7e00-4f8e-9d28-\
30237	0886f3d1d145"],
30238
30239	Cell[BoxData["\<\"Collecting the different structures that enter the \
30240	vertex.\"\>"], "Print",
30241	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
30242	3.71465625612295^9, 3.714657206975029^9,
30243	3.729608234038577*^9},ExpressionUUID->"2df9a828-968c-4367-8da1-\
30244	ab0eea1d2f1c"],
30245
30246	Cell[BoxData[
30247	InterpretationBox[
30248	RowBox[{
30249	"4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
30250	-> starting the computation: \"\>", "\[InvisibleSpace]",
30251	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
30252	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
30253	"\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
30254	SequenceForm[
30255	4, " possible non-zero vertices have been found -> starting the \
30256	computation: ",
30257	Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
30258	Editable->False]], "Print",
30259	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
30260	3.71465625612295^9, 3.714657206975029^9,
30261	3.729608234063704*^9},ExpressionUUID->"8bb170bf-e073-4d4b-8177-\
30262	42f294cb50a0"],
30263
30264	Cell[BoxData[
30265	InterpretationBox[
30266	RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
30267	SequenceForm[4, " vertices obtained."],
30268	Editable->False]], "Print",
30269	CellChangeTimes->{3.714652757165369^9, 3.714652915517042^9,
30270	3.71465625612295^9, 3.714657206975029^9,
30271	3.729608236927115*^9},ExpressionUUID->"e86a2a94-fb7f-41ca-8edb-\
30272	6f57b4010c6a"]
30273	}, Open ]],
30274
30275	Cell[BoxData[
30276	InterpretationBox[GridBox[{
30277	{GridBox[{
30278	{
30279	OverscriptBox["dq", "\<\"-\"\>"], "1"},
30280	{"dq", "2"},
30281	{"Z", "3"}
30282	},
30283	GridBoxAlignment->{
30284	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
30285	"RowsIndexed" -> {}},
30286	GridBoxSpacings->{"Columns" -> {
30287	Offset[0.27999999999999997`], {
30288	Offset[0.7]},
30289	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
30290	Offset[0.2], {
30291	Offset[0.1]},
30292	Offset[0.2]}, "RowsIndexed" -> {}}],
30293	RowBox[{"-",
30294	FractionBox[
30295	RowBox[{"\[ImaginaryI]", " ", "e", " ",
30296	SubscriptBox["\[Delta]",
30297	RowBox[{
30298	SubscriptBox["\<\"m\"\>", "1"], ",",
30299	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
30300	RowBox[{"(",
30301	RowBox[{
30302	RowBox[{
30303	SubscriptBox["\[Delta]",
30304	RowBox[{
30305	SubscriptBox["\<\"f\"\>", "1"], ",",
30306	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30307	RowBox[{"(",
30308	RowBox[{
30309	RowBox[{
30310	RowBox[{"(",
30311	RowBox[{
30312	RowBox[{
30313	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30314	RowBox[{"(",
30315	RowBox[{
30316	RowBox[{"-", "3"}], "-",
30317	RowBox[{"3", " ", "dgw"}], "+", "dsth2", "+",
30318	RowBox[{
30319	RowBox[{"(",
30320	RowBox[{"2", "-", "dg1", "+",
30321	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
30322	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
30323	RowBox[{
30324	RowBox[{"(",
30325	RowBox[{
30326	RowBox[{"3", " ",
30327	TemplateBox[{"c","Hq","1"},
30328	"Subsuperscript"]}], "+",
30329	RowBox[{"3", " ",
30330	TemplateBox[{"c","Hq","3"},
30331	"Subsuperscript"]}], "+",
30332	RowBox[{"2", " ",
30333	SubscriptBox["c", "HWB"], " ",
30334	SubscriptBox["c", "\[Theta]"], " ",
30335	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
30336	SuperscriptBox[
30337	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30338	SubscriptBox[
30339	RowBox[{
30340	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30341	"Superscript"], ".",
30342	SubscriptBox["P", "\<\"-\"\>"]}],
30343	RowBox[{
30344	SubscriptBox["\<\"s\"\>", "1"], ",",
30345	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30346	RowBox[{
30347	RowBox[{"(",
30348	RowBox[{
30349	RowBox[{"dsth2", " ",
30350	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
30351	RowBox[{"2", " ",
30352	RowBox[{"(",
30353	RowBox[{"1", "+", "dg1"}], ")"}], " ",
30354	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30355	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
30356	RowBox[{
30357	RowBox[{"(",
30358	RowBox[{
30359	RowBox[{
30360	RowBox[{"-", "3"}], " ",
30361	SubscriptBox["c", "Hd"]}], "+",
30362	RowBox[{
30363	SubscriptBox["c", "HWB"], " ",
30364	SubscriptBox["c", "\[Theta]"], " ",
30365	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
30366	SuperscriptBox[
30367	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30368	SubscriptBox[
30369	RowBox[{
30370	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30371	"Superscript"], ".",
30372	SubscriptBox["P", "\<\"+\"\>"]}],
30373	RowBox[{
30374	SubscriptBox["\<\"s\"\>", "1"], ",",
30375	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "-",
30376	RowBox[{"3", " ",
30377	SuperscriptBox[
30378	OverscriptBox["v", "^"], "2"], " ",
30379	RowBox[{"(",
30380	RowBox[{
30381	RowBox[{
30382	RowBox[{"(",
30383	RowBox[{
30384	TagBox[
30385	RowBox[{
30386	SubscriptBox["\[CapitalDelta]", "u"], " ",
30387	TemplateBox[{"c","Hq","1"},
30388	"Subsuperscript"]}],
30389	HoldForm], "+",
30390	TagBox[
30391	RowBox[{
30392	SubscriptBox["\[CapitalDelta]", "u"], " ",
30393	TemplateBox[{"c","Hq","3"},
30394	"Subsuperscript"]}],
30395	HoldForm]}], ")"}], " ",
30396	SubscriptBox[
30397	TemplateBox[{"V","CKM"},
30398	"Superscript"],
30399	RowBox[{"Generation$1", ",",
30400	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30401	SubsuperscriptBox[
30402	RowBox[{"(",
30403	TemplateBox[{"V","CKM"},
30404	"Superscript"], ")"}],
30405	RowBox[{"Generation$2", ",",
30406	SubscriptBox["\<\"f\"\>", "1"]}], "\<\"*\"\>"], " ",
30407	SubscriptBox[
30408	TemplateBox[{"S","u"},
30409	"Superscript"],
30410	RowBox[{"Generation$2", ",", "Generation$1"}]], " ",
30411	SubscriptBox[
30412	RowBox[{
30413	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30414	"Superscript"], ".",
30415	SubscriptBox["P", "\<\"-\"\>"]}],
30416	RowBox[{
30417	SubscriptBox["\<\"s\"\>", "1"], ",",
30418	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30419	RowBox[{
30420	SubscriptBox[
30421	TemplateBox[{"S","d"},
30422	"Superscript"],
30423	RowBox[{
30424	SubscriptBox["\<\"f\"\>", "1"], ",",
30425	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30426	RowBox[{"(",
30427	RowBox[{
30428	RowBox[{
30429	RowBox[{"(",
30430	RowBox[{
30431	TagBox[
30432	RowBox[{
30433	SubscriptBox["\[CapitalDelta]", "d"], " ",
30434	TemplateBox[{"c","Hq","1"},
30435	"Subsuperscript"]}],
30436	HoldForm], "+",
30437	TagBox[
30438	RowBox[{
30439	SubscriptBox["\[CapitalDelta]", "d"], " ",
30440	TemplateBox[{"c","Hq","3"},
30441	"Subsuperscript"]}],
30442	HoldForm]}], ")"}], " ",
30443	SubscriptBox[
30444	RowBox[{
30445	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30446	"Superscript"], ".",
30447	SubscriptBox["P", "\<\"-\"\>"]}],
30448	RowBox[{
30449	SubscriptBox["\<\"s\"\>", "1"], ",",
30450	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30451	RowBox[{
30452	SubscriptBox["\[CapitalDelta]c", "Hd"], " ",
30453	SubscriptBox[
30454	RowBox[{
30455	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30456	"Superscript"], ".",
30457	SubscriptBox["P", "\<\"+\"\>"]}],
30458	RowBox[{
30459	SubscriptBox["\<\"s\"\>", "1"], ",",
30460	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}],
30461	")"}]}]}], ")"}]}],
30462	RowBox[{"6", " ",
30463	SubscriptBox["c", "\[Theta]"], " ",
30464	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30465	SubscriptBox["s", "\[Theta]"]}]]}]},
30466	{GridBox[{
30467	{
30468	OverscriptBox["l", "\<\"-\"\>"], "1"},
30469	{"l", "2"},
30470	{"Z", "3"}
30471	},
30472	GridBoxAlignment->{
30473	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
30474	"RowsIndexed" -> {}},
30475	GridBoxSpacings->{"Columns" -> {
30476	Offset[0.27999999999999997`], {
30477	Offset[0.7]},
30478	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
30479	Offset[0.2], {
30480	Offset[0.1]},
30481	Offset[0.2]}, "RowsIndexed" -> {}}],
30482	RowBox[{"-",
30483	FractionBox[
30484	RowBox[{"\[ImaginaryI]", " ", "e", " ",
30485	SubscriptBox["\[Delta]",
30486	RowBox[{
30487	SubscriptBox["\<\"f\"\>", "1"], ",",
30488	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30489	RowBox[{"(",
30490	RowBox[{
30491	RowBox[{
30492	RowBox[{"(",
30493	RowBox[{
30494	RowBox[{
30495	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30496	RowBox[{"(",
30497	RowBox[{
30498	RowBox[{"-", "1"}], "-", "dgw", "+", "dsth2", "+",
30499	RowBox[{
30500	RowBox[{"(",
30501	RowBox[{"2", "+", "dg1", "+", "dgw"}], ")"}], " ",
30502	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "-",
30503	RowBox[{
30504	RowBox[{"(",
30505	RowBox[{
30506	TemplateBox[{"c","Hl","1"},
30507	"Subsuperscript"], "+",
30508	TemplateBox[{"c","Hl","3"},
30509	"Subsuperscript"]}], ")"}], " ",
30510	SuperscriptBox[
30511	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30512	SubscriptBox[
30513	RowBox[{
30514	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30515	"Superscript"], ".",
30516	SubscriptBox["P", "\<\"-\"\>"]}],
30517	RowBox[{
30518	SubscriptBox["\<\"s\"\>", "1"], ",",
30519	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30520	RowBox[{
30521	RowBox[{"(",
30522	RowBox[{
30523	RowBox[{"dsth2", " ",
30524	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
30525	RowBox[{"2", " ",
30526	RowBox[{"(",
30527	RowBox[{"1", "+", "dg1"}], ")"}], " ",
30528	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30529	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
30530	RowBox[{
30531	RowBox[{"(",
30532	RowBox[{
30533	RowBox[{"-",
30534	SubscriptBox["c", "He"]}], "+",
30535	RowBox[{
30536	SubscriptBox["c", "HWB"], " ",
30537	SubscriptBox["c", "\[Theta]"], " ",
30538	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
30539	SuperscriptBox[
30540	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30541	SubscriptBox[
30542	RowBox[{
30543	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30544	"Superscript"], ".",
30545	SubscriptBox["P", "\<\"+\"\>"]}],
30546	RowBox[{
30547	SubscriptBox["\<\"s\"\>", "1"], ",",
30548	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}],
30549	RowBox[{"2", " ",
30550	SubscriptBox["c", "\[Theta]"], " ",
30551	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30552	SubscriptBox["s", "\[Theta]"]}]]}]},
30553	{GridBox[{
30554	{
30555	OverscriptBox["uq", "\<\"-\"\>"], "1"},
30556	{"uq", "2"},
30557	{"Z", "3"}
30558	},
30559	GridBoxAlignment->{
30560	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
30561	"RowsIndexed" -> {}},
30562	GridBoxSpacings->{"Columns" -> {
30563	Offset[0.27999999999999997`], {
30564	Offset[0.7]},
30565	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
30566	Offset[0.2], {
30567	Offset[0.1]},
30568	Offset[0.2]}, "RowsIndexed" -> {}}],
30569	FractionBox[
30570	RowBox[{"\[ImaginaryI]", " ", "e", " ",
30571	SubscriptBox["\[Delta]",
30572	RowBox[{
30573	SubscriptBox["\<\"m\"\>", "1"], ",",
30574	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
30575	RowBox[{"(",
30576	RowBox[{
30577	RowBox[{
30578	SubscriptBox["\[Delta]",
30579	RowBox[{
30580	SubscriptBox["\<\"f\"\>", "1"], ",",
30581	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30582	RowBox[{"(",
30583	RowBox[{
30584	RowBox[{
30585	RowBox[{"(",
30586	RowBox[{
30587	RowBox[{
30588	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30589	RowBox[{"(",
30590	RowBox[{
30591	RowBox[{"-", "3"}], "-",
30592	RowBox[{"3", " ", "dgw"}], "+",
30593	RowBox[{"2", " ", "dsth2"}], "+",
30594	RowBox[{
30595	RowBox[{"(",
30596	RowBox[{"4", "+", "dg1", "+",
30597	RowBox[{"3", " ", "dgw"}]}], ")"}], " ",
30598	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
30599
30600	RowBox[{
30601	RowBox[{"(",
30602	RowBox[{
30603	RowBox[{"3", " ",
30604	TemplateBox[{"c","Hq","1"},
30605	"Subsuperscript"]}], "-",
30606	RowBox[{"3", " ",
30607	TemplateBox[{"c","Hq","3"},
30608	"Subsuperscript"]}], "-",
30609	RowBox[{
30610	SubscriptBox["c", "HWB"], " ",
30611	SubscriptBox["c", "\[Theta]"], " ",
30612	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
30613	SuperscriptBox[
30614	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30615	SubscriptBox[
30616	RowBox[{
30617	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30618	"Superscript"], ".",
30619	SubscriptBox["P", "\<\"-\"\>"]}],
30620	RowBox[{
30621	SubscriptBox["\<\"s\"\>", "1"], ",",
30622	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30623	RowBox[{
30624	RowBox[{"(",
30625	RowBox[{
30626	RowBox[{"2", " ", "dsth2", " ",
30627	SuperscriptBox["\[CapitalLambda]", "2"]}], "+",
30628	RowBox[{"4", " ",
30629	RowBox[{"(",
30630	RowBox[{"1", "+", "dg1"}], ")"}], " ",
30631	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30632	SubsuperscriptBox["s", "\[Theta]", "2"]}], "+",
30633	RowBox[{
30634	RowBox[{"(",
30635	RowBox[{
30636	RowBox[{"3", " ",
30637	SubscriptBox["c", "Hu"]}], "+",
30638	RowBox[{"2", " ",
30639	SubscriptBox["c", "HWB"], " ",
30640	SubscriptBox["c", "\[Theta]"], " ",
30641	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
30642	SuperscriptBox[
30643	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30644	SubscriptBox[
30645	RowBox[{
30646	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30647	"Superscript"], ".",
30648	SubscriptBox["P", "\<\"+\"\>"]}],
30649	RowBox[{
30650	SubscriptBox["\<\"s\"\>", "1"], ",",
30651	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}], "+",
30652	RowBox[{"3", " ",
30653	SuperscriptBox[
30654	OverscriptBox["v", "^"], "2"], " ",
30655	RowBox[{"(",
30656	RowBox[{
30657	RowBox[{
30658	RowBox[{"(",
30659	RowBox[{
30660	TagBox[
30661	RowBox[{
30662	SubscriptBox["\[CapitalDelta]", "d"], " ",
30663	TemplateBox[{"c","Hq","1"},
30664	"Subsuperscript"]}],
30665	HoldForm], "-",
30666	TagBox[
30667	RowBox[{
30668	SubscriptBox["\[CapitalDelta]", "d"], " ",
30669	TemplateBox[{"c","Hq","3"},
30670	"Subsuperscript"]}],
30671	HoldForm]}], ")"}], " ",
30672	SubscriptBox[
30673	TemplateBox[{"V","CKM"},
30674	"Superscript"],
30675	RowBox[{
30676	SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]], " ",
30677	SubsuperscriptBox[
30678	RowBox[{"(",
30679	TemplateBox[{"V","CKM"},
30680	"Superscript"], ")"}],
30681	RowBox[{
30682	SubscriptBox["\<\"f\"\>", "2"], ",",
30683	"Generation$2"}], "\<\"*\"\>"], " ",
30684	SubscriptBox[
30685	TemplateBox[{"S","d"},
30686	"Superscript"],
30687	RowBox[{"Generation$1", ",", "Generation$2"}]], " ",
30688	SubscriptBox[
30689	RowBox[{
30690	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30691	"Superscript"], ".",
30692	SubscriptBox["P", "\<\"-\"\>"]}],
30693	RowBox[{
30694	SubscriptBox["\<\"s\"\>", "1"], ",",
30695	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30696	RowBox[{
30697	SubscriptBox[
30698	TemplateBox[{"S","u"},
30699	"Superscript"],
30700	RowBox[{
30701	SubscriptBox["\<\"f\"\>", "1"], ",",
30702	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30703	RowBox[{"(",
30704	RowBox[{
30705	RowBox[{
30706	RowBox[{"(",
30707	RowBox[{
30708	TagBox[
30709	RowBox[{
30710	SubscriptBox["\[CapitalDelta]", "u"], " ",
30711	TemplateBox[{"c","Hq","1"},
30712	"Subsuperscript"]}],
30713	HoldForm], "-",
30714	TagBox[
30715	RowBox[{
30716	SubscriptBox["\[CapitalDelta]", "u"], " ",
30717	TemplateBox[{"c","Hq","3"},
30718	"Subsuperscript"]}],
30719	HoldForm]}], ")"}], " ",
30720	SubscriptBox[
30721	RowBox[{
30722	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30723	"Superscript"], ".",
30724	SubscriptBox["P", "\<\"-\"\>"]}],
30725	RowBox[{
30726	SubscriptBox["\<\"s\"\>", "1"], ",",
30727	SubscriptBox["\<\"s\"\>", "2"]}]]}], "+",
30728	RowBox[{
30729	SubscriptBox["\[CapitalDelta]c", "Hu"], " ",
30730	SubscriptBox[
30731	RowBox[{
30732	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30733	"Superscript"], ".",
30734	SubscriptBox["P", "\<\"+\"\>"]}],
30735	RowBox[{
30736	SubscriptBox["\<\"s\"\>", "1"], ",",
30737	SubscriptBox["\<\"s\"\>", "2"]}]]}]}], ")"}]}]}], ")"}]}]}],
30738	")"}]}],
30739	RowBox[{"6", " ",
30740	SubscriptBox["c", "\[Theta]"], " ",
30741	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30742	SubscriptBox["s", "\[Theta]"]}]]},
30743	{GridBox[{
30744	{
30745	OverscriptBox["vl", "\<\"-\"\>"], "1"},
30746	{"vl", "2"},
30747	{"Z", "3"}
30748	},
30749	GridBoxAlignment->{
30750	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
30751	"RowsIndexed" -> {}},
30752	GridBoxSpacings->{"Columns" -> {
30753	Offset[0.27999999999999997`], {
30754	Offset[0.7]},
30755	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
30756	Offset[0.2], {
30757	Offset[0.1]},
30758	Offset[0.2]}, "RowsIndexed" -> {}}],
30759	FractionBox[
30760	RowBox[{"\[ImaginaryI]", " ", "e", " ",
30761	RowBox[{"(",
30762	RowBox[{
30763	RowBox[{
30764	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30765	RowBox[{"(",
30766	RowBox[{
30767	RowBox[{"-", "1"}], "-", "dgw", "+",
30768	RowBox[{
30769	RowBox[{"(",
30770	RowBox[{
30771	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
30772	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
30773	RowBox[{
30774	RowBox[{"(",
30775	RowBox[{
30776	TemplateBox[{"c","Hl","1"},
30777	"Subsuperscript"], "-",
30778	TemplateBox[{"c","Hl","3"},
30779	"Subsuperscript"], "-",
30780	RowBox[{
30781	SubscriptBox["c", "HWB"], " ",
30782	SubscriptBox["c", "\[Theta]"], " ",
30783	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
30784	SuperscriptBox[
30785	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
30786	SubscriptBox["\[Delta]",
30787	RowBox[{
30788	SubscriptBox["\<\"f\"\>", "1"], ",",
30789	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
30790	SubscriptBox[
30791	RowBox[{
30792	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
30793	"Superscript"], ".",
30794	SubscriptBox["P", "\<\"-\"\>"]}],
30795	RowBox[{
30796	SubscriptBox["\<\"s\"\>", "1"], ",",
30797	SubscriptBox["\<\"s\"\>", "2"]}]]}],
30798	RowBox[{"2", " ",
30799	SubscriptBox["c", "\[Theta]"], " ",
30800	SuperscriptBox["\[CapitalLambda]", "2"], " ",
30801	SubscriptBox["s", "\[Theta]"]}]]}
30802	},
30803	GridBoxAlignment->{
30804	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
30805	"RowsIndexed" -> {}},
30806	GridBoxSpacings->{"Columns" -> {
30807	Offset[0.27999999999999997`], {
30808	Offset[2.0999999999999996`]},
30809	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
30810	Offset[0.2], {
30811	Offset[0.4]},
30812	Offset[0.2]}, "RowsIndexed" -> {}}],
30813	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {$CellContext`Z,
30814	3}}, Complex[0,
30815	Rational[-1, 6]] $CellContext`cth^(-1)
30816	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
30817	FeynRules`IndexDelta[
30818	FeynRules`Index[FeynRules`Colour,
30819	FeynRules`Ext[1]],
30820	FeynRules`Index[FeynRules`Colour,
30821	FeynRules`Ext[2]]] (FeynRules`IndexDelta[
30822	FeynRules`Index[$CellContext`Generation,
30823	FeynRules`Ext[1]],
30824	FeynRules`Index[$CellContext`Generation,
30825	FeynRules`Ext[
30826	2]]] (($CellContext`LambdaSMEFT^2 (-3 -
30827	3 $CellContext`dgw + $CellContext`dsth2 + (2 - $CellContext`dg1 +
30828	3 $CellContext`dgw) $CellContext`sth^2) - (3 $CellContext`cHq10 +
30829	3 $CellContext`cHq30 +
30830	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
30831	$CellContext`vevhat^2) FeynRules`TensDot[
30832	FeynRules`Ga[
30833	FeynRules`Index[FeynRules`Lorentz,
30834	FeynRules`Ext[3]]], FeynRules`ProjM][
30835	FeynRules`Index[FeynRules`Spin,
30836	FeynRules`Ext[1]],
30837	FeynRules`Index[FeynRules`Spin,
30838	FeynRules`Ext[
30839	2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
30840	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
30841	$CellContext`sth^2 + ((-3) $CellContext`cHd0 + $CellContext`cHWB \
30842	$CellContext`cth $CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
30843	FeynRules`Ga[
30844	FeynRules`Index[FeynRules`Lorentz,
30845	FeynRules`Ext[3]]], FeynRules`ProjP][
30846	FeynRules`Index[FeynRules`Spin,
30847	FeynRules`Ext[1]],
30848	FeynRules`Index[FeynRules`Spin,
30849	FeynRules`Ext[2]]]) -
30850	3 $CellContext`vevhat^2 (($CellContext`DeltaucHq1 + \
30851	$CellContext`DeltaucHq3) $CellContext`CKM[
30852	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
30853	FeynRules`Index[$CellContext`Generation,
30854	FeynRules`Ext[2]]] Conjugate[
30855	$CellContext`CKM[
30856
30857	FeynRules`Index[$CellContext`Generation, \
30858	$CellContext`Generation$2],
30859	FeynRules`Index[$CellContext`Generation,
30860	FeynRules`Ext[1]]]] $CellContext`Su[
30861	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$2],
30862	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1]]
30863	FeynRules`TensDot[
30864	FeynRules`Ga[
30865	FeynRules`Index[FeynRules`Lorentz,
30866	FeynRules`Ext[3]]], FeynRules`ProjM][
30867	FeynRules`Index[FeynRules`Spin,
30868	FeynRules`Ext[1]],
30869	FeynRules`Index[FeynRules`Spin,
30870	FeynRules`Ext[2]]] + $CellContext`Sd[
30871	FeynRules`Index[$CellContext`Generation,
30872	FeynRules`Ext[1]],
30873	FeynRules`Index[$CellContext`Generation,
30874	FeynRules`Ext[
30875	2]]] (($CellContext`DeltadcHq1 + $CellContext`DeltadcHq3)
30876	FeynRules`TensDot[
30877	FeynRules`Ga[
30878	FeynRules`Index[FeynRules`Lorentz,
30879	FeynRules`Ext[3]]], FeynRules`ProjM][
30880	FeynRules`Index[FeynRules`Spin,
30881	FeynRules`Ext[1]],
30882	FeynRules`Index[FeynRules`Spin,
30883	FeynRules`Ext[2]]] + $CellContext`DeltacHd FeynRules`TensDot[
30884	FeynRules`Ga[
30885	FeynRules`Index[FeynRules`Lorentz,
30886	FeynRules`Ext[3]]], FeynRules`ProjP][
30887	FeynRules`Index[FeynRules`Spin,
30888	FeynRules`Ext[1]],
30889	FeynRules`Index[FeynRules`Spin,
30890	FeynRules`Ext[2]]])))}, {{{$CellContext`lbar, 1}, {
30891	FeynRules`l, 2}, {$CellContext`Z, 3}}, Complex[0,
30892	Rational[-1, 2]] $CellContext`cth^(-1)
30893	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
30894	FeynRules`IndexDelta[
30895	FeynRules`Index[$CellContext`Generation,
30896	FeynRules`Ext[1]],
30897	FeynRules`Index[$CellContext`Generation,
30898	FeynRules`Ext[
30899	2]]] (($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + \
30900	$CellContext`dsth2 + (
30901	2 + $CellContext`dg1 + $CellContext`dgw) $CellContext`sth^2) - \
30902	($CellContext`cHl1 + $CellContext`cHl3) $CellContext`vevhat^2)
30903	FeynRules`TensDot[
30904	FeynRules`Ga[
30905	FeynRules`Index[FeynRules`Lorentz,
30906	FeynRules`Ext[3]]], FeynRules`ProjM][
30907	FeynRules`Index[FeynRules`Spin,
30908	FeynRules`Ext[1]],
30909	FeynRules`Index[FeynRules`Spin,
30910	FeynRules`Ext[2]]] + ($CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
30911	2 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
30912	$CellContext`sth^2 + (-$CellContext`cHe + $CellContext`cHWB $CellContext`cth \
30913	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
30914	FeynRules`Ga[
30915	FeynRules`Index[FeynRules`Lorentz,
30916	FeynRules`Ext[3]]], FeynRules`ProjP][
30917	FeynRules`Index[FeynRules`Spin,
30918	FeynRules`Ext[1]],
30919	FeynRules`Index[FeynRules`Spin,
30920	FeynRules`Ext[2]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
30921	2}, {$CellContext`Z, 3}}, Complex[0,
30922	Rational[1, 6]] $CellContext`cth^(-1)
30923	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
30924	FeynRules`IndexDelta[
30925	FeynRules`Index[FeynRules`Colour,
30926	FeynRules`Ext[1]],
30927	FeynRules`Index[FeynRules`Colour,
30928	FeynRules`Ext[2]]] (FeynRules`IndexDelta[
30929	FeynRules`Index[$CellContext`Generation,
30930	FeynRules`Ext[1]],
30931	FeynRules`Index[$CellContext`Generation,
30932	FeynRules`Ext[
30933	2]]] (($CellContext`LambdaSMEFT^2 (-3 - 3 $CellContext`dgw +
30934	2 $CellContext`dsth2 + (4 + $CellContext`dg1 +
30935	3 $CellContext`dgw) $CellContext`sth^2) + (3 $CellContext`cHq10 -
30936	3 $CellContext`cHq30 - $CellContext`cHWB $CellContext`cth \
30937	$CellContext`sth) $CellContext`vevhat^2) FeynRules`TensDot[
30938	FeynRules`Ga[
30939	FeynRules`Index[FeynRules`Lorentz,
30940	FeynRules`Ext[3]]], FeynRules`ProjM][
30941	FeynRules`Index[FeynRules`Spin,
30942	FeynRules`Ext[1]],
30943	FeynRules`Index[FeynRules`Spin,
30944	FeynRules`Ext[2]]] + (
30945	2 $CellContext`dsth2 $CellContext`LambdaSMEFT^2 +
30946	4 (1 + $CellContext`dg1) $CellContext`LambdaSMEFT^2 \
30947	$CellContext`sth^2 + (3 $CellContext`cHu0 +
30948	2 $CellContext`cHWB $CellContext`cth $CellContext`sth) \
30949	$CellContext`vevhat^2) FeynRules`TensDot[
30950	FeynRules`Ga[
30951	FeynRules`Index[FeynRules`Lorentz,
30952	FeynRules`Ext[3]]], FeynRules`ProjP][
30953	FeynRules`Index[FeynRules`Spin,
30954	FeynRules`Ext[1]],
30955	FeynRules`Index[FeynRules`Spin,
30956	FeynRules`Ext[2]]]) +
30957	3 $CellContext`vevhat^2 (($CellContext`DeltadcHq1 - \
30958	$CellContext`DeltadcHq3) $CellContext`CKM[
30959	FeynRules`Index[$CellContext`Generation,
30960	FeynRules`Ext[1]],
30961
30962	FeynRules`Index[$CellContext`Generation, \
30963	$CellContext`Generation$1]] Conjugate[
30964	$CellContext`CKM[
30965	FeynRules`Index[$CellContext`Generation,
30966	FeynRules`Ext[2]],
30967
30968	FeynRules`Index[$CellContext`Generation, \
30969	$CellContext`Generation$2]]] $CellContext`Sd[
30970
30971	FeynRules`Index[$CellContext`Generation, \
30972	$CellContext`Generation$1],
30973
30974	FeynRules`Index[$CellContext`Generation, \
30975	$CellContext`Generation$2]] FeynRules`TensDot[
30976	FeynRules`Ga[
30977	FeynRules`Index[FeynRules`Lorentz,
30978	FeynRules`Ext[3]]], FeynRules`ProjM][
30979	FeynRules`Index[FeynRules`Spin,
30980	FeynRules`Ext[1]],
30981	FeynRules`Index[FeynRules`Spin,
30982	FeynRules`Ext[2]]] + $CellContext`Su[
30983	FeynRules`Index[$CellContext`Generation,
30984	FeynRules`Ext[1]],
30985	FeynRules`Index[$CellContext`Generation,
30986	FeynRules`Ext[
30987	2]]] (($CellContext`DeltaucHq1 - $CellContext`DeltaucHq3)
30988	FeynRules`TensDot[
30989	FeynRules`Ga[
30990	FeynRules`Index[FeynRules`Lorentz,
30991	FeynRules`Ext[3]]], FeynRules`ProjM][
30992	FeynRules`Index[FeynRules`Spin,
30993	FeynRules`Ext[1]],
30994	FeynRules`Index[FeynRules`Spin,
30995	FeynRules`Ext[2]]] + $CellContext`DeltacHu FeynRules`TensDot[
30996	FeynRules`Ga[
30997	FeynRules`Index[FeynRules`Lorentz,
30998	FeynRules`Ext[3]]], FeynRules`ProjP][
30999	FeynRules`Index[FeynRules`Spin,
31000	FeynRules`Ext[1]],
31001	FeynRules`Index[FeynRules`Spin,
31002	FeynRules`Ext[2]]])))}, {{{$CellContext`vlbar,
31003	1}, {$CellContext`vl, 2}, {$CellContext`Z, 3}}, Complex[0,
31004	Rational[1, 2]] $CellContext`cth^(-1)
31005	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
31006	($CellContext`LambdaSMEFT^2 (-1 - $CellContext`dgw + (-$CellContext`dg1 + \
31007	$CellContext`dgw) $CellContext`sth^2) + ($CellContext`cHl1 - \
31008	$CellContext`cHl3 - $CellContext`cHWB $CellContext`cth $CellContext`sth) \
31009	$CellContext`vevhat^2) FeynRules`IndexDelta[
31010	FeynRules`Index[$CellContext`Generation,
31011	FeynRules`Ext[1]],
31012	FeynRules`Index[$CellContext`Generation,
31013	FeynRules`Ext[2]]] FeynRules`TensDot[
31014	FeynRules`Ga[
31015	FeynRules`Index[FeynRules`Lorentz,
31016	FeynRules`Ext[3]]], FeynRules`ProjM][
31017	FeynRules`Index[FeynRules`Spin,
31018	FeynRules`Ext[1]],
31019	FeynRules`Index[FeynRules`Spin,
31020	FeynRules`Ext[2]]]}}]]], "Output",
31021	CellChangeTimes->{
31022	3.711173839167266^9, 3.712483365603745^9, 3.7139663983257236`*^9, {
31023	3.7146527464730873`^9, 3.714652771211906^9}, 3.7146529268852043`*^9,
31024	3.714656269991343^9, 3.714657228928665^9,
31025	3.72960824249153*^9},ExpressionUUID->"2a52de36-6b5c-4dfb-8266-\
31026	ad905641d66c"]
31027	}, Open ]],
31028
31029	Cell["neutrino coupling :", "Text",
31030	CellChangeTimes->{{3.7146528020724363`^9, 3.7146528092589808`^9}}],
31031
31032	Cell[CellGroupData[{
31033
31034	Cell[BoxData[{
31035	RowBox[{"ZffCouplings", "[",
31036	RowBox[{"[",
31037	RowBox[{"1", ",",
31038	RowBox[{"-", "1"}], ",",
31039	RowBox[{"-", "1"}]}], "]"}], "]"}], "\[IndentingNewLine]",
31040	RowBox[{
31041	RowBox[{"%", "//.", "MwShifts"}], "//", "Simplify"}], "\[IndentingNewLine]",
31042	RowBox[{
31043	RowBox[{"SMlimit", "[", "%", "]"}], " ",
31044	RowBox[{"WCsimplify", "[",
31045	RowBox[{
31046	FractionBox["%",
31047	RowBox[{"SMlimit", "[", "%", "]"}]], "/.",
31048	RowBox[{
31049	RowBox[{"IndexDelta", "[",
31050	RowBox[{"_", ",", "_"}], "]"}], "\[Rule]", "1"}]}], "]"}]}]}], "Input",
31051	CellChangeTimes->{{3.706961712640883^9, 3.7069617312434893`^9},
31052	3.711174006710514^9, {3.711174069176218^9, 3.711174078189027*^9}, {
31053	3.714475532098426^9, 3.7144755376724243`^9}, {3.714652781745085*^9,
31054	3.714652890708997^9}, {3.714652953030558^9, 3.7146530356237173`*^9}, {
31055	3.714657096836529*^9,
31056	3.714657098251444*^9}},ExpressionUUID->"a6ae5607-7c03-4c9d-95d6-\
31057	9913e2931f9d"],
31058
31059	Cell[BoxData[
31060	FractionBox[
31061	RowBox[{"\[ImaginaryI]", " ", "e", " ",
31062	RowBox[{"(",
31063	RowBox[{
31064	RowBox[{
31065	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31066	RowBox[{"(",
31067	RowBox[{
31068	RowBox[{"-", "1"}], "-", "dgw", "+",
31069	RowBox[{
31070	RowBox[{"(",
31071	RowBox[{
31072	RowBox[{"-", "dg1"}], "+", "dgw"}], ")"}], " ",
31073	SubsuperscriptBox["s", "\[Theta]", "2"]}]}], ")"}]}], "+",
31074	RowBox[{
31075	RowBox[{"(",
31076	RowBox[{
31077	TemplateBox[{"c","Hl","1"},
31078	"Subsuperscript"], "-",
31079	TemplateBox[{"c","Hl","3"},
31080	"Subsuperscript"], "-",
31081	RowBox[{
31082	SubscriptBox["c", "HWB"], " ",
31083	SubscriptBox["c", "\[Theta]"], " ",
31084	SubscriptBox["s", "\[Theta]"]}]}], ")"}], " ",
31085	SuperscriptBox[
31086	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
31087	SubscriptBox["\[Delta]",
31088	RowBox[{
31089	SubscriptBox["\<\"f\"\>", "1"], ",",
31090	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
31091	SubscriptBox[
31092	RowBox[{
31093	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
31094	"Superscript"], ".",
31095	SubscriptBox["P", "\<\"-\"\>"]}],
31096	RowBox[{
31097	SubscriptBox["\<\"s\"\>", "1"], ",",
31098	SubscriptBox["\<\"s\"\>", "2"]}]]}],
31099	RowBox[{"2", " ",
31100	SubscriptBox["c", "\[Theta]"], " ",
31101	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31102	SubscriptBox["s", "\[Theta]"]}]]], "Output",
31103	CellChangeTimes->{
31104	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
31105	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
31106	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
31107	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
31108	3.714652929930028^9, 3.7146530359952927`^9}, 3.714656270052293*^9,
31109	3.71465722913227*^9,
31110	3.729608242550435*^9},ExpressionUUID->"21f18ce9-0dd6-49d2-a6a0-\
31111	d25a0c22910c"],
31112
31113	Cell[BoxData[
31114	RowBox[{"-",
31115	FractionBox[
31116	RowBox[{"\[ImaginaryI]", " ", "e", " ",
31117	RowBox[{"(",
31118	RowBox[{
31119	RowBox[{"4", " ",
31120	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
31121	RowBox[{
31122	RowBox[{"(",
31123	RowBox[{
31124	SubscriptBox["c", "HD"], "+",
31125	RowBox[{"4", " ",
31126	TemplateBox[{"c","Hl","1"},
31127	"Subsuperscript"]}], "-",
31128	RowBox[{"2", " ",
31129	TemplateBox[{"c","ll","Prime"},
31130	"Subsuperscript"]}]}], ")"}], " ",
31131	SuperscriptBox[
31132	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ",
31133	SubscriptBox["\[Delta]",
31134	RowBox[{
31135	SubscriptBox["\<\"f\"\>", "1"], ",",
31136	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
31137	SubscriptBox[
31138	RowBox[{
31139	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
31140	"Superscript"], ".",
31141	SubscriptBox["P", "\<\"-\"\>"]}],
31142	RowBox[{
31143	SubscriptBox["\<\"s\"\>", "1"], ",",
31144	SubscriptBox["\<\"s\"\>", "2"]}]]}],
31145	RowBox[{"8", " ",
31146	SubscriptBox["c", "\[Theta]"], " ",
31147	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31148	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
31149	CellChangeTimes->{
31150	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
31151	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
31152	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
31153	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
31154	3.714652929930028^9, 3.7146530359952927`^9}, 3.714656270052293*^9,
31155	3.71465722913227*^9,
31156	3.729608242661965*^9},ExpressionUUID->"045128fa-7f2a-428b-a8eb-\
31157	8a31a60e9ddb"],
31158
31159	Cell[BoxData[
31160	RowBox[{"-",
31161	FractionBox[
31162	RowBox[{"\[ImaginaryI]", " ", "e", " ",
31163	RowBox[{"(",
31164	RowBox[{"1", "-",
31165	FractionBox[
31166	RowBox[{
31167	SubscriptBox["c", "HD"], " ",
31168	SuperscriptBox[
31169	OverscriptBox["v", "^"], "2"]}],
31170	RowBox[{"4", " ",
31171	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
31172	FractionBox[
31173	RowBox[{
31174	TemplateBox[{"c","Hl","1"},
31175	"Subsuperscript"], " ",
31176	SuperscriptBox[
31177	OverscriptBox["v", "^"], "2"]}],
31178	SuperscriptBox["\[CapitalLambda]", "2"]], "+",
31179	FractionBox[
31180	RowBox[{
31181	TemplateBox[{"c","ll","Prime"},
31182	"Subsuperscript"], " ",
31183	SuperscriptBox[
31184	OverscriptBox["v", "^"], "2"]}],
31185	RowBox[{"2", " ",
31186	SuperscriptBox["\[CapitalLambda]", "2"]}]]}], ")"}], " ",
31187	SubscriptBox["\[Delta]",
31188	RowBox[{
31189	SubscriptBox["\<\"f\"\>", "1"], ",",
31190	SubscriptBox["\<\"f\"\>", "2"]}]], " ",
31191	SubscriptBox[
31192	RowBox[{
31193	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
31194	"Superscript"], ".",
31195	SubscriptBox["P", "\<\"-\"\>"]}],
31196	RowBox[{
31197	SubscriptBox["\<\"s\"\>", "1"], ",",
31198	SubscriptBox["\<\"s\"\>", "2"]}]]}],
31199	RowBox[{"2", " ",
31200	SubscriptBox["c", "\[Theta]"], " ",
31201	SubscriptBox["s", "\[Theta]"]}]]}]], "Output",
31202	CellChangeTimes->{
31203	3.70696194421089^9, 3.7070240058781223`^9, 3.707196912919736*^9,
31204	3.711173887621806^9, 3.711174027036899^9, {3.711174070317203*^9,
31205	3.711174089910508^9}, 3.713966425055566^9, {3.7146527858028727`*^9,
31206	3.714652829593679^9}, {3.7146528633623133`^9, 3.714652891316266*^9}, {
31207	3.714652929930028^9, 3.7146530359952927`^9}, 3.714656270052293*^9,
31208	3.71465722913227*^9,
31209	3.729608242689714*^9},ExpressionUUID->"e654894f-ace0-483c-8177-\
31210	8ea2793f113f"]
31211	}, Open ]],
31212
31213	Cell["up quarks coupling: flavor expansion with spurions", "Text",
31214	CellChangeTimes->{{3.714658087911981^9, 3.714658112774782^9}}],
31215
31216	Cell[CellGroupData[{
31217
31218	Cell[BoxData[
31219	RowBox[{
31220	RowBox[{
31221	RowBox[{
31222	RowBox[{
31223	RowBox[{
31224	RowBox[{
31225	RowBox[{"{",
31226	RowBox[{"ZffCouplings", "[",
31227	RowBox[{"[",
31228	RowBox[{"1", ",", "1"}], "]"}], "]"}], "}"}], "//.", "MwShifts"}], "//",
31229	"FlavorExpansion"}], "//",
31230	RowBox[{
31231	RowBox[{"ReplaceAll", "[",
31232	RowBox[{"#", ",",
31233	RowBox[{"Abbreviations", "[", "]"}]}], "]"}], "&"}]}], "//",
31234	"LinearWC"}], "//", "Simplify"}], "//", "TableForm"}]], "Input",
31235	CellChangeTimes->{{3.7146579364846163`^9, 3.714657993955915^9}, {
31236	3.714658032558496^9, 3.714658054565364^9}, {3.714658137278632*^9,
31237	3.7146581444312162`*^9}},ExpressionUUID->"bccbba0a-9509-431d-ae96-\
31238	f9eac3b456ec"],
31239
31240	Cell[BoxData[
31241	InterpretationBox[
31242	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
31243	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
31244	ImageSizeCache->{8., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
31245	"\[InvisibleSpace]", "1"}],
31246	SequenceForm["Flavor expansion of the vertices: ",
31247	Dynamic[FeynRules`FR$Count1], " / ", 1],
31248	Editable->False]], "Print",
31249	CellChangeTimes->{{3.714657950014279^9, 3.7146579634419203`^9},
31250	3.714657995078278^9, {3.7146580371920567`^9, 3.71465805571782*^9},
31251	3.714658145675453*^9,
31252	3.729608243438229*^9},ExpressionUUID->"48e32b36-ab87-4937-b1ee-\
31253	201cc48cb549"],
31254
31255	Cell[BoxData[
31256	InterpretationBox[GridBox[{
31257	{GridBox[{
31258	{"Z", "1"},
31259	{
31260	OverscriptBox["d", "\<\"-\"\>"], "2"},
31261	{"d", "3"}
31262	},
31263	GridBoxAlignment->{
31264	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31265	"RowsIndexed" -> {}},
31266	GridBoxSpacings->{"Columns" -> {
31267	Offset[0.27999999999999997`], {
31268	Offset[0.7]},
31269	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31270	Offset[0.2], {
31271	Offset[0.1]},
31272	Offset[0.2]}, "RowsIndexed" -> {}}],
31273	RowBox[{"-",
31274	FractionBox[
31275	RowBox[{"\[ImaginaryI]", " ", "e", " ",
31276	SubscriptBox["\[Delta]",
31277	RowBox[{
31278	SubscriptBox["\<\"m\"\>", "2"], ",",
31279	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31280	RowBox[{"(",
31281	RowBox[{
31282	RowBox[{"8", " ",
31283	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31284	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
31285	TemplateBox[{SubscriptBox["\[Gamma]",
31286	RowBox[{
31287	SubscriptBox["\"s\"", "2"], ",",
31288	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31289
31290	"Superscript"]}], "-",
31291	RowBox[{"16", " ",
31292	SubscriptBox["c", "HWB"], " ",
31293	SubscriptBox["c", "\[Theta]"], " ",
31294	SubscriptBox["s", "\[Theta]"], " ",
31295	SuperscriptBox[
31296	OverscriptBox["v", "^"], "2"], " ",
31297	TemplateBox[{SubscriptBox["\[Gamma]",
31298	RowBox[{
31299	SubscriptBox["\"s\"", "2"], ",",
31300	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31301
31302	"Superscript"]}], "+",
31303	RowBox[{"2", " ",
31304	RowBox[{"(",
31305	RowBox[{
31306	SubscriptBox["c", "HD"], "-",
31307	RowBox[{"4", " ",
31308	TemplateBox[{"c","Hl","3"},
31309	"Subsuperscript"]}], "+",
31310	RowBox[{"2", " ",
31311	TemplateBox[{"c","ll","Prime"},
31312	"Subsuperscript"]}]}], ")"}], " ",
31313	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
31314	SuperscriptBox[
31315	OverscriptBox["v", "^"], "2"], " ",
31316	TemplateBox[{SubscriptBox["\[Gamma]",
31317	RowBox[{
31318	SubscriptBox["\"s\"", "2"], ",",
31319	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31320
31321	"Superscript"]}], "+",
31322	RowBox[{"16", " ",
31323	SubscriptBox["c", "HWB"], " ",
31324	SubscriptBox["c", "\[Theta]"], " ",
31325	SubsuperscriptBox["s", "\[Theta]", "3"], " ",
31326	SuperscriptBox[
31327	OverscriptBox["v", "^"], "2"], " ",
31328	TemplateBox[{SubscriptBox["\[Gamma]",
31329	RowBox[{
31330	SubscriptBox["\"s\"", "2"], ",",
31331	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31332
31333	"Superscript"]}], "-",
31334	RowBox[{"12", " ",
31335	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31336	SubscriptBox[
31337	RowBox[{
31338	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31339	"Superscript"], ".",
31340	SubscriptBox["P", "\<\"-\"\>"]}],
31341	RowBox[{
31342	SubscriptBox["\<\"s\"\>", "2"], ",",
31343	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
31344	RowBox[{
31345	SuperscriptBox[
31346	OverscriptBox["v", "^"], "2"], " ",
31347	RowBox[{"(",
31348	RowBox[{
31349	RowBox[{
31350	RowBox[{"(",
31351	RowBox[{
31352	SubscriptBox["c", "HD"], "-",
31353	RowBox[{"12", " ",
31354	TemplateBox[{"c","Hl","3"},
31355	"Subsuperscript"]}], "+",
31356	RowBox[{"12", " ",
31357	TemplateBox[{"c","Hq","1"},
31358	"Subsuperscript"]}], "+",
31359	RowBox[{"12", " ",
31360	TemplateBox[{"c","Hq","3"},
31361	"Subsuperscript"]}], "+",
31362	RowBox[{"6", " ",
31363	TemplateBox[{"c","ll","Prime"},
31364	"Subsuperscript"]}], "+",
31365	RowBox[{"12", " ",
31366	RowBox[{"(",
31367	TagBox[
31368	RowBox[{
31369	SubscriptBox["\[CapitalDelta]", "d"], " ",
31370	TemplateBox[{"c","Hq","1"},
31371	"Subsuperscript"]}],
31372	HoldForm], ")"}], " ", "Sd1x1"}], "+",
31373	RowBox[{"12", " ",
31374	RowBox[{"(",
31375	TagBox[
31376	RowBox[{
31377	SubscriptBox["\[CapitalDelta]", "d"], " ",
31378	TemplateBox[{"c","Hq","3"},
31379	"Subsuperscript"]}],
31380	HoldForm], ")"}], " ", "Sd1x1"}], "+",
31381	RowBox[{"12", " ", "CKM1x1", " ",
31382	RowBox[{"(",
31383	RowBox[{
31384	TagBox[
31385	RowBox[{
31386	SubscriptBox["\[CapitalDelta]", "u"], " ",
31387	TemplateBox[{"c","Hq","1"},
31388	"Subsuperscript"]}],
31389	HoldForm], "+",
31390	TagBox[
31391	RowBox[{
31392	SubscriptBox["\[CapitalDelta]", "u"], " ",
31393	TemplateBox[{"c","Hq","3"},
31394	"Subsuperscript"]}],
31395	HoldForm]}], ")"}], " ", "Su1x1", " ",
31396	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+",
31397	RowBox[{"12", " ", "CKM2x1", " ",
31398	RowBox[{"(",
31399	RowBox[{
31400	TagBox[
31401	RowBox[{
31402	SubscriptBox["\[CapitalDelta]", "u"], " ",
31403	TemplateBox[{"c","Hq","1"},
31404	"Subsuperscript"]}],
31405	HoldForm], "+",
31406	TagBox[
31407	RowBox[{
31408	SubscriptBox["\[CapitalDelta]", "u"], " ",
31409	TemplateBox[{"c","Hq","3"},
31410	"Subsuperscript"]}],
31411	HoldForm]}], ")"}], " ", "Su2x2", " ",
31412	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+",
31413	RowBox[{"12", " ", "CKM3x1", " ",
31414	RowBox[{"(",
31415	TagBox[
31416	RowBox[{
31417	SubscriptBox["\[CapitalDelta]", "u"], " ",
31418	TemplateBox[{"c","Hq","1"},
31419	"Subsuperscript"]}],
31420	HoldForm], ")"}], " ", "Su3x3", " ",
31421	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}], "+",
31422	RowBox[{"12", " ", "CKM3x1", " ",
31423	RowBox[{"(",
31424	TagBox[
31425	RowBox[{
31426	SubscriptBox["\[CapitalDelta]", "u"], " ",
31427	TemplateBox[{"c","Hq","3"},
31428	"Subsuperscript"]}],
31429	HoldForm], ")"}], " ", "Su3x3", " ",
31430	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
31431	SubscriptBox[
31432	RowBox[{
31433	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31434	"Superscript"], ".",
31435	SubscriptBox["P", "\<\"-\"\>"]}],
31436	RowBox[{
31437	SubscriptBox["\<\"s\"\>", "2"], ",",
31438	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
31439	RowBox[{"4", " ",
31440	RowBox[{"(",
31441	RowBox[{
31442	RowBox[{"3", " ",
31443	SubscriptBox["c", "Hd"]}], "+",
31444	SubscriptBox["c", "HD"], "+",
31445	RowBox[{"3", " ",
31446	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd1x1"}]}],
31447	")"}], " ",
31448	SubscriptBox[
31449	RowBox[{
31450	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31451	"Superscript"], ".",
31452	SubscriptBox["P", "\<\"+\"\>"]}],
31453	RowBox[{
31454	SubscriptBox["\<\"s\"\>", "2"], ",",
31455	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
31456	RowBox[{"24", " ",
31457	SubscriptBox["c", "\[Theta]"], " ",
31458	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31459	SubscriptBox["s", "\[Theta]"]}]]}]},
31460	{GridBox[{
31461	{"Z", "1"},
31462	{
31463	OverscriptBox["d", "\<\"-\"\>"], "2"},
31464	{"s", "3"}
31465	},
31466	GridBoxAlignment->{
31467	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31468	"RowsIndexed" -> {}},
31469	GridBoxSpacings->{"Columns" -> {
31470	Offset[0.27999999999999997`], {
31471	Offset[0.7]},
31472	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31473	Offset[0.2], {
31474	Offset[0.1]},
31475	Offset[0.2]}, "RowsIndexed" -> {}}],
31476	FractionBox[
31477	RowBox[{"\[ImaginaryI]", " ",
31478	RowBox[{"(",
31479	RowBox[{
31480	TagBox[
31481	RowBox[{
31482	SubscriptBox["\[CapitalDelta]", "u"], " ",
31483	TemplateBox[{"c","Hq","1"},
31484	"Subsuperscript"]}],
31485	HoldForm], "+",
31486	TagBox[
31487	RowBox[{
31488	SubscriptBox["\[CapitalDelta]", "u"], " ",
31489	TemplateBox[{"c","Hq","3"},
31490	"Subsuperscript"]}],
31491	HoldForm]}], ")"}], " ", "e", " ",
31492	SuperscriptBox[
31493	OverscriptBox["v", "^"], "2"], " ",
31494	RowBox[{"(",
31495	RowBox[{
31496	RowBox[{"CKM1x2", " ", "Su1x1", " ",
31497	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+",
31498	RowBox[{"CKM2x2", " ", "Su2x2", " ",
31499	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+",
31500	RowBox[{"CKM3x2", " ", "Su3x3", " ",
31501	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
31502	SubscriptBox["\[Delta]",
31503	RowBox[{
31504	SubscriptBox["\<\"m\"\>", "2"], ",",
31505	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31506	SubscriptBox[
31507	RowBox[{
31508	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31509	"Superscript"], ".",
31510	SubscriptBox["P", "\<\"-\"\>"]}],
31511	RowBox[{
31512	SubscriptBox["\<\"s\"\>", "2"], ",",
31513	SubscriptBox["\<\"s\"\>", "3"]}]]}],
31514	RowBox[{"2", " ",
31515	SubscriptBox["c", "\[Theta]"], " ",
31516	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31517	SubscriptBox["s", "\[Theta]"]}]]},
31518	{GridBox[{
31519	{"Z", "1"},
31520	{
31521	OverscriptBox["d", "\<\"-\"\>"], "2"},
31522	{"b", "3"}
31523	},
31524	GridBoxAlignment->{
31525	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31526	"RowsIndexed" -> {}},
31527	GridBoxSpacings->{"Columns" -> {
31528	Offset[0.27999999999999997`], {
31529	Offset[0.7]},
31530	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31531	Offset[0.2], {
31532	Offset[0.1]},
31533	Offset[0.2]}, "RowsIndexed" -> {}}],
31534	FractionBox[
31535	RowBox[{"\[ImaginaryI]", " ",
31536	RowBox[{"(",
31537	RowBox[{
31538	TagBox[
31539	RowBox[{
31540	SubscriptBox["\[CapitalDelta]", "u"], " ",
31541	TemplateBox[{"c","Hq","1"},
31542	"Subsuperscript"]}],
31543	HoldForm], "+",
31544	TagBox[
31545	RowBox[{
31546	SubscriptBox["\[CapitalDelta]", "u"], " ",
31547	TemplateBox[{"c","Hq","3"},
31548	"Subsuperscript"]}],
31549	HoldForm]}], ")"}], " ", "e", " ",
31550	SuperscriptBox[
31551	OverscriptBox["v", "^"], "2"], " ",
31552	RowBox[{"(",
31553	RowBox[{
31554	RowBox[{"CKM1x3", " ", "Su1x1", " ",
31555	SuperscriptBox["CKM1x1", "\<\"*\"\>"]}], "+",
31556	RowBox[{"CKM2x3", " ", "Su2x2", " ",
31557	SuperscriptBox["CKM2x1", "\<\"*\"\>"]}], "+",
31558	RowBox[{"CKM3x3", " ", "Su3x3", " ",
31559	SuperscriptBox["CKM3x1", "\<\"*\"\>"]}]}], ")"}], " ",
31560	SubscriptBox["\[Delta]",
31561	RowBox[{
31562	SubscriptBox["\<\"m\"\>", "2"], ",",
31563	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31564	SubscriptBox[
31565	RowBox[{
31566	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31567	"Superscript"], ".",
31568	SubscriptBox["P", "\<\"-\"\>"]}],
31569	RowBox[{
31570	SubscriptBox["\<\"s\"\>", "2"], ",",
31571	SubscriptBox["\<\"s\"\>", "3"]}]]}],
31572	RowBox[{"2", " ",
31573	SubscriptBox["c", "\[Theta]"], " ",
31574	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31575	SubscriptBox["s", "\[Theta]"]}]]},
31576	{GridBox[{
31577	{"Z", "1"},
31578	{
31579	OverscriptBox["s", "\<\"-\"\>"], "2"},
31580	{"d", "3"}
31581	},
31582	GridBoxAlignment->{
31583	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31584	"RowsIndexed" -> {}},
31585	GridBoxSpacings->{"Columns" -> {
31586	Offset[0.27999999999999997`], {
31587	Offset[0.7]},
31588	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31589	Offset[0.2], {
31590	Offset[0.1]},
31591	Offset[0.2]}, "RowsIndexed" -> {}}],
31592	FractionBox[
31593	RowBox[{"\[ImaginaryI]", " ",
31594	RowBox[{"(",
31595	RowBox[{
31596	TagBox[
31597	RowBox[{
31598	SubscriptBox["\[CapitalDelta]", "u"], " ",
31599	TemplateBox[{"c","Hq","1"},
31600	"Subsuperscript"]}],
31601	HoldForm], "+",
31602	TagBox[
31603	RowBox[{
31604	SubscriptBox["\[CapitalDelta]", "u"], " ",
31605	TemplateBox[{"c","Hq","3"},
31606	"Subsuperscript"]}],
31607	HoldForm]}], ")"}], " ", "e", " ",
31608	SuperscriptBox[
31609	OverscriptBox["v", "^"], "2"], " ",
31610	RowBox[{"(",
31611	RowBox[{
31612	RowBox[{"CKM1x1", " ", "Su1x1", " ",
31613	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+",
31614	RowBox[{"CKM2x1", " ", "Su2x2", " ",
31615	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+",
31616	RowBox[{"CKM3x1", " ", "Su3x3", " ",
31617	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
31618	SubscriptBox["\[Delta]",
31619	RowBox[{
31620	SubscriptBox["\<\"m\"\>", "2"], ",",
31621	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31622	SubscriptBox[
31623	RowBox[{
31624	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31625	"Superscript"], ".",
31626	SubscriptBox["P", "\<\"-\"\>"]}],
31627	RowBox[{
31628	SubscriptBox["\<\"s\"\>", "2"], ",",
31629	SubscriptBox["\<\"s\"\>", "3"]}]]}],
31630	RowBox[{"2", " ",
31631	SubscriptBox["c", "\[Theta]"], " ",
31632	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31633	SubscriptBox["s", "\[Theta]"]}]]},
31634	{GridBox[{
31635	{"Z", "1"},
31636	{
31637	OverscriptBox["s", "\<\"-\"\>"], "2"},
31638	{"s", "3"}
31639	},
31640	GridBoxAlignment->{
31641	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31642	"RowsIndexed" -> {}},
31643	GridBoxSpacings->{"Columns" -> {
31644	Offset[0.27999999999999997`], {
31645	Offset[0.7]},
31646	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31647	Offset[0.2], {
31648	Offset[0.1]},
31649	Offset[0.2]}, "RowsIndexed" -> {}}],
31650	RowBox[{"-",
31651	FractionBox[
31652	RowBox[{"\[ImaginaryI]", " ", "e", " ",
31653	SubscriptBox["\[Delta]",
31654	RowBox[{
31655	SubscriptBox["\<\"m\"\>", "2"], ",",
31656	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31657	RowBox[{"(",
31658	RowBox[{
31659	RowBox[{"8", " ",
31660	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31661	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
31662	TemplateBox[{SubscriptBox["\[Gamma]",
31663	RowBox[{
31664	SubscriptBox["\"s\"", "2"], ",",
31665	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31666
31667	"Superscript"]}], "-",
31668	RowBox[{"16", " ",
31669	SubscriptBox["c", "HWB"], " ",
31670	SubscriptBox["c", "\[Theta]"], " ",
31671	SubscriptBox["s", "\[Theta]"], " ",
31672	SuperscriptBox[
31673	OverscriptBox["v", "^"], "2"], " ",
31674	TemplateBox[{SubscriptBox["\[Gamma]",
31675	RowBox[{
31676	SubscriptBox["\"s\"", "2"], ",",
31677	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31678
31679	"Superscript"]}], "+",
31680	RowBox[{"2", " ",
31681	RowBox[{"(",
31682	RowBox[{
31683	SubscriptBox["c", "HD"], "-",
31684	RowBox[{"4", " ",
31685	TemplateBox[{"c","Hl","3"},
31686	"Subsuperscript"]}], "+",
31687	RowBox[{"2", " ",
31688	TemplateBox[{"c","ll","Prime"},
31689	"Subsuperscript"]}]}], ")"}], " ",
31690	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
31691	SuperscriptBox[
31692	OverscriptBox["v", "^"], "2"], " ",
31693	TemplateBox[{SubscriptBox["\[Gamma]",
31694	RowBox[{
31695	SubscriptBox["\"s\"", "2"], ",",
31696	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31697
31698	"Superscript"]}], "+",
31699	RowBox[{"16", " ",
31700	SubscriptBox["c", "HWB"], " ",
31701	SubscriptBox["c", "\[Theta]"], " ",
31702	SubsuperscriptBox["s", "\[Theta]", "3"], " ",
31703	SuperscriptBox[
31704	OverscriptBox["v", "^"], "2"], " ",
31705	TemplateBox[{SubscriptBox["\[Gamma]",
31706	RowBox[{
31707	SubscriptBox["\"s\"", "2"], ",",
31708	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
31709
31710	"Superscript"]}], "-",
31711	RowBox[{"12", " ",
31712	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31713	SubscriptBox[
31714	RowBox[{
31715	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31716	"Superscript"], ".",
31717	SubscriptBox["P", "\<\"-\"\>"]}],
31718	RowBox[{
31719	SubscriptBox["\<\"s\"\>", "2"], ",",
31720	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
31721	RowBox[{
31722	SuperscriptBox[
31723	OverscriptBox["v", "^"], "2"], " ",
31724	RowBox[{"(",
31725	RowBox[{
31726	RowBox[{
31727	RowBox[{"(",
31728	RowBox[{
31729	SubscriptBox["c", "HD"], "-",
31730	RowBox[{"12", " ",
31731	TemplateBox[{"c","Hl","3"},
31732	"Subsuperscript"]}], "+",
31733	RowBox[{"12", " ",
31734	TemplateBox[{"c","Hq","1"},
31735	"Subsuperscript"]}], "+",
31736	RowBox[{"12", " ",
31737	TemplateBox[{"c","Hq","3"},
31738	"Subsuperscript"]}], "+",
31739	RowBox[{"6", " ",
31740	TemplateBox[{"c","ll","Prime"},
31741	"Subsuperscript"]}], "+",
31742	RowBox[{"12", " ",
31743	RowBox[{"(",
31744	TagBox[
31745	RowBox[{
31746	SubscriptBox["\[CapitalDelta]", "d"], " ",
31747	TemplateBox[{"c","Hq","1"},
31748	"Subsuperscript"]}],
31749	HoldForm], ")"}], " ", "Sd2x2"}], "+",
31750	RowBox[{"12", " ",
31751	RowBox[{"(",
31752	TagBox[
31753	RowBox[{
31754	SubscriptBox["\[CapitalDelta]", "d"], " ",
31755	TemplateBox[{"c","Hq","3"},
31756	"Subsuperscript"]}],
31757	HoldForm], ")"}], " ", "Sd2x2"}], "+",
31758	RowBox[{"12", " ", "CKM1x2", " ",
31759	RowBox[{"(",
31760	RowBox[{
31761	TagBox[
31762	RowBox[{
31763	SubscriptBox["\[CapitalDelta]", "u"], " ",
31764	TemplateBox[{"c","Hq","1"},
31765	"Subsuperscript"]}],
31766	HoldForm], "+",
31767	TagBox[
31768	RowBox[{
31769	SubscriptBox["\[CapitalDelta]", "u"], " ",
31770	TemplateBox[{"c","Hq","3"},
31771	"Subsuperscript"]}],
31772	HoldForm]}], ")"}], " ", "Su1x1", " ",
31773	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+",
31774	RowBox[{"12", " ", "CKM2x2", " ",
31775	RowBox[{"(",
31776	RowBox[{
31777	TagBox[
31778	RowBox[{
31779	SubscriptBox["\[CapitalDelta]", "u"], " ",
31780	TemplateBox[{"c","Hq","1"},
31781	"Subsuperscript"]}],
31782	HoldForm], "+",
31783	TagBox[
31784	RowBox[{
31785	SubscriptBox["\[CapitalDelta]", "u"], " ",
31786	TemplateBox[{"c","Hq","3"},
31787	"Subsuperscript"]}],
31788	HoldForm]}], ")"}], " ", "Su2x2", " ",
31789	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+",
31790	RowBox[{"12", " ", "CKM3x2", " ",
31791	RowBox[{"(",
31792	TagBox[
31793	RowBox[{
31794	SubscriptBox["\[CapitalDelta]", "u"], " ",
31795	TemplateBox[{"c","Hq","1"},
31796	"Subsuperscript"]}],
31797	HoldForm], ")"}], " ", "Su3x3", " ",
31798	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}], "+",
31799	RowBox[{"12", " ", "CKM3x2", " ",
31800	RowBox[{"(",
31801	TagBox[
31802	RowBox[{
31803	SubscriptBox["\[CapitalDelta]", "u"], " ",
31804	TemplateBox[{"c","Hq","3"},
31805	"Subsuperscript"]}],
31806	HoldForm], ")"}], " ", "Su3x3", " ",
31807	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
31808	SubscriptBox[
31809	RowBox[{
31810	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31811	"Superscript"], ".",
31812	SubscriptBox["P", "\<\"-\"\>"]}],
31813	RowBox[{
31814	SubscriptBox["\<\"s\"\>", "2"], ",",
31815	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
31816	RowBox[{"4", " ",
31817	RowBox[{"(",
31818	RowBox[{
31819	RowBox[{"3", " ",
31820	SubscriptBox["c", "Hd"]}], "+",
31821	SubscriptBox["c", "HD"], "+",
31822	RowBox[{"3", " ",
31823	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd2x2"}]}],
31824	")"}], " ",
31825	SubscriptBox[
31826	RowBox[{
31827	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31828	"Superscript"], ".",
31829	SubscriptBox["P", "\<\"+\"\>"]}],
31830	RowBox[{
31831	SubscriptBox["\<\"s\"\>", "2"], ",",
31832	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
31833	RowBox[{"24", " ",
31834	SubscriptBox["c", "\[Theta]"], " ",
31835	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31836	SubscriptBox["s", "\[Theta]"]}]]}]},
31837	{GridBox[{
31838	{"Z", "1"},
31839	{
31840	OverscriptBox["s", "\<\"-\"\>"], "2"},
31841	{"b", "3"}
31842	},
31843	GridBoxAlignment->{
31844	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31845	"RowsIndexed" -> {}},
31846	GridBoxSpacings->{"Columns" -> {
31847	Offset[0.27999999999999997`], {
31848	Offset[0.7]},
31849	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31850	Offset[0.2], {
31851	Offset[0.1]},
31852	Offset[0.2]}, "RowsIndexed" -> {}}],
31853	FractionBox[
31854	RowBox[{"\[ImaginaryI]", " ",
31855	RowBox[{"(",
31856	RowBox[{
31857	TagBox[
31858	RowBox[{
31859	SubscriptBox["\[CapitalDelta]", "u"], " ",
31860	TemplateBox[{"c","Hq","1"},
31861	"Subsuperscript"]}],
31862	HoldForm], "+",
31863	TagBox[
31864	RowBox[{
31865	SubscriptBox["\[CapitalDelta]", "u"], " ",
31866	TemplateBox[{"c","Hq","3"},
31867	"Subsuperscript"]}],
31868	HoldForm]}], ")"}], " ", "e", " ",
31869	SuperscriptBox[
31870	OverscriptBox["v", "^"], "2"], " ",
31871	RowBox[{"(",
31872	RowBox[{
31873	RowBox[{"CKM1x3", " ", "Su1x1", " ",
31874	SuperscriptBox["CKM1x2", "\<\"*\"\>"]}], "+",
31875	RowBox[{"CKM2x3", " ", "Su2x2", " ",
31876	SuperscriptBox["CKM2x2", "\<\"*\"\>"]}], "+",
31877	RowBox[{"CKM3x3", " ", "Su3x3", " ",
31878	SuperscriptBox["CKM3x2", "\<\"*\"\>"]}]}], ")"}], " ",
31879	SubscriptBox["\[Delta]",
31880	RowBox[{
31881	SubscriptBox["\<\"m\"\>", "2"], ",",
31882	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31883	SubscriptBox[
31884	RowBox[{
31885	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31886	"Superscript"], ".",
31887	SubscriptBox["P", "\<\"-\"\>"]}],
31888	RowBox[{
31889	SubscriptBox["\<\"s\"\>", "2"], ",",
31890	SubscriptBox["\<\"s\"\>", "3"]}]]}],
31891	RowBox[{"2", " ",
31892	SubscriptBox["c", "\[Theta]"], " ",
31893	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31894	SubscriptBox["s", "\[Theta]"]}]]},
31895	{GridBox[{
31896	{"Z", "1"},
31897	{
31898	OverscriptBox["b", "\<\"-\"\>"], "2"},
31899	{"d", "3"}
31900	},
31901	GridBoxAlignment->{
31902	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31903	"RowsIndexed" -> {}},
31904	GridBoxSpacings->{"Columns" -> {
31905	Offset[0.27999999999999997`], {
31906	Offset[0.7]},
31907	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31908	Offset[0.2], {
31909	Offset[0.1]},
31910	Offset[0.2]}, "RowsIndexed" -> {}}],
31911	FractionBox[
31912	RowBox[{"\[ImaginaryI]", " ",
31913	RowBox[{"(",
31914	RowBox[{
31915	TagBox[
31916	RowBox[{
31917	SubscriptBox["\[CapitalDelta]", "u"], " ",
31918	TemplateBox[{"c","Hq","1"},
31919	"Subsuperscript"]}],
31920	HoldForm], "+",
31921	TagBox[
31922	RowBox[{
31923	SubscriptBox["\[CapitalDelta]", "u"], " ",
31924	TemplateBox[{"c","Hq","3"},
31925	"Subsuperscript"]}],
31926	HoldForm]}], ")"}], " ", "e", " ",
31927	SuperscriptBox[
31928	OverscriptBox["v", "^"], "2"], " ",
31929	RowBox[{"(",
31930	RowBox[{
31931	RowBox[{"CKM1x1", " ", "Su1x1", " ",
31932	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+",
31933	RowBox[{"CKM2x1", " ", "Su2x2", " ",
31934	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+",
31935	RowBox[{"CKM3x1", " ", "Su3x3", " ",
31936	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
31937	SubscriptBox["\[Delta]",
31938	RowBox[{
31939	SubscriptBox["\<\"m\"\>", "2"], ",",
31940	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31941	SubscriptBox[
31942	RowBox[{
31943	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
31944	"Superscript"], ".",
31945	SubscriptBox["P", "\<\"-\"\>"]}],
31946	RowBox[{
31947	SubscriptBox["\<\"s\"\>", "2"], ",",
31948	SubscriptBox["\<\"s\"\>", "3"]}]]}],
31949	RowBox[{"2", " ",
31950	SubscriptBox["c", "\[Theta]"], " ",
31951	SuperscriptBox["\[CapitalLambda]", "2"], " ",
31952	SubscriptBox["s", "\[Theta]"]}]]},
31953	{GridBox[{
31954	{"Z", "1"},
31955	{
31956	OverscriptBox["b", "\<\"-\"\>"], "2"},
31957	{"s", "3"}
31958	},
31959	GridBoxAlignment->{
31960	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
31961	"RowsIndexed" -> {}},
31962	GridBoxSpacings->{"Columns" -> {
31963	Offset[0.27999999999999997`], {
31964	Offset[0.7]},
31965	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
31966	Offset[0.2], {
31967	Offset[0.1]},
31968	Offset[0.2]}, "RowsIndexed" -> {}}],
31969	FractionBox[
31970	RowBox[{"\[ImaginaryI]", " ",
31971	RowBox[{"(",
31972	RowBox[{
31973	TagBox[
31974	RowBox[{
31975	SubscriptBox["\[CapitalDelta]", "u"], " ",
31976	TemplateBox[{"c","Hq","1"},
31977	"Subsuperscript"]}],
31978	HoldForm], "+",
31979	TagBox[
31980	RowBox[{
31981	SubscriptBox["\[CapitalDelta]", "u"], " ",
31982	TemplateBox[{"c","Hq","3"},
31983	"Subsuperscript"]}],
31984	HoldForm]}], ")"}], " ", "e", " ",
31985	SuperscriptBox[
31986	OverscriptBox["v", "^"], "2"], " ",
31987	RowBox[{"(",
31988	RowBox[{
31989	RowBox[{"CKM1x2", " ", "Su1x1", " ",
31990	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+",
31991	RowBox[{"CKM2x2", " ", "Su2x2", " ",
31992	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+",
31993	RowBox[{"CKM3x2", " ", "Su3x3", " ",
31994	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
31995	SubscriptBox["\[Delta]",
31996	RowBox[{
31997	SubscriptBox["\<\"m\"\>", "2"], ",",
31998	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
31999	SubscriptBox[
32000	RowBox[{
32001	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
32002	"Superscript"], ".",
32003	SubscriptBox["P", "\<\"-\"\>"]}],
32004	RowBox[{
32005	SubscriptBox["\<\"s\"\>", "2"], ",",
32006	SubscriptBox["\<\"s\"\>", "3"]}]]}],
32007	RowBox[{"2", " ",
32008	SubscriptBox["c", "\[Theta]"], " ",
32009	SuperscriptBox["\[CapitalLambda]", "2"], " ",
32010	SubscriptBox["s", "\[Theta]"]}]]},
32011	{GridBox[{
32012	{"Z", "1"},
32013	{
32014	OverscriptBox["b", "\<\"-\"\>"], "2"},
32015	{"b", "3"}
32016	},
32017	GridBoxAlignment->{
32018	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
32019	"RowsIndexed" -> {}},
32020	GridBoxSpacings->{"Columns" -> {
32021	Offset[0.27999999999999997`], {
32022	Offset[0.7]},
32023	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
32024	Offset[0.2], {
32025	Offset[0.1]},
32026	Offset[0.2]}, "RowsIndexed" -> {}}],
32027	RowBox[{"-",
32028	FractionBox[
32029	RowBox[{"\[ImaginaryI]", " ", "e", " ",
32030	SubscriptBox["\[Delta]",
32031	RowBox[{
32032	SubscriptBox["\<\"m\"\>", "2"], ",",
32033	SubscriptBox["\<\"m\"\>", "3"]}]], " ",
32034	RowBox[{"(",
32035	RowBox[{
32036	RowBox[{"8", " ",
32037	SuperscriptBox["\[CapitalLambda]", "2"], " ",
32038	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
32039	TemplateBox[{SubscriptBox["\[Gamma]",
32040	RowBox[{
32041	SubscriptBox["\"s\"", "2"], ",",
32042	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
32043
32044	"Superscript"]}], "-",
32045	RowBox[{"16", " ",
32046	SubscriptBox["c", "HWB"], " ",
32047	SubscriptBox["c", "\[Theta]"], " ",
32048	SubscriptBox["s", "\[Theta]"], " ",
32049	SuperscriptBox[
32050	OverscriptBox["v", "^"], "2"], " ",
32051	TemplateBox[{SubscriptBox["\[Gamma]",
32052	RowBox[{
32053	SubscriptBox["\"s\"", "2"], ",",
32054	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
32055
32056	"Superscript"]}], "+",
32057	RowBox[{"2", " ",
32058	RowBox[{"(",
32059	RowBox[{
32060	SubscriptBox["c", "HD"], "-",
32061	RowBox[{"4", " ",
32062	TemplateBox[{"c","Hl","3"},
32063	"Subsuperscript"]}], "+",
32064	RowBox[{"2", " ",
32065	TemplateBox[{"c","ll","Prime"},
32066	"Subsuperscript"]}]}], ")"}], " ",
32067	SubsuperscriptBox["s", "\[Theta]", "2"], " ",
32068	SuperscriptBox[
32069	OverscriptBox["v", "^"], "2"], " ",
32070	TemplateBox[{SubscriptBox["\[Gamma]",
32071	RowBox[{
32072	SubscriptBox["\"s\"", "2"], ",",
32073	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
32074
32075	"Superscript"]}], "+",
32076	RowBox[{"16", " ",
32077	SubscriptBox["c", "HWB"], " ",
32078	SubscriptBox["c", "\[Theta]"], " ",
32079	SubsuperscriptBox["s", "\[Theta]", "3"], " ",
32080	SuperscriptBox[
32081	OverscriptBox["v", "^"], "2"], " ",
32082	TemplateBox[{SubscriptBox["\[Gamma]",
32083	RowBox[{
32084	SubscriptBox["\"s\"", "2"], ",",
32085	SubscriptBox["\"s\"", "3"]}]],SubscriptBox["\"\[Mu]\"", "1"]},
32086
32087	"Superscript"]}], "-",
32088	RowBox[{"12", " ",
32089	SuperscriptBox["\[CapitalLambda]", "2"], " ",
32090	SubscriptBox[
32091	RowBox[{
32092	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
32093	"Superscript"], ".",
32094	SubscriptBox["P", "\<\"-\"\>"]}],
32095	RowBox[{
32096	SubscriptBox["\<\"s\"\>", "2"], ",",
32097	SubscriptBox["\<\"s\"\>", "3"]}]]}], "-",
32098	RowBox[{
32099	SuperscriptBox[
32100	OverscriptBox["v", "^"], "2"], " ",
32101	RowBox[{"(",
32102	RowBox[{
32103	RowBox[{
32104	RowBox[{"(",
32105	RowBox[{
32106	SubscriptBox["c", "HD"], "-",
32107	RowBox[{"12", " ",
32108	TemplateBox[{"c","Hl","3"},
32109	"Subsuperscript"]}], "+",
32110	RowBox[{"12", " ",
32111	TemplateBox[{"c","Hq","1"},
32112	"Subsuperscript"]}], "+",
32113	RowBox[{"12", " ",
32114	TemplateBox[{"c","Hq","3"},
32115	"Subsuperscript"]}], "+",
32116	RowBox[{"6", " ",
32117	TemplateBox[{"c","ll","Prime"},
32118	"Subsuperscript"]}], "+",
32119	RowBox[{"12", " ",
32120	RowBox[{"(",
32121	TagBox[
32122	RowBox[{
32123	SubscriptBox["\[CapitalDelta]", "d"], " ",
32124	TemplateBox[{"c","Hq","1"},
32125	"Subsuperscript"]}],
32126	HoldForm], ")"}], " ", "Sd3x3"}], "+",
32127	RowBox[{"12", " ",
32128	RowBox[{"(",
32129	TagBox[
32130	RowBox[{
32131	SubscriptBox["\[CapitalDelta]", "d"], " ",
32132	TemplateBox[{"c","Hq","3"},
32133	"Subsuperscript"]}],
32134	HoldForm], ")"}], " ", "Sd3x3"}], "+",
32135	RowBox[{"12", " ", "CKM1x3", " ",
32136	RowBox[{"(",
32137	RowBox[{
32138	TagBox[
32139	RowBox[{
32140	SubscriptBox["\[CapitalDelta]", "u"], " ",
32141	TemplateBox[{"c","Hq","1"},
32142	"Subsuperscript"]}],
32143	HoldForm], "+",
32144	TagBox[
32145	RowBox[{
32146	SubscriptBox["\[CapitalDelta]", "u"], " ",
32147	TemplateBox[{"c","Hq","3"},
32148	"Subsuperscript"]}],
32149	HoldForm]}], ")"}], " ", "Su1x1", " ",
32150	SuperscriptBox["CKM1x3", "\<\"*\"\>"]}], "+",
32151	RowBox[{"12", " ", "CKM2x3", " ",
32152	RowBox[{"(",
32153	RowBox[{
32154	TagBox[
32155	RowBox[{
32156	SubscriptBox["\[CapitalDelta]", "u"], " ",
32157	TemplateBox[{"c","Hq","1"},
32158	"Subsuperscript"]}],
32159	HoldForm], "+",
32160	TagBox[
32161	RowBox[{
32162	SubscriptBox["\[CapitalDelta]", "u"], " ",
32163	TemplateBox[{"c","Hq","3"},
32164	"Subsuperscript"]}],
32165	HoldForm]}], ")"}], " ", "Su2x2", " ",
32166	SuperscriptBox["CKM2x3", "\<\"*\"\>"]}], "+",
32167	RowBox[{"12", " ", "CKM3x3", " ",
32168	RowBox[{"(",
32169	TagBox[
32170	RowBox[{
32171	SubscriptBox["\[CapitalDelta]", "u"], " ",
32172	TemplateBox[{"c","Hq","1"},
32173	"Subsuperscript"]}],
32174	HoldForm], ")"}], " ", "Su3x3", " ",
32175	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}], "+",
32176	RowBox[{"12", " ", "CKM3x3", " ",
32177	RowBox[{"(",
32178	TagBox[
32179	RowBox[{
32180	SubscriptBox["\[CapitalDelta]", "u"], " ",
32181	TemplateBox[{"c","Hq","3"},
32182	"Subsuperscript"]}],
32183	HoldForm], ")"}], " ", "Su3x3", " ",
32184	SuperscriptBox["CKM3x3", "\<\"*\"\>"]}]}], ")"}], " ",
32185	SubscriptBox[
32186	RowBox[{
32187	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
32188	"Superscript"], ".",
32189	SubscriptBox["P", "\<\"-\"\>"]}],
32190	RowBox[{
32191	SubscriptBox["\<\"s\"\>", "2"], ",",
32192	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
32193	RowBox[{"4", " ",
32194	RowBox[{"(",
32195	RowBox[{
32196	RowBox[{"3", " ",
32197	SubscriptBox["c", "Hd"]}], "+",
32198	SubscriptBox["c", "HD"], "+",
32199	RowBox[{"3", " ",
32200	SubscriptBox["\[CapitalDelta]c", "Hd"], " ", "Sd3x3"}]}],
32201	")"}], " ",
32202	SubscriptBox[
32203	RowBox[{
32204	TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "1"]},
32205	"Superscript"], ".",
32206	SubscriptBox["P", "\<\"+\"\>"]}],
32207	RowBox[{
32208	SubscriptBox["\<\"s\"\>", "2"], ",",
32209	SubscriptBox["\<\"s\"\>", "3"]}]]}]}], ")"}]}]}], ")"}]}],
32210	RowBox[{"24", " ",
32211	SubscriptBox["c", "\[Theta]"], " ",
32212	SuperscriptBox["\[CapitalLambda]", "2"], " ",
32213	SubscriptBox["s", "\[Theta]"]}]]}]}
32214	},
32215	GridBoxAlignment->{
32216	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
32217	"RowsIndexed" -> {}},
32218	GridBoxSpacings->{"Columns" -> {
32219	Offset[0.27999999999999997`], {
32220	Offset[2.0999999999999996`]},
32221	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
32222	Offset[0.2], {
32223	Offset[0.4]},
32224	Offset[0.2]}, "RowsIndexed" -> {}}],
32225	TableForm[{{{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {FeynRules`d, 3}},
32226	Complex[0,
32227	Rational[-1, 24]] $CellContext`cth^(-1)
32228	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
32229	FeynRules`IndexDelta[
32230	FeynRules`Index[FeynRules`Colour,
32231	FeynRules`Ext[2]],
32232	FeynRules`Index[FeynRules`Colour,
32233	FeynRules`Ext[3]]] (
32234	8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 FeynRules`Ga[
32235	FeynRules`Index[FeynRules`Lorentz,
32236	FeynRules`Ext[1]],
32237	FeynRules`Index[FeynRules`Spin,
32238	FeynRules`Ext[2]],
32239	FeynRules`Index[FeynRules`Spin,
32240	FeynRules`Ext[3]]] -
32241	16 $CellContext`cHWB $CellContext`cth $CellContext`sth \
32242	$CellContext`vevhat^2 FeynRules`Ga[
32243	FeynRules`Index[FeynRules`Lorentz,
32244	FeynRules`Ext[1]],
32245	FeynRules`Index[FeynRules`Spin,
32246	FeynRules`Ext[2]],
32247	FeynRules`Index[FeynRules`Spin,
32248	FeynRules`Ext[3]]] +
32249	2 ($CellContext`cHDD - 4 $CellContext`cHl3 +
32250	2 $CellContext`cll1) $CellContext`sth^2 $CellContext`vevhat^2
32251	FeynRules`Ga[
32252	FeynRules`Index[FeynRules`Lorentz,
32253	FeynRules`Ext[1]],
32254	FeynRules`Index[FeynRules`Spin,
32255	FeynRules`Ext[2]],
32256	FeynRules`Index[FeynRules`Spin,
32257	FeynRules`Ext[3]]] +
32258	16 $CellContext`cHWB $CellContext`cth $CellContext`sth^3 \
32259	$CellContext`vevhat^2 FeynRules`Ga[
32260	FeynRules`Index[FeynRules`Lorentz,
32261	FeynRules`Ext[1]],
32262	FeynRules`Index[FeynRules`Spin,
32263	FeynRules`Ext[2]],
32264	FeynRules`Index[FeynRules`Spin,
32265	FeynRules`Ext[3]]] - 12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
32266	FeynRules`Ga[
32267	FeynRules`Index[FeynRules`Lorentz,
32268	FeynRules`Ext[1]]], FeynRules`ProjM][
32269	FeynRules`Index[FeynRules`Spin,
32270	FeynRules`Ext[2]],
32271	FeynRules`Index[FeynRules`Spin,
32272	FeynRules`Ext[3]]] - $CellContext`vevhat^2 (($CellContext`cHDD -
32273	12 $CellContext`cHl3 + 12 $CellContext`cHq10 + 12 $CellContext`cHq30 +
32274	6 $CellContext`cll1 + 12 $CellContext`DeltadcHq1 $CellContext`Sd1x1 +
32275	12 $CellContext`DeltadcHq3 $CellContext`Sd1x1 +
32276	12 $CellContext`CKM1x1 ($CellContext`DeltaucHq1 + \
32277	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x1] +
32278	12 $CellContext`CKM2x1 ($CellContext`DeltaucHq1 + \
32279	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x1] +
32280	12 $CellContext`CKM3x1 $CellContext`DeltaucHq1 $CellContext`Su3x3
32281	Conjugate[$CellContext`CKM3x1] +
32282	12 $CellContext`CKM3x1 $CellContext`DeltaucHq3 $CellContext`Su3x3
32283	Conjugate[$CellContext`CKM3x1]) FeynRules`TensDot[
32284	FeynRules`Ga[
32285	FeynRules`Index[FeynRules`Lorentz,
32286	FeynRules`Ext[1]]], FeynRules`ProjM][
32287	FeynRules`Index[FeynRules`Spin,
32288	FeynRules`Ext[2]],
32289	FeynRules`Index[FeynRules`Spin,
32290	FeynRules`Ext[3]]] +
32291	4 (3 $CellContext`cHd0 + $CellContext`cHDD +
32292	3 $CellContext`DeltacHd $CellContext`Sd1x1) FeynRules`TensDot[
32293	FeynRules`Ga[
32294	FeynRules`Index[FeynRules`Lorentz,
32295	FeynRules`Ext[1]]], FeynRules`ProjP][
32296	FeynRules`Index[FeynRules`Spin,
32297	FeynRules`Ext[2]],
32298	FeynRules`Index[FeynRules`Spin,
32299	FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`dbar,
32300	2}, {FeynRules`s, 3}}, Complex[0,
32301	Rational[
32302	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
32303	$CellContext`DeltaucHq3)
32304	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
32305	$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1
32306	Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x2 \
32307	$CellContext`Su2x2
32308	Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x2 \
32309	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
32310	FeynRules`Index[FeynRules`Colour,
32311	FeynRules`Ext[2]],
32312	FeynRules`Index[FeynRules`Colour,
32313	FeynRules`Ext[3]]] FeynRules`TensDot[
32314	FeynRules`Ga[
32315	FeynRules`Index[FeynRules`Lorentz,
32316	FeynRules`Ext[1]]], FeynRules`ProjM][
32317	FeynRules`Index[FeynRules`Spin,
32318	FeynRules`Ext[2]],
32319	FeynRules`Index[FeynRules`Spin,
32320	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`dbar, 2}, {
32321	FeynRules`b, 3}}, Complex[0,
32322	Rational[
32323	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
32324	$CellContext`DeltaucHq3)
32325	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
32326	$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1
32327	Conjugate[$CellContext`CKM1x1] + $CellContext`CKM2x3 \
32328	$CellContext`Su2x2
32329	Conjugate[$CellContext`CKM2x1] + $CellContext`CKM3x3 \
32330	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x1]) FeynRules`IndexDelta[
32331	FeynRules`Index[FeynRules`Colour,
32332	FeynRules`Ext[2]],
32333	FeynRules`Index[FeynRules`Colour,
32334	FeynRules`Ext[3]]] FeynRules`TensDot[
32335	FeynRules`Ga[
32336	FeynRules`Index[FeynRules`Lorentz,
32337	FeynRules`Ext[1]]], FeynRules`ProjM][
32338	FeynRules`Index[FeynRules`Spin,
32339	FeynRules`Ext[2]],
32340	FeynRules`Index[FeynRules`Spin,
32341	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
32342	FeynRules`d, 3}}, Complex[0,
32343	Rational[
32344	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
32345	$CellContext`DeltaucHq3)
32346	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
32347	$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1
32348	Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x1 \
32349	$CellContext`Su2x2
32350	Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x1 \
32351	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
32352	FeynRules`Index[FeynRules`Colour,
32353	FeynRules`Ext[2]],
32354	FeynRules`Index[FeynRules`Colour,
32355	FeynRules`Ext[3]]] FeynRules`TensDot[
32356	FeynRules`Ga[
32357	FeynRules`Index[FeynRules`Lorentz,
32358	FeynRules`Ext[1]]], FeynRules`ProjM][
32359	FeynRules`Index[FeynRules`Spin,
32360	FeynRules`Ext[2]],
32361	FeynRules`Index[FeynRules`Spin,
32362	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`sbar, 2}, {
32363	FeynRules`s, 3}}, Complex[0,
32364	Rational[-1, 24]] $CellContext`cth^(-1)
32365	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
32366	FeynRules`IndexDelta[
32367	FeynRules`Index[FeynRules`Colour,
32368	FeynRules`Ext[2]],
32369	FeynRules`Index[FeynRules`Colour,
32370	FeynRules`Ext[3]]] (
32371	8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 FeynRules`Ga[
32372	FeynRules`Index[FeynRules`Lorentz,
32373	FeynRules`Ext[1]],
32374	FeynRules`Index[FeynRules`Spin,
32375	FeynRules`Ext[2]],
32376	FeynRules`Index[FeynRules`Spin,
32377	FeynRules`Ext[3]]] -
32378	16 $CellContext`cHWB $CellContext`cth $CellContext`sth \
32379	$CellContext`vevhat^2 FeynRules`Ga[
32380	FeynRules`Index[FeynRules`Lorentz,
32381	FeynRules`Ext[1]],
32382	FeynRules`Index[FeynRules`Spin,
32383	FeynRules`Ext[2]],
32384	FeynRules`Index[FeynRules`Spin,
32385	FeynRules`Ext[3]]] +
32386	2 ($CellContext`cHDD - 4 $CellContext`cHl3 +
32387	2 $CellContext`cll1) $CellContext`sth^2 $CellContext`vevhat^2
32388	FeynRules`Ga[
32389	FeynRules`Index[FeynRules`Lorentz,
32390	FeynRules`Ext[1]],
32391	FeynRules`Index[FeynRules`Spin,
32392	FeynRules`Ext[2]],
32393	FeynRules`Index[FeynRules`Spin,
32394	FeynRules`Ext[3]]] +
32395	16 $CellContext`cHWB $CellContext`cth $CellContext`sth^3 \
32396	$CellContext`vevhat^2 FeynRules`Ga[
32397	FeynRules`Index[FeynRules`Lorentz,
32398	FeynRules`Ext[1]],
32399	FeynRules`Index[FeynRules`Spin,
32400	FeynRules`Ext[2]],
32401	FeynRules`Index[FeynRules`Spin,
32402	FeynRules`Ext[3]]] - 12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
32403	FeynRules`Ga[
32404	FeynRules`Index[FeynRules`Lorentz,
32405	FeynRules`Ext[1]]], FeynRules`ProjM][
32406	FeynRules`Index[FeynRules`Spin,
32407	FeynRules`Ext[2]],
32408	FeynRules`Index[FeynRules`Spin,
32409	FeynRules`Ext[3]]] - $CellContext`vevhat^2 (($CellContext`cHDD -
32410	12 $CellContext`cHl3 + 12 $CellContext`cHq10 + 12 $CellContext`cHq30 +
32411	6 $CellContext`cll1 + 12 $CellContext`DeltadcHq1 $CellContext`Sd2x2 +
32412	12 $CellContext`DeltadcHq3 $CellContext`Sd2x2 +
32413	12 $CellContext`CKM1x2 ($CellContext`DeltaucHq1 + \
32414	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x2] +
32415	12 $CellContext`CKM2x2 ($CellContext`DeltaucHq1 + \
32416	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x2] +
32417	12 $CellContext`CKM3x2 $CellContext`DeltaucHq1 $CellContext`Su3x3
32418	Conjugate[$CellContext`CKM3x2] +
32419	12 $CellContext`CKM3x2 $CellContext`DeltaucHq3 $CellContext`Su3x3
32420	Conjugate[$CellContext`CKM3x2]) FeynRules`TensDot[
32421	FeynRules`Ga[
32422	FeynRules`Index[FeynRules`Lorentz,
32423	FeynRules`Ext[1]]], FeynRules`ProjM][
32424	FeynRules`Index[FeynRules`Spin,
32425	FeynRules`Ext[2]],
32426	FeynRules`Index[FeynRules`Spin,
32427	FeynRules`Ext[3]]] +
32428	4 (3 $CellContext`cHd0 + $CellContext`cHDD +
32429	3 $CellContext`DeltacHd $CellContext`Sd2x2) FeynRules`TensDot[
32430	FeynRules`Ga[
32431	FeynRules`Index[FeynRules`Lorentz,
32432	FeynRules`Ext[1]]], FeynRules`ProjP][
32433	FeynRules`Index[FeynRules`Spin,
32434	FeynRules`Ext[2]],
32435	FeynRules`Index[FeynRules`Spin,
32436	FeynRules`Ext[3]]]))}, {{{$CellContext`Z, 1}, {$CellContext`sbar,
32437	2}, {FeynRules`b, 3}}, Complex[0,
32438	Rational[
32439	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
32440	$CellContext`DeltaucHq3)
32441	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
32442	$CellContext`vevhat^2 ($CellContext`CKM1x3 $CellContext`Su1x1
32443	Conjugate[$CellContext`CKM1x2] + $CellContext`CKM2x3 \
32444	$CellContext`Su2x2
32445	Conjugate[$CellContext`CKM2x2] + $CellContext`CKM3x3 \
32446	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x2]) FeynRules`IndexDelta[
32447	FeynRules`Index[FeynRules`Colour,
32448	FeynRules`Ext[2]],
32449	FeynRules`Index[FeynRules`Colour,
32450	FeynRules`Ext[3]]] FeynRules`TensDot[
32451	FeynRules`Ga[
32452	FeynRules`Index[FeynRules`Lorentz,
32453	FeynRules`Ext[1]]], FeynRules`ProjM][
32454	FeynRules`Index[FeynRules`Spin,
32455	FeynRules`Ext[2]],
32456	FeynRules`Index[FeynRules`Spin,
32457	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
32458	FeynRules`d, 3}}, Complex[0,
32459	Rational[
32460	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
32461	$CellContext`DeltaucHq3)
32462	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
32463	$CellContext`vevhat^2 ($CellContext`CKM1x1 $CellContext`Su1x1
32464	Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x1 \
32465	$CellContext`Su2x2
32466	Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x1 \
32467	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
32468	FeynRules`Index[FeynRules`Colour,
32469	FeynRules`Ext[2]],
32470	FeynRules`Index[FeynRules`Colour,
32471	FeynRules`Ext[3]]] FeynRules`TensDot[
32472	FeynRules`Ga[
32473	FeynRules`Index[FeynRules`Lorentz,
32474	FeynRules`Ext[1]]], FeynRules`ProjM][
32475	FeynRules`Index[FeynRules`Spin,
32476	FeynRules`Ext[2]],
32477	FeynRules`Index[FeynRules`Spin,
32478	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
32479	FeynRules`s, 3}}, Complex[0,
32480	Rational[
32481	1, 2]] $CellContext`cth^(-1) ($CellContext`DeltaucHq1 + \
32482	$CellContext`DeltaucHq3)
32483	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1) \
32484	$CellContext`vevhat^2 ($CellContext`CKM1x2 $CellContext`Su1x1
32485	Conjugate[$CellContext`CKM1x3] + $CellContext`CKM2x2 \
32486	$CellContext`Su2x2
32487	Conjugate[$CellContext`CKM2x3] + $CellContext`CKM3x2 \
32488	$CellContext`Su3x3 Conjugate[$CellContext`CKM3x3]) FeynRules`IndexDelta[
32489	FeynRules`Index[FeynRules`Colour,
32490	FeynRules`Ext[2]],
32491	FeynRules`Index[FeynRules`Colour,
32492	FeynRules`Ext[3]]] FeynRules`TensDot[
32493	FeynRules`Ga[
32494	FeynRules`Index[FeynRules`Lorentz,
32495	FeynRules`Ext[1]]], FeynRules`ProjM][
32496	FeynRules`Index[FeynRules`Spin,
32497	FeynRules`Ext[2]],
32498	FeynRules`Index[FeynRules`Spin,
32499	FeynRules`Ext[3]]]}, {{{$CellContext`Z, 1}, {$CellContext`bbar, 2}, {
32500	FeynRules`b, 3}}, Complex[0,
32501	Rational[-1, 24]] $CellContext`cth^(-1)
32502	FeynRules`ee $CellContext`LambdaSMEFT^(-2) $CellContext`sth^(-1)
32503	FeynRules`IndexDelta[
32504	FeynRules`Index[FeynRules`Colour,
32505	FeynRules`Ext[2]],
32506	FeynRules`Index[FeynRules`Colour,
32507	FeynRules`Ext[3]]] (
32508	8 $CellContext`LambdaSMEFT^2 $CellContext`sth^2 FeynRules`Ga[
32509	FeynRules`Index[FeynRules`Lorentz,
32510	FeynRules`Ext[1]],
32511	FeynRules`Index[FeynRules`Spin,
32512	FeynRules`Ext[2]],
32513	FeynRules`Index[FeynRules`Spin,
32514	FeynRules`Ext[3]]] -
32515	16 $CellContext`cHWB $CellContext`cth $CellContext`sth \
32516	$CellContext`vevhat^2 FeynRules`Ga[
32517	FeynRules`Index[FeynRules`Lorentz,
32518	FeynRules`Ext[1]],
32519	FeynRules`Index[FeynRules`Spin,
32520	FeynRules`Ext[2]],
32521	FeynRules`Index[FeynRules`Spin,
32522	FeynRules`Ext[3]]] +
32523	2 ($CellContext`cHDD - 4 $CellContext`cHl3 +
32524	2 $CellContext`cll1) $CellContext`sth^2 $CellContext`vevhat^2
32525	FeynRules`Ga[
32526	FeynRules`Index[FeynRules`Lorentz,
32527	FeynRules`Ext[1]],
32528	FeynRules`Index[FeynRules`Spin,
32529	FeynRules`Ext[2]],
32530	FeynRules`Index[FeynRules`Spin,
32531	FeynRules`Ext[3]]] +
32532	16 $CellContext`cHWB $CellContext`cth $CellContext`sth^3 \
32533	$CellContext`vevhat^2 FeynRules`Ga[
32534	FeynRules`Index[FeynRules`Lorentz,
32535	FeynRules`Ext[1]],
32536	FeynRules`Index[FeynRules`Spin,
32537	FeynRules`Ext[2]],
32538	FeynRules`Index[FeynRules`Spin,
32539	FeynRules`Ext[3]]] - 12 $CellContext`LambdaSMEFT^2 FeynRules`TensDot[
32540	FeynRules`Ga[
32541	FeynRules`Index[FeynRules`Lorentz,
32542	FeynRules`Ext[1]]], FeynRules`ProjM][
32543	FeynRules`Index[FeynRules`Spin,
32544	FeynRules`Ext[2]],
32545	FeynRules`Index[FeynRules`Spin,
32546	FeynRules`Ext[3]]] - $CellContext`vevhat^2 (($CellContext`cHDD -
32547	12 $CellContext`cHl3 + 12 $CellContext`cHq10 + 12 $CellContext`cHq30 +
32548	6 $CellContext`cll1 + 12 $CellContext`DeltadcHq1 $CellContext`Sd3x3 +
32549	12 $CellContext`DeltadcHq3 $CellContext`Sd3x3 +
32550	12 $CellContext`CKM1x3 ($CellContext`DeltaucHq1 + \
32551	$CellContext`DeltaucHq3) $CellContext`Su1x1 Conjugate[$CellContext`CKM1x3] +
32552	12 $CellContext`CKM2x3 ($CellContext`DeltaucHq1 + \
32553	$CellContext`DeltaucHq3) $CellContext`Su2x2 Conjugate[$CellContext`CKM2x3] +
32554	12 $CellContext`CKM3x3 $CellContext`DeltaucHq1 $CellContext`Su3x3
32555	Conjugate[$CellContext`CKM3x3] +
32556	12 $CellContext`CKM3x3 $CellContext`DeltaucHq3 $CellContext`Su3x3
32557	Conjugate[$CellContext`CKM3x3]) FeynRules`TensDot[
32558	FeynRules`Ga[
32559	FeynRules`Index[FeynRules`Lorentz,
32560	FeynRules`Ext[1]]], FeynRules`ProjM][
32561	FeynRules`Index[FeynRules`Spin,
32562	FeynRules`Ext[2]],
32563	FeynRules`Index[FeynRules`Spin,
32564	FeynRules`Ext[3]]] +
32565	4 (3 $CellContext`cHd0 + $CellContext`cHDD +
32566	3 $CellContext`DeltacHd $CellContext`Sd3x3) FeynRules`TensDot[
32567	FeynRules`Ga[
32568	FeynRules`Index[FeynRules`Lorentz,
32569	FeynRules`Ext[1]]], FeynRules`ProjP][
32570	FeynRules`Index[FeynRules`Spin,
32571	FeynRules`Ext[2]],
32572	FeynRules`Index[FeynRules`Spin,
32573	FeynRules`Ext[3]]]))}}]]], "Output",
32574	CellChangeTimes->{{3.714657950098637^9, 3.714657963888904^9},
32575	3.714657998040905^9, {3.71465804041544^9, 3.714658062787704*^9},
32576	3.7146581568958817`*^9,
32577	3.729608254626334*^9},ExpressionUUID->"6357e402-8f81-40b6-bc04-\
32578	639405c75434"]
32579	}, Open ]]
32580	}, Closed]],
32581
32582	Cell[CellGroupData[{
32583
32584	Cell["Example : Yukawa couplings", "Subsection",
32585	CellChangeTimes->{{3.714653803679809^9, 3.714653813127017^9}}],
32586
32587	Cell[BoxData[
32588	RowBox[{
32589	RowBox[{"LYuk", " ", "=", " ",
32590	RowBox[{
32591	RowBox[{"LYukawa", " ", "+", " ", "L6cl5"}], "//", "OptimizeIndex"}]}],
32592	";"}]], "Input",
32593	CellChangeTimes->{{3.71465381867803^9, 3.7146538339978323`^9},
32594	3.714653880639667^9, {3.7146539581117077`^9, 3.714653960288474*^9}, {
32595	3.714656312155267^9, 3.7146563157427807`^9}, {3.7146564182116413`*^9,
32596	3.714656421562209^9}, {3.714656653224125^9,
32597	3.7146566537421703`*^9}},ExpressionUUID->"acb67596-bca4-4482-88ee-\
32598	caa0773c60f5"],
32599
32600	Cell[CellGroupData[{
32601
32602	Cell[BoxData[
32603	RowBox[{"hff", "=",
32604	RowBox[{
32605	RowBox[{
32606	RowBox[{"FeynmanRules", "[",
32607	RowBox[{"LYuk", ",",
32608	RowBox[{"MaxParticles", "\[Rule]", "3"}], ",",
32609	RowBox[{"Contains", "\[Rule]",
32610	RowBox[{"{", "H", "}"}]}]}], "]"}], "//", "WCsimplify"}], "//",
32611	"TableForm"}]}]], "Input",
32612	CellChangeTimes->{{3.714653838776801*^9,
32613	3.7146538891931353`*^9}},ExpressionUUID->"183e4d0a-b205-4e56-94e1-\
32614	09ecf07d6cb0"],
32615
32616	Cell[CellGroupData[{
32617
32618	Cell[BoxData[
32619	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
32620	StripOnInput->False,
32621	LineColor->RGBColor[1, 0.5, 0],
32622	FrontFaceColor->RGBColor[1, 0.5, 0],
32623	BackFaceColor->RGBColor[1, 0.5, 0],
32624	GraphicsColor->RGBColor[1, 0.5, 0],
32625	FontWeight->Bold,
32626	FontColor->RGBColor[1, 0.5, 0]]], "Print",
32627	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
32628	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
32629	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
32630	3.714656957164216^9, 3.7146572354232397`^9,
32631	3.729608260726844*^9},ExpressionUUID->"9faba4c7-8ed4-4094-9dbb-\
32632	9c3485ffc717"],
32633
32634	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
32635	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
32636	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
32637	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
32638	3.714656957164216^9, 3.7146572354232397`^9,
32639	3.7296082607277107`*^9},ExpressionUUID->"c3515c5a-91af-4e7a-9d18-\
32640	96d9059a051c"],
32641
32642	Cell[BoxData[
32643	InterpretationBox[
32644	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
32645	"\[InvisibleSpace]", "\<\" cores\"\>"}],
32646	SequenceForm["Expanding the indices over ", 2, " cores"],
32647	Editable->False]], "Print",
32648	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
32649	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
32650	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
32651	3.714656957164216^9, 3.7146572354232397`^9,
32652	3.7296082607299213`*^9},ExpressionUUID->"b68aa3c5-2379-40df-be9a-\
32653	0d181bf8e6be"],
32654
32655	Cell[BoxData["\<\"Collecting the different structures that enter the \
32656	vertex.\"\>"], "Print",
32657	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
32658	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
32659	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
32660	3.714656957164216^9, 3.7146572354232397`^9,
32661	3.7296082646310673`*^9},ExpressionUUID->"ff5bb871-f8b8-4de5-a15c-\
32662	fa2fc5f69231"],
32663
32664	Cell[BoxData[
32665	InterpretationBox[
32666	RowBox[{
32667	"3", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
32668	-> starting the computation: \"\>", "\[InvisibleSpace]",
32669	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
32670	ImageSizeCache->{117., {3., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
32671	"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\".\"\>"}],
32672	SequenceForm[
32673	3, " possible non-zero vertices have been found -> starting the \
32674	computation: ",
32675	Dynamic[FeynRules`FR$FeynmanRules], " / ", 3, "."],
32676	Editable->False]], "Print",
32677	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
32678	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
32679	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
32680	3.714656957164216^9, 3.7146572354232397`^9,
32681	3.729608264655758*^9},ExpressionUUID->"c02aa28f-9088-4447-ac84-\
32682	6909bc37596a"],
32683
32684	Cell[BoxData[
32685	InterpretationBox[
32686	RowBox[{"3", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
32687	SequenceForm[3, " vertices obtained."],
32688	Editable->False]], "Print",
32689	CellChangeTimes->{{3.714653866931634^9, 3.714653889861516^9},
32690	3.714653968951281^9, 3.714656285669918^9, 3.714656390885407*^9,
32691	3.714656426361683^9, 3.714656663987858^9, 3.714656825591028*^9,
32692	3.714656957164216^9, 3.7146572354232397`^9,
32693	3.729608265537322*^9},ExpressionUUID->"9e58f92a-77bf-492d-92f2-\
32694	481ee0515a34"]
32695	}, Open ]],
32696
32697	Cell[BoxData[
32698	InterpretationBox[GridBox[{
32699	{GridBox[{
32700	{
32701	OverscriptBox["dq", "\<\"-\"\>"], "1"},
32702	{"dq", "2"},
32703	{"H", "3"}
32704	},
32705	GridBoxAlignment->{
32706	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
32707	"RowsIndexed" -> {}},
32708	GridBoxSpacings->{"Columns" -> {
32709	Offset[0.27999999999999997`], {
32710	Offset[0.7]},
32711	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
32712	Offset[0.2], {
32713	Offset[0.1]},
32714	Offset[0.2]}, "RowsIndexed" -> {}}],
32715	RowBox[{
32716	FractionBox[
32717	RowBox[{"\[ImaginaryI]", " ",
32718	SubscriptBox["\[CapitalDelta]c", "dH"], " ",
32719	SuperscriptBox[
32720	OverscriptBox["v", "^"], "2"], " ",
32721	SubscriptBox["\[Delta]",
32722	RowBox[{
32723	SubscriptBox["\<\"m\"\>", "1"], ",",
32724	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
32725	RowBox[{"(",
32726	RowBox[{
32727	RowBox[{
32728	SubscriptBox[
32729	SubscriptBox["P", "\<\"+\"\>"],
32730	RowBox[{
32731	SubscriptBox["\<\"s\"\>", "1"], ",",
32732	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32733	RowBox[{"(",
32734	RowBox[{
32735	RowBox[{"3", " ",
32736	SubscriptBox[
32737	TemplateBox[{"S","d"},
32738	"Superscript"],
32739	RowBox[{"Generation$1", ",",
32740	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
32741	SubscriptBox[
32742	TemplateBox[{"S","d"},
32743	"Superscript"],
32744	RowBox[{
32745	SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}],
32746	")"}], " ",
32747	SubscriptBox[
32748	TemplateBox[{"y","d"},
32749	"Superscript"],
32750	RowBox[{"Generation$1", ",",
32751	SubscriptBox["\<\"f\"\>", "1"]}]]}], "-",
32752	RowBox[{
32753	SubscriptBox[
32754	SubscriptBox["P", "\<\"-\"\>"],
32755	RowBox[{
32756	SubscriptBox["\<\"s\"\>", "1"], ",",
32757	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32758	RowBox[{"(",
32759	RowBox[{
32760	SubscriptBox[
32761	TemplateBox[{"S","d"},
32762	"Superscript"],
32763	RowBox[{"Generation$1", ",",
32764	SubscriptBox["\<\"f\"\>", "1"]}]], "-",
32765	RowBox[{"3", " ",
32766	SubscriptBox[
32767	TemplateBox[{"S","d"},
32768	"Superscript"],
32769	RowBox[{
32770	SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}],
32771	")"}], " ",
32772	SubscriptBox[
32773	TemplateBox[{"y","d"},
32774	"Superscript"],
32775	RowBox[{"Generation$1", ",",
32776	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
32777	RowBox[{"2", " ",
32778	SqrtBox["2"], " ",
32779	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
32780	FractionBox[
32781	RowBox[{"\[ImaginaryI]", " ",
32782	SubscriptBox["\[Delta]",
32783	RowBox[{
32784	SubscriptBox["\<\"m\"\>", "1"], ",",
32785	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
32786	RowBox[{"(",
32787	RowBox[{
32788	RowBox[{
32789	SubscriptBox[
32790	SubscriptBox["P", "\<\"-\"\>"],
32791	RowBox[{
32792	SubscriptBox["\<\"s\"\>", "1"], ",",
32793	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32794	SubscriptBox[
32795	TemplateBox[{"y","d"},
32796	"Superscript"],
32797	RowBox[{
32798	SubscriptBox["\<\"f\"\>", "1"], ",",
32799	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
32800	RowBox[{
32801	SubscriptBox[
32802	SubscriptBox["P", "\<\"+\"\>"],
32803	RowBox[{
32804	SubscriptBox["\<\"s\"\>", "1"], ",",
32805	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32806	SubscriptBox[
32807	TemplateBox[{"y","d"},
32808	"Superscript"],
32809	RowBox[{
32810	SubscriptBox["\<\"f\"\>", "2"], ",",
32811	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
32812	SqrtBox["2"]], "+",
32813	RowBox[{
32814	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ",
32815	SubscriptBox["\[Delta]",
32816	RowBox[{
32817	SubscriptBox["\<\"m\"\>", "1"], ",",
32818	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
32819	RowBox[{"(",
32820	RowBox[{
32821	RowBox[{
32822	SubscriptBox[
32823	SubscriptBox["P", "\<\"-\"\>"],
32824	RowBox[{
32825	SubscriptBox["\<\"s\"\>", "1"], ",",
32826	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32827	SubscriptBox[
32828	TemplateBox[{"y","d"},
32829	"Superscript"],
32830	RowBox[{
32831	SubscriptBox["\<\"f\"\>", "1"], ",",
32832	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
32833	RowBox[{
32834	SubscriptBox[
32835	SubscriptBox["P", "\<\"+\"\>"],
32836	RowBox[{
32837	SubscriptBox["\<\"s\"\>", "1"], ",",
32838	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32839	SubscriptBox[
32840	TemplateBox[{"y","d"},
32841	"Superscript"],
32842	RowBox[{
32843	SubscriptBox["\<\"f\"\>", "2"], ",",
32844	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "+",
32845	FractionBox[
32846	RowBox[{"\[ImaginaryI]", " ",
32847	SubscriptBox["c", "dH"], " ",
32848	SuperscriptBox[
32849	OverscriptBox["v", "^"], "2"], " ",
32850	SubscriptBox["\[Delta]",
32851	RowBox[{
32852	SubscriptBox["\<\"m\"\>", "1"], ",",
32853	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
32854	RowBox[{"(",
32855	RowBox[{
32856	RowBox[{
32857	SubscriptBox[
32858	SubscriptBox["P", "\<\"-\"\>"],
32859	RowBox[{
32860	SubscriptBox["\<\"s\"\>", "1"], ",",
32861	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32862	SubscriptBox[
32863	TemplateBox[{"y","d"},
32864	"Superscript"],
32865	RowBox[{
32866	SubscriptBox["\<\"f\"\>", "1"], ",",
32867	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
32868	RowBox[{
32869	SubscriptBox[
32870	SubscriptBox["P", "\<\"+\"\>"],
32871	RowBox[{
32872	SubscriptBox["\<\"s\"\>", "1"], ",",
32873	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32874	SubscriptBox[
32875	TemplateBox[{"y","d"},
32876	"Superscript"],
32877	RowBox[{
32878	SubscriptBox["\<\"f\"\>", "2"], ",",
32879	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
32880	RowBox[{
32881	SqrtBox["2"], " ",
32882	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
32883	FractionBox[
32884	RowBox[{"\[ImaginaryI]", " ",
32885	SubscriptBox["c",
32886	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
32887	SuperscriptBox[
32888	OverscriptBox["v", "^"], "2"], " ",
32889	SubscriptBox["\[Delta]",
32890	RowBox[{
32891	SubscriptBox["\<\"m\"\>", "1"], ",",
32892	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
32893	RowBox[{"(",
32894	RowBox[{
32895	RowBox[{
32896	SubscriptBox[
32897	SubscriptBox["P", "\<\"-\"\>"],
32898	RowBox[{
32899	SubscriptBox["\<\"s\"\>", "1"], ",",
32900	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32901	SubscriptBox[
32902	TemplateBox[{"y","d"},
32903	"Superscript"],
32904	RowBox[{
32905	SubscriptBox["\<\"f\"\>", "1"], ",",
32906	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
32907	RowBox[{
32908	SubscriptBox[
32909	SubscriptBox["P", "\<\"+\"\>"],
32910	RowBox[{
32911	SubscriptBox["\<\"s\"\>", "1"], ",",
32912	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32913	SubscriptBox[
32914	TemplateBox[{"y","d"},
32915	"Superscript"],
32916	RowBox[{
32917	SubscriptBox["\<\"f\"\>", "2"], ",",
32918	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
32919	RowBox[{
32920	SqrtBox["2"], " ",
32921	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
32922	FractionBox[
32923	RowBox[{"\[ImaginaryI]", " ",
32924	SubscriptBox["c", "HD"], " ",
32925	SuperscriptBox[
32926	OverscriptBox["v", "^"], "2"], " ",
32927	SubscriptBox["\[Delta]",
32928	RowBox[{
32929	SubscriptBox["\<\"m\"\>", "1"], ",",
32930	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
32931	RowBox[{"(",
32932	RowBox[{
32933	RowBox[{
32934	SubscriptBox[
32935	SubscriptBox["P", "\<\"-\"\>"],
32936	RowBox[{
32937	SubscriptBox["\<\"s\"\>", "1"], ",",
32938	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32939	SubscriptBox[
32940	TemplateBox[{"y","d"},
32941	"Superscript"],
32942	RowBox[{
32943	SubscriptBox["\<\"f\"\>", "1"], ",",
32944	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
32945	RowBox[{
32946	SubscriptBox[
32947	SubscriptBox["P", "\<\"+\"\>"],
32948	RowBox[{
32949	SubscriptBox["\<\"s\"\>", "1"], ",",
32950	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32951	SubscriptBox[
32952	TemplateBox[{"y","d"},
32953	"Superscript"],
32954	RowBox[{
32955	SubscriptBox["\<\"f\"\>", "2"], ",",
32956	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
32957	RowBox[{"4", " ",
32958	SqrtBox["2"], " ",
32959	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
32960	{GridBox[{
32961	{
32962	OverscriptBox["l", "\<\"-\"\>"], "1"},
32963	{"l", "2"},
32964	{"H", "3"}
32965	},
32966	GridBoxAlignment->{
32967	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
32968	"RowsIndexed" -> {}},
32969	GridBoxSpacings->{"Columns" -> {
32970	Offset[0.27999999999999997`], {
32971	Offset[0.7]},
32972	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
32973	Offset[0.2], {
32974	Offset[0.1]},
32975	Offset[0.2]}, "RowsIndexed" -> {}}],
32976	RowBox[{
32977	FractionBox[
32978	RowBox[{"3", " ", "\[ImaginaryI]", " ",
32979	SubscriptBox["c", "eH"], " ",
32980	SuperscriptBox[
32981	OverscriptBox["v", "^"], "2"], " ",
32982	RowBox[{"(",
32983	RowBox[{
32984	RowBox[{
32985	SubscriptBox[
32986	SubscriptBox["P", "\<\"-\"\>"],
32987	RowBox[{
32988	SubscriptBox["\<\"s\"\>", "1"], ",",
32989	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
32990	SubscriptBox[
32991	TemplateBox[{"y","l"},
32992	"Superscript"],
32993	RowBox[{
32994	SubscriptBox["\<\"f\"\>", "1"], ",",
32995	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
32996	RowBox[{
32997	SubscriptBox[
32998	SubscriptBox["P", "\<\"+\"\>"],
32999	RowBox[{
33000	SubscriptBox["\<\"s\"\>", "1"], ",",
33001	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33002	SubscriptBox[
33003	TemplateBox[{"y","l"},
33004	"Superscript"],
33005	RowBox[{
33006	SubscriptBox["\<\"f\"\>", "2"], ",",
33007	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33008	RowBox[{"2", " ",
33009	SqrtBox["2"], " ",
33010	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
33011	FractionBox[
33012	RowBox[{"\[ImaginaryI]", " ",
33013	RowBox[{"(",
33014	RowBox[{
33015	RowBox[{
33016	SubscriptBox[
33017	SubscriptBox["P", "\<\"-\"\>"],
33018	RowBox[{
33019	SubscriptBox["\<\"s\"\>", "1"], ",",
33020	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33021	SubscriptBox["yl0",
33022	RowBox[{
33023	SubscriptBox["\<\"f\"\>", "1"], ",",
33024	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33025	RowBox[{
33026	SubscriptBox[
33027	SubscriptBox["P", "\<\"+\"\>"],
33028	RowBox[{
33029	SubscriptBox["\<\"s\"\>", "1"], ",",
33030	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33031	SubscriptBox["yl0",
33032	RowBox[{
33033	SubscriptBox["\<\"f\"\>", "2"], ",",
33034	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33035	SqrtBox["2"]], "-",
33036	FractionBox[
33037	RowBox[{"\[ImaginaryI]", " ",
33038	SubscriptBox["c",
33039	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
33040	SuperscriptBox[
33041	OverscriptBox["v", "^"], "2"], " ",
33042	RowBox[{"(",
33043	RowBox[{
33044	RowBox[{
33045	SubscriptBox[
33046	SubscriptBox["P", "\<\"-\"\>"],
33047	RowBox[{
33048	SubscriptBox["\<\"s\"\>", "1"], ",",
33049	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33050	SubscriptBox["yl0",
33051	RowBox[{
33052	SubscriptBox["\<\"f\"\>", "1"], ",",
33053	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33054	RowBox[{
33055	SubscriptBox[
33056	SubscriptBox["P", "\<\"+\"\>"],
33057	RowBox[{
33058	SubscriptBox["\<\"s\"\>", "1"], ",",
33059	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33060	SubscriptBox["yl0",
33061	RowBox[{
33062	SubscriptBox["\<\"f\"\>", "2"], ",",
33063	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33064	RowBox[{
33065	SqrtBox["2"], " ",
33066	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
33067	FractionBox[
33068	RowBox[{"\[ImaginaryI]", " ",
33069	SubscriptBox["c", "HD"], " ",
33070	SuperscriptBox[
33071	OverscriptBox["v", "^"], "2"], " ",
33072	RowBox[{"(",
33073	RowBox[{
33074	RowBox[{
33075	SubscriptBox[
33076	SubscriptBox["P", "\<\"-\"\>"],
33077	RowBox[{
33078	SubscriptBox["\<\"s\"\>", "1"], ",",
33079	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33080	SubscriptBox["yl0",
33081	RowBox[{
33082	SubscriptBox["\<\"f\"\>", "1"], ",",
33083	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33084	RowBox[{
33085	SubscriptBox[
33086	SubscriptBox["P", "\<\"+\"\>"],
33087	RowBox[{
33088	SubscriptBox["\<\"s\"\>", "1"], ",",
33089	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33090	SubscriptBox["yl0",
33091	RowBox[{
33092	SubscriptBox["\<\"f\"\>", "2"], ",",
33093	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33094	RowBox[{"4", " ",
33095	SqrtBox["2"], " ",
33096	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
33097	{GridBox[{
33098	{
33099	OverscriptBox["uq", "\<\"-\"\>"], "1"},
33100	{"uq", "2"},
33101	{"H", "3"}
33102	},
33103	GridBoxAlignment->{
33104	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
33105	"RowsIndexed" -> {}},
33106	GridBoxSpacings->{"Columns" -> {
33107	Offset[0.27999999999999997`], {
33108	Offset[0.7]},
33109	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
33110	Offset[0.2], {
33111	Offset[0.1]},
33112	Offset[0.2]}, "RowsIndexed" -> {}}],
33113	RowBox[{
33114	FractionBox[
33115	RowBox[{"\[ImaginaryI]", " ",
33116	SubscriptBox["\[CapitalDelta]c", "uH"], " ",
33117	SuperscriptBox[
33118	OverscriptBox["v", "^"], "2"], " ",
33119	SubscriptBox["\[Delta]",
33120	RowBox[{
33121	SubscriptBox["\<\"m\"\>", "1"], ",",
33122	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
33123	RowBox[{"(",
33124	RowBox[{
33125	RowBox[{
33126	SubscriptBox[
33127	SubscriptBox["P", "\<\"+\"\>"],
33128	RowBox[{
33129	SubscriptBox["\<\"s\"\>", "1"], ",",
33130	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33131	RowBox[{"(",
33132	RowBox[{
33133	RowBox[{"3", " ",
33134	SubscriptBox[
33135	TemplateBox[{"S","u"},
33136	"Superscript"],
33137	RowBox[{"Generation$1", ",",
33138	SubscriptBox["\<\"f\"\>", "2"]}]]}], "-",
33139	SubscriptBox[
33140	TemplateBox[{"S","u"},
33141	"Superscript"],
33142	RowBox[{
33143	SubscriptBox["\<\"f\"\>", "2"], ",", "Generation$1"}]]}],
33144	")"}], " ",
33145	SubscriptBox[
33146	TemplateBox[{"y","u"},
33147	"Superscript"],
33148	RowBox[{"Generation$1", ",",
33149	SubscriptBox["\<\"f\"\>", "1"]}]]}], "-",
33150	RowBox[{
33151	SubscriptBox[
33152	SubscriptBox["P", "\<\"-\"\>"],
33153	RowBox[{
33154	SubscriptBox["\<\"s\"\>", "1"], ",",
33155	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33156	RowBox[{"(",
33157	RowBox[{
33158	SubscriptBox[
33159	TemplateBox[{"S","u"},
33160	"Superscript"],
33161	RowBox[{"Generation$1", ",",
33162	SubscriptBox["\<\"f\"\>", "1"]}]], "-",
33163	RowBox[{"3", " ",
33164	SubscriptBox[
33165	TemplateBox[{"S","u"},
33166	"Superscript"],
33167	RowBox[{
33168	SubscriptBox["\<\"f\"\>", "1"], ",", "Generation$1"}]]}]}],
33169	")"}], " ",
33170	SubscriptBox[
33171	TemplateBox[{"y","u"},
33172	"Superscript"],
33173	RowBox[{"Generation$1", ",",
33174	SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}],
33175	RowBox[{"2", " ",
33176	SqrtBox["2"], " ",
33177	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
33178	FractionBox[
33179	RowBox[{"\[ImaginaryI]", " ",
33180	SubscriptBox["\[Delta]",
33181	RowBox[{
33182	SubscriptBox["\<\"m\"\>", "1"], ",",
33183	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
33184	RowBox[{"(",
33185	RowBox[{
33186	RowBox[{
33187	SubscriptBox[
33188	SubscriptBox["P", "\<\"-\"\>"],
33189	RowBox[{
33190	SubscriptBox["\<\"s\"\>", "1"], ",",
33191	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33192	SubscriptBox[
33193	TemplateBox[{"y","u"},
33194	"Superscript"],
33195	RowBox[{
33196	SubscriptBox["\<\"f\"\>", "1"], ",",
33197	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33198	RowBox[{
33199	SubscriptBox[
33200	SubscriptBox["P", "\<\"+\"\>"],
33201	RowBox[{
33202	SubscriptBox["\<\"s\"\>", "1"], ",",
33203	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33204	SubscriptBox[
33205	TemplateBox[{"y","u"},
33206	"Superscript"],
33207	RowBox[{
33208	SubscriptBox["\<\"f\"\>", "2"], ",",
33209	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33210	SqrtBox["2"]], "+",
33211	RowBox[{
33212	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ",
33213	SubscriptBox["\[Delta]",
33214	RowBox[{
33215	SubscriptBox["\<\"m\"\>", "1"], ",",
33216	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
33217	RowBox[{"(",
33218	RowBox[{
33219	RowBox[{
33220	SubscriptBox[
33221	SubscriptBox["P", "\<\"-\"\>"],
33222	RowBox[{
33223	SubscriptBox["\<\"s\"\>", "1"], ",",
33224	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33225	SubscriptBox[
33226	TemplateBox[{"y","u"},
33227	"Superscript"],
33228	RowBox[{
33229	SubscriptBox["\<\"f\"\>", "1"], ",",
33230	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33231	RowBox[{
33232	SubscriptBox[
33233	SubscriptBox["P", "\<\"+\"\>"],
33234	RowBox[{
33235	SubscriptBox["\<\"s\"\>", "1"], ",",
33236	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33237	SubscriptBox[
33238	TemplateBox[{"y","u"},
33239	"Superscript"],
33240	RowBox[{
33241	SubscriptBox["\<\"f\"\>", "2"], ",",
33242	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}], "-",
33243	FractionBox[
33244	RowBox[{"\[ImaginaryI]", " ",
33245	SubscriptBox["c",
33246	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
33247	SuperscriptBox[
33248	OverscriptBox["v", "^"], "2"], " ",
33249	SubscriptBox["\[Delta]",
33250	RowBox[{
33251	SubscriptBox["\<\"m\"\>", "1"], ",",
33252	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
33253	RowBox[{"(",
33254	RowBox[{
33255	RowBox[{
33256	SubscriptBox[
33257	SubscriptBox["P", "\<\"-\"\>"],
33258	RowBox[{
33259	SubscriptBox["\<\"s\"\>", "1"], ",",
33260	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33261	SubscriptBox[
33262	TemplateBox[{"y","u"},
33263	"Superscript"],
33264	RowBox[{
33265	SubscriptBox["\<\"f\"\>", "1"], ",",
33266	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33267	RowBox[{
33268	SubscriptBox[
33269	SubscriptBox["P", "\<\"+\"\>"],
33270	RowBox[{
33271	SubscriptBox["\<\"s\"\>", "1"], ",",
33272	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33273	SubscriptBox[
33274	TemplateBox[{"y","u"},
33275	"Superscript"],
33276	RowBox[{
33277	SubscriptBox["\<\"f\"\>", "2"], ",",
33278	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33279	RowBox[{
33280	SqrtBox["2"], " ",
33281	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
33282	FractionBox[
33283	RowBox[{"\[ImaginaryI]", " ",
33284	SubscriptBox["c", "HD"], " ",
33285	SuperscriptBox[
33286	OverscriptBox["v", "^"], "2"], " ",
33287	SubscriptBox["\[Delta]",
33288	RowBox[{
33289	SubscriptBox["\<\"m\"\>", "1"], ",",
33290	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
33291	RowBox[{"(",
33292	RowBox[{
33293	RowBox[{
33294	SubscriptBox[
33295	SubscriptBox["P", "\<\"-\"\>"],
33296	RowBox[{
33297	SubscriptBox["\<\"s\"\>", "1"], ",",
33298	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33299	SubscriptBox[
33300	TemplateBox[{"y","u"},
33301	"Superscript"],
33302	RowBox[{
33303	SubscriptBox["\<\"f\"\>", "1"], ",",
33304	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33305	RowBox[{
33306	SubscriptBox[
33307	SubscriptBox["P", "\<\"+\"\>"],
33308	RowBox[{
33309	SubscriptBox["\<\"s\"\>", "1"], ",",
33310	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33311	SubscriptBox[
33312	TemplateBox[{"y","u"},
33313	"Superscript"],
33314	RowBox[{
33315	SubscriptBox["\<\"f\"\>", "2"], ",",
33316	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33317	RowBox[{"4", " ",
33318	SqrtBox["2"], " ",
33319	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
33320	FractionBox[
33321	RowBox[{"\[ImaginaryI]", " ",
33322	SubscriptBox["c", "uH"], " ",
33323	SuperscriptBox[
33324	OverscriptBox["v", "^"], "2"], " ",
33325	SubscriptBox["\[Delta]",
33326	RowBox[{
33327	SubscriptBox["\<\"m\"\>", "1"], ",",
33328	SubscriptBox["\<\"m\"\>", "2"]}]], " ",
33329	RowBox[{"(",
33330	RowBox[{
33331	RowBox[{
33332	SubscriptBox[
33333	SubscriptBox["P", "\<\"-\"\>"],
33334	RowBox[{
33335	SubscriptBox["\<\"s\"\>", "1"], ",",
33336	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33337	SubscriptBox[
33338	TemplateBox[{"y","u"},
33339	"Superscript"],
33340	RowBox[{
33341	SubscriptBox["\<\"f\"\>", "1"], ",",
33342	SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
33343	RowBox[{
33344	SubscriptBox[
33345	SubscriptBox["P", "\<\"+\"\>"],
33346	RowBox[{
33347	SubscriptBox["\<\"s\"\>", "1"], ",",
33348	SubscriptBox["\<\"s\"\>", "2"]}]], " ",
33349	SubscriptBox[
33350	TemplateBox[{"y","u"},
33351	"Superscript"],
33352	RowBox[{
33353	SubscriptBox["\<\"f\"\>", "2"], ",",
33354	SubscriptBox["\<\"f\"\>", "1"]}]]}]}], ")"}]}],
33355	RowBox[{
33356	SqrtBox["2"], " ",
33357	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
33358	},
33359	GridBoxAlignment->{
33360	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
33361	"RowsIndexed" -> {}},
33362	GridBoxSpacings->{"Columns" -> {
33363	Offset[0.27999999999999997`], {
33364	Offset[2.0999999999999996`]},
33365	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
33366	Offset[0.2], {
33367	Offset[0.4]},
33368	Offset[0.2]}, "RowsIndexed" -> {}}],
33369	TableForm[{{{{$CellContext`dqbar, 1}, {$CellContext`dq, 2}, {
33370	FeynRules`H, 3}}, Complex[0,
33371	Rational[1, 2]]
33372	2^Rational[-1,
33373	2] $CellContext`DeltacdH $CellContext`LambdaSMEFT^(-2) \
33374	$CellContext`vevhat^2 FeynRules`IndexDelta[
33375	FeynRules`Index[FeynRules`Colour,
33376	FeynRules`Ext[1]],
33377	FeynRules`Index[FeynRules`Colour,
33378	FeynRules`Ext[2]]] (FeynRules`ProjP[
33379	FeynRules`Index[FeynRules`Spin,
33380	FeynRules`Ext[1]],
33381	FeynRules`Index[FeynRules`Spin,
33382	FeynRules`Ext[2]]] (3 $CellContext`Sd[
33383
33384	FeynRules`Index[$CellContext`Generation, \
33385	$CellContext`Generation$1],
33386	FeynRules`Index[$CellContext`Generation,
33387	FeynRules`Ext[2]]] - $CellContext`Sd[
33388	FeynRules`Index[$CellContext`Generation,
33389	FeynRules`Ext[2]],
33390
33391	FeynRules`Index[$CellContext`Generation, \
33392	$CellContext`Generation$1]]) $CellContext`yd[
33393	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
33394	FeynRules`Index[$CellContext`Generation,
33395	FeynRules`Ext[1]]] - FeynRules`ProjM[
33396	FeynRules`Index[FeynRules`Spin,
33397	FeynRules`Ext[1]],
33398	FeynRules`Index[FeynRules`Spin,
33399	FeynRules`Ext[2]]] ($CellContext`Sd[
33400	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
33401	FeynRules`Index[$CellContext`Generation,
33402	FeynRules`Ext[1]]] - 3 $CellContext`Sd[
33403	FeynRules`Index[$CellContext`Generation,
33404	FeynRules`Ext[1]],
33405
33406	FeynRules`Index[$CellContext`Generation, \
33407	$CellContext`Generation$1]]) $CellContext`yd[
33408	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
33409
33410	FeynRules`Index[$CellContext`Generation,
33411	FeynRules`Ext[2]]]) +
33412	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
33413	FeynRules`Index[FeynRules`Colour,
33414	FeynRules`Ext[1]],
33415	FeynRules`Index[FeynRules`Colour,
33416	FeynRules`Ext[2]]] (FeynRules`ProjM[
33417	FeynRules`Index[FeynRules`Spin,
33418	FeynRules`Ext[1]],
33419	FeynRules`Index[FeynRules`Spin,
33420	FeynRules`Ext[2]]] $CellContext`yd[
33421	FeynRules`Index[$CellContext`Generation,
33422	FeynRules`Ext[1]],
33423	FeynRules`Index[$CellContext`Generation,
33424	FeynRules`Ext[2]]] + FeynRules`ProjP[
33425	FeynRules`Index[FeynRules`Spin,
33426	FeynRules`Ext[1]],
33427	FeynRules`Index[FeynRules`Spin,
33428	FeynRules`Ext[2]]] $CellContext`yd[
33429	FeynRules`Index[$CellContext`Generation,
33430	FeynRules`Ext[2]],
33431	FeynRules`Index[$CellContext`Generation,
33432	FeynRules`Ext[1]]]) + Complex[0,
33433	Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
33434	FeynRules`Index[FeynRules`Colour,
33435	FeynRules`Ext[1]],
33436	FeynRules`Index[FeynRules`Colour,
33437	FeynRules`Ext[2]]] (FeynRules`ProjM[
33438	FeynRules`Index[FeynRules`Spin,
33439	FeynRules`Ext[1]],
33440	FeynRules`Index[FeynRules`Spin,
33441	FeynRules`Ext[2]]] $CellContext`yd[
33442	FeynRules`Index[$CellContext`Generation,
33443	FeynRules`Ext[1]],
33444	FeynRules`Index[$CellContext`Generation,
33445	FeynRules`Ext[2]]] + FeynRules`ProjP[
33446	FeynRules`Index[FeynRules`Spin,
33447	FeynRules`Ext[1]],
33448	FeynRules`Index[FeynRules`Spin,
33449	FeynRules`Ext[2]]] $CellContext`yd[
33450	FeynRules`Index[$CellContext`Generation,
33451	FeynRules`Ext[2]],
33452	FeynRules`Index[$CellContext`Generation,
33453	FeynRules`Ext[1]]]) +
33454	Complex[0, 1]
33455	2^Rational[-1,
33456	2] $CellContext`cdH0 $CellContext`LambdaSMEFT^(-2) \
33457	$CellContext`vevhat^2 FeynRules`IndexDelta[
33458	FeynRules`Index[FeynRules`Colour,
33459	FeynRules`Ext[1]],
33460	FeynRules`Index[FeynRules`Colour,
33461	FeynRules`Ext[2]]] (FeynRules`ProjM[
33462	FeynRules`Index[FeynRules`Spin,
33463	FeynRules`Ext[1]],
33464	FeynRules`Index[FeynRules`Spin,
33465	FeynRules`Ext[2]]] $CellContext`yd[
33466	FeynRules`Index[$CellContext`Generation,
33467	FeynRules`Ext[1]],
33468	FeynRules`Index[$CellContext`Generation,
33469	FeynRules`Ext[2]]] + FeynRules`ProjP[
33470	FeynRules`Index[FeynRules`Spin,
33471	FeynRules`Ext[1]],
33472	FeynRules`Index[FeynRules`Spin,
33473	FeynRules`Ext[2]]] $CellContext`yd[
33474	FeynRules`Index[$CellContext`Generation,
33475	FeynRules`Ext[2]],
33476	FeynRules`Index[$CellContext`Generation,
33477	FeynRules`Ext[1]]]) +
33478	Complex[0, -1]
33479	2^Rational[-1,
33480	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
33481	$CellContext`vevhat^2 FeynRules`IndexDelta[
33482	FeynRules`Index[FeynRules`Colour,
33483	FeynRules`Ext[1]],
33484	FeynRules`Index[FeynRules`Colour,
33485	FeynRules`Ext[2]]] (FeynRules`ProjM[
33486	FeynRules`Index[FeynRules`Spin,
33487	FeynRules`Ext[1]],
33488	FeynRules`Index[FeynRules`Spin,
33489	FeynRules`Ext[2]]] $CellContext`yd[
33490	FeynRules`Index[$CellContext`Generation,
33491	FeynRules`Ext[1]],
33492	FeynRules`Index[$CellContext`Generation,
33493	FeynRules`Ext[2]]] + FeynRules`ProjP[
33494	FeynRules`Index[FeynRules`Spin,
33495	FeynRules`Ext[1]],
33496	FeynRules`Index[FeynRules`Spin,
33497	FeynRules`Ext[2]]] $CellContext`yd[
33498	FeynRules`Index[$CellContext`Generation,
33499	FeynRules`Ext[2]],
33500	FeynRules`Index[$CellContext`Generation,
33501	FeynRules`Ext[1]]]) + Complex[0,
33502	Rational[1, 4]]
33503	2^Rational[-1,
33504	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
33505	$CellContext`vevhat^2 FeynRules`IndexDelta[
33506	FeynRules`Index[FeynRules`Colour,
33507	FeynRules`Ext[1]],
33508	FeynRules`Index[FeynRules`Colour,
33509	FeynRules`Ext[2]]] (FeynRules`ProjM[
33510	FeynRules`Index[FeynRules`Spin,
33511	FeynRules`Ext[1]],
33512	FeynRules`Index[FeynRules`Spin,
33513	FeynRules`Ext[2]]] $CellContext`yd[
33514	FeynRules`Index[$CellContext`Generation,
33515	FeynRules`Ext[1]],
33516	FeynRules`Index[$CellContext`Generation,
33517	FeynRules`Ext[2]]] + FeynRules`ProjP[
33518	FeynRules`Index[FeynRules`Spin,
33519	FeynRules`Ext[1]],
33520	FeynRules`Index[FeynRules`Spin,
33521	FeynRules`Ext[2]]] $CellContext`yd[
33522	FeynRules`Index[$CellContext`Generation,
33523	FeynRules`Ext[2]],
33524	FeynRules`Index[$CellContext`Generation,
33525	FeynRules`Ext[1]]])}, {{{$CellContext`lbar, 1}, {FeynRules`l, 2}, {
33526	FeynRules`H, 3}}, Complex[0,
33527	Rational[3, 2]]
33528	2^Rational[-1,
33529	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
33530	$CellContext`vevhat^2 (FeynRules`ProjM[
33531	FeynRules`Index[FeynRules`Spin,
33532	FeynRules`Ext[1]],
33533	FeynRules`Index[FeynRules`Spin,
33534	FeynRules`Ext[2]]] $CellContext`yl[
33535	FeynRules`Index[$CellContext`Generation,
33536	FeynRules`Ext[1]],
33537	FeynRules`Index[$CellContext`Generation,
33538	FeynRules`Ext[2]]] + FeynRules`ProjP[
33539	FeynRules`Index[FeynRules`Spin,
33540	FeynRules`Ext[1]],
33541	FeynRules`Index[FeynRules`Spin,
33542	FeynRules`Ext[2]]] $CellContext`yl[
33543	FeynRules`Index[$CellContext`Generation,
33544	FeynRules`Ext[2]],
33545	FeynRules`Index[$CellContext`Generation,
33546	FeynRules`Ext[1]]]) +
33547	Complex[0, -1] 2^Rational[-1, 2] (FeynRules`ProjM[
33548	FeynRules`Index[FeynRules`Spin,
33549	FeynRules`Ext[1]],
33550	FeynRules`Index[FeynRules`Spin,
33551	FeynRules`Ext[2]]] $CellContext`yl0[
33552	FeynRules`Index[$CellContext`Generation,
33553	FeynRules`Ext[1]],
33554	FeynRules`Index[$CellContext`Generation,
33555	FeynRules`Ext[2]]] + FeynRules`ProjP[
33556	FeynRules`Index[FeynRules`Spin,
33557	FeynRules`Ext[1]],
33558	FeynRules`Index[FeynRules`Spin,
33559	FeynRules`Ext[2]]] $CellContext`yl0[
33560	FeynRules`Index[$CellContext`Generation,
33561	FeynRules`Ext[2]],
33562	FeynRules`Index[$CellContext`Generation,
33563	FeynRules`Ext[1]]]) +
33564	Complex[0, -1]
33565	2^Rational[-1,
33566	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
33567	$CellContext`vevhat^2 (FeynRules`ProjM[
33568	FeynRules`Index[FeynRules`Spin,
33569	FeynRules`Ext[1]],
33570	FeynRules`Index[FeynRules`Spin,
33571	FeynRules`Ext[2]]] $CellContext`yl0[
33572	FeynRules`Index[$CellContext`Generation,
33573	FeynRules`Ext[1]],
33574	FeynRules`Index[$CellContext`Generation,
33575	FeynRules`Ext[2]]] + FeynRules`ProjP[
33576	FeynRules`Index[FeynRules`Spin,
33577	FeynRules`Ext[1]],
33578	FeynRules`Index[FeynRules`Spin,
33579	FeynRules`Ext[2]]] $CellContext`yl0[
33580	FeynRules`Index[$CellContext`Generation,
33581	FeynRules`Ext[2]],
33582	FeynRules`Index[$CellContext`Generation,
33583	FeynRules`Ext[1]]]) + Complex[0,
33584	Rational[1, 4]]
33585	2^Rational[-1,
33586	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
33587	$CellContext`vevhat^2 (FeynRules`ProjM[
33588	FeynRules`Index[FeynRules`Spin,
33589	FeynRules`Ext[1]],
33590	FeynRules`Index[FeynRules`Spin,
33591	FeynRules`Ext[2]]] $CellContext`yl0[
33592	FeynRules`Index[$CellContext`Generation,
33593	FeynRules`Ext[1]],
33594	FeynRules`Index[$CellContext`Generation,
33595	FeynRules`Ext[2]]] + FeynRules`ProjP[
33596	FeynRules`Index[FeynRules`Spin,
33597	FeynRules`Ext[1]],
33598	FeynRules`Index[FeynRules`Spin,
33599	FeynRules`Ext[2]]] $CellContext`yl0[
33600	FeynRules`Index[$CellContext`Generation,
33601	FeynRules`Ext[2]],
33602	FeynRules`Index[$CellContext`Generation,
33603	FeynRules`Ext[1]]])}, {{{$CellContext`uqbar, 1}, {$CellContext`uq,
33604	2}, {FeynRules`H, 3}}, Complex[0,
33605	Rational[1, 2]]
33606	2^Rational[-1,
33607	2] $CellContext`DeltacuH $CellContext`LambdaSMEFT^(-2) \
33608	$CellContext`vevhat^2 FeynRules`IndexDelta[
33609	FeynRules`Index[FeynRules`Colour,
33610	FeynRules`Ext[1]],
33611	FeynRules`Index[FeynRules`Colour,
33612	FeynRules`Ext[2]]] (FeynRules`ProjP[
33613	FeynRules`Index[FeynRules`Spin,
33614	FeynRules`Ext[1]],
33615	FeynRules`Index[FeynRules`Spin,
33616	FeynRules`Ext[2]]] (3 $CellContext`Su[
33617
33618	FeynRules`Index[$CellContext`Generation, \
33619	$CellContext`Generation$1],
33620	FeynRules`Index[$CellContext`Generation,
33621	FeynRules`Ext[2]]] - $CellContext`Su[
33622	FeynRules`Index[$CellContext`Generation,
33623	FeynRules`Ext[2]],
33624
33625	FeynRules`Index[$CellContext`Generation, \
33626	$CellContext`Generation$1]]) $CellContext`yu[
33627	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
33628	FeynRules`Index[$CellContext`Generation,
33629	FeynRules`Ext[1]]] - FeynRules`ProjM[
33630	FeynRules`Index[FeynRules`Spin,
33631	FeynRules`Ext[1]],
33632	FeynRules`Index[FeynRules`Spin,
33633	FeynRules`Ext[2]]] ($CellContext`Su[
33634	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
33635	FeynRules`Index[$CellContext`Generation,
33636	FeynRules`Ext[1]]] - 3 $CellContext`Su[
33637	FeynRules`Index[$CellContext`Generation,
33638	FeynRules`Ext[1]],
33639
33640	FeynRules`Index[$CellContext`Generation, \
33641	$CellContext`Generation$1]]) $CellContext`yu[
33642	FeynRules`Index[$CellContext`Generation, $CellContext`Generation$1],
33643
33644	FeynRules`Index[$CellContext`Generation,
33645	FeynRules`Ext[2]]]) +
33646	Complex[0, -1] 2^Rational[-1, 2] FeynRules`IndexDelta[
33647	FeynRules`Index[FeynRules`Colour,
33648	FeynRules`Ext[1]],
33649	FeynRules`Index[FeynRules`Colour,
33650	FeynRules`Ext[2]]] (FeynRules`ProjM[
33651	FeynRules`Index[FeynRules`Spin,
33652	FeynRules`Ext[1]],
33653	FeynRules`Index[FeynRules`Spin,
33654	FeynRules`Ext[2]]] $CellContext`yu[
33655	FeynRules`Index[$CellContext`Generation,
33656	FeynRules`Ext[1]],
33657	FeynRules`Index[$CellContext`Generation,
33658	FeynRules`Ext[2]]] + FeynRules`ProjP[
33659	FeynRules`Index[FeynRules`Spin,
33660	FeynRules`Ext[1]],
33661	FeynRules`Index[FeynRules`Spin,
33662	FeynRules`Ext[2]]] $CellContext`yu[
33663	FeynRules`Index[$CellContext`Generation,
33664	FeynRules`Ext[2]],
33665	FeynRules`Index[$CellContext`Generation,
33666	FeynRules`Ext[1]]]) + Complex[0,
33667	Rational[1, 2]] $CellContext`dGf FeynRules`IndexDelta[
33668	FeynRules`Index[FeynRules`Colour,
33669	FeynRules`Ext[1]],
33670	FeynRules`Index[FeynRules`Colour,
33671	FeynRules`Ext[2]]] (FeynRules`ProjM[
33672	FeynRules`Index[FeynRules`Spin,
33673	FeynRules`Ext[1]],
33674	FeynRules`Index[FeynRules`Spin,
33675	FeynRules`Ext[2]]] $CellContext`yu[
33676	FeynRules`Index[$CellContext`Generation,
33677	FeynRules`Ext[1]],
33678	FeynRules`Index[$CellContext`Generation,
33679	FeynRules`Ext[2]]] + FeynRules`ProjP[
33680	FeynRules`Index[FeynRules`Spin,
33681	FeynRules`Ext[1]],
33682	FeynRules`Index[FeynRules`Spin,
33683	FeynRules`Ext[2]]] $CellContext`yu[
33684	FeynRules`Index[$CellContext`Generation,
33685	FeynRules`Ext[2]],
33686	FeynRules`Index[$CellContext`Generation,
33687	FeynRules`Ext[1]]]) +
33688	Complex[0, -1]
33689	2^Rational[-1,
33690	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
33691	$CellContext`vevhat^2 FeynRules`IndexDelta[
33692	FeynRules`Index[FeynRules`Colour,
33693	FeynRules`Ext[1]],
33694	FeynRules`Index[FeynRules`Colour,
33695	FeynRules`Ext[2]]] (FeynRules`ProjM[
33696	FeynRules`Index[FeynRules`Spin,
33697	FeynRules`Ext[1]],
33698	FeynRules`Index[FeynRules`Spin,
33699	FeynRules`Ext[2]]] $CellContext`yu[
33700	FeynRules`Index[$CellContext`Generation,
33701	FeynRules`Ext[1]],
33702	FeynRules`Index[$CellContext`Generation,
33703	FeynRules`Ext[2]]] + FeynRules`ProjP[
33704	FeynRules`Index[FeynRules`Spin,
33705	FeynRules`Ext[1]],
33706	FeynRules`Index[FeynRules`Spin,
33707	FeynRules`Ext[2]]] $CellContext`yu[
33708	FeynRules`Index[$CellContext`Generation,
33709	FeynRules`Ext[2]],
33710	FeynRules`Index[$CellContext`Generation,
33711	FeynRules`Ext[1]]]) + Complex[0,
33712	Rational[1, 4]]
33713	2^Rational[-1,
33714	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
33715	$CellContext`vevhat^2 FeynRules`IndexDelta[
33716	FeynRules`Index[FeynRules`Colour,
33717	FeynRules`Ext[1]],
33718	FeynRules`Index[FeynRules`Colour,
33719	FeynRules`Ext[2]]] (FeynRules`ProjM[
33720	FeynRules`Index[FeynRules`Spin,
33721	FeynRules`Ext[1]],
33722	FeynRules`Index[FeynRules`Spin,
33723	FeynRules`Ext[2]]] $CellContext`yu[
33724	FeynRules`Index[$CellContext`Generation,
33725	FeynRules`Ext[1]],
33726	FeynRules`Index[$CellContext`Generation,
33727	FeynRules`Ext[2]]] + FeynRules`ProjP[
33728	FeynRules`Index[FeynRules`Spin,
33729	FeynRules`Ext[1]],
33730	FeynRules`Index[FeynRules`Spin,
33731	FeynRules`Ext[2]]] $CellContext`yu[
33732	FeynRules`Index[$CellContext`Generation,
33733	FeynRules`Ext[2]],
33734	FeynRules`Index[$CellContext`Generation,
33735	FeynRules`Ext[1]]]) +
33736	Complex[0, 1]
33737	2^Rational[-1,
33738	2] $CellContext`cuH0 $CellContext`LambdaSMEFT^(-2) \
33739	$CellContext`vevhat^2 FeynRules`IndexDelta[
33740	FeynRules`Index[FeynRules`Colour,
33741	FeynRules`Ext[1]],
33742	FeynRules`Index[FeynRules`Colour,
33743	FeynRules`Ext[2]]] (FeynRules`ProjM[
33744	FeynRules`Index[FeynRules`Spin,
33745	FeynRules`Ext[1]],
33746	FeynRules`Index[FeynRules`Spin,
33747	FeynRules`Ext[2]]] $CellContext`yu[
33748	FeynRules`Index[$CellContext`Generation,
33749	FeynRules`Ext[1]],
33750	FeynRules`Index[$CellContext`Generation,
33751	FeynRules`Ext[2]]] + FeynRules`ProjP[
33752	FeynRules`Index[FeynRules`Spin,
33753	FeynRules`Ext[1]],
33754	FeynRules`Index[FeynRules`Spin,
33755	FeynRules`Ext[2]]] $CellContext`yu[
33756	FeynRules`Index[$CellContext`Generation,
33757	FeynRules`Ext[2]],
33758	FeynRules`Index[$CellContext`Generation,
33759	FeynRules`Ext[1]]])}}]]], "Output",
33760	CellChangeTimes->{3.714656678968668^9, 3.7146568357978363`^9,
33761	3.714656962394742^9, 3.714657242203429^9,
33762	3.729608267688957*^9},ExpressionUUID->"41ad1cc9-a3d8-4b2b-8127-\
33763	077086a5d11e"]
33764	}, Open ]],
33765
33766	Cell["Flavor expansion for the leptons' case", "Text",
33767	CellChangeTimes->{{3.7146540002012587`^9, 3.714654016686934^9}}],
33768
33769	Cell[CellGroupData[{
33770
33771	Cell[BoxData[
33772	RowBox[{"hll", "=",
33773	RowBox[{
33774	RowBox[{
33775	RowBox[{
33776	RowBox[{
33777	RowBox[{"{",
33778	RowBox[{"hff", "[",
33779	RowBox[{"[",
33780	RowBox[{"1", ",", "2"}], "]"}], "]"}], "}"}], "//",
33781	"FlavorExpansion"}], "//", "LinearWC"}], "//", "WCsimplify"}], "//",
33782	"TableForm"}]}]], "Input",
33783	CellChangeTimes->{{3.714653897213532*^9,
33784	3.714653998430573*^9}},ExpressionUUID->"635fab1a-0e6e-4a99-9ae8-\
33785	aeba1b6cea24"],
33786
33787	Cell[BoxData[
33788	InterpretationBox[
33789	RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
33790	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
33791	ImageSizeCache->{70., {2., 10.}}], "\[InvisibleSpace]", "\<\" / \"\>",
33792	"\[InvisibleSpace]", "1"}],
33793	SequenceForm["Flavor expansion of the vertices: ",
33794	Dynamic[FeynRules`FR$Count1], " / ", 1],
33795	Editable->False]], "Print",
33796	CellChangeTimes->{{3.714653911127839^9, 3.714653919833921^9}, {
33797	3.714653951564291^9, 3.71465401970082^9}, 3.714656836154119*^9, {
33798	3.71465696265897^9, 3.714656984380176^9}, 3.714657242495468*^9,
33799	3.729608267909816*^9},ExpressionUUID->"68194df8-80e0-49f5-b725-\
33800	0790709d5c92"],
33801
33802	Cell[BoxData[
33803	InterpretationBox[GridBox[{
33804	{GridBox[{
33805	{"H", "1"},
33806	{
33807	OverscriptBox["e", "\<\"-\"\>"], "2"},
33808	{"e", "3"}
33809	},
33810	GridBoxAlignment->{
33811	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
33812	"RowsIndexed" -> {}},
33813	GridBoxSpacings->{"Columns" -> {
33814	Offset[0.27999999999999997`], {
33815	Offset[0.7]},
33816	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
33817	Offset[0.2], {
33818	Offset[0.1]},
33819	Offset[0.2]}, "RowsIndexed" -> {}}],
33820	RowBox[{
33821	RowBox[{"-",
33822	FractionBox[
33823	RowBox[{"\[ImaginaryI]", " ", "ye", " ",
33824	SubscriptBox["\[Delta]",
33825	RowBox[{
33826	SubscriptBox["\<\"s\"\>", "2"], ",",
33827	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33828	SqrtBox["2"]]}], "+",
33829	RowBox[{
33830	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ye",
33831	" ",
33832	SubscriptBox["\[Delta]",
33833	RowBox[{
33834	SubscriptBox["\<\"s\"\>", "2"], ",",
33835	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
33836	FractionBox[
33837	RowBox[{"\[ImaginaryI]", " ",
33838	SubscriptBox["c", "eH"], " ",
33839	SuperscriptBox[
33840	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
33841	SubscriptBox["\[Delta]",
33842	RowBox[{
33843	SubscriptBox["\<\"s\"\>", "2"], ",",
33844	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33845	RowBox[{
33846	SqrtBox["2"], " ",
33847	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
33848	FractionBox[
33849	RowBox[{"\[ImaginaryI]", " ",
33850	SubscriptBox["c",
33851	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
33852	SuperscriptBox[
33853	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
33854	SubscriptBox["\[Delta]",
33855	RowBox[{
33856	SubscriptBox["\<\"s\"\>", "2"], ",",
33857	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33858	RowBox[{
33859	SqrtBox["2"], " ",
33860	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
33861	FractionBox[
33862	RowBox[{"\[ImaginaryI]", " ",
33863	SubscriptBox["c", "HD"], " ",
33864	SuperscriptBox[
33865	OverscriptBox["v", "^"], "2"], " ", "ye", " ",
33866	SubscriptBox["\[Delta]",
33867	RowBox[{
33868	SubscriptBox["\<\"s\"\>", "2"], ",",
33869	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33870	RowBox[{"4", " ",
33871	SqrtBox["2"], " ",
33872	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
33873	{GridBox[{
33874	{"H", "1"},
33875	{
33876	OverscriptBox["mu", "\<\"-\"\>"], "2"},
33877	{"mu", "3"}
33878	},
33879	GridBoxAlignment->{
33880	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
33881	"RowsIndexed" -> {}},
33882	GridBoxSpacings->{"Columns" -> {
33883	Offset[0.27999999999999997`], {
33884	Offset[0.7]},
33885	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
33886	Offset[0.2], {
33887	Offset[0.1]},
33888	Offset[0.2]}, "RowsIndexed" -> {}}],
33889	RowBox[{
33890	RowBox[{"-",
33891	FractionBox[
33892	RowBox[{"\[ImaginaryI]", " ", "ym", " ",
33893	SubscriptBox["\[Delta]",
33894	RowBox[{
33895	SubscriptBox["\<\"s\"\>", "2"], ",",
33896	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33897	SqrtBox["2"]]}], "+",
33898	RowBox[{
33899	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ym",
33900	" ",
33901	SubscriptBox["\[Delta]",
33902	RowBox[{
33903	SubscriptBox["\<\"s\"\>", "2"], ",",
33904	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
33905	FractionBox[
33906	RowBox[{"\[ImaginaryI]", " ",
33907	SubscriptBox["c", "eH"], " ",
33908	SuperscriptBox[
33909	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
33910	SubscriptBox["\[Delta]",
33911	RowBox[{
33912	SubscriptBox["\<\"s\"\>", "2"], ",",
33913	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33914	RowBox[{
33915	SqrtBox["2"], " ",
33916	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
33917	FractionBox[
33918	RowBox[{"\[ImaginaryI]", " ",
33919	SubscriptBox["c",
33920	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
33921	SuperscriptBox[
33922	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
33923	SubscriptBox["\[Delta]",
33924	RowBox[{
33925	SubscriptBox["\<\"s\"\>", "2"], ",",
33926	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33927	RowBox[{
33928	SqrtBox["2"], " ",
33929	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
33930	FractionBox[
33931	RowBox[{"\[ImaginaryI]", " ",
33932	SubscriptBox["c", "HD"], " ",
33933	SuperscriptBox[
33934	OverscriptBox["v", "^"], "2"], " ", "ym", " ",
33935	SubscriptBox["\[Delta]",
33936	RowBox[{
33937	SubscriptBox["\<\"s\"\>", "2"], ",",
33938	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33939	RowBox[{"4", " ",
33940	SqrtBox["2"], " ",
33941	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
33942	{GridBox[{
33943	{"H", "1"},
33944	{
33945	OverscriptBox["ta", "\<\"-\"\>"], "2"},
33946	{"ta", "3"}
33947	},
33948	GridBoxAlignment->{
33949	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
33950	"RowsIndexed" -> {}},
33951	GridBoxSpacings->{"Columns" -> {
33952	Offset[0.27999999999999997`], {
33953	Offset[0.7]},
33954	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
33955	Offset[0.2], {
33956	Offset[0.1]},
33957	Offset[0.2]}, "RowsIndexed" -> {}}],
33958	RowBox[{
33959	RowBox[{"-",
33960	FractionBox[
33961	RowBox[{"\[ImaginaryI]", " ", "ytau", " ",
33962	SubscriptBox["\[Delta]",
33963	RowBox[{
33964	SubscriptBox["\<\"s\"\>", "2"], ",",
33965	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33966	SqrtBox["2"]]}], "+",
33967	RowBox[{
33968	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "dGf", " ", "ytau",
33969	" ",
33970	SubscriptBox["\[Delta]",
33971	RowBox[{
33972	SubscriptBox["\<\"s\"\>", "2"], ",",
33973	SubscriptBox["\<\"s\"\>", "3"]}]]}], "+",
33974	FractionBox[
33975	RowBox[{"\[ImaginaryI]", " ",
33976	SubscriptBox["c", "eH"], " ",
33977	SuperscriptBox[
33978	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
33979	SubscriptBox["\[Delta]",
33980	RowBox[{
33981	SubscriptBox["\<\"s\"\>", "2"], ",",
33982	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33983	RowBox[{
33984	SqrtBox["2"], " ",
33985	SuperscriptBox["\[CapitalLambda]", "2"]}]], "-",
33986	FractionBox[
33987	RowBox[{"\[ImaginaryI]", " ",
33988	SubscriptBox["c",
33989	RowBox[{"H", " ", "\[EmptySquare]"}]], " ",
33990	SuperscriptBox[
33991	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
33992	SubscriptBox["\[Delta]",
33993	RowBox[{
33994	SubscriptBox["\<\"s\"\>", "2"], ",",
33995	SubscriptBox["\<\"s\"\>", "3"]}]]}],
33996	RowBox[{
33997	SqrtBox["2"], " ",
33998	SuperscriptBox["\[CapitalLambda]", "2"]}]], "+",
33999	FractionBox[
34000	RowBox[{"\[ImaginaryI]", " ",
34001	SubscriptBox["c", "HD"], " ",
34002	SuperscriptBox[
34003	OverscriptBox["v", "^"], "2"], " ", "ytau", " ",
34004	SubscriptBox["\[Delta]",
34005	RowBox[{
34006	SubscriptBox["\<\"s\"\>", "2"], ",",
34007	SubscriptBox["\<\"s\"\>", "3"]}]]}],
34008	RowBox[{"4", " ",
34009	SqrtBox["2"], " ",
34010	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
34011	},
34012	GridBoxAlignment->{
34013	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
34014	"RowsIndexed" -> {}},
34015	GridBoxSpacings->{"Columns" -> {
34016	Offset[0.27999999999999997`], {
34017	Offset[2.0999999999999996`]},
34018	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
34019	Offset[0.2], {
34020	Offset[0.4]},
34021	Offset[0.2]}, "RowsIndexed" -> {}}],
34022	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
34023	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ye FeynRules`IndexDelta[
34024	FeynRules`Index[FeynRules`Spin,
34025	FeynRules`Ext[2]],
34026	FeynRules`Index[FeynRules`Spin,
34027	FeynRules`Ext[3]]] + Complex[0,
34028	Rational[1, 2]] $CellContext`dGf $CellContext`ye
34029	FeynRules`IndexDelta[
34030	FeynRules`Index[FeynRules`Spin,
34031	FeynRules`Ext[2]],
34032	FeynRules`Index[FeynRules`Spin,
34033	FeynRules`Ext[3]]] +
34034	Complex[0, 1]
34035	2^Rational[-1,
34036	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
34037	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
34038	FeynRules`Index[FeynRules`Spin,
34039	FeynRules`Ext[2]],
34040	FeynRules`Index[FeynRules`Spin,
34041	FeynRules`Ext[3]]] +
34042	Complex[0, -1]
34043	2^Rational[-1,
34044	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
34045	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
34046	FeynRules`Index[FeynRules`Spin,
34047	FeynRules`Ext[2]],
34048	FeynRules`Index[FeynRules`Spin,
34049	FeynRules`Ext[3]]] + Complex[0,
34050	Rational[1, 4]]
34051	2^Rational[-1,
34052	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
34053	$CellContext`vevhat^2 $CellContext`ye FeynRules`IndexDelta[
34054	FeynRules`Index[FeynRules`Spin,
34055	FeynRules`Ext[2]],
34056	FeynRules`Index[FeynRules`Spin,
34057	FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
34058	FeynRules`mu, 3}},
34059	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ym FeynRules`IndexDelta[
34060	FeynRules`Index[FeynRules`Spin,
34061	FeynRules`Ext[2]],
34062	FeynRules`Index[FeynRules`Spin,
34063	FeynRules`Ext[3]]] + Complex[0,
34064	Rational[1, 2]] $CellContext`dGf $CellContext`ym
34065	FeynRules`IndexDelta[
34066	FeynRules`Index[FeynRules`Spin,
34067	FeynRules`Ext[2]],
34068	FeynRules`Index[FeynRules`Spin,
34069	FeynRules`Ext[3]]] +
34070	Complex[0, 1]
34071	2^Rational[-1,
34072	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
34073	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
34074	FeynRules`Index[FeynRules`Spin,
34075	FeynRules`Ext[2]],
34076	FeynRules`Index[FeynRules`Spin,
34077	FeynRules`Ext[3]]] +
34078	Complex[0, -1]
34079	2^Rational[-1,
34080	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
34081	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
34082	FeynRules`Index[FeynRules`Spin,
34083	FeynRules`Ext[2]],
34084	FeynRules`Index[FeynRules`Spin,
34085	FeynRules`Ext[3]]] + Complex[0,
34086	Rational[1, 4]]
34087	2^Rational[-1,
34088	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
34089	$CellContext`vevhat^2 $CellContext`ym FeynRules`IndexDelta[
34090	FeynRules`Index[FeynRules`Spin,
34091	FeynRules`Ext[2]],
34092	FeynRules`Index[FeynRules`Spin,
34093	FeynRules`Ext[3]]]}, {{{
34094	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
34095	Complex[0, -1] 2^Rational[-1, 2] $CellContext`ytau FeynRules`IndexDelta[
34096	FeynRules`Index[FeynRules`Spin,
34097	FeynRules`Ext[2]],
34098	FeynRules`Index[FeynRules`Spin,
34099	FeynRules`Ext[3]]] + Complex[0,
34100	Rational[1, 2]] $CellContext`dGf $CellContext`ytau
34101	FeynRules`IndexDelta[
34102	FeynRules`Index[FeynRules`Spin,
34103	FeynRules`Ext[2]],
34104	FeynRules`Index[FeynRules`Spin,
34105	FeynRules`Ext[3]]] +
34106	Complex[0, 1]
34107	2^Rational[-1,
34108	2] $CellContext`ceH $CellContext`LambdaSMEFT^(-2) \
34109	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
34110	FeynRules`Index[FeynRules`Spin,
34111	FeynRules`Ext[2]],
34112	FeynRules`Index[FeynRules`Spin,
34113	FeynRules`Ext[3]]] +
34114	Complex[0, -1]
34115	2^Rational[-1,
34116	2] $CellContext`cHbox $CellContext`LambdaSMEFT^(-2) \
34117	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
34118	FeynRules`Index[FeynRules`Spin,
34119	FeynRules`Ext[2]],
34120	FeynRules`Index[FeynRules`Spin,
34121	FeynRules`Ext[3]]] + Complex[0,
34122	Rational[1, 4]]
34123	2^Rational[-1,
34124	2] $CellContext`cHDD $CellContext`LambdaSMEFT^(-2) \
34125	$CellContext`vevhat^2 $CellContext`ytau FeynRules`IndexDelta[
34126	FeynRules`Index[FeynRules`Spin,
34127	FeynRules`Ext[2]],
34128	FeynRules`Index[FeynRules`Spin,
34129	FeynRules`Ext[3]]]}}]]], "Output",
34130	CellChangeTimes->{{3.714653911402326^9, 3.714653920602931^9}, {
34131	3.714653952474135^9, 3.714654020646657^9}, 3.7146568374768543`*^9, {
34132	3.714656963605565^9, 3.7146569852875^9}, 3.714657243371131*^9,
34133	3.729608268903872*^9},ExpressionUUID->"273c4d39-03ad-4042-bcdc-\
34134	7988151df9e1"]
34135	}, Open ]],
34136
34137	Cell[CellGroupData[{
34138
34139	Cell[BoxData[
34140	RowBox[{
34141	RowBox[{
34142	RowBox[{"hll", "//.", "MwShifts"}], "//", "WCsimplify"}], "//",
34143	"TableForm"}]], "Input",
34144	CellChangeTimes->{{3.7146540238619328`^9, 3.714654043748782^9}, {
34145	3.7146571090267878`*^9,
34146	3.714657110620819*^9}},ExpressionUUID->"0b31e8ee-d2b5-44c0-ba30-\
34147	c14f51252f76"],
34148
34149	Cell[BoxData[
34150	TagBox[
34151	InterpretationBox[GridBox[{
34152	{GridBox[{
34153	{"H", "1"},
34154	{
34155	OverscriptBox["e", "\<\"-\"\>"], "2"},
34156	{"e", "3"}
34157	},
34158	GridBoxAlignment->{
34159	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
34160	"RowsIndexed" -> {}},
34161	GridBoxSpacings->{"Columns" -> {
34162	Offset[0.27999999999999997`], {
34163	Offset[0.7]},
34164	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
34165	Offset[0.2], {
34166	Offset[0.1]},
34167	Offset[0.2]}, "RowsIndexed" -> {}}],
34168	RowBox[{"-",
34169	FractionBox[
34170	RowBox[{"\[ImaginaryI]", " ",
34171	RowBox[{"(",
34172	RowBox[{
34173	RowBox[{"4", " ",
34174	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
34175	RowBox[{
34176	RowBox[{"(",
34177	RowBox[{
34178	RowBox[{"4", " ",
34179	SubscriptBox["c", "eH"]}], "-",
34180	RowBox[{"4", " ",
34181	SubscriptBox["c",
34182	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
34183	SubscriptBox["c", "HD"], "+",
34184	RowBox[{"4", " ",
34185	TemplateBox[{"c","Hl","3"},
34186	"Subsuperscript"]}], "-",
34187	RowBox[{"2", " ",
34188	TemplateBox[{"c","ll","Prime"},
34189	"Subsuperscript"]}]}], ")"}], " ",
34190	SuperscriptBox[
34191	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ye", " ",
34192	SubscriptBox["\[Delta]",
34193	RowBox[{
34194	SubscriptBox["\<\"s\"\>", "2"], ",",
34195	SubscriptBox["\<\"s\"\>", "3"]}]]}],
34196	RowBox[{"4", " ",
34197	SqrtBox["2"], " ",
34198	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
34199	{GridBox[{
34200	{"H", "1"},
34201	{
34202	OverscriptBox["mu", "\<\"-\"\>"], "2"},
34203	{"mu", "3"}
34204	},
34205	GridBoxAlignment->{
34206	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
34207	"RowsIndexed" -> {}},
34208	GridBoxSpacings->{"Columns" -> {
34209	Offset[0.27999999999999997`], {
34210	Offset[0.7]},
34211	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
34212	Offset[0.2], {
34213	Offset[0.1]},
34214	Offset[0.2]}, "RowsIndexed" -> {}}],
34215	RowBox[{"-",
34216	FractionBox[
34217	RowBox[{"\[ImaginaryI]", " ",
34218	RowBox[{"(",
34219	RowBox[{
34220	RowBox[{"4", " ",
34221	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
34222	RowBox[{
34223	RowBox[{"(",
34224	RowBox[{
34225	RowBox[{"4", " ",
34226	SubscriptBox["c", "eH"]}], "-",
34227	RowBox[{"4", " ",
34228	SubscriptBox["c",
34229	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
34230	SubscriptBox["c", "HD"], "+",
34231	RowBox[{"4", " ",
34232	TemplateBox[{"c","Hl","3"},
34233	"Subsuperscript"]}], "-",
34234	RowBox[{"2", " ",
34235	TemplateBox[{"c","ll","Prime"},
34236	"Subsuperscript"]}]}], ")"}], " ",
34237	SuperscriptBox[
34238	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ym", " ",
34239	SubscriptBox["\[Delta]",
34240	RowBox[{
34241	SubscriptBox["\<\"s\"\>", "2"], ",",
34242	SubscriptBox["\<\"s\"\>", "3"]}]]}],
34243	RowBox[{"4", " ",
34244	SqrtBox["2"], " ",
34245	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]},
34246	{GridBox[{
34247	{"H", "1"},
34248	{
34249	OverscriptBox["ta", "\<\"-\"\>"], "2"},
34250	{"ta", "3"}
34251	},
34252	GridBoxAlignment->{
34253	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
34254	"RowsIndexed" -> {}},
34255	GridBoxSpacings->{"Columns" -> {
34256	Offset[0.27999999999999997`], {
34257	Offset[0.7]},
34258	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
34259	Offset[0.2], {
34260	Offset[0.1]},
34261	Offset[0.2]}, "RowsIndexed" -> {}}],
34262	RowBox[{"-",
34263	FractionBox[
34264	RowBox[{"\[ImaginaryI]", " ",
34265	RowBox[{"(",
34266	RowBox[{
34267	RowBox[{"4", " ",
34268	SuperscriptBox["\[CapitalLambda]", "2"]}], "-",
34269	RowBox[{
34270	RowBox[{"(",
34271	RowBox[{
34272	RowBox[{"4", " ",
34273	SubscriptBox["c", "eH"]}], "-",
34274	RowBox[{"4", " ",
34275	SubscriptBox["c",
34276	RowBox[{"H", " ", "\[EmptySquare]"}]]}], "+",
34277	SubscriptBox["c", "HD"], "+",
34278	RowBox[{"4", " ",
34279	TemplateBox[{"c","Hl","3"},
34280	"Subsuperscript"]}], "-",
34281	RowBox[{"2", " ",
34282	TemplateBox[{"c","ll","Prime"},
34283	"Subsuperscript"]}]}], ")"}], " ",
34284	SuperscriptBox[
34285	OverscriptBox["v", "^"], "2"]}]}], ")"}], " ", "ytau", " ",
34286	SubscriptBox["\[Delta]",
34287	RowBox[{
34288	SubscriptBox["\<\"s\"\>", "2"], ",",
34289	SubscriptBox["\<\"s\"\>", "3"]}]]}],
34290	RowBox[{"4", " ",
34291	SqrtBox["2"], " ",
34292	SuperscriptBox["\[CapitalLambda]", "2"]}]]}]}
34293	},
34294	GridBoxAlignment->{
34295	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
34296	"RowsIndexed" -> {}},
34297	GridBoxSpacings->{"Columns" -> {
34298	Offset[0.27999999999999997`], {
34299	Offset[2.0999999999999996`]},
34300	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
34301	Offset[0.2], {
34302	Offset[0.4]},
34303	Offset[0.2]}, "RowsIndexed" -> {}}],
34304	TableForm[{{{{FeynRules`H, 1}, {$CellContext`ebar, 2}, {FeynRules`e, 3}},
34305	Complex[0,
34306	Rational[-1, 4]]
34307	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
34308	4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH -
34309	4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 -
34310	2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ye
34311	FeynRules`IndexDelta[
34312	FeynRules`Index[FeynRules`Spin,
34313	FeynRules`Ext[2]],
34314	FeynRules`Index[FeynRules`Spin,
34315	FeynRules`Ext[3]]]}, {{{FeynRules`H, 1}, {$CellContext`mubar, 2}, {
34316	FeynRules`mu, 3}}, Complex[0,
34317	Rational[-1, 4]]
34318	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
34319	4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH -
34320	4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 -
34321	2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ym
34322	FeynRules`IndexDelta[
34323	FeynRules`Index[FeynRules`Spin,
34324	FeynRules`Ext[2]],
34325	FeynRules`Index[FeynRules`Spin,
34326	FeynRules`Ext[3]]]}, {{{
34327	FeynRules`H, 1}, {$CellContext`tabar, 2}, {$CellContext`ta, 3}},
34328	Complex[0,
34329	Rational[-1, 4]]
34330	2^Rational[-1, 2] $CellContext`LambdaSMEFT^(-2) (
34331	4 $CellContext`LambdaSMEFT^2 - (4 $CellContext`ceH -
34332	4 $CellContext`cHbox + $CellContext`cHDD + 4 $CellContext`cHl3 -
34333	2 $CellContext`cll1) $CellContext`vevhat^2) $CellContext`ytau
34334	FeynRules`IndexDelta[
34335	FeynRules`Index[FeynRules`Spin,
34336	FeynRules`Ext[2]],
34337	FeynRules`Index[FeynRules`Spin,
34338	FeynRules`Ext[3]]]}}]],
34339	Function[BoxForm`e$,
34340	TableForm[BoxForm`e$]]]], "Output",
34341	CellChangeTimes->{{3.71465403609652^9, 3.714654045478115^9},
34342	3.714656988199677^9, 3.714657244344411^9,
34343	3.7296082696570673`*^9},ExpressionUUID->"867e6f6d-c6a8-477d-8223-\
34344	b0ead146e8c9"]
34345	}, Open ]]
34346	}, Closed]],
34347
34348	Cell[CellGroupData[{
34349
34350	Cell["Export to UFO", "Subsection",
34351	CellChangeTimes->{{3.697464870154114^9, 3.697464873666815^9}, {
34352	3.714654282717627^9, 3.714654283743149^9}}],
34353
34354	Cell[TextData[{
34355	StyleBox["Warning!",
34356	FontWeight->"Bold",
34357	FontColor->RGBColor[1, 0, 0]],
34358	" Exporting the MFV model to UFO in the most general case might take a long \
34359	time (~ 2.5 hours) \nThe time is significantly reduced using the massless \
34360	restriction"
34361	}], "Text",
34362	CellChangeTimes->{{3.714654622630918^9, 3.714654684037245^9}, {
34363	3.714654761972848^9, 3.714654820650289^9}},
34364	Background->RGBColor[1, 1, 0.85]],
34365
34366	Cell[CellGroupData[{
34367
34368	Cell[BoxData[
34369	RowBox[{"WriteUFO", "[",
34370	RowBox[{"LSMEFT", ",",
34371	RowBox[{"MaxParticles", "\[Rule]", "4"}], ",",
34372	RowBox[{"Output", "\[Rule]", "\"\<SMEFTsim_A_MFV_MwScheme_UFO\>\""}]}],
34373	"]"}]], "Input",
34374	CellChangeTimes->{{3.711357093610547^9, 3.7113570956332912`^9}, {
34375	3.713541847073875^9, 3.713541858645399^9}, {3.713966972373098*^9,
34376	3.713966987928933^9}, {3.7139684888375883`^9, 3.713968491954339*^9}, {
34377	3.714027305929933^9, 3.7140273182314863`^9}, {3.714027352553897*^9,
34378	3.714027353791733^9}, {3.7140340581231403`^9, 3.714034062356689*^9}, {
34379	3.7140592135310183`^9, 3.7140592138676453`^9}, {3.7140677190481462`*^9,
34380	3.714067720546134^9}, {3.714654839998847^9,
34381	3.714654840383039*^9}},ExpressionUUID->"7ba461c2-78db-45ff-abbc-\
34382	8799a024d5ab"],
34383
34384	Cell[CellGroupData[{
34385
34386	Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
34387	"Print",
34388	CellChangeTimes->{
34389	3.729611895132584*^9},ExpressionUUID->"c719148b-9767-4b6a-a900-\
34390	8b12c1abf597"],
34391
34392	Cell[BoxData[
34393	StyleBox["\<\"Starting Feynman rule calculation.\"\>",
34394	StripOnInput->False,
34395	LineColor->RGBColor[1, 0.5, 0],
34396	FrontFaceColor->RGBColor[1, 0.5, 0],
34397	BackFaceColor->RGBColor[1, 0.5, 0],
34398	GraphicsColor->RGBColor[1, 0.5, 0],
34399	FontWeight->Bold,
34400	FontColor->RGBColor[1, 0.5, 0]]], "Print",
34401	CellChangeTimes->{
34402	3.729611911622056*^9},ExpressionUUID->"c4571380-4997-4d7d-83db-\
34403	bb284e610a94"],
34404
34405	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
34406	CellChangeTimes->{
34407	3.7296119116244307`*^9},ExpressionUUID->"452c0edc-f240-45fb-8d42-\
34408	387d49b2c996"],
34409
34410	Cell[BoxData[
34411	InterpretationBox[
34412	RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
34413	"\[InvisibleSpace]", "\<\" cores\"\>"}],
34414	SequenceForm["Expanding the indices over ", 2, " cores"],
34415	Editable->False]], "Print",
34416	CellChangeTimes->{
34417	3.729611911628459*^9},ExpressionUUID->"3b9e01ed-1b73-4770-b82e-\
34418	ab400d6c551c"],
34419
34420	Cell[BoxData[
34421	InterpretationBox[
34422	RowBox[{"\<\"Neglecting all terms with more than \"\>",
34423	"\[InvisibleSpace]", "\<\"4\"\>",
34424	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
34425	SequenceForm["Neglecting all terms with more than ", "4", " particles."],
34426	Editable->False]], "Print",
34427	CellChangeTimes->{
34428	3.729611912073226*^9},ExpressionUUID->"4fae7b29-6765-438d-9cc0-\
34429	67818152a1a7"],
34430
34431	Cell[BoxData["\<\"Collecting the different structures that enter the \
34432	vertex.\"\>"], "Print",
34433	CellChangeTimes->{
34434	3.7296119941727533`*^9},ExpressionUUID->"9f802075-5f40-4c3c-8a2a-\
34435	36f4f476c3a4"],
34436
34437	Cell[BoxData[
34438	InterpretationBox[
34439	RowBox[{
34440	"82", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
34441	-> starting the computation: \"\>", "\[InvisibleSpace]",
34442	DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
34443	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
34444	"\[InvisibleSpace]", "82", "\[InvisibleSpace]", "\<\".\"\>"}],
34445	SequenceForm[
34446	82, " possible non-zero vertices have been found -> starting the \
34447	computation: ",
34448	Dynamic[FeynRules`FR$FeynmanRules], " / ", 82, "."],
34449	Editable->False]], "Print",
34450	CellChangeTimes->{
34451	3.7296119946153*^9},ExpressionUUID->"8c7c609f-22c2-43ce-b39a-5efed776e152"],
34452
34453	Cell[BoxData[
34454	InterpretationBox[
34455	RowBox[{"82", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
34456	SequenceForm[82, " vertices obtained."],
34457	Editable->False]], "Print",
34458	CellChangeTimes->{
34459	3.729612080586247*^9},ExpressionUUID->"f58d8e74-a7e3-45b8-9775-\
34460	74d4873395d7"],
34461
34462	Cell[BoxData[
34463	InterpretationBox[
34464	RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
34465	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
34466	"\[InvisibleSpace]",
34467	DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
34468	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
34469	"\[InvisibleSpace]", "82"}],
34470	SequenceForm[
34471	"Flavor expansion of the vertices distributed over ", 2, " cores: ",
34472	Dynamic[FeynRules`FR$Count1], " / ", 82],
34473	Editable->False]], "Print",
34474	CellChangeTimes->{
34475	3.72961212266511*^9},ExpressionUUID->"bb1b0b87-8395-4c72-9435-6119b466aa66"],
34476
34477	Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
34478	CellChangeTimes->{
34479	3.7296122869327707`*^9},ExpressionUUID->"e885d05d-35e5-4e9d-af15-\
34480	08fa56fc7bcd"],
34481
34482	Cell[BoxData[
34483	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
34484	decays: \"\>",
34485	StripOnInput->False,
34486	LineColor->RGBColor[1, 0.5, 0],
34487	FrontFaceColor->RGBColor[1, 0.5, 0],
34488	BackFaceColor->RGBColor[1, 0.5, 0],
34489	GraphicsColor->RGBColor[1, 0.5, 0],
34490	FontWeight->Bold,
34491	FontColor->RGBColor[1, 0.5, 0]]], "Print",
34492	CellChangeTimes->{
34493	3.729612287241746*^9},ExpressionUUID->"286e2be9-4f30-404c-ab3a-\
34494	dc548d5d369d"],
34495
34496	Cell[BoxData[
34497	InterpretationBox[
34498	RowBox[{
34499	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
34500	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
34501	"\[InvisibleSpace]", "78"}],
34502	SequenceForm[
34503	Dynamic[PRIVATE`mycounter], " / ", 78],
34504	Editable->False]], "Print",
34505	CellChangeTimes->{
34506	3.72961228727209*^9},ExpressionUUID->"e39d02c6-1588-4230-bd4d-cb3872fb5e01"],
34507
34508	Cell[BoxData[
34509	InterpretationBox[
34510	RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
34511	"11997.772`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
34512	SequenceForm["Squared matrix elent compute in ", 11997.772, " seconds."],
34513	Editable->False]], "Print",
34514	CellChangeTimes->{
34515	3.7296269918752117`*^9},ExpressionUUID->"f63e4b2b-b696-4c11-bcd7-\
34516	3cac5f394dd6"],
34517
34518	Cell[BoxData[
34519	InterpretationBox[
34520	RowBox[{
34521	DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
34522	ImageSizeCache->{16., {0., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
34523	"\[InvisibleSpace]", "97"}],
34524	SequenceForm[
34525	Dynamic[PRIVATE`mycounter], " / ", 97],
34526	Editable->False]], "Print",
34527	CellChangeTimes->{
34528	3.729626991876692*^9},ExpressionUUID->"60dbda23-bce3-412d-93d8-\
34529	1bbd96de86ec"],
34530
34531	Cell[BoxData[
34532	InterpretationBox[
34533	RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", "56.152`",
34534	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
34535	SequenceForm["Decay widths computed in ", 56.152, " seconds."],
34536	Editable->False]], "Print",
34537	CellChangeTimes->{
34538	3.729627049828188*^9},ExpressionUUID->"74011a3d-1711-406e-9471-\
34539	a7590424ea1c"],
34540
34541	Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
34542	CellChangeTimes->{
34543	3.729627049829187*^9},ExpressionUUID->"6b55a6d0-e573-444d-b42a-\
34544	97ab76f8f0af"],
34545
34546	Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
34547	"Print",
34548	CellChangeTimes->{
34549	3.7296270589657784`*^9},ExpressionUUID->"70b32ba9-753b-45b9-bea6-\
34550	96b03a370dce"],
34551
34552	Cell[BoxData[
34553	InterpretationBox[
34554	RowBox[{"\<\"Splitting of vertices distributed over \"\>",
34555	"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
34556	SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
34557	Editable->False]], "Print",
34558	CellChangeTimes->{
34559	3.729627060439055*^9},ExpressionUUID->"3ad76d6f-38e5-4650-bc69-\
34560	94e711988918"],
34561
34562	Cell[BoxData[
34563	InterpretationBox[
34564	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
34565	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
34566	ImageSizeCache->{23., {0., 9.}}], "\[InvisibleSpace]", "\<\"/\"\>",
34567	"\[InvisibleSpace]", "588", "\[InvisibleSpace]", "\<\" .\"\>"}],
34568	SequenceForm[" - Optimizing: ",
34569	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 588, " ."],
34570	Editable->False]], "Print",
34571	CellChangeTimes->{
34572	3.729627093128681*^9},ExpressionUUID->"92382210-e5d9-4ab8-a049-\
34573	1a08382b4f8f"],
34574
34575	Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
34576	CellChangeTimes->{
34577	3.729627107297768*^9},ExpressionUUID->"ce4708b0-3e89-4e10-9b45-\
34578	5cee52da6414"],
34579
34580	Cell[BoxData[
34581	StyleBox["\<\"Warning: Non positive interaction order QED.\\n \
34582	This might reduce the efficiency of certain matrix element generators.\\n \
34583	See logfile for more details.\"\>",
34584	StripOnInput->False,
34585	LineColor->RGBColor[1, 0, 0],
34586	FrontFaceColor->RGBColor[1, 0, 0],
34587	BackFaceColor->RGBColor[1, 0, 0],
34588	GraphicsColor->RGBColor[1, 0, 0],
34589	FontColor->RGBColor[1, 0, 0]]], "Print",
34590	CellChangeTimes->{
34591	3.729627108597662*^9},ExpressionUUID->"b71535c0-4d0f-41e6-945e-\
34592	95d22f70e516"],
34593
34594	Cell[BoxData["\<\"Done!\"\>"], "Print",
34595	CellChangeTimes->{
34596	3.729627117414415*^9},ExpressionUUID->"0efc5e29-9f11-4ded-8f56-\
34597	8ed8d01fb73b"]
34598	}, Open ]]
34599	}, Open ]]
34600	}, Open ]]
34601	}, Open ]]
34602	}, Open ]]
34603	},
34604	WindowSize->{1057, 979},
34605	WindowMargins->{{226, Automatic}, {0, Automatic}},
34606	PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
34607	ShowSelection->True,
34608	FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)",
34609	StyleDefinitions->"Default.nb"
34610	]
34611	(* End of Notebook Content *)
34612
34613	(* Internal cache information *)
34614	(*CellTagsOutline
34615	CellTagsIndex->{}
34616	*)
34617	(*CellTagsIndex
34618	CellTagsIndex->{}
34619	*)
34620	(*NotebookFileOutline
34621	Notebook[{
34622	Cell[CellGroupData[{
34623	Cell[567, 22, 190, 3, 69, "Chapter",ExpressionUUID->"55c1d13a-0c0d-447f-a284-91d63a91b5fa"],
34624	Cell[760, 27, 2737, 72, 380, "Text",ExpressionUUID->"84b164ae-00f4-418b-92ed-dac633b0a8d7"],
34625	Cell[3500, 101, 580, 16, 120, "Text",ExpressionUUID->"e8a0586e-7fc8-4807-aeb5-cce4fd6c051e"],
34626	Cell[4083, 119, 2122, 62, 152, "Text",ExpressionUUID->"ef6ce449-903c-4f17-9b75-7912d9c4ab1a"],
34627	Cell[6208, 183, 147, 3, 55, "Input",ExpressionUUID->"7e2bd107-2391-4afb-a870-15da1292e912"],
34628	Cell[6358, 188, 4955, 146, 792, "Text",ExpressionUUID->"5416058f-ee29-48d2-b23b-61a1e3603da8"],
34629	Cell[11316, 336, 178, 4, 31, "Input",ExpressionUUID->"b080cac5-1c42-4c34-afad-7262c6d76b03"],
34630	Cell[CellGroupData[{
34631	Cell[11519, 344, 269, 4, 68, "Section",ExpressionUUID->"6b40f8de-f3c5-4e35-84b1-190d4364205e"],
34632	Cell[CellGroupData[{
34633	Cell[11813, 352, 1173, 22, 78, "Input",ExpressionUUID->"7be60793-69f3-4c51-a69f-86b265422a0f"],
34634	Cell[CellGroupData[{
34635	Cell[13011, 378, 488, 8, 25, "Print",ExpressionUUID->"36a8f0dd-c3e4-45e7-8d12-a20ecf0d526f"],
34636	Cell[13502, 388, 761, 15, 25, "Print",ExpressionUUID->"b7ceaeb9-38fe-4bda-aa66-e85f04b4bf2a"],
34637	Cell[14266, 405, 540, 9, 25, "Print",ExpressionUUID->"90d8d3a6-bab3-4906-9b53-77fdba0131b3"],
34638	Cell[14809, 416, 474, 8, 25, "Print",ExpressionUUID->"ad5c6f45-076a-4326-a7d8-696c58130505"],
34639	Cell[15286, 426, 487, 8, 25, "Print",ExpressionUUID->"09efc52a-a4ee-4c62-a1ca-9c5976c6442e"],
34640	Cell[15776, 436, 537, 9, 25, "Print",ExpressionUUID->"3ffaaf78-e9e9-4754-8eb4-d9d9c7218033"],
34641	Cell[16316, 447, 537, 9, 25, "Print",ExpressionUUID->"35e26f16-0bea-437a-a704-1b107d602e54"],
34642	Cell[16856, 458, 474, 8, 25, "Print",ExpressionUUID->"96ae02b2-315c-44b5-8dc6-a8c795f71327"],
34643	Cell[17333, 468, 504, 8, 25, "Print",ExpressionUUID->"684ae78a-cff6-4379-9926-736038a09e6b"],
34644	Cell[17840, 478, 473, 8, 25, "Print",ExpressionUUID->"6743691e-a2e4-4430-a43d-c5270eb92258"],
34645	Cell[18316, 488, 543, 9, 25, "Print",ExpressionUUID->"a88dafd5-011d-4773-8752-fffec82966fc"]
34646	}, Open ]]
34647	}, Open ]]
34648	}, Open ]],
34649	Cell[CellGroupData[{
34650	Cell[18920, 504, 532, 8, 68, "Section",ExpressionUUID->"c53cebc8-6012-49be-b928-d79e1a2ece39"],
34651	Cell[19455, 514, 614, 13, 55, "Input",ExpressionUUID->"dfc4c8d8-5aa2-4bda-a486-e292b29d50dd"],
34652	Cell[20072, 529, 510, 11, 51, "Text",ExpressionUUID->"c110c552-09ea-4921-931f-2651ba8f78f9"],
34653	Cell[CellGroupData[{
34654	Cell[20607, 544, 2447, 47, 78, "Input",ExpressionUUID->"4da591a6-13d7-4ac1-921d-674a71a54cc8"],
34655	Cell[CellGroupData[{
34656	Cell[23079, 595, 241, 4, 25, "Print",ExpressionUUID->"f7bf66d2-4e32-44ba-b456-10f54b0c1aa0"],
34657	Cell[23323, 601, 642, 14, 25, "Print",ExpressionUUID->"fe1f5602-df35-488c-9407-631835fc1f98"],
34658	Cell[23968, 617, 248, 4, 25, "Print",ExpressionUUID->"d22aff24-f341-465f-83ea-af910f2aa404"],
34659	Cell[24219, 623, 239, 4, 25, "Print",ExpressionUUID->"282ea2cf-8cf6-46fc-94d1-f4eac6ba6b55"],
34660	Cell[24461, 629, 354, 8, 25, "Print",ExpressionUUID->"40bf39db-8f45-4b41-9d1d-2a9f94616f41"],
34661	Cell[24818, 639, 219, 4, 25, "Print",ExpressionUUID->"e4510588-118f-4791-bdde-91923b19f246"],
34662	Cell[25040, 645, 223, 4, 25, "Print",ExpressionUUID->"a32e1fb0-77fe-4ce7-a362-23a60b923bf2"],
34663	Cell[25266, 651, 251, 4, 25, "Print",ExpressionUUID->"73b5a643-f19a-433b-b9f7-a1ea92904c10"],
34664	Cell[25520, 657, 256, 5, 25, "Print",ExpressionUUID->"9d2e9a8b-b1c7-4087-b508-a64c7a568b21"],
34665	Cell[25779, 664, 208, 4, 25, "Print",ExpressionUUID->"1fc3cc74-e968-4132-9999-af8e641e0fc1"],
34666	Cell[25990, 670, 240, 4, 25, "Print",ExpressionUUID->"d566f0f2-34a5-4144-bb20-19b56ecf0797"],
34667	Cell[26233, 676, 241, 4, 25, "Print",ExpressionUUID->"363bd0c9-a249-4e77-b4cc-3525b0160753"],
34668	Cell[26477, 682, 239, 4, 25, "Print",ExpressionUUID->"7240cc41-f3e7-4ab6-b174-f63b49e6bef8"],
34669	Cell[26719, 688, 412, 9, 48, "Print",ExpressionUUID->"1cd7e254-a3cb-4fbb-8651-4e58ee2d1a18"]
34670	}, Open ]]
34671	}, Open ]],
34672	Cell[27158, 701, 1634, 35, 55, "Input",ExpressionUUID->"f58736e1-2cb2-4219-859f-68c4482f9ccd"],
34673	Cell[CellGroupData[{
34674	Cell[28817, 740, 298, 7, 31, "Input",ExpressionUUID->"90113a27-38d6-45a4-a4b0-d71fde76e1c7"],
34675	Cell[29118, 749, 635, 13, 25, "Print",ExpressionUUID->"ce690e60-4f67-493b-bb7c-7bfbf4e8b5a9"]
34676	}, Open ]],
34677	Cell[CellGroupData[{
34678	Cell[29790, 767, 1017, 25, 31, "Input",ExpressionUUID->"e3bfaa60-bc5c-488b-83ed-701b44dbe5ac"],
34679	Cell[CellGroupData[{
34680	Cell[30832, 796, 556, 13, 24, "Print",ExpressionUUID->"df5f5226-236a-4000-8e15-cd66bda745cc"],
34681	Cell[31391, 811, 311, 5, 24, "Print",ExpressionUUID->"531b582b-a470-4ce1-a525-ffc569fe411e"],
34682	Cell[31705, 818, 493, 10, 24, "Print",ExpressionUUID->"ab03436a-ba9c-4300-b656-73722c07084d"],
34683	Cell[32201, 830, 344, 6, 24, "Print",ExpressionUUID->"b46ee0e2-304a-4e58-84f2-973ff1cb5da4"],
34684	Cell[32548, 838, 822, 17, 24, "Print",ExpressionUUID->"8220978a-c6aa-444a-88b1-ee5629827c5a"],
34685	Cell[33373, 857, 424, 9, 24, "Print",ExpressionUUID->"bcee00b7-1748-4128-a0c2-ac8114c91282"]
34686	}, Open ]],
34687	Cell[33812, 869, 10362, 256, 145, "Output",ExpressionUUID->"48e161f3-55eb-4810-a978-c5b9945ccc8f"]
34688	}, Open ]],
34689	Cell[CellGroupData[{
34690	Cell[44211, 1130, 1154, 30, 55, "Input",ExpressionUUID->"c26691ff-f632-4305-8671-8cfd87db9120"],
34691	Cell[CellGroupData[{
34692	Cell[45390, 1164, 528, 13, 24, "Print",ExpressionUUID->"862e9f62-b822-4440-861f-80a24fe736f4"],
34693	Cell[45921, 1179, 283, 5, 24, "Print",ExpressionUUID->"4c2dea28-63a9-433f-9e47-c02fd2b087b3"],
34694	Cell[46207, 1186, 467, 10, 24, "Print",ExpressionUUID->"ab02d9c4-198e-4466-880b-3264f55efc13"],
34695	Cell[46677, 1198, 316, 6, 24, "Print",ExpressionUUID->"b0a27050-2358-4326-903a-4723d0867d46"],
34696	Cell[46996, 1206, 796, 17, 24, "Print",ExpressionUUID->"f7c50d97-5960-45b1-9d75-71735bb47b63"],
34697	Cell[47795, 1225, 276, 5, 25, "Print",ExpressionUUID->"26b2fd45-9526-426b-a79d-c21f149ee00e"]
34698	}, Open ]],
34699	Cell[48086, 1233, 3711, 96, 75, "Output",ExpressionUUID->"a3df65b3-abf0-47f5-9070-70c6562c5c6b"],
34700	Cell[51800, 1331, 5233, 133, 75, "Output",ExpressionUUID->"f2bed6c6-392f-42fb-8a56-2aec031c4d53"]
34701	}, Open ]],
34702	Cell[CellGroupData[{
34703	Cell[57070, 1469, 3010, 76, 101, "Input",ExpressionUUID->"00e5d10d-94d0-4412-925b-1c616d997fec"],
34704	Cell[CellGroupData[{
34705	Cell[60105, 1549, 823, 17, 25, "Print",ExpressionUUID->"fae4aa60-1cf8-41f2-bc8f-3622fb604dca"],
34706	Cell[60931, 1568, 581, 9, 25, "Print",ExpressionUUID->"581111a9-9ef9-4e06-9c53-988d9edd599b"],
34707	Cell[61515, 1579, 761, 14, 25, "Print",ExpressionUUID->"dcc42d6d-1d5c-45a7-81b2-ebffd37e862e"],
34708	Cell[62279, 1595, 614, 10, 25, "Print",ExpressionUUID->"5a77f048-9f2f-4fd0-8c69-8eb81729fdd5"],
34709	Cell[62896, 1607, 1088, 21, 25, "Print",ExpressionUUID->"5f523990-5a57-4bc4-9447-a590cc465c7b"],
34710	Cell[63987, 1630, 692, 13, 25, "Print",ExpressionUUID->"01983c43-06b4-486f-8377-a5fd27efc5a9"],
34711	Cell[64682, 1645, 919, 17, 25, "Print",ExpressionUUID->"5b46f11b-b9ff-47d4-9c75-be88314ec755"]
34712	}, Open ]],
34713	Cell[65616, 1665, 13166, 343, 155, "Output",ExpressionUUID->"aef98f10-35a3-480d-bb6b-c13da457e161"]
34714	}, Open ]],
34715	Cell[CellGroupData[{
34716	Cell[78819, 2013, 676, 19, 58, "Subsection",ExpressionUUID->"86e4fb78-f3cd-47f5-a5f1-33600a572f6e"],
34717	Cell[79498, 2034, 591, 14, 41, "Input",ExpressionUUID->"d2e56b81-6219-490c-982c-ee49a37c6877"],
34718	Cell[CellGroupData[{
34719	Cell[80114, 2052, 385, 11, 39, "Input",ExpressionUUID->"dc9ad820-5590-4bac-81d4-d90c096f5f4b"],
34720	Cell[CellGroupData[{
34721	Cell[80524, 2067, 296, 5, 30, "Print",ExpressionUUID->"ad70eaad-70fd-45a9-a6c5-b0c905b0f808"],
34722	Cell[80823, 2074, 458, 10, 30, "Print",ExpressionUUID->"2e816367-f1aa-4573-bb39-a98038b0c1e5"],
34723	Cell[81284, 2086, 458, 10, 30, "Print",ExpressionUUID->"58981fbd-ec10-46f4-90bf-1f347d509b2b"]
34724	}, Open ]]
34725	}, Open ]],
34726	Cell[CellGroupData[{
34727	Cell[81791, 2102, 1897, 37, 155, "Input",ExpressionUUID->"d013d0c4-7567-4fce-93f1-84c03e773d99"],
34728	Cell[83691, 2141, 2385, 62, 76, "Output",ExpressionUUID->"ca8ff5a3-affc-4721-af81-85a325536cd5"],
34729	Cell[86079, 2205, 3332, 90, 81, "Output",ExpressionUUID->"d1046564-350d-4edc-9eaa-ece071eaa65f"],
34730	Cell[89414, 2297, 4138, 116, 101, "Output",ExpressionUUID->"8dd59ff1-21b8-4aa1-9278-cd6ee80b4ca7"]
34731	}, Open ]],
34732	Cell[CellGroupData[{
34733	Cell[93589, 2418, 1004, 27, 156, "Input",ExpressionUUID->"777fafde-cd1a-4c6a-936e-23ce19d1eaf8"],
34734	Cell[94596, 2447, 1505, 40, 76, "Output",ExpressionUUID->"473bc550-7f3f-4e39-9e35-fbc389bd374c"],
34735	Cell[96104, 2489, 2151, 61, 81, "Output",ExpressionUUID->"04e85cfc-7162-453b-bf06-03c19b4aecba"],
34736	Cell[98258, 2552, 3138, 92, 101, "Output",ExpressionUUID->"18d9599e-0238-4e75-9e8a-a1d6bee374fa"]
34737	}, Open ]],
34738	Cell[101411, 2647, 152, 3, 39, "Input",ExpressionUUID->"1ea0cb97-74b3-42c4-becf-65e1c3ef0119"],
34739	Cell[101566, 2652, 434, 12, 39, "Input",ExpressionUUID->"56eee9d8-93eb-4163-b606-e817d2dfec84"],
34740	Cell[CellGroupData[{
34741	Cell[102025, 2668, 1391, 27, 98, "Input",ExpressionUUID->"2560bf02-b49c-47cc-ac7c-662814ae53c0"],
34742	Cell[103419, 2697, 3382, 72, 78, "Output",ExpressionUUID->"edcce4f6-c317-4a34-8918-dc3d7a5831ce"],
34743	Cell[106804, 2771, 2616, 50, 48, "Output",ExpressionUUID->"323abe3e-a411-4c9b-8533-71936f66be4c"]
34744	}, Open ]],
34745	Cell[CellGroupData[{
34746	Cell[109457, 2826, 998, 27, 156, "Input",ExpressionUUID->"c3ce482e-99ae-4de8-8127-f9b3ee83f0c0"],
34747	Cell[110458, 2855, 1430, 39, 78, "Output",ExpressionUUID->"9cdded33-69f8-4066-a855-8723c4efdcfa"],
34748	Cell[111891, 2896, 1106, 31, 76, "Output",ExpressionUUID->"ffb7b391-f301-4e1d-94c0-5328fe0872d0"],
34749	Cell[113000, 2929, 979, 28, 74, "Output",ExpressionUUID->"c38b0cc9-9282-4fea-b7cc-ff9b1df2efc8"]
34750	}, Open ]]
34751	}, Closed]],
34752	Cell[CellGroupData[{
34753	Cell[114028, 2963, 230, 4, 39, "Subsection",ExpressionUUID->"afdaa5d5-ec6e-441f-80a5-29a2d7ad36b3"],
34754	Cell[CellGroupData[{
34755	Cell[114283, 2971, 754, 19, 41, "Input",ExpressionUUID->"20646313-9df5-4d6c-b179-c4a19db1e3ec"],
34756	Cell[115040, 2992, 3314, 93, 106, "Output",ExpressionUUID->"5e625118-e135-42ef-b1b1-2f7111bc041f"]
34757	}, Open ]],
34758	Cell[CellGroupData[{
34759	Cell[118391, 3090, 190, 4, 39, "Input",ExpressionUUID->"13a53d48-6c16-4925-9131-068868c51a55"],
34760	Cell[118584, 3096, 458, 12, 78, "Output",ExpressionUUID->"38cabc67-d39b-45cd-9265-b52cbb9724a8"]
34761	}, Open ]],
34762	Cell[CellGroupData[{
34763	Cell[119079, 3113, 684, 16, 43, "Input",ExpressionUUID->"ae1cc0f7-b195-462b-9057-78b3e5170a15"],
34764	Cell[119766, 3131, 5631, 160, 149, "Output",ExpressionUUID->"6a82512c-9c62-42c4-958a-7a292f386077"]
34765	}, Open ]],
34766	Cell[125412, 3294, 255, 6, 47, "Text",ExpressionUUID->"82131644-0cd7-403b-9525-ffa8a13d74f7"],
34767	Cell[CellGroupData[{
34768	Cell[125692, 3304, 653, 17, 97, "Input",ExpressionUUID->"40e8568f-4d3f-4322-95fa-f8754a3db27f"],
34769	Cell[126348, 3323, 1330, 37, 79, "Output",ExpressionUUID->"c8f5ef6d-f4bf-44bc-99b6-89104dfcdeaf"],
34770	Cell[127681, 3362, 1803, 53, 105, "Output",ExpressionUUID->"61b0d309-681c-43a1-8aa3-40b181d41071"]
34771	}, Open ]],
34772	Cell[129499, 3418, 563, 16, 49, "Text",ExpressionUUID->"f798344e-a1fc-48d2-8bd3-c6d74c3ee478"],
34773	Cell[CellGroupData[{
34774	Cell[130087, 3438, 522, 13, 69, "Input",ExpressionUUID->"eed85d85-a577-4a0e-aae1-2a53560f57f5"],
34775	Cell[130612, 3453, 1344, 39, 78, "Output",ExpressionUUID->"ffe09fee-e2ee-454e-8d69-a61d4d90f7ff"]
34776	}, Open ]]
34777	}, Closed]],
34778	Cell[CellGroupData[{
34779	Cell[132005, 3498, 529, 12, 39, "Subsection",ExpressionUUID->"83c232dc-9faf-43fc-a036-95a43dea3d65"],
34780	Cell[132537, 3512, 271, 8, 39, "Input",ExpressionUUID->"79c9d7a5-957c-4ec2-b127-3e0d737ff0f9"],
34781	Cell[CellGroupData[{
34782	Cell[132833, 3524, 1011, 20, 39, "Input",ExpressionUUID->"b2d4aa91-e7b0-4a7d-bf00-91cddf449bbd"],
34783	Cell[CellGroupData[{
34784	Cell[133869, 3548, 479, 12, 30, "Print",ExpressionUUID->"083897d2-93cc-449d-b081-57e606820f36"],
34785	Cell[134351, 3562, 232, 4, 30, "Print",ExpressionUUID->"88a44e95-7cfe-4b13-95c3-e8a36789a6f2"],
34786	Cell[134586, 3568, 416, 9, 30, "Print",ExpressionUUID->"12724ce2-faae-417b-b7af-6536287ca318"],
34787	Cell[135005, 3579, 265, 5, 30, "Print",ExpressionUUID->"d4dda840-ae34-4ec5-9bc4-18c9078662fb"],
34788	Cell[135273, 3586, 744, 16, 30, "Print",ExpressionUUID->"cbefd825-4b48-4f08-a307-d80c8e5a5686"],
34789	Cell[136020, 3604, 345, 8, 30, "Print",ExpressionUUID->"30c28d97-34f0-4a32-a095-99a89eb67ca6"]
34790	}, Open ]],
34791	Cell[136380, 3615, 43470, 1059, 312, "Output",ExpressionUUID->"6414204a-9c5c-4aa8-bcb6-c7ce862cd250"]
34792	}, Open ]],
34793	Cell[179865, 4677, 165, 3, 44, "Text",ExpressionUUID->"1ef17f73-f819-466d-a95a-1107f3c7492d"],
34794	Cell[CellGroupData[{
34795	Cell[180055, 4684, 1013, 24, 126, "Input",ExpressionUUID->"441230af-4a7a-4962-974c-957a6c20c6ca"],
34796	Cell[181071, 4710, 2233, 61, 76, "Output",ExpressionUUID->"36339ec0-439d-4b80-a4ef-ff9053b0b04b"],
34797	Cell[183307, 4773, 2331, 64, 77, "Output",ExpressionUUID->"08b24a4e-9037-4138-aaaa-98d08b29d143"],
34798	Cell[185641, 4839, 2772, 78, 101, "Output",ExpressionUUID->"eb8a3b1b-5130-4de4-b1ac-5b7672ea5d28"]
34799	}, Open ]]
34800	}, Closed]],
34801	Cell[CellGroupData[{
34802	Cell[188462, 4923, 174, 3, 39, "Subsection",ExpressionUUID->"f6d3546a-fbb5-4086-80b2-1fc305917cc1"],
34803	Cell[188639, 4928, 403, 10, 31, "Input",ExpressionUUID->"792b5b38-c9c2-4aeb-a3c1-f604b019622b"],
34804	Cell[CellGroupData[{
34805	Cell[189067, 4942, 441, 12, 31, "Input",ExpressionUUID->"493e2d7f-a0fa-4447-a034-f54301d68b34"],
34806	Cell[CellGroupData[{
34807	Cell[189533, 4958, 503, 12, 24, "Print",ExpressionUUID->"8a5ec32c-ce9e-42f4-bdbd-6564e0fb7281"],
34808	Cell[190039, 4972, 258, 4, 24, "Print",ExpressionUUID->"b577108e-e548-4c00-8fbd-42bfeea45921"],
34809	Cell[190300, 4978, 440, 9, 24, "Print",ExpressionUUID->"d32c7d42-05f1-4f09-a4a0-818ba7faaa0f"],
34810	Cell[190743, 4989, 291, 5, 24, "Print",ExpressionUUID->"933f33be-86b0-4387-be13-a65944b94ac7"],
34811	Cell[191037, 4996, 768, 16, 24, "Print",ExpressionUUID->"85653527-27be-4220-b74a-051767b09216"],
34812	Cell[191808, 5014, 371, 8, 24, "Print",ExpressionUUID->"b69e87e2-7771-46d8-964c-e9369243902f"]
34813	}, Open ]],
34814	Cell[192194, 5025, 29894, 786, 189, "Output",ExpressionUUID->"25b9a8b4-254c-4157-bd83-7b584e3e875c"]
34815	}, Open ]],
34816	Cell[222103, 5814, 182, 3, 35, "Text",ExpressionUUID->"a751ef31-da6e-4879-895f-7a35e3428ef2"],
34817	Cell[CellGroupData[{
34818	Cell[222310, 5821, 449, 14, 31, "Input",ExpressionUUID->"2a018274-5e6f-4420-bccb-031b97aded39"],
34819	Cell[222762, 5837, 626, 12, 24, "Print",ExpressionUUID->"334e87c9-4252-4cc9-a7ac-2617823cbb0f"],
34820	Cell[223391, 5851, 25745, 690, 533, "Output",ExpressionUUID->"9d4f3251-a1bd-4d92-8a62-8f49a3c05794"]
34821	}, Open ]],
34822	Cell[CellGroupData[{
34823	Cell[249173, 6546, 355, 8, 31, "Input",ExpressionUUID->"7fbbf628-8230-4c3a-8d3d-e01aca0dd124"],
34824	Cell[249531, 6556, 24159, 631, 533, "Output",ExpressionUUID->"2d6d55cf-523a-4931-8433-7d34103d0a0f"]
34825	}, Open ]]
34826	}, Closed]],
34827	Cell[CellGroupData[{
34828	Cell[273739, 7193, 212, 4, 39, "Subsection",ExpressionUUID->"44bd2bd5-c92e-4f5a-b2c0-2aaa3c513670"],
34829	Cell[273954, 7199, 540, 12, 93, "Text",ExpressionUUID->"8012e7e9-d5fd-4218-be89-a52e130401da"],
34830	Cell[CellGroupData[{
34831	Cell[274519, 7215, 694, 14, 39, "Input",ExpressionUUID->"c4e3c4c6-947f-4622-94e4-3956e372f48c"],
34832	Cell[CellGroupData[{
34833	Cell[275238, 7233, 185, 4, 30, "Print",ExpressionUUID->"6fd019b7-fe5e-41da-b4d5-7d7c08339e67"],
34834	Cell[275426, 7239, 408, 11, 30, "Print",ExpressionUUID->"eba9d290-2fe8-41f7-b3ae-d028e4124108"],
34835	Cell[275837, 7252, 163, 3, 30, "Print",ExpressionUUID->"39f8fcdc-8ac2-4f23-ab6a-ca8bd347deba"],
34836	Cell[276003, 7257, 345, 8, 30, "Print",ExpressionUUID->"26068711-abf9-42a1-b65a-51a2a77c099b"],
34837	Cell[276351, 7267, 389, 9, 30, "Print",ExpressionUUID->"dbda856c-24f7-40d8-9923-77da05a643cd"],
34838	Cell[276743, 7278, 196, 4, 30, "Print",ExpressionUUID->"a5e0fc81-6f03-4a24-a1ad-7554973f3a20"],
34839	Cell[276942, 7284, 679, 15, 30, "Print",ExpressionUUID->"636bb010-1431-46f9-a55c-f33f99478e52"],
34840	Cell[277624, 7301, 275, 6, 30, "Print",ExpressionUUID->"bed2ea70-76c4-4075-b9c7-2dee1624642f"],
34841	Cell[277902, 7309, 633, 14, 30, "Print",ExpressionUUID->"b1a231ee-0764-4d1b-9ee2-f1687e3dada8"],
34842	Cell[278538, 7325, 177, 3, 30, "Print",ExpressionUUID->"d373f064-530f-4efa-8ef8-0bab0a7b5f27"],
34843	Cell[278718, 7330, 444, 12, 30, "Print",ExpressionUUID->"2cb0c055-a28c-4574-b57d-2e694fa71152"],
34844	Cell[279165, 7344, 402, 11, 30, "Print",ExpressionUUID->"b3d28bdf-1102-4b3e-bbde-30a58aae5747"],
34845	Cell[279570, 7357, 373, 7, 30, "Print",ExpressionUUID->"da08975b-e39b-49f2-8515-d308767a3a86"],
34846	Cell[279946, 7366, 402, 11, 30, "Print",ExpressionUUID->"2ce5e037-b7e9-4f92-8a3b-47e3e39286dd"],
34847	Cell[280351, 7379, 356, 8, 30, "Print",ExpressionUUID->"d54e6a93-8f6b-4061-99af-4ac8cf16039f"],
34848	Cell[280710, 7389, 160, 3, 30, "Print",ExpressionUUID->"1a6f8ca3-bb08-48b2-928b-15a7f499f9ff"],
34849	Cell[280873, 7394, 407, 11, 30, "Print",ExpressionUUID->"87a973db-332d-40cc-bfed-b71775f59fae"],
34850	Cell[281283, 7407, 409, 11, 30, "Print",ExpressionUUID->"ec00051b-2100-4f4f-a9b1-a631132bd675"],
34851	Cell[281695, 7420, 181, 3, 30, "Print",ExpressionUUID->"5918ca2d-0cfb-47d9-8df4-23e7f31e6cf8"],
34852	Cell[281879, 7425, 375, 8, 30, "Print",ExpressionUUID->"cc50ec4a-7e44-48c0-a211-f1528905f7cf"],
34853	Cell[282257, 7435, 538, 11, 30, "Print",ExpressionUUID->"a3c3da5f-e603-4e4d-91b8-fb82482fb5fe"],
34854	Cell[282798, 7448, 156, 3, 30, "Print",ExpressionUUID->"a69eb6fc-7648-4845-b4f0-2c1fea175864"],
34855	Cell[282957, 7453, 529, 12, 81, "Print",ExpressionUUID->"0fb19be5-daa0-43df-86ef-337a756a3616"],
34856	Cell[283489, 7467, 141, 3, 30, "Print",ExpressionUUID->"63e9fc37-649d-4d0e-bbc9-bf388a83f21c"]
34857	}, Open ]]
34858	}, Open ]]
34859	}, Closed]]
34860	}, Closed]],
34861	Cell[CellGroupData[{
34862	Cell[283703, 7478, 574, 8, 54, "Section",ExpressionUUID->"f1e9cbd0-c5f5-4213-91e7-6614c43503b7"],
34863	Cell[284280, 7488, 625, 13, 69, "Input",ExpressionUUID->"a74b312e-d3dd-4df5-a34b-d90455eb1ede"],
34864	Cell[284908, 7503, 513, 11, 64, "Text",ExpressionUUID->"3200b1e5-c61d-47dd-ae11-192fde7c8756"],
34865	Cell[285424, 7516, 2447, 47, 98, "Input",ExpressionUUID->"d54a8bd7-1be4-4724-aa37-d90efc53c0b9"],
34866	Cell[287874, 7565, 1638, 35, 69, "Input",ExpressionUUID->"8582f134-6a65-42f5-817f-442cc2ea589e"],
34867	Cell[CellGroupData[{
34868	Cell[289537, 7604, 676, 19, 71, "Subsection",ExpressionUUID->"2900fc3f-7d26-4cde-8476-948941db76e3"],
34869	Cell[290216, 7625, 591, 14, 158, "Input",ExpressionUUID->"e2b4e349-4851-41a9-9764-84be0d49ec34"],
34870	Cell[CellGroupData[{
34871	Cell[290832, 7643, 385, 11, 150, "Input",ExpressionUUID->"620c9793-5dd1-4198-b7bb-e94aee5f9f62"],
34872	Cell[CellGroupData[{
34873	Cell[291242, 7658, 294, 5, 108, "Print",ExpressionUUID->"88c6795a-274d-4247-aa07-295c0c4423cc"],
34874	Cell[291539, 7665, 458, 10, 108, "Print",ExpressionUUID->"4d790ee9-1a20-4da5-adb6-7536692f852c"],
34875	Cell[292000, 7677, 455, 9, 108, "Print",ExpressionUUID->"629e3faa-64cb-4a5b-8149-3cfc6b8ead4e"]
34876	}, Open ]]
34877	}, Open ]],
34878	Cell[CellGroupData[{
34879	Cell[292504, 7692, 1946, 38, 578, "Input",ExpressionUUID->"7620b1d3-cbfa-42ad-96e8-c15a2e830050"],
34880	Cell[294453, 7732, 2385, 62, 272, "Output",ExpressionUUID->"9e0200c5-c98c-4ef0-aab4-24d19241d06f"],
34881	Cell[296841, 7796, 2716, 73, 275, "Output",ExpressionUUID->"e32c75a8-2193-4221-b968-9bf99f6df866"],
34882	Cell[299560, 7871, 3217, 89, 366, "Output",ExpressionUUID->"ac3f4e83-7f94-48d3-8b62-cc8cc43ec24c"]
34883	}, Open ]],
34884	Cell[CellGroupData[{
34885	Cell[302814, 7965, 1050, 28, 587, "Input",ExpressionUUID->"d5e19631-70bc-484b-adaf-aec64f831484"],
34886	Cell[303867, 7995, 1507, 40, 272, "Output",ExpressionUUID->"a4280911-c4eb-4d68-bc92-e4eec1161287"],
34887	Cell[305377, 8037, 2500, 69, 275, "Output",ExpressionUUID->"eab90755-70f9-4d39-aa1b-fa4365817ca1"],
34888	Cell[307880, 8108, 2625, 77, 366, "Output",ExpressionUUID->"fcd0c235-b9a7-4315-bea0-c54df04861ff"]
34889	}, Open ]],
34890	Cell[310520, 8188, 152, 3, 150, "Input",ExpressionUUID->"5032158e-c686-4b06-b08a-894cfc40cd19"],
34891	Cell[310675, 8193, 434, 12, 150, "Input",ExpressionUUID->"fb933098-b0f6-49b1-a537-1388f6e90427"],
34892	Cell[CellGroupData[{
34893	Cell[311134, 8209, 1668, 34, 578, "Input",ExpressionUUID->"5b756f62-ea6a-4ff8-aee1-16f2b262a5f8"],
34894	Cell[312805, 8245, 3382, 72, 277, "Output",ExpressionUUID->"e0c97172-94c2-4955-8e05-df95431809c7"],
34895	Cell[316190, 8319, 4061, 91, 382, "Output",ExpressionUUID->"8019b515-9398-4428-8168-9a58c49bd0fa"],
34896	Cell[320254, 8412, 4261, 102, 428, "Output",ExpressionUUID->"ee5783c0-e4f3-4f88-b11d-85db2776f5eb"]
34897	}, Open ]],
34898	Cell[CellGroupData[{
34899	Cell[324552, 8519, 1046, 28, 587, "Input",ExpressionUUID->"822cdbd1-c65d-4cb7-a9f9-c10a464b6158"],
34900	Cell[325601, 8549, 1428, 39, 277, "Output",ExpressionUUID->"a27f8ca2-f5ac-4549-9565-7eb84c25c5af"],
34901	Cell[327032, 8590, 2106, 57, 282, "Output",ExpressionUUID->"8046183b-0929-4782-8d1e-004160c839e6"],
34902	Cell[329141, 8649, 2309, 70, 413, "Output",ExpressionUUID->"f325bee0-7907-47fb-b763-0232782bd0ef"]
34903	}, Open ]]
34904	}, Closed]],
34905	Cell[CellGroupData[{
34906	Cell[331499, 8725, 230, 4, 47, "Subsection",ExpressionUUID->"dccca1b7-c070-4426-bd77-fdccf9f25336"],
34907	Cell[CellGroupData[{
34908	Cell[331754, 8733, 754, 19, 158, "Input",ExpressionUUID->"0f2372c7-e8a2-4577-9a08-d0add110c8a5"],
34909	Cell[332511, 8754, 3314, 93, 383, "Output",ExpressionUUID->"5542b313-12f4-4cbf-9c24-ffdedbb4b84d"]
34910	}, Open ]],
34911	Cell[CellGroupData[{
34912	Cell[335862, 8852, 190, 4, 150, "Input",ExpressionUUID->"0e3c2ec2-99d8-4980-bdd7-3c555ccea1f1"],
34913	Cell[336055, 8858, 458, 12, 277, "Output",ExpressionUUID->"aea69444-7d21-447f-b2fc-babd5a52309b"]
34914	}, Open ]],
34915	Cell[CellGroupData[{
34916	Cell[336550, 8875, 684, 16, 168, "Input",ExpressionUUID->"19ac2af8-e620-424a-a0da-662bb26beadf"],
34917	Cell[337237, 8893, 5895, 164, 806, "Output",ExpressionUUID->"41cbaec5-9feb-4ebf-9ad8-78ec22e04261"]
34918	}, Open ]],
34919	Cell[343147, 9060, 255, 6, 158, "Text",ExpressionUUID->"99536040-e5c7-49c7-9e61-39c8b773d61f"],
34920	Cell[CellGroupData[{
34921	Cell[343427, 9070, 699, 18, 366, "Input",ExpressionUUID->"f150dc1a-55cc-41a6-a0fe-cb5a384e7722"],
34922	Cell[344129, 9090, 1328, 37, 282, "Output",ExpressionUUID->"9ef38bb3-605f-46e9-b758-a4397eeff8a8"],
34923	Cell[345460, 9129, 1803, 53, 382, "Output",ExpressionUUID->"b279fe75-ba8b-426b-9cf8-5a30a386215e"]
34924	}, Open ]],
34925	Cell[347278, 9185, 563, 16, 168, "Text",ExpressionUUID->"dbe73921-c372-4df1-a7c5-aadd5f35e981"],
34926	Cell[CellGroupData[{
34927	Cell[347866, 9205, 567, 14, 258, "Input",ExpressionUUID->"868a5c71-a036-43ce-84cc-5e2a7aed83a1"],
34928	Cell[348436, 9221, 1369, 39, 402, "Output",ExpressionUUID->"8920bd06-a434-41e2-aa04-1faea577b7d8"]
34929	}, Open ]]
34930	}, Closed]],
34931	Cell[CellGroupData[{
34932	Cell[349854, 9266, 529, 12, 47, "Subsection",ExpressionUUID->"09009831-4fe1-41d2-af7b-30ca0415f3f3"],
34933	Cell[350386, 9280, 271, 8, 150, "Input",ExpressionUUID->"9e5acf37-8814-4ce1-a4ee-41717bcc47c9"],
34934	Cell[CellGroupData[{
34935	Cell[350682, 9292, 1011, 20, 150, "Input",ExpressionUUID->"8438ec3d-1833-432f-99cc-dbdfd8657eca"],
34936	Cell[CellGroupData[{
34937	Cell[351718, 9316, 501, 12, 108, "Print",ExpressionUUID->"2e91e535-c5b4-4f2c-9bc0-7213a77f650d"],
34938	Cell[352222, 9330, 256, 4, 108, "Print",ExpressionUUID->"cbee1a60-5871-4e58-98b6-a1ba884f87cc"],
34939	Cell[352481, 9336, 440, 9, 108, "Print",ExpressionUUID->"0a6bfba2-7adb-4ef9-8364-f5b4d18b6274"],
34940	Cell[352924, 9347, 291, 5, 108, "Print",ExpressionUUID->"64b56ce8-052c-4426-9250-80c12f64274b"],
34941	Cell[353218, 9354, 770, 16, 108, "Print",ExpressionUUID->"4f38d04b-378b-445c-85d9-3b3b6c0d5e57"],
34942	Cell[353991, 9372, 369, 8, 108, "Print",ExpressionUUID->"6f09f1b3-3f95-4a69-b45e-6476cec4e798"]
34943	}, Open ]],
34944	Cell[354375, 9383, 43492, 1059, 1243, "Output",ExpressionUUID->"a4cc2dac-d5fe-4d76-a893-a34014c7c8f8"]
34945	}, Open ]],
34946	Cell[397882, 10445, 165, 3, 150, "Text",ExpressionUUID->"cb0fccbf-b240-4fca-9a1f-62013718f840"],
34947	Cell[CellGroupData[{
34948	Cell[398072, 10452, 1058, 24, 472, "Input",ExpressionUUID->"e9520123-f2c2-47d3-8479-68c655b8451f"],
34949	Cell[399133, 10478, 2259, 62, 272, "Output",ExpressionUUID->"c9e4759c-fb99-4898-b95a-7e527fa2a6ed"],
34950	Cell[401395, 10542, 2361, 65, 275, "Output",ExpressionUUID->"6313db45-cfb3-4730-84c8-1b0fb54f7527"],
34951	Cell[403759, 10609, 2800, 79, 366, "Output",ExpressionUUID->"9d0f4392-179b-43f8-89ea-56ecfd304de4"]
34952	}, Open ]]
34953	}, Closed]],
34954	Cell[CellGroupData[{
34955	Cell[406608, 10694, 174, 3, 47, "Subsection",ExpressionUUID->"31eb39e4-18c9-4305-b4ca-c672ea32402d"],
34956	Cell[406785, 10699, 403, 10, 150, "Input",ExpressionUUID->"33784723-cdcd-4ee0-88be-6b2694ed666c"],
34957	Cell[CellGroupData[{
34958	Cell[407213, 10713, 441, 12, 150, "Input",ExpressionUUID->"b57d68c4-27c6-4cfa-a828-2daed1dae3ca"],
34959	Cell[CellGroupData[{
34960	Cell[407679, 10729, 525, 12, 108, "Print",ExpressionUUID->"5e5be8cd-42ef-4199-806d-7a302c782018"],
34961	Cell[408207, 10743, 280, 4, 108, "Print",ExpressionUUID->"30478451-f274-4741-8019-20e3265e909a"],
34962	Cell[408490, 10749, 462, 9, 108, "Print",ExpressionUUID->"dc72867d-f8f1-4490-847f-8e097ba158db"],
34963	Cell[408955, 10760, 315, 5, 108, "Print",ExpressionUUID->"e4ce735b-c631-467c-8bef-a80fdfea0952"],
34964	Cell[409273, 10767, 792, 16, 108, "Print",ExpressionUUID->"f4a32d55-dac6-4a7b-b5fb-102443fb17a6"],
34965	Cell[410068, 10785, 395, 8, 108, "Print",ExpressionUUID->"ef70e897-2ad6-4488-87b2-c8600ee04320"]
34966	}, Open ]],
34967	Cell[410478, 10796, 29918, 786, 957, "Output",ExpressionUUID->"3a4986af-b998-4143-b314-7155453f7ccc"]
34968	}, Open ]],
34969	Cell[440411, 11585, 182, 3, 150, "Text",ExpressionUUID->"b06eff71-5b20-462a-8027-60f77a4b37da"],
34970	Cell[CellGroupData[{
34971	Cell[440618, 11592, 449, 14, 150, "Input",ExpressionUUID->"d2b15297-e7df-4798-82ba-0b88b3ee535a"],
34972	Cell[441070, 11608, 652, 13, 108, "Print",ExpressionUUID->"66bcaf6d-8baa-4022-b66e-1de480954a45"],
34973	Cell[441725, 11623, 25771, 691, 2597, "Output",ExpressionUUID->"013f6af7-f881-4065-bb20-e2c062cfec5e"]
34974	}, Open ]],
34975	Cell[CellGroupData[{
34976	Cell[467533, 12319, 401, 9, 150, "Input",ExpressionUUID->"c0812ffd-bb82-4b70-8f54-71e6fe2d518e"],
34977	Cell[467937, 12330, 24183, 631, 2813, "Output",ExpressionUUID->"2a0f6bc0-201a-4218-9e60-4c8ff9f6be20"]
34978	}, Open ]]
34979	}, Closed]],
34980	Cell[CellGroupData[{
34981	Cell[492169, 12967, 212, 4, 47, "Subsection",ExpressionUUID->"240e5c9c-2d4a-4e24-9b2c-afbac9a8cad5"],
34982	Cell[492384, 12973, 540, 12, 332, "Text",ExpressionUUID->"8678efa0-b3a9-40f7-b38c-fb7a1ebc418d"],
34983	Cell[CellGroupData[{
34984	Cell[492949, 12989, 737, 13, 150, "Input",ExpressionUUID->"5c345ef9-4d0e-4919-a43d-932715e29235"],
34985	Cell[CellGroupData[{
34986	Cell[493711, 13006, 185, 4, 108, "Print",ExpressionUUID->"7d728da9-6e9c-4800-955e-3f265fd2da16"],
34987	Cell[493899, 13012, 408, 11, 108, "Print",ExpressionUUID->"b9ef4c16-b79c-4a95-b8f2-4e28b9d86ffc"],
34988	Cell[494310, 13025, 163, 3, 108, "Print",ExpressionUUID->"d47d73ba-0801-4b3c-8722-87779213d4d5"],
34989	Cell[494476, 13030, 345, 8, 108, "Print",ExpressionUUID->"9dd6538c-65f7-423b-b6e2-cbea69fb0879"],
34990	Cell[494824, 13040, 389, 9, 108, "Print",ExpressionUUID->"4e0328e1-8eef-47ed-8921-c6c453513119"],
34991	Cell[495216, 13051, 198, 4, 108, "Print",ExpressionUUID->"197fe36c-c31a-4f60-b079-861f6447515b"],
34992	Cell[495417, 13057, 679, 15, 108, "Print",ExpressionUUID->"c02f57cc-1de2-4a8d-9437-d923c2f9fc5d"],
34993	Cell[496099, 13074, 278, 7, 108, "Print",ExpressionUUID->"10af43bc-9bc9-4b3d-b1d1-3a3e95a254fd"],
34994	Cell[496380, 13083, 633, 14, 108, "Print",ExpressionUUID->"fcab0251-bb9a-4f32-bc4e-74c9f61989aa"],
34995	Cell[497016, 13099, 177, 3, 108, "Print",ExpressionUUID->"6adb94e2-a785-4a73-9307-522b483ea3d0"],
34996	Cell[497196, 13104, 446, 12, 108, "Print",ExpressionUUID->"36fd6d0d-fe57-4898-9fee-15e8bcaf87b3"],
34997	Cell[497645, 13118, 404, 11, 108, "Print",ExpressionUUID->"3eb90927-2c84-4568-bdb2-3d12bd445f4d"],
34998	Cell[498052, 13131, 373, 7, 108, "Print",ExpressionUUID->"d626b3fe-fbb7-412c-a373-9b75e94f2604"],
34999	Cell[498428, 13140, 402, 11, 108, "Print",ExpressionUUID->"8e33c496-6434-401d-a7ed-85442d1270bb"],
35000	Cell[498833, 13153, 360, 8, 108, "Print",ExpressionUUID->"f0b6ad80-5b69-4d22-8194-175bd1c21a32"],
35001	Cell[499196, 13163, 160, 3, 108, "Print",ExpressionUUID->"e913f8de-cd0f-4962-bedc-202e6787959b"],
35002	Cell[499359, 13168, 407, 11, 108, "Print",ExpressionUUID->"b9b24574-30c1-40e7-a570-06fef9793207"],
35003	Cell[499769, 13181, 184, 4, 108, "Print",ExpressionUUID->"6a72f63c-f4a9-42ca-a867-a30b00ca74da"],
35004	Cell[499956, 13187, 377, 8, 108, "Print",ExpressionUUID->"238b5fd0-4604-4895-ba35-26afcb671abf"],
35005	Cell[500336, 13197, 540, 11, 108, "Print",ExpressionUUID->"e4715056-5a21-4dd9-a560-48ac7a87fefb"],
35006	Cell[500879, 13210, 156, 3, 108, "Print",ExpressionUUID->"31725dfe-2774-4d00-9464-cb37ca8cee90"],
35007	Cell[501038, 13215, 529, 12, 296, "Print",ExpressionUUID->"4f75d5c2-c4d7-4390-b64a-1e59ca53d7cf"],
35008	Cell[501570, 13229, 141, 3, 108, "Print",ExpressionUUID->"fbb53182-6f94-4ba3-b6b8-4460d2fb8588"]
35009	}, Open ]]
35010	}, Open ]]
35011	}, Closed]]
35012	}, Closed]],
35013	Cell[CellGroupData[{
35014	Cell[501784, 13240, 650, 15, 54, "Section",ExpressionUUID->"4ba162d2-fcda-408a-bfb2-d3e238f0c227"],
35015	Cell[502437, 13257, 575, 12, 55, "Input",ExpressionUUID->"efb56935-48fc-4b89-9b62-2d1a62b3b6f1"],
35016	Cell[CellGroupData[{
35017	Cell[503037, 13273, 2471, 47, 78, "Input",ExpressionUUID->"0db4a9de-35f4-4b6e-829a-9a7bd3f3473a"],
35018	Cell[CellGroupData[{
35019	Cell[505533, 13324, 240, 4, 25, "Print",ExpressionUUID->"1738bd40-c20e-4e6f-82b6-b1a2bbbd68d8"],
35020	Cell[505776, 13330, 640, 14, 25, "Print",ExpressionUUID->"2de22f87-77e8-43e2-a549-ac15a55da1f4"],
35021	Cell[506419, 13346, 245, 4, 25, "Print",ExpressionUUID->"7760b9f1-3d1c-405f-83d6-f62331f21e23"],
35022	Cell[506667, 13352, 234, 4, 25, "Print",ExpressionUUID->"065d55b5-4b8f-41ad-abe9-831995e113df"],
35023	Cell[506904, 13358, 353, 8, 25, "Print",ExpressionUUID->"5b4f811f-d815-4478-9b15-b37b2255c0b1"],
35024	Cell[507260, 13368, 216, 4, 25, "Print",ExpressionUUID->"095f3d49-61e7-428e-b3d2-9ec1442f48d3"],
35025	Cell[507479, 13374, 218, 3, 25, "Print",ExpressionUUID->"0e3d7e41-57cb-471b-b881-3273280d4cb3"],
35026	Cell[507700, 13379, 248, 4, 25, "Print",ExpressionUUID->"d8fdfcc7-5754-4deb-97f2-eb6d0842ac6f"],
35027	Cell[507951, 13385, 253, 5, 25, "Print",ExpressionUUID->"e931953c-b5d2-4d8c-a6c8-d96d9e6310fe"],
35028	Cell[508207, 13392, 205, 4, 25, "Print",ExpressionUUID->"0877fcc5-86e4-417a-810c-399dbbd4f2ed"],
35029	Cell[508415, 13398, 237, 4, 25, "Print",ExpressionUUID->"47c690e0-10d0-47bc-9d60-e88069900f79"],
35030	Cell[508655, 13404, 240, 4, 25, "Print",ExpressionUUID->"7b4b6cdf-2b18-4de1-a842-a96527bb9d7d"],
35031	Cell[508898, 13410, 236, 4, 25, "Print",ExpressionUUID->"4c95a2af-923a-4ed0-8243-c3fa29dcd871"],
35032	Cell[509137, 13416, 409, 9, 48, "Print",ExpressionUUID->"37c94247-6636-4f52-a5df-1fec5adf67b1"]
35033	}, Open ]]
35034	}, Open ]],
35035	Cell[509573, 13429, 1585, 34, 55, "Input",ExpressionUUID->"4949d193-0395-4575-96e7-67eea7388746"],
35036	Cell[CellGroupData[{
35037	Cell[511183, 13467, 701, 19, 58, "Subsection",ExpressionUUID->"0c50546d-c1b3-4a01-9fb8-fca20c2bda81"],
35038	Cell[511887, 13488, 591, 14, 33, "Input",ExpressionUUID->"4b71800b-bc08-414a-a036-22fc6f8fb5dc"],
35039	Cell[CellGroupData[{
35040	Cell[512503, 13506, 385, 11, 31, "Input",ExpressionUUID->"3697c174-3af7-404a-aa8d-f85db6873eae"],
35041	Cell[CellGroupData[{
35042	Cell[512913, 13521, 245, 4, 25, "Print",ExpressionUUID->"0b6bc60c-6f97-458c-ba49-9cf671c2b6bd"],
35043	Cell[513161, 13527, 411, 9, 25, "Print",ExpressionUUID->"e9fb3d64-2b17-4c2f-a394-508ea34d8f4f"],
35044	Cell[513575, 13538, 409, 9, 25, "Print",ExpressionUUID->"778bb14a-5626-4adf-941c-15a5159f2187"]
35045	}, Open ]]
35046	}, Open ]],
35047	Cell[CellGroupData[{
35048	Cell[514033, 13553, 1801, 36, 121, "Input",ExpressionUUID->"e01e295d-ef15-4212-8f41-3a0f29aaf660"],
35049	Cell[515837, 13591, 2335, 61, 65, "Output",ExpressionUUID->"b21da2e7-5907-456e-9d68-9d2d8544d83c"],
35050	Cell[518175, 13654, 3197, 86, 70, "Output",ExpressionUUID->"5edf089d-89de-4317-87c2-f9de1a391988"],
35051	Cell[521375, 13742, 3602, 101, 82, "Output",ExpressionUUID->"e1093f29-923f-46bd-a82b-328c2362a858"]
35052	}, Open ]],
35053	Cell[CellGroupData[{
35054	Cell[525014, 13848, 905, 26, 122, "Input",ExpressionUUID->"1dcb4ae4-fc9e-4eca-93af-ae57a3f5f83e"],
35055	Cell[525922, 13876, 1459, 40, 65, "Output",ExpressionUUID->"c04e5c5a-ad82-41ab-9bd1-a3a9bd9d31a7"],
35056	Cell[527384, 13918, 1930, 56, 70, "Output",ExpressionUUID->"8c0c7be1-359b-45e4-9959-3db7a81dbda5"],
35057	Cell[529317, 13976, 2619, 78, 82, "Output",ExpressionUUID->"d33e74ba-3d41-4272-925c-f471eff7018e"]
35058	}, Open ]],
35059	Cell[531951, 14057, 152, 3, 31, "Input",ExpressionUUID->"2c296100-2306-485a-b612-a9ce33b4b723"],
35060	Cell[532106, 14062, 434, 12, 31, "Input",ExpressionUUID->"66f6d084-4c3d-486f-95f9-2fa1f020cb3b"],
35061	Cell[CellGroupData[{
35062	Cell[532565, 14078, 1291, 25, 78, "Input",ExpressionUUID->"9a2027ca-5c3e-478e-a560-56393c8e0aa7"],
35063	Cell[533859, 14105, 3280, 70, 67, "Output",ExpressionUUID->"5f136354-22be-4a04-b698-48aac22d0162"],
35064	Cell[537142, 14177, 2516, 48, 40, "Output",ExpressionUUID->"2f518fef-13ff-46e6-8026-54ea7efd5c4c"]
35065	}, Open ]],
35066	Cell[CellGroupData[{
35067	Cell[539695, 14230, 901, 26, 122, "Input",ExpressionUUID->"6fe6eb08-c7da-4e63-aa5b-153754cede2b"],
35068	Cell[540599, 14258, 1378, 38, 67, "Output",ExpressionUUID->"4201c85b-1d8d-468b-9071-9d1c9c537c0c"],
35069	Cell[541980, 14298, 1056, 30, 65, "Output",ExpressionUUID->"d2107ed9-6bf4-402e-ac24-426ab3149b5f"],
35070	Cell[543039, 14330, 927, 27, 62, "Output",ExpressionUUID->"5ea5d9c0-e154-4cc0-bf10-b17199989543"]
35071	}, Open ]]
35072	}, Closed]],
35073	Cell[CellGroupData[{
35074	Cell[544015, 14363, 230, 4, 39, "Subsection",ExpressionUUID->"db108267-52ce-4b87-8257-b136f1c2d85b"],
35075	Cell[CellGroupData[{
35076	Cell[544270, 14371, 754, 19, 33, "Input",ExpressionUUID->"f4a2d807-ff40-43a7-9ecd-d144c33aa291"],
35077	Cell[545027, 14392, 3243, 91, 69, "Output",ExpressionUUID->"a57cb975-2fda-412b-91d2-27e304f66a58"]
35078	}, Open ]],
35079	Cell[CellGroupData[{
35080	Cell[548307, 14488, 190, 4, 31, "Input",ExpressionUUID->"992a156f-1ba3-43ac-a482-207654fda652"],
35081	Cell[548500, 14494, 409, 10, 67, "Output",ExpressionUUID->"3b0166cf-f084-4035-ba12-a3dc00d23950"]
35082	}, Open ]],
35083	Cell[CellGroupData[{
35084	Cell[548946, 14509, 684, 16, 39, "Input",ExpressionUUID->"90542a25-f864-48db-a441-385b6364a9c5"],
35085	Cell[549633, 14527, 5845, 163, 124, "Output",ExpressionUUID->"2d3c222c-7963-4dc2-82f7-cd3f03b10544"]
35086	}, Open ]],
35087	Cell[555493, 14693, 255, 6, 37, "Text",ExpressionUUID->"4203f239-fa06-4871-94d6-eeb8a8621824"],
35088	Cell[CellGroupData[{
35089	Cell[555773, 14703, 554, 16, 75, "Input",ExpressionUUID->"ec8f8c0b-ce49-4df3-a541-07a9f407dd69"],
35090	Cell[556330, 14721, 1091, 31, 69, "Output",ExpressionUUID->"10b2091a-42c1-46b9-a95d-5bb3d24ea67c"],
35091	Cell[557424, 14754, 1408, 42, 77, "Output",ExpressionUUID->"78c5a737-60ea-42cb-9976-18fe4ed535b6"]
35092	}, Open ]],
35093	Cell[558847, 14799, 563, 16, 39, "Text",ExpressionUUID->"6a646682-4e96-47e9-9c42-720f4bb8cf4b"],
35094	Cell[CellGroupData[{
35095	Cell[559435, 14819, 425, 12, 57, "Input",ExpressionUUID->"12db3362-37c1-4876-b41d-ef4875bbe4e2"],
35096	Cell[559863, 14833, 1296, 38, 65, "Output",ExpressionUUID->"0ce18778-59c6-4e74-80a8-126fa4108a7f"]
35097	}, Open ]]
35098	}, Closed]],
35099	Cell[CellGroupData[{
35100	Cell[561208, 14877, 529, 12, 39, "Subsection",ExpressionUUID->"3ab3ce43-10a9-42c6-b5a0-55302eaa085a"],
35101	Cell[561740, 14891, 271, 8, 31, "Input",ExpressionUUID->"33d7e7f9-0455-402a-a679-d3fe864dbd96"],
35102	Cell[CellGroupData[{
35103	Cell[562036, 14903, 1011, 20, 31, "Input",ExpressionUUID->"5192aad5-d567-4eff-aaf4-461f93cbb120"],
35104	Cell[CellGroupData[{
35105	Cell[563072, 14927, 452, 11, 25, "Print",ExpressionUUID->"aa00e2c5-38b8-4573-88d6-1b76118705ea"],
35106	Cell[563527, 14940, 209, 3, 25, "Print",ExpressionUUID->"316e2a86-4598-4aa3-a93c-dc76d74140f2"],
35107	Cell[563739, 14945, 389, 8, 25, "Print",ExpressionUUID->"f28dc19d-e64b-465b-9275-6dd8590eb7e4"],
35108	Cell[564131, 14955, 242, 4, 25, "Print",ExpressionUUID->"f3e54edb-d23c-479c-85ab-495cb2f054e0"],
35109	Cell[564376, 14961, 716, 15, 25, "Print",ExpressionUUID->"c7135858-57f6-46d3-af86-231445b863e2"],
35110	Cell[565095, 14978, 320, 7, 25, "Print",ExpressionUUID->"2f450633-6995-41d2-9043-44f92d3d9dcf"]
35111	}, Open ]],
35112	Cell[565430, 14988, 19400, 482, 251, "Output",ExpressionUUID->"b44b6fd8-1c77-423c-955b-66356a7a36ba"]
35113	}, Open ]],
35114	Cell[584845, 15473, 165, 3, 35, "Text",ExpressionUUID->"56b59e56-378f-4b87-aadc-d62051711651"],
35115	Cell[CellGroupData[{
35116	Cell[585035, 15480, 915, 23, 98, "Input",ExpressionUUID->"cb67ca5a-e9ca-49bb-ad74-fc6aa2e276fa"],
35117	Cell[585953, 15505, 1859, 51, 64, "Output",ExpressionUUID->"8fbb7acd-1dc9-44bf-b244-cd8c2c283bba"],
35118	Cell[587815, 15558, 1605, 43, 67, "Output",ExpressionUUID->"16475bef-ffdc-42fa-b648-b99f517abdd0"],
35119	Cell[589423, 15603, 1811, 50, 74, "Output",ExpressionUUID->"ad61cf2f-4890-42a2-9274-7bd15682fa5b"]
35120	}, Open ]]
35121	}, Closed]],
35122	Cell[CellGroupData[{
35123	Cell[591283, 15659, 174, 3, 39, "Subsection",ExpressionUUID->"093574c8-3027-4f22-9a45-af867d3183f3"],
35124	Cell[591460, 15664, 403, 10, 31, "Input",ExpressionUUID->"bb950db0-26b9-4947-88eb-655e519598cc"],
35125	Cell[CellGroupData[{
35126	Cell[591888, 15678, 441, 12, 31, "Input",ExpressionUUID->"328f3d43-6261-4815-96f0-ac994999197f"],
35127	Cell[CellGroupData[{
35128	Cell[592354, 15694, 481, 12, 25, "Print",ExpressionUUID->"2c0607a9-f557-4038-896f-b549aea212c9"],
35129	Cell[592838, 15708, 236, 4, 25, "Print",ExpressionUUID->"ec4b3533-e54f-4c95-aa72-b31e5b39808f"],
35130	Cell[593077, 15714, 420, 9, 25, "Print",ExpressionUUID->"84498a12-23a0-4012-9ba2-120b76e5de8c"],
35131	Cell[593500, 15725, 271, 5, 25, "Print",ExpressionUUID->"617aa8ff-5918-4c1f-bbc4-3eade645b04e"],
35132	Cell[593774, 15732, 745, 16, 25, "Print",ExpressionUUID->"2964c299-6da9-4139-a7c0-39dee3818284"],
35133	Cell[594522, 15750, 348, 8, 25, "Print",ExpressionUUID->"72f949f7-b8a8-46c5-b5cc-b7396534f5f4"]
35134	}, Open ]],
35135	Cell[594885, 15761, 29381, 771, 195, "Output",ExpressionUUID->"dfcd1cd5-a18c-4418-ae01-999642149887"]
35136	}, Open ]],
35137	Cell[624281, 16535, 182, 3, 35, "Text",ExpressionUUID->"05dd6b37-046f-40bb-8128-180e19ecc071"],
35138	Cell[CellGroupData[{
35139	Cell[624488, 16542, 449, 14, 31, "Input",ExpressionUUID->"b4b9e441-6d41-4840-814b-0644702b2f8e"],
35140	Cell[624940, 16558, 600, 12, 25, "Print",ExpressionUUID->"eac60e11-cae0-4bff-81b9-398fbf5dbb76"],
35141	Cell[625543, 16572, 14738, 397, 193, "Output",ExpressionUUID->"5ae4c482-6246-4bf3-bcd1-19b7f523cebd"]
35142	}, Open ]],
35143	Cell[CellGroupData[{
35144	Cell[640318, 16974, 260, 7, 31, "Input",ExpressionUUID->"6deef87e-8e03-4c86-9372-8ba5bb8a5d5b"],
35145	Cell[640581, 16983, 11136, 279, 193, "Output",ExpressionUUID->"cd99707a-6d81-4c56-9c5a-1b8a859f29ac"]
35146	}, Open ]]
35147	}, Closed]],
35148	Cell[CellGroupData[{
35149	Cell[651766, 17268, 212, 4, 39, "Subsection",ExpressionUUID->"ac7f6f8c-a544-4c84-b446-59f16536fb38"],
35150	Cell[CellGroupData[{
35151	Cell[652003, 17276, 588, 11, 31, "Input",ExpressionUUID->"5d953327-d798-46bf-add0-6d5f63509d72"],
35152	Cell[CellGroupData[{
35153	Cell[652616, 17291, 207, 4, 25, "Print",ExpressionUUID->"524902a5-dd61-4c0a-a03c-856557c9c31f"],
35154	Cell[652826, 17297, 430, 11, 25, "Print",ExpressionUUID->"88b2675b-8c0b-4045-b036-97c33df11709"],
35155	Cell[653259, 17310, 185, 3, 25, "Print",ExpressionUUID->"808a5ec1-e449-49c1-9f63-6de7cba91f6e"],
35156	Cell[653447, 17315, 367, 8, 25, "Print",ExpressionUUID->"b109ea8e-ba3d-4203-9226-f19a753e7d07"],
35157	Cell[653817, 17325, 218, 4, 25, "Print",ExpressionUUID->"49de0e79-0e3e-44f1-b1fe-4b63798cd389"],
35158	Cell[654038, 17331, 699, 15, 25, "Print",ExpressionUUID->"0cd21141-e215-409a-b82f-252bfc7becda"],
35159	Cell[654740, 17348, 300, 7, 25, "Print",ExpressionUUID->"9aafa6e2-e421-4452-a3f5-63a8005b3aed"],
35160	Cell[655043, 17357, 654, 14, 25, "Print",ExpressionUUID->"c63a281d-58e9-443e-a4b3-4d11d1c9c0d0"],
35161	Cell[655700, 17373, 199, 3, 25, "Print",ExpressionUUID->"6d1f2c8e-5f9f-4403-b5e2-0957582bdded"],
35162	Cell[655902, 17378, 468, 12, 25, "Print",ExpressionUUID->"b2508315-1672-493a-933c-a173049e8818"],
35163	Cell[656373, 17392, 422, 11, 25, "Print",ExpressionUUID->"b64756d8-cd1c-46b8-98a3-e084e896e808"],
35164	Cell[656798, 17405, 396, 8, 25, "Print",ExpressionUUID->"3c1fd219-40ef-4d97-8768-0fc5401e4920"],
35165	Cell[657197, 17415, 420, 11, 25, "Print",ExpressionUUID->"05ecc6b9-d890-4075-b4e7-3da100868687"],
35166	Cell[657620, 17428, 378, 8, 25, "Print",ExpressionUUID->"d3885147-1a49-4add-8e80-bef56a81ea7b"],
35167	Cell[658001, 17438, 184, 3, 25, "Print",ExpressionUUID->"1d1435d5-bd27-4981-8fbb-156f55b2ca2e"],
35168	Cell[658188, 17443, 206, 4, 25, "Print",ExpressionUUID->"c529f57c-a13a-4b2f-ac23-b71e4f0262f2"],
35169	Cell[658397, 17449, 397, 8, 25, "Print",ExpressionUUID->"8d23e792-d853-4a17-8cdd-6a2b7b2dfa31"],
35170	Cell[658797, 17459, 556, 11, 25, "Print",ExpressionUUID->"729d3ed9-3176-4fa1-88d3-af58398f2e02"],
35171	Cell[659356, 17472, 180, 3, 25, "Print",ExpressionUUID->"77a8998d-cf8d-4fcd-a281-ff02eeeb9930"],
35172	Cell[659539, 17477, 551, 12, 70, "Print",ExpressionUUID->"4a26ee14-6997-4bb7-bae5-e016bd0b10be"],
35173	Cell[660093, 17491, 163, 3, 25, "Print",ExpressionUUID->"65a6f6f0-80e0-48af-a82e-16f75f5ac7ca"]
35174	}, Open ]]
35175	}, Open ]]
35176	}, Closed]]
35177	}, Closed]],
35178	Cell[CellGroupData[{
35179	Cell[660329, 17502, 647, 15, 54, "Section",ExpressionUUID->"2d9260f1-7479-4ba5-9d73-4cb250643e6b"],
35180	Cell[660979, 17519, 591, 13, 55, "Input",ExpressionUUID->"b66fa53c-daf2-4c11-9ea9-eb24ee0ee8a2"],
35181	Cell[CellGroupData[{
35182	Cell[661595, 17536, 2449, 47, 78, "Input",ExpressionUUID->"4abf663d-b373-4948-8887-6ec30767134e"],
35183	Cell[CellGroupData[{
35184	Cell[664069, 17587, 190, 2, 25, "Print",ExpressionUUID->"c6705020-afb3-4dd1-bfbe-dba7d6fb10f5"],
35185	Cell[664262, 17591, 630, 15, 25, "Print",ExpressionUUID->"bedb4d7c-1bef-4d05-8075-feac9cdae15e"],
35186	Cell[664895, 17608, 198, 3, 25, "Print",ExpressionUUID->"1cb1ef46-4e0c-46cb-b9bb-b376f44ffffe"],
35187	Cell[665096, 17613, 187, 3, 25, "Print",ExpressionUUID->"e5ee3e43-b50c-477e-99a2-bbf9d618dbe0"],
35188	Cell[665286, 17618, 304, 7, 25, "Print",ExpressionUUID->"d0f7cc9f-1041-419a-a612-3669f3ca3ef7"],
35189	Cell[665593, 17627, 169, 3, 25, "Print",ExpressionUUID->"3a6ef98c-d6bc-4e37-b45a-d311fc82ac45"],
35190	Cell[665765, 17632, 174, 3, 25, "Print",ExpressionUUID->"57bd99e3-edf5-4b87-b146-6723f166d6ab"],
35191	Cell[665942, 17637, 203, 3, 25, "Print",ExpressionUUID->"8b654083-6f2f-4e68-9ab4-e30db00123b5"],
35192	Cell[666148, 17642, 206, 4, 25, "Print",ExpressionUUID->"a9f6bd15-1da7-4f71-8204-9a81dcce4845"],
35193	Cell[666357, 17648, 158, 3, 25, "Print",ExpressionUUID->"33ffb23a-f3e5-429a-8ca2-d665c31337f5"],
35194	Cell[666518, 17653, 188, 3, 25, "Print",ExpressionUUID->"1a03eaa9-bec4-452f-acaa-460a124a68e1"],
35195	Cell[666709, 17658, 191, 3, 25, "Print",ExpressionUUID->"da24c10f-a287-48af-a37d-6d828bc9b35a"],
35196	Cell[666903, 17663, 189, 3, 25, "Print",ExpressionUUID->"ffaf3889-a11f-49b3-ba66-acb93543fd91"],
35197	Cell[667095, 17668, 362, 8, 48, "Print",ExpressionUUID->"a511ea96-fa57-44c9-8bc4-9a7b8e8bb510"]
35198	}, Open ]]
35199	}, Open ]],
35200	Cell[667484, 17680, 1585, 34, 55, "Input",ExpressionUUID->"d8121a6f-3cad-4d93-b5bd-184be025ceb2"],
35201	Cell[CellGroupData[{
35202	Cell[669094, 17718, 676, 19, 58, "Subsection",ExpressionUUID->"da7aca8f-5ff2-4ac5-b4ac-426f93a9e269"],
35203	Cell[669773, 17739, 591, 14, 33, "Input",ExpressionUUID->"d38da7be-c5b0-4382-9aad-a314c37d4d90"],
35204	Cell[CellGroupData[{
35205	Cell[670389, 17757, 385, 11, 31, "Input",ExpressionUUID->"2cb79f04-a2d5-4b48-be08-ad29bac9444a"],
35206	Cell[CellGroupData[{
35207	Cell[670799, 17772, 267, 4, 25, "Print",ExpressionUUID->"37ed4f39-6df0-4b02-b19c-e7822342c8a3"],
35208	Cell[671069, 17778, 433, 9, 25, "Print",ExpressionUUID->"56245639-6605-43ff-9a04-af8496eaa3d2"],
35209	Cell[671505, 17789, 428, 8, 25, "Print",ExpressionUUID->"0562b896-63a1-430e-be54-c7119e6f2d50"]
35210	}, Open ]]
35211	}, Open ]],
35212	Cell[CellGroupData[{
35213	Cell[671982, 17803, 1848, 37, 121, "Input",ExpressionUUID->"8cdf3438-31d9-403c-8d4c-511890c5b98f"],
35214	Cell[673833, 17842, 2361, 62, 65, "Output",ExpressionUUID->"61720b74-9f1b-4f77-aa6b-6609fe09aa3b"],
35215	Cell[676197, 17906, 2534, 68, 67, "Output",ExpressionUUID->"67b47466-0e43-4768-855c-f0e6ce5983df"],
35216	Cell[678734, 17976, 2864, 79, 74, "Output",ExpressionUUID->"a4f1b857-58dc-4347-bb91-3b4c1a2b92ae"]
35217	}, Open ]],
35218	Cell[CellGroupData[{
35219	Cell[681635, 18060, 953, 27, 122, "Input",ExpressionUUID->"d92b2f3c-8fe7-4b17-82db-57bc6f21d612"],
35220	Cell[682591, 18089, 1481, 40, 65, "Output",ExpressionUUID->"e9e5386c-f574-43ad-a661-347ff2f8599c"],
35221	Cell[684075, 18131, 2250, 62, 67, "Output",ExpressionUUID->"833f53da-c00f-4ca7-b2ef-85ed4adbaa95"],
35222	Cell[686328, 18195, 2280, 67, 83, "Output",ExpressionUUID->"bbd4eadb-288f-485c-8b5b-57584242389e"]
35223	}, Open ]],
35224	Cell[688623, 18265, 152, 3, 31, "Input",ExpressionUUID->"1acac1b7-3bb3-4160-84fb-106a33151bc4"],
35225	Cell[688778, 18270, 434, 12, 31, "Input",ExpressionUUID->"1c853cd4-ff9d-4d3a-aad1-3726a15729c7"],
35226	Cell[CellGroupData[{
35227	Cell[689237, 18286, 1570, 33, 121, "Input",ExpressionUUID->"741599c4-7b04-4558-b0a3-301129b4eb83"],
35228	Cell[690810, 18321, 3334, 71, 67, "Output",ExpressionUUID->"c2248327-b512-4dd3-a344-9c8116778bb1"],
35229	Cell[694147, 18394, 3814, 84, 69, "Output",ExpressionUUID->"7f59d699-8db2-48a4-a9ae-6ae48d87921e"],
35230	Cell[697964, 18480, 3902, 91, 66, "Output",ExpressionUUID->"90226dca-91a1-4958-9353-4498deb9a429"]
35231	}, Open ]],
35232	Cell[CellGroupData[{
35233	Cell[701903, 18576, 947, 27, 122, "Input",ExpressionUUID->"5a704735-947a-4111-9360-569a3ed54f31"],
35234	Cell[702853, 18605, 1403, 39, 67, "Output",ExpressionUUID->"865b92e0-edb6-4e31-a8e9-13ea43b9b57a"],
35235	Cell[704259, 18646, 1897, 52, 69, "Output",ExpressionUUID->"f41d64e9-814a-4e2f-9d97-38607bbfd593"],
35236	Cell[706159, 18700, 1971, 60, 66, "Output",ExpressionUUID->"19aff24d-e1a1-4397-ad95-def9af12ef2e"]
35237	}, Open ]]
35238	}, Closed]],
35239	Cell[CellGroupData[{
35240	Cell[708179, 18766, 170, 2, 39, "Subsection",ExpressionUUID->"bb452cb1-90e8-4d21-a6a1-be0c906b6138"],
35241	Cell[CellGroupData[{
35242	Cell[708374, 18772, 754, 19, 33, "Input",ExpressionUUID->"c4dfb7cd-bc8c-4bd7-9073-928d9428d08a"],
35243	Cell[709131, 18793, 3265, 91, 69, "Output",ExpressionUUID->"92329e6c-0115-4967-bcda-b9a502a8da3e"]
35244	}, Open ]],
35245	Cell[CellGroupData[{
35246	Cell[712433, 18889, 190, 4, 31, "Input",ExpressionUUID->"57aef484-bcba-42a4-9443-0a242a6dcd77"],
35247	Cell[712626, 18895, 436, 11, 67, "Output",ExpressionUUID->"776446d5-a2ac-4d35-9015-49d0c9536de9"]
35248	}, Open ]],
35249	Cell[CellGroupData[{
35250	Cell[713099, 18911, 684, 16, 39, "Input",ExpressionUUID->"c8f651ab-9215-440c-b819-5c00288aceb5"],
35251	Cell[713786, 18929, 5873, 164, 124, "Output",ExpressionUUID->"f7ccc77e-61ad-487b-af92-1175735b9a01"]
35252	}, Open ]],
35253	Cell[719674, 19096, 195, 4, 37, "Text",ExpressionUUID->"8912e739-e794-4794-a5fc-1ee44a8e1f8d"],
35254	Cell[CellGroupData[{
35255	Cell[719894, 19104, 602, 17, 75, "Input",ExpressionUUID->"ca4e339a-c206-4c6b-b86f-4a3f455bb65b"],
35256	Cell[720499, 19123, 1141, 32, 69, "Output",ExpressionUUID->"21232009-6990-4351-b600-bf76859f9d5b"],
35257	Cell[721643, 19157, 1458, 43, 77, "Output",ExpressionUUID->"25beed71-b4f7-46f3-a44b-4fc6452cda5d"]
35258	}, Open ]],
35259	Cell[723116, 19203, 503, 14, 39, "Text",ExpressionUUID->"89d2afa0-d588-4ddd-be89-22d65f121985"],
35260	Cell[CellGroupData[{
35261	Cell[723644, 19221, 469, 12, 57, "Input",ExpressionUUID->"71b4a871-4662-4892-8724-43f5b3801af7"],
35262	Cell[724116, 19235, 1320, 39, 65, "Output",ExpressionUUID->"18e03327-6841-4bfe-a33a-3594c060d67f"]
35263	}, Open ]]
35264	}, Closed]],
35265	Cell[CellGroupData[{
35266	Cell[725485, 19280, 529, 12, 39, "Subsection",ExpressionUUID->"910851a8-1951-472b-b9fd-714bfa29aaee"],
35267	Cell[726017, 19294, 271, 8, 31, "Input",ExpressionUUID->"17eca746-15e8-4279-b473-98e11f70fe60"],
35268	Cell[CellGroupData[{
35269	Cell[726313, 19306, 1011, 20, 31, "Input",ExpressionUUID->"6f0a0c5a-5296-4b29-a918-f9bb4ea11a12"],
35270	Cell[CellGroupData[{
35271	Cell[727349, 19330, 477, 12, 25, "Print",ExpressionUUID->"95466fc9-09bb-47f8-b94c-34883bce6a33"],
35272	Cell[727829, 19344, 232, 4, 25, "Print",ExpressionUUID->"9de6660d-20bf-4088-8958-8c1ace8be251"],
35273	Cell[728064, 19350, 414, 9, 25, "Print",ExpressionUUID->"4c0e9376-542a-4591-8892-0a300e73a892"],
35274	Cell[728481, 19361, 265, 5, 25, "Print",ExpressionUUID->"d6461c55-f1bf-45d1-933d-18caa7955cf3"],
35275	Cell[728749, 19368, 741, 16, 25, "Print",ExpressionUUID->"01890382-bf44-4a1d-9fb9-ba239878e20e"],
35276	Cell[729493, 19386, 345, 8, 25, "Print",ExpressionUUID->"9a4cd6c7-b8f0-46dc-9f0e-cdf242aa9715"]
35277	}, Open ]],
35278	Cell[729853, 19397, 19425, 483, 251, "Output",ExpressionUUID->"62f51c5b-3b9f-4ac8-9915-01abb7bb8b27"]
35279	}, Open ]],
35280	Cell[749293, 19883, 105, 1, 35, "Text",ExpressionUUID->"c69b8076-c40b-449d-a3c2-d3c753445c15"],
35281	Cell[CellGroupData[{
35282	Cell[749423, 19888, 959, 23, 98, "Input",ExpressionUUID->"956548b5-e5ca-4d41-bf0b-2ddfda57957b"],
35283	Cell[750385, 19913, 1881, 51, 64, "Output",ExpressionUUID->"f8ca07e0-7d7b-47e8-8408-a0bb4aaff893"],
35284	Cell[752269, 19966, 1626, 43, 67, "Output",ExpressionUUID->"2ad48f67-3d67-49ef-9332-b7d25c1b9691"],
35285	Cell[753898, 20011, 1835, 50, 74, "Output",ExpressionUUID->"cf12f7a9-3181-4243-a52d-846f9c2a29d9"]
35286	}, Open ]]
35287	}, Closed]],
35288	Cell[CellGroupData[{
35289	Cell[755782, 20067, 114, 1, 39, "Subsection",ExpressionUUID->"8d930718-bacb-45c1-b791-4d2595d7ee00"],
35290	Cell[755899, 20070, 403, 10, 31, "Input",ExpressionUUID->"f6406d70-e063-4ce0-a098-aa416939fcbb"],
35291	Cell[CellGroupData[{
35292	Cell[756327, 20084, 441, 12, 31, "Input",ExpressionUUID->"4ac2a7d3-017e-4ba5-b3c5-d43cadb35fa0"],
35293	Cell[CellGroupData[{
35294	Cell[756793, 20100, 502, 12, 25, "Print",ExpressionUUID->"bdc1df9f-0c98-4814-977b-e588ee7a975d"],
35295	Cell[757298, 20114, 257, 4, 25, "Print",ExpressionUUID->"fefb21d1-8718-43e8-a983-f009db858a3c"],
35296	Cell[757558, 20120, 440, 9, 25, "Print",ExpressionUUID->"8e8adfd9-341e-486e-b168-0a8fcd092dd2"],
35297	Cell[758001, 20131, 291, 5, 25, "Print",ExpressionUUID->"5a478d47-e91b-40d6-8282-67698dfa94a7"],
35298	Cell[758295, 20138, 767, 16, 25, "Print",ExpressionUUID->"0bb7fb20-6637-4207-a982-b711bb2d1939"],
35299	Cell[759065, 20156, 373, 8, 25, "Print",ExpressionUUID->"b0949438-bf90-44a6-bc86-7c7bd1bce09d"]
35300	}, Open ]],
35301	Cell[759453, 20167, 29407, 771, 195, "Output",ExpressionUUID->"db154988-6746-400b-a15e-6b48bfc73c99"]
35302	}, Open ]],
35303	Cell[788875, 20941, 122, 1, 35, "Text",ExpressionUUID->"4ebea653-e5a6-45ee-b018-d10176c3647f"],
35304	Cell[CellGroupData[{
35305	Cell[789022, 20946, 449, 14, 31, "Input",ExpressionUUID->"f61e1c1b-cb8f-4ba2-ab75-bb76fc7a164f"],
35306	Cell[789474, 20962, 622, 12, 25, "Print",ExpressionUUID->"6cdf3004-e094-44eb-b573-2d59c188b8e2"],
35307	Cell[790099, 20976, 14764, 397, 193, "Output",ExpressionUUID->"9c8394cc-566b-43e9-b5af-e5b5668bef32"]
35308	}, Open ]],
35309	Cell[CellGroupData[{
35310	Cell[804900, 21378, 306, 8, 31, "Input",ExpressionUUID->"a4f57594-b9d7-4b32-8d49-158e60dedf59"],
35311	Cell[805209, 21388, 11162, 280, 193, "Output",ExpressionUUID->"fab299a7-4e33-4034-b07d-42c249da137e"]
35312	}, Open ]]
35313	}, Closed]],
35314	Cell[CellGroupData[{
35315	Cell[816420, 21674, 149, 2, 39, "Subsection",ExpressionUUID->"361780bf-72f8-4321-9932-31bab05f6e92"],
35316	Cell[CellGroupData[{
35317	Cell[816594, 21680, 634, 12, 31, "Input",ExpressionUUID->"9a0fa36d-43ea-4879-b04c-fa56f0e61e8b"],
35318	Cell[CellGroupData[{
35319	Cell[817253, 21696, 211, 4, 25, "Print",ExpressionUUID->"fe58ae2a-0a00-4299-a7cd-5b62d48fa2a3"],
35320	Cell[817467, 21702, 432, 11, 25, "Print",ExpressionUUID->"f509e0f3-3391-45ca-9121-afd085715afa"],
35321	Cell[817902, 21715, 184, 2, 25, "Print",ExpressionUUID->"b3995345-bacc-4086-80e9-430553272a59"],
35322	Cell[818089, 21719, 369, 8, 25, "Print",ExpressionUUID->"fdd6d819-4417-4d2f-8dc8-b5e84b79adb4"],
35323	Cell[818461, 21729, 222, 4, 25, "Print",ExpressionUUID->"1f2193ab-443a-4270-b47f-039f26eb4c88"],
35324	Cell[818686, 21735, 701, 15, 25, "Print",ExpressionUUID->"dce2c62e-85f8-4718-9682-43973eae23b5"],
35325	Cell[819390, 21752, 302, 7, 25, "Print",ExpressionUUID->"e412859f-ef88-4675-b78b-1212f914ff4d"],
35326	Cell[819695, 21761, 656, 14, 25, "Print",ExpressionUUID->"6a934348-38da-49b4-9ee8-6c8cdfadb4ba"],
35327	Cell[820354, 21777, 201, 3, 25, "Print",ExpressionUUID->"560cedcc-f621-4d7b-828c-94a83e4afdfd"],
35328	Cell[820558, 21782, 468, 12, 25, "Print",ExpressionUUID->"3f113df1-b12b-494f-a060-e52987a926e1"],
35329	Cell[821029, 21796, 422, 11, 25, "Print",ExpressionUUID->"4be6fbc1-0872-4bfd-b616-09128544de59"],
35330	Cell[821454, 21809, 398, 8, 25, "Print",ExpressionUUID->"d8a7e57c-72d7-4b1b-b52c-4acea451b74e"],
35331	Cell[821855, 21819, 424, 11, 25, "Print",ExpressionUUID->"6a0a4864-bf59-4ca4-928a-c24e752cd305"],
35332	Cell[822282, 21832, 378, 8, 25, "Print",ExpressionUUID->"1853c9ec-5b85-4028-9864-c9e559d7d17c"],
35333	Cell[822663, 21842, 184, 3, 25, "Print",ExpressionUUID->"0f71ffac-d503-4cfd-8fec-aab8232ee751"],
35334	Cell[822850, 21847, 210, 4, 25, "Print",ExpressionUUID->"5a2d8c71-0f8d-44e4-b3e0-2099d6976b7e"],
35335	Cell[823063, 21853, 399, 8, 25, "Print",ExpressionUUID->"ced99ad0-a956-4681-9161-e7b7c3558b11"],
35336	Cell[823465, 21863, 560, 11, 25, "Print",ExpressionUUID->"2a05df8b-f65a-4c9e-90fd-7a57dd319371"],
35337	Cell[824028, 21876, 177, 2, 25, "Print",ExpressionUUID->"c0840fe8-5355-4dea-b2fd-92806bf20485"],
35338	Cell[824208, 21880, 553, 12, 70, "Print",ExpressionUUID->"9c6dff32-4582-4748-b4e4-e49af40b4f7b"],
35339	Cell[824764, 21894, 165, 3, 25, "Print",ExpressionUUID->"e893785c-29d4-41f1-aacd-5d2c394190ce"]
35340	}, Open ]]
35341	}, Open ]]
35342	}, Closed]]
35343	}, Closed]],
35344	Cell[CellGroupData[{
35345	Cell[825002, 21905, 568, 8, 54, "Section",ExpressionUUID->"dff18824-64fe-402e-a2b6-ffdd05487f84"],
35346	Cell[825573, 21915, 624, 13, 55, "Input",ExpressionUUID->"fffc0f3d-e195-4db5-9b42-fe30696ea923"],
35347	Cell[CellGroupData[{
35348	Cell[826222, 21932, 2447, 47, 78, "Input",ExpressionUUID->"c96967fe-d0ce-4def-9de2-967cfa4f2c84"],
35349	Cell[CellGroupData[{
35350	Cell[828694, 21983, 180, 3, 25, "Print",ExpressionUUID->"9871ae34-7d47-499b-b8f6-2767c6244486"],
35351	Cell[828877, 21988, 593, 13, 25, "Print",ExpressionUUID->"621a76ce-3ad5-48ff-aeee-05184d1f5cb5"],
35352	Cell[829473, 22003, 200, 3, 25, "Print",ExpressionUUID->"e9bae040-672c-46ca-885d-f8d852cd8006"],
35353	Cell[829676, 22008, 189, 3, 25, "Print",ExpressionUUID->"1ac0528a-9197-4eee-a030-ddf20308ae0c"],
35354	Cell[829868, 22013, 304, 7, 25, "Print",ExpressionUUID->"e99aa4aa-410c-4ac9-89f9-b0113d8dd468"],
35355	Cell[830175, 22022, 169, 3, 25, "Print",ExpressionUUID->"f6c609b0-fbbd-4007-9e74-c22cb884ddc9"],
35356	Cell[830347, 22027, 176, 3, 25, "Print",ExpressionUUID->"b584af75-12d7-4525-8c88-e7c83d3e492a"],
35357	Cell[830526, 22032, 201, 3, 25, "Print",ExpressionUUID->"c932331d-9277-4f50-869e-6eacd129644b"],
35358	Cell[830730, 22037, 206, 4, 25, "Print",ExpressionUUID->"acb1057f-b5b6-436f-bb1c-c0cbc406a53a"],
35359	Cell[830939, 22043, 155, 2, 25, "Print",ExpressionUUID->"f343e017-8731-48df-baf6-22f4a668f317"],
35360	Cell[831097, 22047, 188, 3, 25, "Print",ExpressionUUID->"e01db5e8-91cd-4c7b-9c32-8eff4fffaf00"],
35361	Cell[831288, 22052, 193, 3, 25, "Print",ExpressionUUID->"70b9a06c-b121-4f7e-8a65-03d28c1475ca"],
35362	Cell[831484, 22057, 191, 3, 25, "Print",ExpressionUUID->"dee15fcd-0aa5-44f8-8afa-ea2e5acb9ab6"],
35363	Cell[831678, 22062, 359, 7, 48, "Print",ExpressionUUID->"1a58d854-59cf-4b03-ad20-ca69c77febc4"]
35364	}, Open ]]
35365	}, Open ]],
35366	Cell[832064, 22073, 1574, 34, 55, "Input",ExpressionUUID->"3b334ef7-fec0-44dd-baaf-30b43ebbdc21"],
35367	Cell[CellGroupData[{
35368	Cell[833663, 22111, 566, 17, 58, "Subsection",ExpressionUUID->"d7f51e85-b244-4e02-bbdf-c79efb3815fd"],
35369	Cell[834232, 22130, 522, 11, 31, "Input",ExpressionUUID->"b64a72d8-cd0b-46cf-ab1f-2d15f02058f7"],
35370	Cell[CellGroupData[{
35371	Cell[834779, 22145, 385, 11, 31, "Input",ExpressionUUID->"e4f2da7e-ab0c-42b3-b480-8274c60b7576"],
35372	Cell[CellGroupData[{
35373	Cell[835189, 22160, 264, 3, 25, "Print",ExpressionUUID->"ac9873ce-1826-4945-bbe3-eaf6b6a12f79"],
35374	Cell[835456, 22165, 433, 9, 25, "Print",ExpressionUUID->"0b8cc4d1-cf59-4340-90e5-a8b14c334e61"],
35375	Cell[835892, 22176, 431, 9, 25, "Print",ExpressionUUID->"9484a446-b4e6-43ce-982b-8bab9f4f93ae"]
35376	}, Open ]]
35377	}, Open ]],
35378	Cell[CellGroupData[{
35379	Cell[836372, 22191, 1801, 36, 121, "Input",ExpressionUUID->"0646bcf0-e2c3-48ad-99b1-16feea6b5f9e"],
35380	Cell[838176, 22229, 2361, 62, 65, "Output",ExpressionUUID->"2c969cc3-8325-4339-b0fb-19ffa6d99d4d"],
35381	Cell[840540, 22293, 3223, 87, 70, "Output",ExpressionUUID->"d0b24693-b490-4bf2-8c24-1fb40eb65870"],
35382	Cell[843766, 22382, 3628, 102, 82, "Output",ExpressionUUID->"3600052c-2748-4e90-a1f9-3ca2e60228a9"]
35383	}, Open ]],
35384	Cell[CellGroupData[{
35385	Cell[847431, 22489, 905, 26, 122, "Input",ExpressionUUID->"f4980fd6-ea42-4d15-8ae6-4f5314e10508"],
35386	Cell[848339, 22517, 1481, 40, 65, "Output",ExpressionUUID->"7d60860e-b7a8-4a97-83cc-60c42b341b73"],
35387	Cell[849823, 22559, 1954, 56, 70, "Output",ExpressionUUID->"5395b4f2-1183-453f-90ca-d4dee311aaee"],
35388	Cell[851780, 22617, 2642, 78, 82, "Output",ExpressionUUID->"7fed0cfe-dc93-4b40-9ebb-974d879698fb"]
35389	}, Open ]],
35390	Cell[854437, 22698, 152, 3, 31, "Input",ExpressionUUID->"b9f9880a-8747-4371-9cd2-a83ae65c4142"],
35391	Cell[854592, 22703, 434, 12, 31, "Input",ExpressionUUID->"191d3bc4-eea9-4e3a-8e0a-b2107197a77b"],
35392	Cell[CellGroupData[{
35393	Cell[855051, 22719, 1291, 25, 78, "Input",ExpressionUUID->"07590436-e350-4503-b484-c7316c8eadb3"],
35394	Cell[856345, 22746, 3308, 71, 67, "Output",ExpressionUUID->"ada966bb-c6cf-46f8-8bd5-7b8244de6740"],
35395	Cell[859656, 22819, 2544, 49, 40, "Output",ExpressionUUID->"0f2a2f73-7aab-4ab5-b863-2c74130402cd"]
35396	}, Open ]],
35397	Cell[CellGroupData[{
35398	Cell[862237, 22873, 901, 26, 122, "Input",ExpressionUUID->"c51cb444-efd9-4b66-a54c-65cec7c0eeda"],
35399	Cell[863141, 22901, 1408, 39, 67, "Output",ExpressionUUID->"9bed9348-e530-4b9f-9345-0b3b965b5513"],
35400	Cell[864552, 22942, 1084, 31, 65, "Output",ExpressionUUID->"76b4b571-a50e-468b-9485-16fd645b522f"],
35401	Cell[865639, 22975, 955, 28, 62, "Output",ExpressionUUID->"c3c86c78-c430-42ff-823c-c7e36701aa97"]
35402	}, Open ]]
35403	}, Closed]],
35404	Cell[CellGroupData[{
35405	Cell[866643, 23009, 212, 3, 39, "Subsection",ExpressionUUID->"da0cc891-436c-4c15-8ef5-eaf946465a26"],
35406	Cell[CellGroupData[{
35407	Cell[866880, 23016, 682, 16, 150, "Input",ExpressionUUID->"eb669595-383a-47d0-93fb-d6ab3f503353"],
35408	Cell[867565, 23034, 3264, 91, 70, "Output",ExpressionUUID->"75cee970-0bd3-4256-9cdc-62ea5dd43d1e"]
35409	}, Open ]],
35410	Cell[CellGroupData[{
35411	Cell[870866, 23130, 190, 4, 150, "Input",ExpressionUUID->"8b188c78-d7e1-417e-95d0-341977fb02a0"],
35412	Cell[871059, 23136, 434, 11, 70, "Output",ExpressionUUID->"f530183e-92e4-476f-b2b0-3d4fe26e5f64"]
35413	}, Open ]],
35414	Cell[CellGroupData[{
35415	Cell[871530, 23152, 684, 16, 168, "Input",ExpressionUUID->"cc5d8ea1-51f8-4072-ac64-be73d58c6c44"],
35416	Cell[872217, 23170, 5871, 164, 70, "Output",ExpressionUUID->"e0a67780-11b8-4e08-8da3-168e5ec295ac"]
35417	}, Open ]],
35418	Cell[878103, 23337, 246, 5, 158, "Text",ExpressionUUID->"f0600255-46b3-495d-a466-fb9950e91061"],
35419	Cell[CellGroupData[{
35420	Cell[878374, 23346, 554, 16, 366, "Input",ExpressionUUID->"4d30f3d1-0aa2-453c-87ad-29ae841bd168"],
35421	Cell[878931, 23364, 1117, 32, 70, "Output",ExpressionUUID->"8f9c977d-cd52-403d-b3ba-7c916a698243"],
35422	Cell[880051, 23398, 1434, 43, 70, "Output",ExpressionUUID->"da17b81e-22fb-4d26-a571-6d3f2540427c"]
35423	}, Open ]],
35424	Cell[881500, 23444, 503, 14, 168, "Text",ExpressionUUID->"54db3760-c0d7-4b94-8528-713d08feaadf"],
35425	Cell[CellGroupData[{
35426	Cell[882028, 23462, 425, 12, 258, "Input",ExpressionUUID->"0ab581fa-70ab-495d-91a8-d75e3b1a772a"],
35427	Cell[882456, 23476, 1321, 39, 70, "Output",ExpressionUUID->"7b8855f3-f575-4677-923e-66db27b5d9f4"]
35428	}, Open ]]
35429	}, Closed]],
35430	Cell[CellGroupData[{
35431	Cell[883826, 23521, 411, 9, 39, "Subsection",ExpressionUUID->"a9fa7c86-140c-4ae9-9148-0fbbe6d8224a"],
35432	Cell[884240, 23532, 271, 8, 31, "Input",ExpressionUUID->"6f10f71f-a5a0-427b-b5a2-ba70df43c36a"],
35433	Cell[CellGroupData[{
35434	Cell[884536, 23544, 1011, 20, 31, "Input",ExpressionUUID->"3997fa46-2a4e-41bf-b27f-7da19b870f74"],
35435	Cell[CellGroupData[{
35436	Cell[885572, 23568, 430, 11, 25, "Print",ExpressionUUID->"c4569476-9fe1-4b07-8d16-8b3464561185"],
35437	Cell[886005, 23581, 187, 3, 25, "Print",ExpressionUUID->"36abba1e-9dcb-4a64-a6f9-3a60c6108cc3"],
35438	Cell[886195, 23586, 367, 8, 25, "Print",ExpressionUUID->"90cf04f0-40cc-44d5-91b0-457f6809b264"],
35439	Cell[886565, 23596, 218, 4, 25, "Print",ExpressionUUID->"403d2679-18b7-4ce6-a021-f47f85ffdb31"],
35440	Cell[886786, 23602, 694, 15, 25, "Print",ExpressionUUID->"048a50da-7fa9-4634-877b-856ec4bc5088"],
35441	Cell[887483, 23619, 298, 7, 25, "Print",ExpressionUUID->"f5b06563-65bc-4222-8b53-c4f5652d7461"]
35442	}, Open ]],
35443	Cell[887796, 23629, 30766, 751, 254, "Output",ExpressionUUID->"4bedfd76-07ce-498a-8592-3667df2434b1"]
35444	}, Open ]],
35445	Cell[918577, 24383, 105, 1, 35, "Text",ExpressionUUID->"92a37850-ba58-4bc9-b09a-98ed85b564dd"],
35446	Cell[CellGroupData[{
35447	Cell[918707, 24388, 915, 23, 98, "Input",ExpressionUUID->"a7ee4570-6761-452c-ba60-994e4e00c1d7"],
35448	Cell[919625, 24413, 1907, 52, 64, "Output",ExpressionUUID->"01b27544-4fa5-4388-93de-1d4d2fbf955a"],
35449	Cell[921535, 24467, 1655, 44, 67, "Output",ExpressionUUID->"f220256c-6adf-4e6c-a530-09a498818b68"],
35450	Cell[923193, 24513, 1859, 51, 74, "Output",ExpressionUUID->"a5626ab7-6381-4fa2-a252-58993c83a75a"]
35451	}, Open ]],
35452	Cell[925067, 24567, 132, 1, 35, "Text",ExpressionUUID->"d6edb61e-86ee-45bc-a4f9-f67e175f7e31"],
35453	Cell[CellGroupData[{
35454	Cell[925224, 24572, 779, 21, 31, "Input",ExpressionUUID->"1747e576-2965-4296-8867-6436cdbea2da"],
35455	Cell[926006, 24595, 674, 13, 25, "Print",ExpressionUUID->"f5a24736-3f70-415e-b7f6-011139582649"],
35456	Cell[926683, 24610, 72768, 1749, 527, "Output",ExpressionUUID->"af0520b6-893d-4341-aa7e-388223c7d241"]
35457	}, Open ]]
35458	}, Closed]],
35459	Cell[CellGroupData[{
35460	Cell[999500, 26365, 114, 1, 39, "Subsection",ExpressionUUID->"076a5fbe-2611-4fde-9354-2af3ac66b1e6"],
35461	Cell[999617, 26368, 519, 11, 31, "Input",ExpressionUUID->"8d699341-7e16-4b0e-ad8b-322b805ea828"],
35462	Cell[CellGroupData[{
35463	Cell[1000161, 26383, 441, 12, 31, "Input",ExpressionUUID->"0cf1f12e-c836-4def-8403-813cdfd899a8"],
35464	Cell[CellGroupData[{
35465	Cell[1000627, 26399, 621, 14, 25, "Print",ExpressionUUID->"af8fdc55-15d1-478e-845e-9b7392b194c6"],
35466	Cell[1001251, 26415, 376, 6, 25, "Print",ExpressionUUID->"ca0caffd-f374-495a-9cd9-845682e93750"],
35467	Cell[1001630, 26423, 560, 11, 25, "Print",ExpressionUUID->"da0ede2a-bf73-4cfe-b788-2ad5d54321da"],
35468	Cell[1002193, 26436, 409, 7, 25, "Print",ExpressionUUID->"21cf9ff6-635a-48a7-a784-fdda062db8ee"],
35469	Cell[1002605, 26445, 885, 18, 25, "Print",ExpressionUUID->"e383cf82-adbd-47a3-b2fc-4788544d52ad"],
35470	Cell[1003493, 26465, 489, 10, 25, "Print",ExpressionUUID->"26ebdd16-5cab-43e5-92e3-1fc0d1d2ae43"]
35471	}, Open ]],
35472	Cell[1003997, 26478, 40421, 1066, 195, "Output",ExpressionUUID->"1ee6735c-d47d-4e76-a4df-94f672d19b2e"]
35473	}, Open ]],
35474	Cell[1044433, 27547, 122, 1, 35, "Text",ExpressionUUID->"f11d3b1c-7fca-48ba-bfd2-86c7d02039e3"],
35475	Cell[CellGroupData[{
35476	Cell[1044580, 27552, 449, 14, 31, "Input",ExpressionUUID->"c2dbceb0-16ea-4898-86d0-98cbf49e5e18"],
35477	Cell[1045032, 27568, 671, 13, 25, "Print",ExpressionUUID->"f9b3db37-f64b-4871-bc5f-98f260585624"],
35478	Cell[1045706, 27583, 12372, 332, 193, "Output",ExpressionUUID->"3bf6baa3-2b99-486b-b8cf-f91058cb01b1"]
35479	}, Open ]],
35480	Cell[CellGroupData[{
35481	Cell[1058115, 27920, 260, 7, 31, "Input",ExpressionUUID->"4467bda6-b4af-4f27-a728-6d435b1b6187"],
35482	Cell[1058378, 27929, 7468, 195, 193, "Output",ExpressionUUID->"77470f04-9067-4899-84a8-a00c3c6441ca"]
35483	}, Open ]]
35484	}, Closed]],
35485	Cell[CellGroupData[{
35486	Cell[1065895, 28130, 152, 2, 39, "Subsection",ExpressionUUID->"89e4a0a7-8184-44fc-b515-32615e8c7f00"],
35487	Cell[1066050, 28134, 422, 10, 74, "Text",ExpressionUUID->"8a2a47a4-4108-4c4a-a5e1-addacf7c3b77"],
35488	Cell[CellGroupData[{
35489	Cell[1066497, 28148, 884, 15, 31, "Input",ExpressionUUID->"cc7bade2-5cef-447d-9aa6-0b2579c429df"],
35490	Cell[CellGroupData[{
35491	Cell[1067406, 28167, 182, 3, 25, "Print",ExpressionUUID->"c6b651fd-e9d5-4d2d-bf50-1aa838c44a9e"],
35492	Cell[1067591, 28172, 410, 11, 25, "Print",ExpressionUUID->"466f3660-57b9-4144-a59f-de136f000d27"],
35493	Cell[1068004, 28185, 163, 3, 25, "Print",ExpressionUUID->"f9b24c56-9d5a-4ffd-9e01-ed77a07c527b"],
35494	Cell[1068170, 28190, 345, 8, 25, "Print",ExpressionUUID->"1e3a564e-b470-450e-b8ea-f1712dffc6d7"],
35495	Cell[1068518, 28200, 387, 9, 25, "Print",ExpressionUUID->"7e728990-ae42-48cf-9266-3959ba3020d6"],
35496	Cell[1068908, 28211, 196, 4, 25, "Print",ExpressionUUID->"6d288fcf-daad-4814-8304-88d09c9d542c"],
35497	Cell[1069107, 28217, 677, 15, 25, "Print",ExpressionUUID->"b3a04723-19ea-4e64-b733-5341e2c22f10"],
35498	Cell[1069787, 28234, 278, 7, 25, "Print",ExpressionUUID->"2ac29189-c4b0-49d7-995b-4792bcb4f422"],
35499	Cell[1070068, 28243, 632, 14, 25, "Print",ExpressionUUID->"7402432c-6115-4e25-b861-118b3c571326"],
35500	Cell[1070703, 28259, 177, 3, 25, "Print",ExpressionUUID->"2217cda5-68ec-46a0-932f-f5440268644f"],
35501	Cell[1070883, 28264, 444, 12, 25, "Print",ExpressionUUID->"0b30da22-1710-4612-955b-69d540439aee"],
35502	Cell[1071330, 28278, 395, 10, 25, "Print",ExpressionUUID->"b093671d-b197-4ee5-9e74-2383dacaa8ba"],
35503	Cell[1071728, 28290, 380, 8, 25, "Print",ExpressionUUID->"3fb9db8e-3b57-4556-9e67-aeef462795c3"],
35504	Cell[1072111, 28300, 398, 11, 25, "Print",ExpressionUUID->"86609b49-c43d-41a7-ad91-c5c9f5dcc716"],
35505	Cell[1072512, 28313, 358, 8, 25, "Print",ExpressionUUID->"801350a6-478e-4c05-802c-870f6b50c428"],
35506	Cell[1072873, 28323, 162, 3, 25, "Print",ExpressionUUID->"9f536787-6a9b-4382-a7c8-0652b29adbf7"],
35507	Cell[1073038, 28328, 186, 4, 25, "Print",ExpressionUUID->"e65d279f-52fb-4555-a769-274cd2fc8d18"],
35508	Cell[1073227, 28334, 375, 8, 25, "Print",ExpressionUUID->"408eaf45-8fac-4b68-9f99-02c9fb59e1f5"],
35509	Cell[1073605, 28344, 536, 11, 25, "Print",ExpressionUUID->"e193eb79-ead1-4ff1-b596-232da0f8f01e"],
35510	Cell[1074144, 28357, 156, 3, 25, "Print",ExpressionUUID->"4708d449-d5f1-4193-a004-285528f82b1d"],
35511	Cell[1074303, 28362, 531, 12, 70, "Print",ExpressionUUID->"74d50938-074f-435c-b316-0cdebbcb254f"],
35512	Cell[1074837, 28376, 141, 3, 25, "Print",ExpressionUUID->"0c850f48-3937-4a59-ba98-2548cca7786d"]
35513	}, Open ]]
35514	}, Open ]]
35515	}, Open ]]
35516	}, Closed]],
35517	Cell[CellGroupData[{
35518	Cell[1075051, 28387, 611, 9, 54, "Section",ExpressionUUID->"576f30b1-09bd-4c84-a3e3-3903c7acc668"],
35519	Cell[1075665, 28398, 637, 13, 55, "Input",ExpressionUUID->"b8cfa8ee-c29c-499f-9d58-eb97f4753caf"],
35520	Cell[CellGroupData[{
35521	Cell[1076327, 28415, 2449, 47, 101, "Input",ExpressionUUID->"ca147f48-49c0-46ca-94e0-5a6f74474c82"],
35522	Cell[CellGroupData[{
35523	Cell[1078801, 28466, 182, 3, 25, "Print",ExpressionUUID->"8f177e06-a158-42cb-b4c8-06b202a26ba1"],
35524	Cell[1078986, 28471, 632, 15, 25, "Print",ExpressionUUID->"39469039-2c6b-4a67-a136-103039ec695a"],
35525	Cell[1079621, 28488, 202, 3, 25, "Print",ExpressionUUID->"3eb2d192-6b55-4bad-a65c-9d904730d64a"],
35526	Cell[1079826, 28493, 189, 3, 25, "Print",ExpressionUUID->"5cf66519-d66f-4c9f-bfd6-9bd2625e07ba"],
35527	Cell[1080018, 28498, 306, 7, 25, "Print",ExpressionUUID->"af161e64-e5b5-4c7b-a3a4-a91a3f9d31ca"],
35528	Cell[1080327, 28507, 171, 3, 25, "Print",ExpressionUUID->"d1c054b0-26f9-494a-b831-e339d1b357aa"],
35529	Cell[1080501, 28512, 178, 3, 25, "Print",ExpressionUUID->"b5fe5fc5-42c1-49d7-8b08-906bb738cf8e"],
35530	Cell[1080682, 28517, 203, 3, 25, "Print",ExpressionUUID->"2b242a62-17b9-4fe5-9542-852691476a90"],
35531	Cell[1080888, 28522, 208, 4, 25, "Print",ExpressionUUID->"9ca60e3e-7e36-4f42-9a4e-971aab6db25f"],
35532	Cell[1081099, 28528, 160, 3, 25, "Print",ExpressionUUID->"6b811c3b-3cfe-49fd-8c34-9fd1a0b251a5"],
35533	Cell[1081262, 28533, 190, 3, 25, "Print",ExpressionUUID->"9d4504fb-fda4-46e3-9c62-62e19c00e71c"],
35534	Cell[1081455, 28538, 193, 3, 25, "Print",ExpressionUUID->"f66079f9-7152-4133-959d-9c4fb569a090"],
35535	Cell[1081651, 28543, 188, 2, 25, "Print",ExpressionUUID->"ac151c67-5b55-4094-be76-cf3f436cdc98"],
35536	Cell[1081842, 28547, 364, 8, 48, "Print",ExpressionUUID->"f1d2c690-3679-4603-aa9a-01a74ecb7650"]
35537	}, Open ]]
35538	}, Open ]],
35539	Cell[1082233, 28559, 1574, 34, 78, "Input",ExpressionUUID->"b68ff3e6-cfaf-42b4-a85c-ed50e97d9bb8"],
35540	Cell[CellGroupData[{
35541	Cell[1083832, 28597, 566, 17, 58, "Subsection",ExpressionUUID->"a3383aef-b499-485d-858e-c4895d9b295c"],
35542	Cell[1084401, 28616, 522, 11, 31, "Input",ExpressionUUID->"9c7cd592-0449-47b7-a179-c94462a779a0"],
35543	Cell[CellGroupData[{
35544	Cell[1084948, 28631, 385, 11, 31, "Input",ExpressionUUID->"c7054056-c199-4e84-baad-408c19b1262d"],
35545	Cell[CellGroupData[{
35546	Cell[1085358, 28646, 294, 5, 25, "Print",ExpressionUUID->"680713c3-7216-4d44-b0c7-675f3ab7859e"],
35547	Cell[1085655, 28653, 456, 10, 25, "Print",ExpressionUUID->"fe468ea7-5953-4527-b09c-a827f8e71a9b"],
35548	Cell[1086114, 28665, 458, 10, 25, "Print",ExpressionUUID->"c8b21f23-ab16-4b0c-b663-1b24b05ba891"]
35549	}, Open ]]
35550	}, Open ]],
35551	Cell[CellGroupData[{
35552	Cell[1086621, 28681, 1848, 37, 121, "Input",ExpressionUUID->"ea45b9db-e06c-416c-87db-65993721cc1b"],
35553	Cell[1088472, 28720, 2385, 62, 65, "Output",ExpressionUUID->"35725e1f-e103-4df7-8188-911af3143b23"],
35554	Cell[1090860, 28784, 2559, 68, 67, "Output",ExpressionUUID->"a69f9ff7-3739-48b6-80a1-5ad90cdf3327"],
35555	Cell[1093422, 28854, 2886, 79, 74, "Output",ExpressionUUID->"5bbb8ca0-cfa9-4e7e-a838-ee0cee332a26"]
35556	}, Open ]],
35557	Cell[CellGroupData[{
35558	Cell[1096345, 28938, 951, 27, 122, "Input",ExpressionUUID->"42c41f02-2424-4769-98fb-f60aed9f4acc"],
35559	Cell[1097299, 28967, 1505, 40, 65, "Output",ExpressionUUID->"10961436-4624-4348-b0a9-4fd9fc01a716"],
35560	Cell[1098807, 29009, 2274, 62, 67, "Output",ExpressionUUID->"b83c0063-07bd-4067-9db8-535ca128248c"],
35561	Cell[1101084, 29073, 2304, 67, 83, "Output",ExpressionUUID->"edb5c467-ea5e-4374-a213-17576678f732"]
35562	}, Open ]],
35563	Cell[1103403, 29143, 152, 3, 31, "Input",ExpressionUUID->"48f4a6a0-0208-449b-bd3c-08e37916f22c"],
35564	Cell[1103558, 29148, 434, 12, 31, "Input",ExpressionUUID->"55070546-6783-42b9-836b-28eb11537caf"],
35565	Cell[CellGroupData[{
35566	Cell[1104017, 29164, 1569, 33, 121, "Input",ExpressionUUID->"e21d1a7f-bb8b-4ca7-ac26-27c7aa491ce9"],
35567	Cell[1105589, 29199, 3331, 71, 67, "Output",ExpressionUUID->"377f4099-14b5-4051-9351-0f0c3315ecf8"],
35568	Cell[1108923, 29272, 3809, 84, 69, "Output",ExpressionUUID->"ac5ceffb-b133-4d9e-8ddb-ce11b82fcfbe"],
35569	Cell[1112735, 29358, 3899, 91, 66, "Output",ExpressionUUID->"cbd7fbf2-a376-4211-a7e1-d51390bcd28b"]
35570	}, Open ]],
35571	Cell[CellGroupData[{
35572	Cell[1116671, 29454, 947, 27, 122, "Input",ExpressionUUID->"716ca696-b7ef-4516-81d9-3da73a793e72"],
35573	Cell[1117621, 29483, 1428, 39, 67, "Output",ExpressionUUID->"a41dd100-cf9e-48df-904d-b16216d5b30e"],
35574	Cell[1119052, 29524, 1921, 52, 69, "Output",ExpressionUUID->"2c133b22-982f-4e58-a7a8-41e7ec2b87e0"],
35575	Cell[1120976, 29578, 1996, 60, 66, "Output",ExpressionUUID->"c0b8bd6c-3d8d-434b-bf57-bc1054bdb7fb"]
35576	}, Open ]]
35577	}, Closed]],
35578	Cell[CellGroupData[{
35579	Cell[1123021, 29644, 212, 3, 39, "Subsection",ExpressionUUID->"bb8740e4-fa39-466d-859b-ef87ee5f6b9f"],
35580	Cell[CellGroupData[{
35581	Cell[1123258, 29651, 682, 16, 150, "Input",ExpressionUUID->"7f03158f-cf4c-4e14-abc4-d5d7c5ea9326"],
35582	Cell[1123943, 29669, 3311, 93, 70, "Output",ExpressionUUID->"09645b77-661f-4a7a-ba1a-831e22522421"]
35583	}, Open ]],
35584	Cell[CellGroupData[{
35585	Cell[1127291, 29767, 190, 4, 150, "Input",ExpressionUUID->"94dac829-09f9-4c29-944b-cc3babf409ff"],
35586	Cell[1127484, 29773, 460, 12, 70, "Output",ExpressionUUID->"039d44b9-3c7b-42cb-bd5c-9adae1446d7b"]
35587	}, Open ]],
35588	Cell[CellGroupData[{
35589	Cell[1127981, 29790, 684, 16, 168, "Input",ExpressionUUID->"36b03974-bd4e-41b5-8c38-8cf84f3bef60"],
35590	Cell[1128668, 29808, 5893, 164, 70, "Output",ExpressionUUID->"64a6493c-22dd-48a3-b7ef-5b5bac7da647"]
35591	}, Open ]],
35592	Cell[1134576, 29975, 246, 5, 158, "Text",ExpressionUUID->"88d61b8d-7463-4542-8ff4-19aebfc2f933"],
35593	Cell[CellGroupData[{
35594	Cell[1134847, 29984, 600, 17, 366, "Input",ExpressionUUID->"94c3ebd8-3c6e-4af8-bcca-aefd56a8c01b"],
35595	Cell[1135450, 30003, 1141, 32, 70, "Output",ExpressionUUID->"07f0c32d-fa88-4908-a52d-50b5ef148d8a"],
35596	Cell[1136594, 30037, 1458, 43, 70, "Output",ExpressionUUID->"4cd1a919-d8e4-4fee-898e-028c259a575b"]
35597	}, Open ]],
35598	Cell[1138067, 30083, 503, 14, 168, "Text",ExpressionUUID->"17b1015d-c808-4f71-9349-647e884e17fd"],
35599	Cell[CellGroupData[{
35600	Cell[1138595, 30101, 466, 12, 258, "Input",ExpressionUUID->"3be70be7-c90b-4f5f-a2c8-5b8efc629c5c"],
35601	Cell[1139064, 30115, 1344, 39, 70, "Output",ExpressionUUID->"a0120f06-7bb0-4d9d-85d5-04c3e9102f0b"]
35602	}, Open ]]
35603	}, Closed]],
35604	Cell[CellGroupData[{
35605	Cell[1140457, 30160, 411, 9, 39, "Subsection",ExpressionUUID->"0bc0836d-00fc-4cfe-90df-c4a4b5894a41"],
35606	Cell[1140871, 30171, 271, 8, 31, "Input",ExpressionUUID->"324c2dfc-5255-4f3e-8064-f19e80a8f000"],
35607	Cell[CellGroupData[{
35608	Cell[1141167, 30183, 1011, 20, 31, "Input",ExpressionUUID->"b3dae78e-fd74-497d-83fa-f3fa31c363d9"],
35609	Cell[CellGroupData[{
35610	Cell[1142203, 30207, 498, 12, 25, "Print",ExpressionUUID->"d66e01e6-4d51-4eb6-8963-781791e00d7c"],
35611	Cell[1142704, 30221, 255, 4, 25, "Print",ExpressionUUID->"d67ab65c-f140-4653-a05a-b0a788bd9ca8"],
35612	Cell[1142962, 30227, 435, 9, 25, "Print",ExpressionUUID->"8c8ef279-7e00-4f8e-9d28-0886f3d1d145"],
35613	Cell[1143400, 30238, 286, 5, 25, "Print",ExpressionUUID->"2df9a828-968c-4367-8da1-ab0eea1d2f1c"],
35614	Cell[1143689, 30245, 762, 16, 25, "Print",ExpressionUUID->"8bb170bf-e073-4d4b-8177-42f294cb50a0"],
35615	Cell[1144454, 30263, 366, 8, 25, "Print",ExpressionUUID->"e86a2a94-fb7f-41ca-8edb-6f57b4010c6a"]
35616	}, Open ]],
35617	Cell[1144835, 30274, 30743, 751, 254, "Output",ExpressionUUID->"2a52de36-6b5c-4dfb-8266-ad905641d66c"]
35618	}, Open ]],
35619	Cell[1175593, 31028, 105, 1, 35, "Text",ExpressionUUID->"4c460428-59e8-44f4-913f-158d19c28654"],
35620	Cell[CellGroupData[{
35621	Cell[1175723, 31033, 959, 23, 98, "Input",ExpressionUUID->"a6ae5607-7c03-4c9d-95d6-9913e2931f9d"],
35622	Cell[1176685, 31058, 1906, 52, 64, "Output",ExpressionUUID->"21f18ce9-0dd6-49d2-a6a0-d25a0c22910c"],
35623	Cell[1178594, 31112, 1652, 44, 67, "Output",ExpressionUUID->"045128fa-7f2a-428b-a8eb-8a31a60e9ddb"],
35624	Cell[1180249, 31158, 1858, 51, 74, "Output",ExpressionUUID->"e654894f-ace0-483c-8177-8ea2793f113f"]
35625	}, Open ]],
35626	Cell[1182122, 31212, 132, 1, 35, "Text",ExpressionUUID->"8944c7ca-4dd3-474c-948d-0db64831f6f8"],
35627	Cell[CellGroupData[{
35628	Cell[1182279, 31217, 726, 20, 31, "Input",ExpressionUUID->"bccbba0a-9509-431d-ae96-f9eac3b456ec"],
35629	Cell[1183008, 31239, 652, 13, 25, "Print",ExpressionUUID->"48e32b36-ab87-4937-b1ee-201cc48cb549"],
35630	Cell[1183663, 31254, 53868, 1323, 527, "Output",ExpressionUUID->"6357e402-8f81-40b6-bc04-639405c75434"]
35631	}, Open ]]
35632	}, Closed]],
35633	Cell[CellGroupData[{
35634	Cell[1237580, 32583, 114, 1, 39, "Subsection",ExpressionUUID->"3c99758d-542a-436f-9c5e-6cd680ee4b8e"],
35635	Cell[1237697, 32586, 519, 11, 31, "Input",ExpressionUUID->"acb67596-bca4-4482-88ee-caa0773c60f5"],
35636	Cell[CellGroupData[{
35637	Cell[1238241, 32601, 441, 12, 31, "Input",ExpressionUUID->"183e4d0a-b205-4e56-94e1-09ecf07d6cb0"],
35638	Cell[CellGroupData[{
35639	Cell[1238707, 32617, 645, 14, 25, "Print",ExpressionUUID->"9faba4c7-8ed4-4094-9dbb-9c3485ffc717"],
35640	Cell[1239355, 32633, 402, 6, 25, "Print",ExpressionUUID->"c3515c5a-91af-4e7a-9d18-96d9059a051c"],
35641	Cell[1239760, 32641, 584, 11, 25, "Print",ExpressionUUID->"b68aa3c5-2379-40df-be9a-0d181bf8e6be"],
35642	Cell[1240347, 32654, 435, 7, 25, "Print",ExpressionUUID->"ff5bb871-f8b8-4de5-a15c-fa2fc5f69231"],
35643	Cell[1240785, 32663, 912, 18, 25, "Print",ExpressionUUID->"c02aa28f-9088-4447-ac84-6909bc37596a"],
35644	Cell[1241700, 32683, 513, 10, 25, "Print",ExpressionUUID->"9e58f92a-77bf-492d-92f2-481ee0515a34"]
35645	}, Open ]],
35646	Cell[1242228, 32696, 40443, 1066, 180, "Output",ExpressionUUID->"41ad1cc9-a3d8-4b2b-8127-077086a5d11e"]
35647	}, Open ]],
35648	Cell[1282686, 33765, 122, 1, 35, "Text",ExpressionUUID->"8e290a94-c18c-47c1-acba-0bb20d4960ce"],
35649	Cell[CellGroupData[{
35650	Cell[1282833, 33770, 449, 14, 31, "Input",ExpressionUUID->"635fab1a-0e6e-4a99-9ae8-aeba1b6cea24"],
35651	Cell[1283285, 33786, 695, 13, 25, "Print",ExpressionUUID->"68194df8-80e0-49f5-b725-0790709d5c92"],
35652	Cell[1283983, 33801, 12395, 332, 178, "Output",ExpressionUUID->"273c4d39-03ad-4042-bcdc-7988151df9e1"]
35653	}, Open ]],
35654	Cell[CellGroupData[{
35655	Cell[1296415, 34138, 308, 8, 31, "Input",ExpressionUUID->"0b31e8ee-d2b5-44c0-ba30-c14f51252f76"],
35656	Cell[1296726, 34148, 7490, 195, 178, "Output",ExpressionUUID->"867e6f6d-c6a8-477d-8223-b0ead146e8c9"]
35657	}, Open ]]
35658	}, Closed]],
35659	Cell[CellGroupData[{
35660	Cell[1304265, 34349, 150, 2, 39, "Subsection",ExpressionUUID->"78d37e1c-2c8c-4558-8a4b-05ce1685e2d2"],
35661	Cell[1304418, 34353, 422, 10, 74, "Text",ExpressionUUID->"f468e2da-a4ba-4f28-bfac-7d49d152646b"],
35662	Cell[CellGroupData[{
35663	Cell[1304865, 34367, 784, 14, 31, "Input",ExpressionUUID->"7ba461c2-78db-45ff-abbc-8799a024d5ab"],
35664	Cell[CellGroupData[{
35665	Cell[1305674, 34385, 185, 4, 25, "Print",ExpressionUUID->"c719148b-9767-4b6a-a900-8b12c1abf597"],
35666	Cell[1305862, 34391, 408, 11, 25, "Print",ExpressionUUID->"c4571380-4997-4d7d-83db-bb284e610a94"],
35667	Cell[1306273, 34404, 165, 3, 25, "Print",ExpressionUUID->"452c0edc-f240-45fb-8d42-387d49b2c996"],
35668	Cell[1306441, 34409, 345, 8, 25, "Print",ExpressionUUID->"3b9e01ed-1b73-4770-b82e-ab400d6c551c"],
35669	Cell[1306789, 34419, 387, 9, 25, "Print",ExpressionUUID->"4fae7b29-6765-438d-9cc0-67818152a1a7"],
35670	Cell[1307179, 34430, 198, 4, 25, "Print",ExpressionUUID->"9f802075-5f40-4c3c-8a2a-36f4f476c3a4"],
35671	Cell[1307380, 34436, 673, 14, 25, "Print",ExpressionUUID->"8c7c609f-22c2-43ce-b39a-5efed776e152"],
35672	Cell[1308056, 34452, 278, 7, 25, "Print",ExpressionUUID->"f58d8e74-a7e3-45b8-9775-74d4873395d7"],
35673	Cell[1308337, 34461, 629, 13, 25, "Print",ExpressionUUID->"bb1b0b87-8395-4c72-9435-6119b466aa66"],
35674	Cell[1308969, 34476, 179, 3, 25, "Print",ExpressionUUID->"e885d05d-35e5-4e9d-af15-08fa56fc7bcd"],
35675	Cell[1309151, 34481, 444, 12, 25, "Print",ExpressionUUID->"286e2be9-4f30-404c-ab3a-dc548d5d369d"],
35676	Cell[1309598, 34495, 395, 10, 25, "Print",ExpressionUUID->"e39d02c6-1588-4230-bd4d-cb3872fb5e01"],
35677	Cell[1309996, 34507, 380, 8, 25, "Print",ExpressionUUID->"f63e4b2b-b696-4c11-bcd7-3cac5f394dd6"],
35678	Cell[1310379, 34517, 398, 11, 25, "Print",ExpressionUUID->"60dbda23-bce3-412d-93d8-1bbd96de86ec"],
35679	Cell[1310780, 34530, 358, 8, 25, "Print",ExpressionUUID->"74011a3d-1711-406e-9471-a7590424ea1c"],
35680	Cell[1311141, 34540, 160, 3, 25, "Print",ExpressionUUID->"6b55a6d0-e573-444d-b42a-97ab76f8f0af"],
35681	Cell[1311304, 34545, 186, 4, 25, "Print",ExpressionUUID->"70b32ba9-753b-45b9-bea6-96b03a370dce"],
35682	Cell[1311493, 34551, 375, 8, 25, "Print",ExpressionUUID->"3ad76d6f-38e5-4650-bc69-94e711988918"],
35683	Cell[1311871, 34561, 534, 11, 25, "Print",ExpressionUUID->"92382210-e5d9-4ab8-a049-1a08382b4f8f"],
35684	Cell[1312408, 34574, 156, 3, 25, "Print",ExpressionUUID->"ce4708b0-3e89-4e10-9b45-5cee52da6414"],
35685	Cell[1312567, 34579, 529, 12, 70, "Print",ExpressionUUID->"b71535c0-4d0f-41e6-945e-95d22f70e516"],
35686	Cell[1313099, 34593, 141, 3, 25, "Print",ExpressionUUID->"0efc5e29-9f11-4ded-8f56-8ed8d01fb73b"]
35687	}, Open ]]
35688	}, Open ]]
35689	}, Open ]]
35690	}, Open ]]
35691	}, Open ]]
35692	}
35693	]
35694	*)
35695

Download in other formats:

Original Format