Context Navigation

Back to 2GravitonsSM

2GravitonsSM: 2GravitonsSM.nb

File 2GravitonsSM.nb, 113.3 KB (added by Loc Tran Quang, 3 years ago)
Sample notebook

Line
1	(* Content-type: application/vnd.wolfram.mathematica *)
2
3	(* Wolfram Notebook File *)
4	(* http://www.wolfram.com/nb *)
5
6	(* CreatedBy='Mathematica 12.0' *)
7
8	(CacheID: 234)
9	(* Internal cache information:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 158, 7]
13	NotebookDataLength[ 115841, 3443]
14	NotebookOptionsPosition[ 109979, 3332]
15	NotebookOutlinePosition[ 110338, 3348]
16	CellTagsIndexPosition[ 110295, 3345]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["The 2 Gravitons coupled to Standard Model", "Title",
24	CellChangeTimes->{{3.405054966614888^9, 3.4050549767315893`^9},
25	3.4529230123333807`^9, {3.45405649584802^9, 3.4540564997867126`*^9}, {
26	3.4540565705776033`^9, 3.454056571055434^9}, {3.454057181466007*^9,
27	3.454057182797702^9}, {3.846585206929676^9,
28	3.846585224973124*^9}},ExpressionUUID->"0c7d382c-2c43-4a74-a4b0-\
29	6b33b7b494db"],
30
31	Cell[CellGroupData[{
32
33	Cell["Load of the FeynRules package", "Section",
34	CellChangeTimes->{{3.452856941348258*^9,
35	3.452856954182706*^9}},ExpressionUUID->"a39a0740-0c79-41c6-87fc-\
36	51f5ba05af02"],
37
38	Cell[BoxData[
39	RowBox[{"Quit", "[", "]"}]], "Input",
40	CellChangeTimes->{{3.4521543016025457`*^9,
41	3.452154302750087*^9}},ExpressionUUID->"b8c26645-927c-4e00-ae82-\
42	8dce9c9ad8f2"],
43
44	Cell[BoxData[{
45	RowBox[{
46	RowBox[{"$FeynRulesPath", "=",
47	RowBox[{"SetDirectory", "[", "\"\<<address of the package>\>\"", "]"}]}],
48	";"}], "\[IndentingNewLine]",
49	RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
50	RowBox[{
51	RowBox[{"SetDirectory", "[",
52	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/2GravitonsSM\>\""}], "]"}],
53	";"}]}], "Input",
54	CellChangeTimes->{{3.41265862251538^9, 3.412658649947229^9}, {
55	3.423415585782702^9, 3.423415597189939^9}, {3.4234163173467493`*^9,
56	3.4234163227881193`^9}, {3.453613499780509^9, 3.453613524557995*^9}, {
57	3.454050520543564^9, 3.454050533398179^9}, {3.454056582682654*^9,
58	3.4540565840807753`^9}, {3.454061008970613^9, 3.4540610300313797`*^9},
59	3.4540621439628963`^9, {3.846585304596931^9, 3.846585315491149*^9}},
60	CellLabel->"In[1]:=",ExpressionUUID->"17ecac41-11e8-41a2-bb8f-8286be4e30fa"]
61	}, Open ]],
62
63	Cell[CellGroupData[{
64
65	Cell["Load of the full 2GravitonsSM model", "Section",
66	CellChangeTimes->{{3.452856959806845^9, 3.452856965627877^9}, {
67	3.454050557859632^9, 3.454050559388439^9}, {3.454062198742198*^9,
68	3.454062202491016*^9},
69	3.846587138869749*^9},ExpressionUUID->"5b4bbec4-1119-4816-a391-\
70	9dbf12789517"],
71
72	Cell[CellGroupData[{
73
74	Cell[BoxData[
75	RowBox[{"LoadModel", "[", "\"\<2GravitonsSM.fr\>\"", "]"}]], "Input",
76	CellChangeTimes->{{3.402749737680746^9, 3.4027497378335543`^9},
77	3.405009528824724^9, 3.449909327040394^9, 3.452152811321804*^9,
78	3.4529230123338823`^9, 3.45405650276263^9,
79	3.8465853223685093`*^9},ExpressionUUID->"90eb63cf-3355-434a-930e-\
80	55afdafb9e3d"],
81
82	Cell[CellGroupData[{
83
84	Cell[BoxData[
85	FormBox["\<\"This model implementation was created by\"\>",
86	TraditionalForm]], "Print",
87	CellChangeTimes->{
88	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
89	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
90	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
91	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
92	3.846586825293819^9, 3.846587001597612^9},
93	CellLabel->
94	"During evaluation of \
95	In[4]:=",ExpressionUUID->"1d2ad7a4-41fc-4184-8f60-69b803fdc27c"],
96
97	Cell[BoxData[
98	FormBox["\<\"Tran Quang Loc\"\>", TraditionalForm]], "Print",
99	CellChangeTimes->{
100	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
101	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
102	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
103	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
104	3.846586825293819^9, 3.846587001663806^9},
105	CellLabel->
106	"During evaluation of \
107	In[4]:=",ExpressionUUID->"85e92282-e1fc-4fb8-96fa-0b5abbeb1ef0"],
108
109	Cell[BoxData[
110	FormBox[
111	InterpretationBox[
112	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0.0\"\>"}],
113	SequenceForm["Model Version: ", "1.0.0"],
114	Editable->False], TraditionalForm]], "Print",
115	CellChangeTimes->{
116	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
117	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
118	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
119	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
120	3.846586825293819^9, 3.846587001725778^9},
121	CellLabel->
122	"During evaluation of \
123	In[4]:=",ExpressionUUID->"0194ce7d-a119-4ac0-b7d5-6e46cc6809fb"],
124
125	Cell[BoxData[
126	FormBox["\<\"https://feynrules.irmp.ucl.ac.be/wiki/2GravitonsSM\"\>",
127	TraditionalForm]], "Print",
128	CellChangeTimes->{
129	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
130	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
131	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
132	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
133	3.846586825293819^9, 3.846587001784381^9},
134	CellLabel->
135	"During evaluation of \
136	In[4]:=",ExpressionUUID->"32beafcd-a690-41e1-8438-0f37fa115909"],
137
138	Cell[BoxData[
139	FormBox["\<\"For more information, type ModelInformation[].\"\>",
140	TraditionalForm]], "Print",
141	CellChangeTimes->{
142	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
143	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
144	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
145	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
146	3.846586825293819^9, 3.846587001843349^9},
147	CellLabel->
148	"During evaluation of \
149	In[4]:=",ExpressionUUID->"c00742c0-5c06-443a-bc15-2b63f78053e7"],
150
151	Cell[BoxData[
152	FormBox["\<\"\"\>", TraditionalForm]], "Print",
153	CellChangeTimes->{
154	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
155	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
156	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
157	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
158	3.846586825293819^9, 3.846587001890704^9},
159	CellLabel->
160	"During evaluation of \
161	In[4]:=",ExpressionUUID->"74101b3c-5e42-45c1-ae04-420f8f845b26"],
162
163	Cell[BoxData[
164	FormBox["\<\" - Loading particle classes.\"\>", TraditionalForm]], "Print",\
165
166	CellChangeTimes->{
167	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
168	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
169	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
170	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
171	3.846586825293819^9, 3.846587001952841^9},
172	CellLabel->
173	"During evaluation of \
174	In[4]:=",ExpressionUUID->"29c1d312-5bd8-455a-9233-5dda7eaf6dfb"],
175
176	Cell[BoxData[
177	FormBox["\<\" - Loading gauge group classes.\"\>",
178	TraditionalForm]], "Print",
179	CellChangeTimes->{
180	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
181	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
182	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
183	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
184	3.846586825293819^9, 3.846587002014564^9},
185	CellLabel->
186	"During evaluation of \
187	In[4]:=",ExpressionUUID->"16353bb5-aaac-4ebc-9648-c57638500838"],
188
189	Cell[BoxData[
190	FormBox["\<\" - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
191
192	CellChangeTimes->{
193	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
194	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
195	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
196	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
197	3.846586825293819^9, 3.84658700209111^9},
198	CellLabel->
199	"During evaluation of \
200	In[4]:=",ExpressionUUID->"87bc4951-f092-4380-a792-f0b06a032c97"],
201
202	Cell[BoxData[
203	FormBox[
204	InterpretationBox[
205	RowBox[{"\<\"\\nModel \"\>",
206	"\[InvisibleSpace]", "\<\"2 Gravitons coupled to Standard Model\"\>",
207	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
208	SequenceForm[
209	"\nModel ", "2 Gravitons coupled to Standard Model", " loaded."],
210	Editable->False], TraditionalForm]], "Print",
211	CellChangeTimes->{
212	3.845608291397253^9, {3.8456085064145393`^9, 3.845608534285594*^9},
213	3.8457655448749228`^9, 3.8457827150940437`^9, 3.845785557594512*^9,
214	3.845788891008789^9, 3.845849231608396^9, {3.846586255067142*^9,
215	3.846586280188559^9}, 3.846586408136796^9, 3.846586684338305*^9,
216	3.846586825293819^9, 3.846587002140764^9},
217	CellLabel->
218	"During evaluation of \
219	In[4]:=",ExpressionUUID->"2886e799-79a0-4cdb-ab75-e372b9e3bccd"]
220	}, Open ]]
221	}, Open ]]
222	}, Open ]],
223
224	Cell[CellGroupData[{
225
226	Cell["The full 2GravitonsSM lagrangian", "Section",
227	CellChangeTimes->{{3.411910065227421^9, 3.411910071535137^9}, {
228	3.4540507294896593`^9, 3.4540507310208197`^9}, {3.4540567139322166`*^9,
229	3.454056718777896*^9},
230	3.846587141162957*^9},ExpressionUUID->"8f8f6385-04c2-4ae6-9586-\
231	bfd6425af08f"],
232
233	Cell["\<\
234	The part of the lagrangian representing the up-to-two Gravitons coupled to \
235	each sector of SM can be accessed via\
236	\>", "Text",
237	CellChangeTimes->{{3.846588269106967^9, 3.846588269111033^9}, {
238	3.8465883047485123`^9, 3.846588313094907^9}, {3.84658845413844*^9,
239	3.8465884621293497`^9}, {3.846588980750147^9,
240	3.8465889855300207`*^9}},ExpressionUUID->"69aa44e3-ef8c-40a0-b1c4-\
241	290aa6d62baa"],
242
243	Cell[CellGroupData[{
244
245	Cell["Gravitons + Gauge sector", "Subsubsection",
246	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
247	3.454057138248085^9, 3.454057139479412^9}, {3.846587158423683*^9,
248	3.846587192203702^9}, 3.846587223843741^9, {3.8465881291606007`*^9,
249	3.846588143125564*^9}},ExpressionUUID->"e31e7898-918c-4686-8343-\
250	b7f9fed381c3"],
251
252	Cell[CellGroupData[{
253
254	Cell[BoxData["LGGaugeO2"], "Input",
255	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
256	3.454050790694797^9, 3.454050807408856^9}, 3.454052286514977*^9, {
257	3.454057086606534^9, 3.4540570873864717`^9}, 3.454061218230431*^9,
258	3.846587070017083*^9,
259	3.8465876836896887`*^9},ExpressionUUID->"80552330-6b99-4064-acd6-\
260	d05d29e6b5f4"],
261
262	Cell[BoxData[
263	FormBox[
264	RowBox[{
265	RowBox[{"-",
266	FractionBox["1", "2"]}], " ",
267	FormBox["\[Kappa]",
268	TraditionalForm], " ",
269	RowBox[{
270	FormBox[
271	SubscriptBox["h",
272	RowBox[{
273	FormBox["\[Mu]",
274	TraditionalForm], ",",
275	FormBox["\[Nu]",
276	TraditionalForm]}]],
277	TraditionalForm], ".",
278	RowBox[{"(",
279	RowBox[{
280	RowBox[{
281	RowBox[{"-",
282	RowBox[{"(",
283	RowBox[{
284	FormBox[
285	RowBox[{
286	SubscriptBox["\<\"\[PartialD]\"\>",
287	FormBox["\[Mu]",
288	TraditionalForm]], "(",
289	FormBox[
290	SubscriptBox["B",
291	FormBox["\[Rho]",
292	TraditionalForm]],
293	TraditionalForm], ")"}],
294	TraditionalForm], "-",
295	FormBox[
296	RowBox[{
297	SubscriptBox["\<\"\[PartialD]\"\>",
298	FormBox["\[Rho]",
299	TraditionalForm]], "(",
300	FormBox[
301	SubscriptBox["B",
302	FormBox["\[Mu]",
303	TraditionalForm]],
304	TraditionalForm], ")"}],
305	TraditionalForm]}], ")"}]}], " ",
306	RowBox[{"(",
307	RowBox[{
308	FormBox[
309	RowBox[{
310	SubscriptBox["\<\"\[PartialD]\"\>",
311	FormBox["\[Nu]",
312	TraditionalForm]], "(",
313	FormBox[
314	SubscriptBox["B",
315	FormBox["\[Rho]",
316	TraditionalForm]],
317	TraditionalForm], ")"}],
318	TraditionalForm], "-",
319	FormBox[
320	RowBox[{
321	SubscriptBox["\<\"\[PartialD]\"\>",
322	FormBox["\[Rho]",
323	TraditionalForm]], "(",
324	FormBox[
325	SubscriptBox["B",
326	FormBox["\[Nu]",
327	TraditionalForm]],
328	TraditionalForm], ")"}],
329	TraditionalForm]}], ")"}]}], "-",
330	RowBox[{
331	FormBox[
332	SubscriptBox["\[Eta]",
333	RowBox[{
334	FormBox[
335	FormBox["\[Mu]",
336	TraditionalForm],
337	TraditionalForm], ",",
338	FormBox[
339	FormBox["\[Nu]",
340	TraditionalForm],
341	TraditionalForm]}]],
342	TraditionalForm], ".",
343	RowBox[{"(",
344	RowBox[{
345	RowBox[{
346	RowBox[{"-",
347	FractionBox["1", "4"]}], " ",
348	SuperscriptBox[
349	RowBox[{"(",
350	RowBox[{
351	FormBox[
352	RowBox[{
353	SubscriptBox["\<\"\[PartialD]\"\>",
354	FormBox["\[Rho]",
355	TraditionalForm]], "(",
356	FormBox[
357	SubscriptBox["B", "sig"],
358	TraditionalForm], ")"}],
359	TraditionalForm], "-",
360	FormBox[
361	RowBox[{
362	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
363	FormBox[
364	SubscriptBox["B",
365	FormBox["\[Rho]",
366	TraditionalForm]],
367	TraditionalForm], ")"}],
368	TraditionalForm]}], ")"}], "2"]}], "-",
369	RowBox[{
370	FractionBox["1", "4"], " ",
371	RowBox[{"(",
372	RowBox[{
373	RowBox[{"-",
374	FormBox[
375	RowBox[{
376	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
377	FormBox[
378	SubscriptBox["G",
379	RowBox[{
380	FormBox["\[Rho]",
381	TraditionalForm], ",", "a1"}]],
382	TraditionalForm], ")"}],
383	TraditionalForm]}], "+",
384	FormBox[
385	RowBox[{
386	SubscriptBox["\<\"\[PartialD]\"\>",
387	FormBox["\[Rho]",
388	TraditionalForm]], "(",
389	FormBox[
390	SubscriptBox["G",
391	RowBox[{"sig", ",", "a1"}]],
392	TraditionalForm], ")"}],
393	TraditionalForm], "+",
394	RowBox[{
395	FormBox[
396	SubscriptBox["g", "s"],
397	TraditionalForm], " ",
398	FormBox[
399	SubscriptBox["f",
400	RowBox[{"a1", ",", "a2", ",", "a3"}]],
401	TraditionalForm], " ",
402	FormBox[
403	SubscriptBox["G",
404	RowBox[{
405	FormBox["\[Rho]",
406	TraditionalForm], ",", "a2"}]],
407	TraditionalForm], " ",
408	FormBox[
409	SubscriptBox["G",
410	RowBox[{"sig", ",", "a3"}]],
411	TraditionalForm]}]}], ")"}], " ",
412	RowBox[{"(",
413	RowBox[{
414	RowBox[{"-",
415	FormBox[
416	RowBox[{
417	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
418	FormBox[
419	SubscriptBox["G",
420	RowBox[{
421	FormBox["\[Rho]",
422	TraditionalForm], ",", "a1"}]],
423	TraditionalForm], ")"}],
424	TraditionalForm]}], "+",
425	FormBox[
426	RowBox[{
427	SubscriptBox["\<\"\[PartialD]\"\>",
428	FormBox["\[Rho]",
429	TraditionalForm]], "(",
430	FormBox[
431	SubscriptBox["G",
432	RowBox[{"sig", ",", "a1"}]],
433	TraditionalForm], ")"}],
434	TraditionalForm], "+",
435	RowBox[{
436	FormBox[
437	SubscriptBox["g", "s"],
438	TraditionalForm], " ",
439	FormBox[
440	SubscriptBox["f",
441	RowBox[{"a1", ",", "a4", ",", "a5"}]],
442	TraditionalForm], " ",
443	FormBox[
444	SubscriptBox["G",
445	RowBox[{
446	FormBox["\[Rho]",
447	TraditionalForm], ",", "a4"}]],
448	TraditionalForm], " ",
449	FormBox[
450	SubscriptBox["G",
451	RowBox[{"sig", ",", "a5"}]],
452	TraditionalForm]}]}], ")"}]}], "-",
453	RowBox[{
454	FractionBox["1", "4"], " ",
455	RowBox[{"(",
456	RowBox[{
457	RowBox[{"-",
458	FormBox[
459	RowBox[{
460	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
461	FormBox[
462	SubscriptBox["Wi",
463	RowBox[{
464	FormBox["\[Rho]",
465	TraditionalForm], ",", "i1"}]],
466	TraditionalForm], ")"}],
467	TraditionalForm]}], "+",
468	FormBox[
469	RowBox[{
470	SubscriptBox["\<\"\[PartialD]\"\>",
471	FormBox["\[Rho]",
472	TraditionalForm]], "(",
473	FormBox[
474	SubscriptBox["Wi",
475	RowBox[{"sig", ",", "i1"}]],
476	TraditionalForm], ")"}],
477	TraditionalForm], "+",
478	FractionBox[
479	RowBox[{
480	FormBox["e",
481	TraditionalForm], " ",
482	FormBox[
483	SubscriptBox["\[Epsilon]",
484	RowBox[{"i1", ",", "i2", ",", "i3"}]],
485	TraditionalForm], " ",
486	FormBox[
487	SubscriptBox["Wi",
488	RowBox[{
489	FormBox["\[Rho]",
490	TraditionalForm], ",", "i2"}]],
491	TraditionalForm], " ",
492	FormBox[
493	SubscriptBox["Wi",
494	RowBox[{"sig", ",", "i3"}]],
495	TraditionalForm]}],
496	FormBox[
497	SubscriptBox["s", "w"],
498	TraditionalForm]]}], ")"}], " ",
499	RowBox[{"(",
500	RowBox[{
501	RowBox[{"-",
502	FormBox[
503	RowBox[{
504	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
505	FormBox[
506	SubscriptBox["Wi",
507	RowBox[{
508	FormBox["\[Rho]",
509	TraditionalForm], ",", "i1"}]],
510	TraditionalForm], ")"}],
511	TraditionalForm]}], "+",
512	FormBox[
513	RowBox[{
514	SubscriptBox["\<\"\[PartialD]\"\>",
515	FormBox["\[Rho]",
516	TraditionalForm]], "(",
517	FormBox[
518	SubscriptBox["Wi",
519	RowBox[{"sig", ",", "i1"}]],
520	TraditionalForm], ")"}],
521	TraditionalForm], "+",
522	FractionBox[
523	RowBox[{
524	FormBox["e",
525	TraditionalForm], " ",
526	FormBox[
527	SubscriptBox["\[Epsilon]",
528	RowBox[{"i1", ",", "i4", ",", "i5"}]],
529	TraditionalForm], " ",
530	FormBox[
531	SubscriptBox["Wi",
532	RowBox[{
533	FormBox["\[Rho]",
534	TraditionalForm], ",", "i4"}]],
535	TraditionalForm], " ",
536	FormBox[
537	SubscriptBox["Wi",
538	RowBox[{"sig", ",", "i5"}]],
539	TraditionalForm]}],
540	FormBox[
541	SubscriptBox["s", "w"],
542	TraditionalForm]]}], ")"}]}]}], ")"}]}], "-",
543	RowBox[{
544	RowBox[{"(",
545	RowBox[{
546	RowBox[{"-",
547	FormBox[
548	RowBox[{
549	SubscriptBox["\<\"\[PartialD]\"\>",
550	FormBox["\[Rho]",
551	TraditionalForm]], "(",
552	FormBox[
553	SubscriptBox["G",
554	RowBox[{
555	FormBox["\[Mu]",
556	TraditionalForm], ",", "a1"}]],
557	TraditionalForm], ")"}],
558	TraditionalForm]}], "+",
559	FormBox[
560	RowBox[{
561	SubscriptBox["\<\"\[PartialD]\"\>",
562	FormBox["\[Mu]",
563	TraditionalForm]], "(",
564	FormBox[
565	SubscriptBox["G",
566	RowBox[{
567	FormBox["\[Rho]",
568	TraditionalForm], ",", "a1"}]],
569	TraditionalForm], ")"}],
570	TraditionalForm], "+",
571	RowBox[{
572	FormBox[
573	SubscriptBox["g", "s"],
574	TraditionalForm], " ",
575	FormBox[
576	SubscriptBox["f",
577	RowBox[{"a1", ",", "a2", ",", "a3"}]],
578	TraditionalForm], " ",
579	FormBox[
580	SubscriptBox["G",
581	RowBox[{
582	FormBox["\[Mu]",
583	TraditionalForm], ",", "a2"}]],
584	TraditionalForm], " ",
585	FormBox[
586	SubscriptBox["G",
587	RowBox[{
588	FormBox["\[Rho]",
589	TraditionalForm], ",", "a3"}]],
590	TraditionalForm]}]}], ")"}], " ",
591	RowBox[{"(",
592	RowBox[{
593	RowBox[{"-",
594	FormBox[
595	RowBox[{
596	SubscriptBox["\<\"\[PartialD]\"\>",
597	FormBox["\[Rho]",
598	TraditionalForm]], "(",
599	FormBox[
600	SubscriptBox["G",
601	RowBox[{
602	FormBox["\[Nu]",
603	TraditionalForm], ",", "a1"}]],
604	TraditionalForm], ")"}],
605	TraditionalForm]}], "+",
606	FormBox[
607	RowBox[{
608	SubscriptBox["\<\"\[PartialD]\"\>",
609	FormBox["\[Nu]",
610	TraditionalForm]], "(",
611	FormBox[
612	SubscriptBox["G",
613	RowBox[{
614	FormBox["\[Rho]",
615	TraditionalForm], ",", "a1"}]],
616	TraditionalForm], ")"}],
617	TraditionalForm], "+",
618	RowBox[{
619	FormBox[
620	SubscriptBox["g", "s"],
621	TraditionalForm], " ",
622	FormBox[
623	SubscriptBox["f",
624	RowBox[{"a1", ",", "a2", ",", "a3"}]],
625	TraditionalForm], " ",
626	FormBox[
627	SubscriptBox["G",
628	RowBox[{
629	FormBox["\[Nu]",
630	TraditionalForm], ",", "a2"}]],
631	TraditionalForm], " ",
632	FormBox[
633	SubscriptBox["G",
634	RowBox[{
635	FormBox["\[Rho]",
636	TraditionalForm], ",", "a3"}]],
637	TraditionalForm]}]}], ")"}]}], "-",
638	RowBox[{
639	RowBox[{"(",
640	RowBox[{
641	RowBox[{"-",
642	FormBox[
643	RowBox[{
644	SubscriptBox["\<\"\[PartialD]\"\>",
645	FormBox["\[Rho]",
646	TraditionalForm]], "(",
647	FormBox[
648	SubscriptBox["Wi",
649	RowBox[{
650	FormBox["\[Mu]",
651	TraditionalForm], ",", "i1"}]],
652	TraditionalForm], ")"}],
653	TraditionalForm]}], "+",
654	FormBox[
655	RowBox[{
656	SubscriptBox["\<\"\[PartialD]\"\>",
657	FormBox["\[Mu]",
658	TraditionalForm]], "(",
659	FormBox[
660	SubscriptBox["Wi",
661	RowBox[{
662	FormBox["\[Rho]",
663	TraditionalForm], ",", "i1"}]],
664	TraditionalForm], ")"}],
665	TraditionalForm], "+",
666	FractionBox[
667	RowBox[{
668	FormBox["e",
669	TraditionalForm], " ",
670	FormBox[
671	SubscriptBox["\[Epsilon]",
672	RowBox[{"i1", ",", "i2", ",", "i3"}]],
673	TraditionalForm], " ",
674	FormBox[
675	SubscriptBox["Wi",
676	RowBox[{
677	FormBox["\[Mu]",
678	TraditionalForm], ",", "i2"}]],
679	TraditionalForm], " ",
680	FormBox[
681	SubscriptBox["Wi",
682	RowBox[{
683	FormBox["\[Rho]",
684	TraditionalForm], ",", "i3"}]],
685	TraditionalForm]}],
686	FormBox[
687	SubscriptBox["s", "w"],
688	TraditionalForm]]}], ")"}], " ",
689	RowBox[{"(",
690	RowBox[{
691	RowBox[{"-",
692	FormBox[
693	RowBox[{
694	SubscriptBox["\<\"\[PartialD]\"\>",
695	FormBox["\[Rho]",
696	TraditionalForm]], "(",
697	FormBox[
698	SubscriptBox["Wi",
699	RowBox[{
700	FormBox["\[Nu]",
701	TraditionalForm], ",", "i1"}]],
702	TraditionalForm], ")"}],
703	TraditionalForm]}], "+",
704	FormBox[
705	RowBox[{
706	SubscriptBox["\<\"\[PartialD]\"\>",
707	FormBox["\[Nu]",
708	TraditionalForm]], "(",
709	FormBox[
710	SubscriptBox["Wi",
711	RowBox[{
712	FormBox["\[Rho]",
713	TraditionalForm], ",", "i1"}]],
714	TraditionalForm], ")"}],
715	TraditionalForm], "+",
716	FractionBox[
717	RowBox[{
718	FormBox["e",
719	TraditionalForm], " ",
720	FormBox[
721	SubscriptBox["\[Epsilon]",
722	RowBox[{"i1", ",", "i4", ",", "i5"}]],
723	TraditionalForm], " ",
724	FormBox[
725	SubscriptBox["Wi",
726	RowBox[{
727	FormBox["\[Nu]",
728	TraditionalForm], ",", "i4"}]],
729	TraditionalForm], " ",
730	FormBox[
731	SubscriptBox["Wi",
732	RowBox[{
733	FormBox["\[Rho]",
734	TraditionalForm], ",", "i5"}]],
735	TraditionalForm]}],
736	FormBox[
737	SubscriptBox["s", "w"],
738	TraditionalForm]]}], ")"}]}]}], ")"}]}]}],
739	TraditionalForm]], "Output",
740	CellChangeTimes->{
741	3.4540612188923187`*^9},ExpressionUUID->"3fcd004e-dc4a-4abb-ac49-\
742	494b60fae4f3"]
743	}, Closed]]
744	}, Open ]],
745
746	Cell[CellGroupData[{
747
748	Cell["Gravitons + Scalar sector", "Subsubsection",
749	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
750	3.411910274288354^9, 3.41191027703699^9}, {3.8465871725740137`*^9,
751	3.846587225484082*^9}},ExpressionUUID->"6255587e-0af9-4334-a0fa-\
752	39a7c53c18cf"],
753
754	Cell[CellGroupData[{
755
756	Cell[BoxData["LGHiggsO2"], "Input",
757	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
758	3.411910290186841^9, 3.411910292005392^9}, 3.454052293282386*^9, {
759	3.454057094128326^9, 3.454057094642251^9}, 3.45406122079182*^9,
760	3.846587079935059*^9},ExpressionUUID->"0b6ab6a8-4b40-48b1-b8de-\
761	c216aa59c101"],
762
763	Cell[BoxData[
764	FormBox[
765	RowBox[{
766	RowBox[{"-",
767	FractionBox["1", "2"]}], " ",
768	FormBox["\[Kappa]",
769	TraditionalForm], " ",
770	RowBox[{
771	FormBox[
772	SubscriptBox["h",
773	RowBox[{
774	FormBox["\[Mu]",
775	TraditionalForm], ",",
776	FormBox["\[Nu]",
777	TraditionalForm]}]],
778	TraditionalForm], ".",
779	RowBox[{"(",
780	RowBox[{
781	RowBox[{
782	RowBox[{"-",
783	FractionBox["1", "4"]}], " ", "\[Lambda]", " ",
784	SuperscriptBox[
785	RowBox[{"(",
786	RowBox[{"H", "+", "v"}], ")"}], "4"]}], "+",
787	RowBox[{
788	FractionBox["1", "2"], " ",
789	SuperscriptBox[
790	FormBox["\[Mu]",
791	TraditionalForm], "2"], " ",
792	SuperscriptBox[
793	RowBox[{"(",
794	RowBox[{"H", "+", "v"}], ")"}], "2"]}], "+",
795	FractionBox[
796	RowBox[{
797	SuperscriptBox[
798	FormBox["e",
799	TraditionalForm], "2"], " ",
800	RowBox[{"(",
801	RowBox[{
802	FormBox[
803	SubscriptBox["Wi",
804	RowBox[{
805	FormBox["\[Mu]",
806	TraditionalForm], ",", "1"}]],
807	TraditionalForm], "+",
808	RowBox[{"\[ImaginaryI]", " ",
809	FormBox[
810	SubscriptBox["Wi",
811	RowBox[{
812	FormBox["\[Mu]",
813	TraditionalForm], ",", "2"}]],
814	TraditionalForm]}]}], ")"}], " ",
815	RowBox[{"(",
816	RowBox[{
817	FormBox[
818	SubscriptBox["Wi",
819	RowBox[{
820	FormBox["\[Nu]",
821	TraditionalForm], ",", "1"}]],
822	TraditionalForm], "-",
823	RowBox[{"\[ImaginaryI]", " ",
824	FormBox[
825	SubscriptBox["Wi",
826	RowBox[{
827	FormBox["\[Nu]",
828	TraditionalForm], ",", "2"}]],
829	TraditionalForm]}]}], ")"}], " ",
830	SuperscriptBox[
831	RowBox[{"(",
832	RowBox[{"H", "+", "v"}], ")"}], "2"]}],
833	RowBox[{"8", " ",
834	SuperscriptBox[
835	FormBox[
836	SubscriptBox["s", "w"],
837	TraditionalForm], "2"]}]], "+",
838	FractionBox[
839	RowBox[{
840	SuperscriptBox[
841	FormBox["e",
842	TraditionalForm], "2"], " ",
843	RowBox[{"(",
844	RowBox[{
845	FormBox[
846	SubscriptBox["Wi",
847	RowBox[{
848	FormBox["\[Mu]",
849	TraditionalForm], ",", "1"}]],
850	TraditionalForm], "-",
851	RowBox[{"\[ImaginaryI]", " ",
852	FormBox[
853	SubscriptBox["Wi",
854	RowBox[{
855	FormBox["\[Mu]",
856	TraditionalForm], ",", "2"}]],
857	TraditionalForm]}]}], ")"}], " ",
858	RowBox[{"(",
859	RowBox[{
860	FormBox[
861	SubscriptBox["Wi",
862	RowBox[{
863	FormBox["\[Nu]",
864	TraditionalForm], ",", "1"}]],
865	TraditionalForm], "+",
866	RowBox[{"\[ImaginaryI]", " ",
867	FormBox[
868	SubscriptBox["Wi",
869	RowBox[{
870	FormBox["\[Nu]",
871	TraditionalForm], ",", "2"}]],
872	TraditionalForm]}]}], ")"}], " ",
873	SuperscriptBox[
874	RowBox[{"(",
875	RowBox[{"H", "+", "v"}], ")"}], "2"]}],
876	RowBox[{"8", " ",
877	SuperscriptBox[
878	FormBox[
879	SubscriptBox["s", "w"],
880	TraditionalForm], "2"]}]], "-",
881	RowBox[{
882	FormBox[
883	SubscriptBox["\[Eta]",
884	RowBox[{
885	FormBox[
886	FormBox["\[Mu]",
887	TraditionalForm],
888	TraditionalForm], ",",
889	FormBox[
890	FormBox["\[Nu]",
891	TraditionalForm],
892	TraditionalForm]}]],
893	TraditionalForm], ".",
894	RowBox[{"(",
895	RowBox[{
896	FractionBox[
897	RowBox[{
898	SuperscriptBox[
899	FormBox["e",
900	TraditionalForm], "2"], " ",
901	RowBox[{"(",
902	RowBox[{
903	FormBox[
904	SubscriptBox["Wi",
905	RowBox[{
906	FormBox["\[Rho]",
907	TraditionalForm], ",", "1"}]],
908	TraditionalForm], "-",
909	RowBox[{"\[ImaginaryI]", " ",
910	FormBox[
911	SubscriptBox["Wi",
912	RowBox[{
913	FormBox["\[Rho]",
914	TraditionalForm], ",", "2"}]],
915	TraditionalForm]}]}], ")"}], " ",
916	RowBox[{"(",
917	RowBox[{
918	FormBox[
919	SubscriptBox["Wi",
920	RowBox[{
921	FormBox["\[Rho]",
922	TraditionalForm], ",", "1"}]],
923	TraditionalForm], "+",
924	RowBox[{"\[ImaginaryI]", " ",
925	FormBox[
926	SubscriptBox["Wi",
927	RowBox[{
928	FormBox["\[Rho]",
929	TraditionalForm], ",", "2"}]],
930	TraditionalForm]}]}], ")"}], " ",
931	SuperscriptBox[
932	RowBox[{"(",
933	RowBox[{"H", "+", "v"}], ")"}], "2"]}],
934	RowBox[{"8", " ",
935	SuperscriptBox[
936	FormBox[
937	SubscriptBox["s", "w"],
938	TraditionalForm], "2"]}]], "+",
939	RowBox[{
940	RowBox[{"(",
941	RowBox[{
942	FractionBox[
943	RowBox[{
944	FormBox["e",
945	TraditionalForm], " ",
946	RowBox[{"(",
947	RowBox[{"H", "+", "v"}], ")"}], " ",
948	FormBox[
949	SubscriptBox["B",
950	FormBox["\[Rho]",
951	TraditionalForm]],
952	TraditionalForm]}],
953	RowBox[{"2", " ",
954	SqrtBox["2"], " ",
955	FormBox[
956	SubscriptBox["c", "w"],
957	TraditionalForm]}]], "-",
958	FractionBox[
959	RowBox[{"\[ImaginaryI]", " ",
960	FormBox[
961	RowBox[{
962	SubscriptBox["\<\"\[PartialD]\"\>",
963	FormBox["\[Rho]",
964	TraditionalForm]], "(", "H", ")"}],
965	TraditionalForm]}],
966	SqrtBox["2"]], "-",
967	FractionBox[
968	RowBox[{
969	FormBox["e",
970	TraditionalForm], " ",
971	RowBox[{"(",
972	RowBox[{"H", "+", "v"}], ")"}], " ",
973	FormBox[
974	SubscriptBox["Wi",
975	RowBox[{
976	FormBox["\[Rho]",
977	TraditionalForm], ",", "3"}]],
978	TraditionalForm]}],
979	RowBox[{"2", " ",
980	SqrtBox["2"], " ",
981	FormBox[
982	SubscriptBox["s", "w"],
983	TraditionalForm]}]]}], ")"}], " ",
984	RowBox[{"(",
985	RowBox[{
986	FractionBox[
987	RowBox[{
988	FormBox["e",
989	TraditionalForm], " ",
990	RowBox[{"(",
991	RowBox[{"H", "+", "v"}], ")"}], " ",
992	FormBox[
993	SubscriptBox["B",
994	FormBox["\[Rho]",
995	TraditionalForm]],
996	TraditionalForm]}],
997	RowBox[{"2", " ",
998	SqrtBox["2"], " ",
999	FormBox[
1000	SubscriptBox["c", "w"],
1001	TraditionalForm]}]], "+",
1002	FractionBox[
1003	RowBox[{"\[ImaginaryI]", " ",
1004	FormBox[
1005	RowBox[{
1006	SubscriptBox["\<\"\[PartialD]\"\>",
1007	FormBox["\[Rho]",
1008	TraditionalForm]], "(", "H", ")"}],
1009	TraditionalForm]}],
1010	SqrtBox["2"]], "-",
1011	FractionBox[
1012	RowBox[{
1013	FormBox["e",
1014	TraditionalForm], " ",
1015	RowBox[{"(",
1016	RowBox[{"H", "+", "v"}], ")"}], " ",
1017	FormBox[
1018	SubscriptBox["Wi",
1019	RowBox[{
1020	FormBox["\[Rho]",
1021	TraditionalForm], ",", "3"}]],
1022	TraditionalForm]}],
1023	RowBox[{"2", " ",
1024	SqrtBox["2"], " ",
1025	FormBox[
1026	SubscriptBox["s", "w"],
1027	TraditionalForm]}]]}], ")"}]}]}], ")"}]}], "+",
1028	RowBox[{
1029	RowBox[{"(",
1030	RowBox[{
1031	FractionBox[
1032	RowBox[{
1033	FormBox["e",
1034	TraditionalForm], " ",
1035	RowBox[{"(",
1036	RowBox[{"H", "+", "v"}], ")"}], " ",
1037	FormBox[
1038	SubscriptBox["B",
1039	FormBox["\[Mu]",
1040	TraditionalForm]],
1041	TraditionalForm]}],
1042	RowBox[{"2", " ",
1043	SqrtBox["2"], " ",
1044	FormBox[
1045	SubscriptBox["c", "w"],
1046	TraditionalForm]}]], "+",
1047	FractionBox[
1048	RowBox[{"\[ImaginaryI]", " ",
1049	FormBox[
1050	RowBox[{
1051	SubscriptBox["\<\"\[PartialD]\"\>",
1052	FormBox["\[Mu]",
1053	TraditionalForm]], "(", "H", ")"}],
1054	TraditionalForm]}],
1055	SqrtBox["2"]], "-",
1056	FractionBox[
1057	RowBox[{
1058	FormBox["e",
1059	TraditionalForm], " ",
1060	RowBox[{"(",
1061	RowBox[{"H", "+", "v"}], ")"}], " ",
1062	FormBox[
1063	SubscriptBox["Wi",
1064	RowBox[{
1065	FormBox["\[Mu]",
1066	TraditionalForm], ",", "3"}]],
1067	TraditionalForm]}],
1068	RowBox[{"2", " ",
1069	SqrtBox["2"], " ",
1070	FormBox[
1071	SubscriptBox["s", "w"],
1072	TraditionalForm]}]]}], ")"}], " ",
1073	RowBox[{"(",
1074	RowBox[{
1075	FractionBox[
1076	RowBox[{
1077	FormBox["e",
1078	TraditionalForm], " ",
1079	RowBox[{"(",
1080	RowBox[{"H", "+", "v"}], ")"}], " ",
1081	FormBox[
1082	SubscriptBox["B",
1083	FormBox["\[Nu]",
1084	TraditionalForm]],
1085	TraditionalForm]}],
1086	RowBox[{"2", " ",
1087	SqrtBox["2"], " ",
1088	FormBox[
1089	SubscriptBox["c", "w"],
1090	TraditionalForm]}]], "-",
1091	FractionBox[
1092	RowBox[{"\[ImaginaryI]", " ",
1093	FormBox[
1094	RowBox[{
1095	SubscriptBox["\<\"\[PartialD]\"\>",
1096	FormBox["\[Nu]",
1097	TraditionalForm]], "(", "H", ")"}],
1098	TraditionalForm]}],
1099	SqrtBox["2"]], "-",
1100	FractionBox[
1101	RowBox[{
1102	FormBox["e",
1103	TraditionalForm], " ",
1104	RowBox[{"(",
1105	RowBox[{"H", "+", "v"}], ")"}], " ",
1106	FormBox[
1107	SubscriptBox["Wi",
1108	RowBox[{
1109	FormBox["\[Nu]",
1110	TraditionalForm], ",", "3"}]],
1111	TraditionalForm]}],
1112	RowBox[{"2", " ",
1113	SqrtBox["2"], " ",
1114	FormBox[
1115	SubscriptBox["s", "w"],
1116	TraditionalForm]}]]}], ")"}]}], "+",
1117	RowBox[{
1118	RowBox[{"(",
1119	RowBox[{
1120	FractionBox[
1121	RowBox[{
1122	FormBox["e",
1123	TraditionalForm], " ",
1124	RowBox[{"(",
1125	RowBox[{"H", "+", "v"}], ")"}], " ",
1126	FormBox[
1127	SubscriptBox["B",
1128	FormBox["\[Mu]",
1129	TraditionalForm]],
1130	TraditionalForm]}],
1131	RowBox[{"2", " ",
1132	SqrtBox["2"], " ",
1133	FormBox[
1134	SubscriptBox["c", "w"],
1135	TraditionalForm]}]], "-",
1136	FractionBox[
1137	RowBox[{"\[ImaginaryI]", " ",
1138	FormBox[
1139	RowBox[{
1140	SubscriptBox["\<\"\[PartialD]\"\>",
1141	FormBox["\[Mu]",
1142	TraditionalForm]], "(", "H", ")"}],
1143	TraditionalForm]}],
1144	SqrtBox["2"]], "-",
1145	FractionBox[
1146	RowBox[{
1147	FormBox["e",
1148	TraditionalForm], " ",
1149	RowBox[{"(",
1150	RowBox[{"H", "+", "v"}], ")"}], " ",
1151	FormBox[
1152	SubscriptBox["Wi",
1153	RowBox[{
1154	FormBox["\[Mu]",
1155	TraditionalForm], ",", "3"}]],
1156	TraditionalForm]}],
1157	RowBox[{"2", " ",
1158	SqrtBox["2"], " ",
1159	FormBox[
1160	SubscriptBox["s", "w"],
1161	TraditionalForm]}]]}], ")"}], " ",
1162	RowBox[{"(",
1163	RowBox[{
1164	FractionBox[
1165	RowBox[{
1166	FormBox["e",
1167	TraditionalForm], " ",
1168	RowBox[{"(",
1169	RowBox[{"H", "+", "v"}], ")"}], " ",
1170	FormBox[
1171	SubscriptBox["B",
1172	FormBox["\[Nu]",
1173	TraditionalForm]],
1174	TraditionalForm]}],
1175	RowBox[{"2", " ",
1176	SqrtBox["2"], " ",
1177	FormBox[
1178	SubscriptBox["c", "w"],
1179	TraditionalForm]}]], "+",
1180	FractionBox[
1181	RowBox[{"\[ImaginaryI]", " ",
1182	FormBox[
1183	RowBox[{
1184	SubscriptBox["\<\"\[PartialD]\"\>",
1185	FormBox["\[Nu]",
1186	TraditionalForm]], "(", "H", ")"}],
1187	TraditionalForm]}],
1188	SqrtBox["2"]], "-",
1189	FractionBox[
1190	RowBox[{
1191	FormBox["e",
1192	TraditionalForm], " ",
1193	RowBox[{"(",
1194	RowBox[{"H", "+", "v"}], ")"}], " ",
1195	FormBox[
1196	SubscriptBox["Wi",
1197	RowBox[{
1198	FormBox["\[Nu]",
1199	TraditionalForm], ",", "3"}]],
1200	TraditionalForm]}],
1201	RowBox[{"2", " ",
1202	SqrtBox["2"], " ",
1203	FormBox[
1204	SubscriptBox["s", "w"],
1205	TraditionalForm]}]]}], ")"}]}]}], ")"}]}]}],
1206	TraditionalForm]], "Output",
1207	CellChangeTimes->{
1208	3.454061221137125*^9},ExpressionUUID->"291dcac5-8f83-4b14-8091-\
1209	6467de9ab4bb"]
1210	}, Closed]]
1211	}, Open ]],
1212
1213	Cell[CellGroupData[{
1214
1215	Cell["Gravitons + Fermion sector", "Subsubsection",
1216	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
1217	3.4119103528868923`^9, 3.411910357404933^9}, {3.846587199928822*^9,
1218	3.8465872270347633`*^9}},ExpressionUUID->"e55c713f-40d3-442f-872b-\
1219	50b0e6cec5f2"],
1220
1221	Cell[CellGroupData[{
1222
1223	Cell[BoxData["LGFermionsO2"], "Input",
1224	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
1225	3.411910379677638^9, 3.4119103807255^9}, {3.454050812632284*^9,
1226	3.4540508182235947`^9}, 3.4540522991223593`^9, {3.454057102034585*^9,
1227	3.454057104921763^9}, 3.454061223464816^9,
1228	3.8465870757434187`*^9},ExpressionUUID->"b9e6afda-6b21-4d26-b289-\
1229	4e476fc55518"],
1230
1231	Cell[BoxData[
1232	FormBox[
1233	RowBox[{
1234	RowBox[{"-",
1235	FractionBox["1", "2"]}], " ",
1236	FormBox["\[Kappa]",
1237	TraditionalForm], " ",
1238	RowBox[{
1239	FormBox[
1240	SubscriptBox["h",
1241	RowBox[{
1242	FormBox["\[Mu]",
1243	TraditionalForm], ",",
1244	FormBox["\[Nu]",
1245	TraditionalForm]}]],
1246	TraditionalForm], ".",
1247	RowBox[{"(",
1248	RowBox[{
1249	RowBox[{
1250	RowBox[{"-",
1251	FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ",
1252	FormBox[
1253	RowBox[{
1254	SubscriptBox["\<\"\[PartialD]\"\>",
1255	FormBox["\[Nu]",
1256	TraditionalForm]], "(",
1257	RowBox[{
1258	FormBox[
1259	SuperscriptBox["dq", "\[Dagger]"],
1260	TraditionalForm], ".",
1261	FormBox[
1262	SuperscriptBox["\[Gamma]",
1263	FormBox["\[Mu]",
1264	TraditionalForm]],
1265	TraditionalForm], ".", "dq"}], ")"}],
1266	TraditionalForm]}], "-",
1267	RowBox[{
1268	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1269	FormBox[
1270	RowBox[{
1271	SubscriptBox["\<\"\[PartialD]\"\>",
1272	FormBox["\[Mu]",
1273	TraditionalForm]], "(",
1274	RowBox[{
1275	FormBox[
1276	SuperscriptBox["dq", "\[Dagger]"],
1277	TraditionalForm], ".",
1278	FormBox[
1279	SuperscriptBox["\[Gamma]",
1280	FormBox["\[Nu]",
1281	TraditionalForm]],
1282	TraditionalForm], ".", "dq"}], ")"}],
1283	TraditionalForm]}], "-",
1284	RowBox[{
1285	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1286	FormBox[
1287	RowBox[{
1288	SubscriptBox["\<\"\[PartialD]\"\>",
1289	FormBox["\[Nu]",
1290	TraditionalForm]], "(",
1291	RowBox[{
1292	FormBox[
1293	SuperscriptBox["l", "\[Dagger]"],
1294	TraditionalForm], ".",
1295	FormBox[
1296	SuperscriptBox["\[Gamma]",
1297	FormBox["\[Mu]",
1298	TraditionalForm]],
1299	TraditionalForm], ".", "l"}], ")"}],
1300	TraditionalForm]}], "-",
1301	RowBox[{
1302	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1303	FormBox[
1304	RowBox[{
1305	SubscriptBox["\<\"\[PartialD]\"\>",
1306	FormBox["\[Mu]",
1307	TraditionalForm]], "(",
1308	RowBox[{
1309	FormBox[
1310	SuperscriptBox["l", "\[Dagger]"],
1311	TraditionalForm], ".",
1312	FormBox[
1313	SuperscriptBox["\[Gamma]",
1314	FormBox["\[Nu]",
1315	TraditionalForm]],
1316	TraditionalForm], ".", "l"}], ")"}],
1317	TraditionalForm]}], "-",
1318	RowBox[{
1319	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1320	FormBox[
1321	RowBox[{
1322	SubscriptBox["\<\"\[PartialD]\"\>",
1323	FormBox["\[Nu]",
1324	TraditionalForm]], "(",
1325	RowBox[{
1326	FormBox[
1327	SuperscriptBox["uq", "\[Dagger]"],
1328	TraditionalForm], ".",
1329	FormBox[
1330	SuperscriptBox["\[Gamma]",
1331	FormBox["\[Mu]",
1332	TraditionalForm]],
1333	TraditionalForm], ".", "uq"}], ")"}],
1334	TraditionalForm]}], "-",
1335	RowBox[{
1336	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1337	FormBox[
1338	RowBox[{
1339	SubscriptBox["\<\"\[PartialD]\"\>",
1340	FormBox["\[Mu]",
1341	TraditionalForm]], "(",
1342	RowBox[{
1343	FormBox[
1344	SuperscriptBox["uq", "\[Dagger]"],
1345	TraditionalForm], ".",
1346	FormBox[
1347	SuperscriptBox["\[Gamma]",
1348	FormBox["\[Nu]",
1349	TraditionalForm]],
1350	TraditionalForm], ".", "uq"}], ")"}],
1351	TraditionalForm]}], "-",
1352	RowBox[{
1353	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1354	FormBox[
1355	RowBox[{
1356	SubscriptBox["\<\"\[PartialD]\"\>",
1357	FormBox["\[Nu]",
1358	TraditionalForm]], "(",
1359	RowBox[{
1360	FormBox[
1361	SuperscriptBox["vl", "\[Dagger]"],
1362	TraditionalForm], ".",
1363	FormBox[
1364	SuperscriptBox["\[Gamma]",
1365	FormBox["\[Mu]",
1366	TraditionalForm]],
1367	TraditionalForm], ".", "vl"}], ")"}],
1368	TraditionalForm]}], "-",
1369	RowBox[{
1370	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1371	FormBox[
1372	RowBox[{
1373	SubscriptBox["\<\"\[PartialD]\"\>",
1374	FormBox["\[Mu]",
1375	TraditionalForm]], "(",
1376	RowBox[{
1377	FormBox[
1378	SuperscriptBox["vl", "\[Dagger]"],
1379	TraditionalForm], ".",
1380	FormBox[
1381	SuperscriptBox["\[Gamma]",
1382	FormBox["\[Nu]",
1383	TraditionalForm]],
1384	TraditionalForm], ".", "vl"}], ")"}],
1385	TraditionalForm]}], "-",
1386	RowBox[{
1387	FormBox[
1388	SubscriptBox["\[Eta]",
1389	RowBox[{
1390	FormBox[
1391	FormBox["\[Mu]",
1392	TraditionalForm],
1393	TraditionalForm], ",",
1394	FormBox[
1395	FormBox["\[Nu]",
1396	TraditionalForm],
1397	TraditionalForm]}]],
1398	TraditionalForm], ".",
1399	RowBox[{"(",
1400	RowBox[{
1401	RowBox[{
1402	RowBox[{"-",
1403	FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ",
1404	FormBox[
1405	RowBox[{
1406	SubscriptBox["\<\"\[PartialD]\"\>",
1407	FormBox["\[Rho]",
1408	TraditionalForm]], "(",
1409	RowBox[{
1410	FormBox[
1411	SuperscriptBox["dq", "\[Dagger]"],
1412	TraditionalForm], ".",
1413	FormBox[
1414	SuperscriptBox["\[Gamma]",
1415	FormBox["\[Rho]",
1416	TraditionalForm]],
1417	TraditionalForm], ".", "dq"}], ")"}],
1418	TraditionalForm]}], "-",
1419	RowBox[{
1420	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1421	FormBox[
1422	RowBox[{
1423	SubscriptBox["\<\"\[PartialD]\"\>",
1424	FormBox["\[Rho]",
1425	TraditionalForm]], "(",
1426	RowBox[{
1427	FormBox[
1428	SuperscriptBox["l", "\[Dagger]"],
1429	TraditionalForm], ".",
1430	FormBox[
1431	SuperscriptBox["\[Gamma]",
1432	FormBox["\[Rho]",
1433	TraditionalForm]],
1434	TraditionalForm], ".", "l"}], ")"}],
1435	TraditionalForm]}], "-",
1436	RowBox[{
1437	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1438	FormBox[
1439	RowBox[{
1440	SubscriptBox["\<\"\[PartialD]\"\>",
1441	FormBox["\[Rho]",
1442	TraditionalForm]], "(",
1443	RowBox[{
1444	FormBox[
1445	SuperscriptBox["uq", "\[Dagger]"],
1446	TraditionalForm], ".",
1447	FormBox[
1448	SuperscriptBox["\[Gamma]",
1449	FormBox["\[Rho]",
1450	TraditionalForm]],
1451	TraditionalForm], ".", "uq"}], ")"}],
1452	TraditionalForm]}], "-",
1453	RowBox[{
1454	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1455	FormBox[
1456	RowBox[{
1457	SubscriptBox["\<\"\[PartialD]\"\>",
1458	FormBox["\[Rho]",
1459	TraditionalForm]], "(",
1460	RowBox[{
1461	FormBox[
1462	SuperscriptBox["vl", "\[Dagger]"],
1463	TraditionalForm], ".",
1464	FormBox[
1465	SuperscriptBox["\[Gamma]",
1466	FormBox["\[Rho]",
1467	TraditionalForm]],
1468	TraditionalForm], ".", "vl"}], ")"}],
1469	TraditionalForm]}], "+",
1470	RowBox[{"\[ImaginaryI]", " ",
1471	RowBox[{
1472	FormBox[
1473	SuperscriptBox["dq", "\[Dagger]"],
1474	TraditionalForm], ".",
1475	FormBox[
1476	SuperscriptBox["\[Gamma]",
1477	FormBox["\[Rho]",
1478	TraditionalForm]],
1479	TraditionalForm], ".",
1480	RowBox[{"(",
1481	RowBox[{
1482	FormBox[
1483	RowBox[{
1484	SubscriptBox["\<\"\[PartialD]\"\>",
1485	FormBox["\[Rho]",
1486	TraditionalForm]], "(", "dq", ")"}],
1487	TraditionalForm], "-",
1488	FractionBox[
1489	RowBox[{"\[ImaginaryI]", " ",
1490	FormBox["e",
1491	TraditionalForm], " ",
1492	FormBox[
1493	SubscriptBox["B",
1494	FormBox["\[Rho]",
1495	TraditionalForm]],
1496	TraditionalForm], " ",
1497	RowBox[{
1498	FormBox[
1499	SubscriptBox["P", "\<\"-\"\>"],
1500	TraditionalForm], ".", "dq"}]}],
1501	RowBox[{"6", " ",
1502	FormBox[
1503	SubscriptBox["c", "w"],
1504	TraditionalForm]}]], "+",
1505	FractionBox[
1506	RowBox[{"\[ImaginaryI]", " ",
1507	FormBox["e",
1508	TraditionalForm], " ",
1509	FormBox[
1510	SubscriptBox["B",
1511	FormBox["\[Rho]",
1512	TraditionalForm]],
1513	TraditionalForm], " ",
1514	RowBox[{
1515	FormBox[
1516	SubscriptBox["P", "\<\"+\"\>"],
1517	TraditionalForm], ".", "dq"}]}],
1518	RowBox[{"3", " ",
1519	FormBox[
1520	SubscriptBox["c", "w"],
1521	TraditionalForm]}]], "-",
1522	RowBox[{"\[ImaginaryI]", " ",
1523	FormBox[
1524	SubscriptBox["g", "s"],
1525	TraditionalForm], " ",
1526	RowBox[{
1527	FormBox[
1528	SuperscriptBox["T", "a$182"],
1529	TraditionalForm], ".", "dq"}], " ",
1530	FormBox[
1531	SubscriptBox["G",
1532	RowBox[{
1533	FormBox["\[Rho]",
1534	TraditionalForm], ",", "a$182"}]],
1535	TraditionalForm]}], "+",
1536	FractionBox[
1537	RowBox[{"\[ImaginaryI]", " ",
1538	FormBox["e",
1539	TraditionalForm], " ",
1540	RowBox[{
1541	FormBox[
1542	SubscriptBox["P", "\<\"-\"\>"],
1543	TraditionalForm], ".", "dq"}], " ",
1544	FormBox[
1545	SubscriptBox["Wi",
1546	RowBox[{
1547	FormBox["\[Rho]",
1548	TraditionalForm], ",", "3"}]],
1549	TraditionalForm]}],
1550	RowBox[{"2", " ",
1551	FormBox[
1552	SubscriptBox["s", "w"],
1553	TraditionalForm]}]]}], ")"}]}]}], "+",
1554	RowBox[{"\[ImaginaryI]", " ",
1555	RowBox[{
1556	FormBox[
1557	SuperscriptBox["l", "\[Dagger]"],
1558	TraditionalForm], ".",
1559	FormBox[
1560	SuperscriptBox["\[Gamma]",
1561	FormBox["\[Rho]",
1562	TraditionalForm]],
1563	TraditionalForm], ".",
1564	RowBox[{"(",
1565	RowBox[{
1566	FormBox[
1567	RowBox[{
1568	SubscriptBox["\<\"\[PartialD]\"\>",
1569	FormBox["\[Rho]",
1570	TraditionalForm]], "(", "l", ")"}],
1571	TraditionalForm], "-",
1572	FractionBox[
1573	RowBox[{"\[ImaginaryI]", " ",
1574	FormBox["e",
1575	TraditionalForm], " ",
1576	FormBox[
1577	SubscriptBox["B",
1578	FormBox["\[Rho]",
1579	TraditionalForm]],
1580	TraditionalForm], " ",
1581	RowBox[{
1582	FormBox[
1583	SubscriptBox["P", "\<\"-\"\>"],
1584	TraditionalForm], ".", "l"}]}],
1585	RowBox[{"2", " ",
1586	FormBox[
1587	SubscriptBox["c", "w"],
1588	TraditionalForm]}]], "+",
1589	FractionBox[
1590	RowBox[{"\[ImaginaryI]", " ",
1591	FormBox["e",
1592	TraditionalForm], " ",
1593	FormBox[
1594	SubscriptBox["B",
1595	FormBox["\[Rho]",
1596	TraditionalForm]],
1597	TraditionalForm], " ",
1598	RowBox[{
1599	FormBox[
1600	SubscriptBox["P", "\<\"+\"\>"],
1601	TraditionalForm], ".", "l"}]}],
1602	FormBox[
1603	SubscriptBox["c", "w"],
1604	TraditionalForm]], "+",
1605	FractionBox[
1606	RowBox[{"\[ImaginaryI]", " ",
1607	FormBox["e",
1608	TraditionalForm], " ",
1609	RowBox[{
1610	FormBox[
1611	SubscriptBox["P", "\<\"-\"\>"],
1612	TraditionalForm], ".", "l"}], " ",
1613	FormBox[
1614	SubscriptBox["Wi",
1615	RowBox[{
1616	FormBox["\[Rho]",
1617	TraditionalForm], ",", "3"}]],
1618	TraditionalForm]}],
1619	RowBox[{"2", " ",
1620	FormBox[
1621	SubscriptBox["s", "w"],
1622	TraditionalForm]}]]}], ")"}]}]}], "+",
1623	RowBox[{"\[ImaginaryI]", " ",
1624	RowBox[{
1625	FormBox[
1626	SuperscriptBox["uq", "\[Dagger]"],
1627	TraditionalForm], ".",
1628	FormBox[
1629	SuperscriptBox["\[Gamma]",
1630	FormBox["\[Rho]",
1631	TraditionalForm]],
1632	TraditionalForm], ".",
1633	RowBox[{"(",
1634	RowBox[{
1635	FormBox[
1636	RowBox[{
1637	SubscriptBox["\<\"\[PartialD]\"\>",
1638	FormBox["\[Rho]",
1639	TraditionalForm]], "(", "uq", ")"}],
1640	TraditionalForm], "-",
1641	FractionBox[
1642	RowBox[{"\[ImaginaryI]", " ",
1643	FormBox["e",
1644	TraditionalForm], " ",
1645	FormBox[
1646	SubscriptBox["B",
1647	FormBox["\[Rho]",
1648	TraditionalForm]],
1649	TraditionalForm], " ",
1650	RowBox[{
1651	FormBox[
1652	SubscriptBox["P", "\<\"-\"\>"],
1653	TraditionalForm], ".", "uq"}]}],
1654	RowBox[{"6", " ",
1655	FormBox[
1656	SubscriptBox["c", "w"],
1657	TraditionalForm]}]], "-",
1658	FractionBox[
1659	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1660	FormBox["e",
1661	TraditionalForm], " ",
1662	FormBox[
1663	SubscriptBox["B",
1664	FormBox["\[Rho]",
1665	TraditionalForm]],
1666	TraditionalForm], " ",
1667	RowBox[{
1668	FormBox[
1669	SubscriptBox["P", "\<\"+\"\>"],
1670	TraditionalForm], ".", "uq"}]}],
1671	RowBox[{"3", " ",
1672	FormBox[
1673	SubscriptBox["c", "w"],
1674	TraditionalForm]}]], "-",
1675	RowBox[{"\[ImaginaryI]", " ",
1676	FormBox[
1677	SubscriptBox["g", "s"],
1678	TraditionalForm], " ",
1679	RowBox[{
1680	FormBox[
1681	SuperscriptBox["T", "a$181"],
1682	TraditionalForm], ".", "uq"}], " ",
1683	FormBox[
1684	SubscriptBox["G",
1685	RowBox[{
1686	FormBox["\[Rho]",
1687	TraditionalForm], ",", "a$181"}]],
1688	TraditionalForm]}], "-",
1689	FractionBox[
1690	RowBox[{"\[ImaginaryI]", " ",
1691	FormBox["e",
1692	TraditionalForm], " ",
1693	RowBox[{
1694	FormBox[
1695	SubscriptBox["P", "\<\"-\"\>"],
1696	TraditionalForm], ".", "uq"}], " ",
1697	FormBox[
1698	SubscriptBox["Wi",
1699	RowBox[{
1700	FormBox["\[Rho]",
1701	TraditionalForm], ",", "3"}]],
1702	TraditionalForm]}],
1703	RowBox[{"2", " ",
1704	FormBox[
1705	SubscriptBox["s", "w"],
1706	TraditionalForm]}]]}], ")"}]}]}], "+",
1707	RowBox[{"\[ImaginaryI]", " ",
1708	RowBox[{
1709	FormBox[
1710	SuperscriptBox["vl", "\[Dagger]"],
1711	TraditionalForm], ".",
1712	FormBox[
1713	SuperscriptBox["\[Gamma]",
1714	FormBox["\[Rho]",
1715	TraditionalForm]],
1716	TraditionalForm], ".",
1717	RowBox[{"(",
1718	RowBox[{
1719	FormBox[
1720	RowBox[{
1721	SubscriptBox["\<\"\[PartialD]\"\>",
1722	FormBox["\[Rho]",
1723	TraditionalForm]], "(", "vl", ")"}],
1724	TraditionalForm], "+",
1725	FractionBox[
1726	RowBox[{"\[ImaginaryI]", " ",
1727	FormBox["e",
1728	TraditionalForm], " ",
1729	FormBox[
1730	SubscriptBox["B",
1731	FormBox["\[Rho]",
1732	TraditionalForm]],
1733	TraditionalForm], " ",
1734	RowBox[{
1735	FormBox[
1736	SubscriptBox["P", "\<\"-\"\>"],
1737	TraditionalForm], ".", "vl"}]}],
1738	RowBox[{"2", " ",
1739	FormBox[
1740	SubscriptBox["c", "w"],
1741	TraditionalForm]}]], "-",
1742	FractionBox[
1743	RowBox[{"\[ImaginaryI]", " ",
1744	FormBox["e",
1745	TraditionalForm], " ",
1746	RowBox[{
1747	FormBox[
1748	SubscriptBox["P", "\<\"-\"\>"],
1749	TraditionalForm], ".", "vl"}], " ",
1750	FormBox[
1751	SubscriptBox["Wi",
1752	RowBox[{
1753	FormBox["\[Rho]",
1754	TraditionalForm], ",", "3"}]],
1755	TraditionalForm]}],
1756	RowBox[{"2", " ",
1757	FormBox[
1758	SubscriptBox["s", "w"],
1759	TraditionalForm]}]]}], ")"}]}]}], "-",
1760	FractionBox[
1761	RowBox[{
1762	FormBox["e",
1763	TraditionalForm], " ",
1764	RowBox[{"(",
1765	RowBox[{
1766	RowBox[{"CKM", " ",
1767	RowBox[{
1768	FormBox[
1769	SuperscriptBox["uq", "\[Dagger]"],
1770	TraditionalForm], ".",
1771	FormBox[
1772	SuperscriptBox["\[Gamma]",
1773	FormBox["\[Rho]",
1774	TraditionalForm]],
1775	TraditionalForm], ".",
1776	FormBox[
1777	SubscriptBox["P", "\<\"-\"\>"],
1778	TraditionalForm], ".", "dq"}], " ",
1779	FormBox[
1780	SubscriptBox["W",
1781	FormBox["\[Rho]",
1782	TraditionalForm]],
1783	TraditionalForm]}], "+",
1784	RowBox[{
1785	RowBox[{
1786	FormBox[
1787	SuperscriptBox["vl", "\[Dagger]"],
1788	TraditionalForm], ".",
1789	FormBox[
1790	SuperscriptBox["\[Gamma]",
1791	FormBox["\[Rho]",
1792	TraditionalForm]],
1793	TraditionalForm], ".",
1794	FormBox[
1795	SubscriptBox["P", "\<\"-\"\>"],
1796	TraditionalForm], ".", "l"}], " ",
1797	FormBox[
1798	SubscriptBox["W",
1799	FormBox["\[Rho]",
1800	TraditionalForm]],
1801	TraditionalForm]}], "+",
1802	RowBox[{
1803	RowBox[{
1804	FormBox[
1805	SuperscriptBox["l", "\[Dagger]"],
1806	TraditionalForm], ".",
1807	FormBox[
1808	SuperscriptBox["\[Gamma]",
1809	FormBox["\[Rho]",
1810	TraditionalForm]],
1811	TraditionalForm], ".",
1812	FormBox[
1813	SubscriptBox["P", "\<\"-\"\>"],
1814	TraditionalForm], ".", "vl"}], " ",
1815	FormBox[
1816	SubsuperscriptBox["W",
1817	FormBox["\[Rho]",
1818	TraditionalForm], "\[Dagger]"],
1819	TraditionalForm]}], "+",
1820	RowBox[{
1821	RowBox[{
1822	FormBox[
1823	SuperscriptBox["dq", "\[Dagger]"],
1824	TraditionalForm], ".",
1825	FormBox[
1826	SuperscriptBox["\[Gamma]",
1827	FormBox["\[Rho]",
1828	TraditionalForm]],
1829	TraditionalForm], ".",
1830	FormBox[
1831	SubscriptBox["P", "\<\"-\"\>"],
1832	TraditionalForm], ".", "uq"}], " ",
1833	FormBox[
1834	SuperscriptBox["CKM", "\[Dagger]"],
1835	TraditionalForm], " ",
1836	FormBox[
1837	SubsuperscriptBox["W",
1838	FormBox["\[Rho]",
1839	TraditionalForm], "\[Dagger]"],
1840	TraditionalForm]}]}], ")"}]}],
1841	RowBox[{
1842	SqrtBox["2"], " ",
1843	FormBox[
1844	SubscriptBox["s", "w"],
1845	TraditionalForm]}]]}], ")"}]}], "+",
1846	RowBox[{
1847	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1848	RowBox[{
1849	FormBox[
1850	SuperscriptBox["dq", "\[Dagger]"],
1851	TraditionalForm], ".",
1852	FormBox[
1853	SuperscriptBox["\[Gamma]",
1854	FormBox["\[Mu]",
1855	TraditionalForm]],
1856	TraditionalForm], ".",
1857	RowBox[{"(",
1858	RowBox[{
1859	FormBox[
1860	RowBox[{
1861	SubscriptBox["\<\"\[PartialD]\"\>",
1862	FormBox["\[Nu]",
1863	TraditionalForm]], "(", "dq", ")"}],
1864	TraditionalForm], "-",
1865	FractionBox[
1866	RowBox[{"\[ImaginaryI]", " ",
1867	FormBox["e",
1868	TraditionalForm], " ",
1869	FormBox[
1870	SubscriptBox["B",
1871	FormBox["\[Nu]",
1872	TraditionalForm]],
1873	TraditionalForm], " ",
1874	RowBox[{
1875	FormBox[
1876	SubscriptBox["P", "\<\"-\"\>"],
1877	TraditionalForm], ".", "dq"}]}],
1878	RowBox[{"6", " ",
1879	FormBox[
1880	SubscriptBox["c", "w"],
1881	TraditionalForm]}]], "+",
1882	FractionBox[
1883	RowBox[{"\[ImaginaryI]", " ",
1884	FormBox["e",
1885	TraditionalForm], " ",
1886	FormBox[
1887	SubscriptBox["B",
1888	FormBox["\[Nu]",
1889	TraditionalForm]],
1890	TraditionalForm], " ",
1891	RowBox[{
1892	FormBox[
1893	SubscriptBox["P", "\<\"+\"\>"],
1894	TraditionalForm], ".", "dq"}]}],
1895	RowBox[{"3", " ",
1896	FormBox[
1897	SubscriptBox["c", "w"],
1898	TraditionalForm]}]], "-",
1899	RowBox[{"\[ImaginaryI]", " ",
1900	FormBox[
1901	SubscriptBox["g", "s"],
1902	TraditionalForm], " ",
1903	RowBox[{
1904	FormBox[
1905	SuperscriptBox["T", "a$187"],
1906	TraditionalForm], ".", "dq"}], " ",
1907	FormBox[
1908	SubscriptBox["G",
1909	RowBox[{
1910	FormBox["\[Nu]",
1911	TraditionalForm], ",", "a$187"}]],
1912	TraditionalForm]}], "+",
1913	FractionBox[
1914	RowBox[{"\[ImaginaryI]", " ",
1915	FormBox["e",
1916	TraditionalForm], " ",
1917	RowBox[{
1918	FormBox[
1919	SubscriptBox["P", "\<\"-\"\>"],
1920	TraditionalForm], ".", "dq"}], " ",
1921	FormBox[
1922	SubscriptBox["Wi",
1923	RowBox[{
1924	FormBox["\[Nu]",
1925	TraditionalForm], ",", "3"}]],
1926	TraditionalForm]}],
1927	RowBox[{"2", " ",
1928	FormBox[
1929	SubscriptBox["s", "w"],
1930	TraditionalForm]}]]}], ")"}]}]}], "+",
1931	RowBox[{
1932	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1933	RowBox[{
1934	FormBox[
1935	SuperscriptBox["dq", "\[Dagger]"],
1936	TraditionalForm], ".",
1937	FormBox[
1938	SuperscriptBox["\[Gamma]",
1939	FormBox["\[Nu]",
1940	TraditionalForm]],
1941	TraditionalForm], ".",
1942	RowBox[{"(",
1943	RowBox[{
1944	FormBox[
1945	RowBox[{
1946	SubscriptBox["\<\"\[PartialD]\"\>",
1947	FormBox["\[Mu]",
1948	TraditionalForm]], "(", "dq", ")"}],
1949	TraditionalForm], "-",
1950	FractionBox[
1951	RowBox[{"\[ImaginaryI]", " ",
1952	FormBox["e",
1953	TraditionalForm], " ",
1954	FormBox[
1955	SubscriptBox["B",
1956	FormBox["\[Mu]",
1957	TraditionalForm]],
1958	TraditionalForm], " ",
1959	RowBox[{
1960	FormBox[
1961	SubscriptBox["P", "\<\"-\"\>"],
1962	TraditionalForm], ".", "dq"}]}],
1963	RowBox[{"6", " ",
1964	FormBox[
1965	SubscriptBox["c", "w"],
1966	TraditionalForm]}]], "+",
1967	FractionBox[
1968	RowBox[{"\[ImaginaryI]", " ",
1969	FormBox["e",
1970	TraditionalForm], " ",
1971	FormBox[
1972	SubscriptBox["B",
1973	FormBox["\[Mu]",
1974	TraditionalForm]],
1975	TraditionalForm], " ",
1976	RowBox[{
1977	FormBox[
1978	SubscriptBox["P", "\<\"+\"\>"],
1979	TraditionalForm], ".", "dq"}]}],
1980	RowBox[{"3", " ",
1981	FormBox[
1982	SubscriptBox["c", "w"],
1983	TraditionalForm]}]], "-",
1984	RowBox[{"\[ImaginaryI]", " ",
1985	FormBox[
1986	SubscriptBox["g", "s"],
1987	TraditionalForm], " ",
1988	RowBox[{
1989	FormBox[
1990	SuperscriptBox["T", "a$188"],
1991	TraditionalForm], ".", "dq"}], " ",
1992	FormBox[
1993	SubscriptBox["G",
1994	RowBox[{
1995	FormBox["\[Mu]",
1996	TraditionalForm], ",", "a$188"}]],
1997	TraditionalForm]}], "+",
1998	FractionBox[
1999	RowBox[{"\[ImaginaryI]", " ",
2000	FormBox["e",
2001	TraditionalForm], " ",
2002	RowBox[{
2003	FormBox[
2004	SubscriptBox["P", "\<\"-\"\>"],
2005	TraditionalForm], ".", "dq"}], " ",
2006	FormBox[
2007	SubscriptBox["Wi",
2008	RowBox[{
2009	FormBox["\[Mu]",
2010	TraditionalForm], ",", "3"}]],
2011	TraditionalForm]}],
2012	RowBox[{"2", " ",
2013	FormBox[
2014	SubscriptBox["s", "w"],
2015	TraditionalForm]}]]}], ")"}]}]}], "+",
2016	RowBox[{
2017	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2018	RowBox[{
2019	FormBox[
2020	SuperscriptBox["l", "\[Dagger]"],
2021	TraditionalForm], ".",
2022	FormBox[
2023	SuperscriptBox["\[Gamma]",
2024	FormBox["\[Mu]",
2025	TraditionalForm]],
2026	TraditionalForm], ".",
2027	RowBox[{"(",
2028	RowBox[{
2029	FormBox[
2030	RowBox[{
2031	SubscriptBox["\<\"\[PartialD]\"\>",
2032	FormBox["\[Nu]",
2033	TraditionalForm]], "(", "l", ")"}],
2034	TraditionalForm], "-",
2035	FractionBox[
2036	RowBox[{"\[ImaginaryI]", " ",
2037	FormBox["e",
2038	TraditionalForm], " ",
2039	FormBox[
2040	SubscriptBox["B",
2041	FormBox["\[Nu]",
2042	TraditionalForm]],
2043	TraditionalForm], " ",
2044	RowBox[{
2045	FormBox[
2046	SubscriptBox["P", "\<\"-\"\>"],
2047	TraditionalForm], ".", "l"}]}],
2048	RowBox[{"2", " ",
2049	FormBox[
2050	SubscriptBox["c", "w"],
2051	TraditionalForm]}]], "+",
2052	FractionBox[
2053	RowBox[{"\[ImaginaryI]", " ",
2054	FormBox["e",
2055	TraditionalForm], " ",
2056	FormBox[
2057	SubscriptBox["B",
2058	FormBox["\[Nu]",
2059	TraditionalForm]],
2060	TraditionalForm], " ",
2061	RowBox[{
2062	FormBox[
2063	SubscriptBox["P", "\<\"+\"\>"],
2064	TraditionalForm], ".", "l"}]}],
2065	FormBox[
2066	SubscriptBox["c", "w"],
2067	TraditionalForm]], "+",
2068	FractionBox[
2069	RowBox[{"\[ImaginaryI]", " ",
2070	FormBox["e",
2071	TraditionalForm], " ",
2072	RowBox[{
2073	FormBox[
2074	SubscriptBox["P", "\<\"-\"\>"],
2075	TraditionalForm], ".", "l"}], " ",
2076	FormBox[
2077	SubscriptBox["Wi",
2078	RowBox[{
2079	FormBox["\[Nu]",
2080	TraditionalForm], ",", "3"}]],
2081	TraditionalForm]}],
2082	RowBox[{"2", " ",
2083	FormBox[
2084	SubscriptBox["s", "w"],
2085	TraditionalForm]}]]}], ")"}]}]}], "+",
2086	RowBox[{
2087	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2088	RowBox[{
2089	FormBox[
2090	SuperscriptBox["l", "\[Dagger]"],
2091	TraditionalForm], ".",
2092	FormBox[
2093	SuperscriptBox["\[Gamma]",
2094	FormBox["\[Nu]",
2095	TraditionalForm]],
2096	TraditionalForm], ".",
2097	RowBox[{"(",
2098	RowBox[{
2099	FormBox[
2100	RowBox[{
2101	SubscriptBox["\<\"\[PartialD]\"\>",
2102	FormBox["\[Mu]",
2103	TraditionalForm]], "(", "l", ")"}],
2104	TraditionalForm], "-",
2105	FractionBox[
2106	RowBox[{"\[ImaginaryI]", " ",
2107	FormBox["e",
2108	TraditionalForm], " ",
2109	FormBox[
2110	SubscriptBox["B",
2111	FormBox["\[Mu]",
2112	TraditionalForm]],
2113	TraditionalForm], " ",
2114	RowBox[{
2115	FormBox[
2116	SubscriptBox["P", "\<\"-\"\>"],
2117	TraditionalForm], ".", "l"}]}],
2118	RowBox[{"2", " ",
2119	FormBox[
2120	SubscriptBox["c", "w"],
2121	TraditionalForm]}]], "+",
2122	FractionBox[
2123	RowBox[{"\[ImaginaryI]", " ",
2124	FormBox["e",
2125	TraditionalForm], " ",
2126	FormBox[
2127	SubscriptBox["B",
2128	FormBox["\[Mu]",
2129	TraditionalForm]],
2130	TraditionalForm], " ",
2131	RowBox[{
2132	FormBox[
2133	SubscriptBox["P", "\<\"+\"\>"],
2134	TraditionalForm], ".", "l"}]}],
2135	FormBox[
2136	SubscriptBox["c", "w"],
2137	TraditionalForm]], "+",
2138	FractionBox[
2139	RowBox[{"\[ImaginaryI]", " ",
2140	FormBox["e",
2141	TraditionalForm], " ",
2142	RowBox[{
2143	FormBox[
2144	SubscriptBox["P", "\<\"-\"\>"],
2145	TraditionalForm], ".", "l"}], " ",
2146	FormBox[
2147	SubscriptBox["Wi",
2148	RowBox[{
2149	FormBox["\[Mu]",
2150	TraditionalForm], ",", "3"}]],
2151	TraditionalForm]}],
2152	RowBox[{"2", " ",
2153	FormBox[
2154	SubscriptBox["s", "w"],
2155	TraditionalForm]}]]}], ")"}]}]}], "+",
2156	RowBox[{
2157	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2158	RowBox[{
2159	FormBox[
2160	SuperscriptBox["uq", "\[Dagger]"],
2161	TraditionalForm], ".",
2162	FormBox[
2163	SuperscriptBox["\[Gamma]",
2164	FormBox["\[Mu]",
2165	TraditionalForm]],
2166	TraditionalForm], ".",
2167	RowBox[{"(",
2168	RowBox[{
2169	FormBox[
2170	RowBox[{
2171	SubscriptBox["\<\"\[PartialD]\"\>",
2172	FormBox["\[Nu]",
2173	TraditionalForm]], "(", "uq", ")"}],
2174	TraditionalForm], "-",
2175	FractionBox[
2176	RowBox[{"\[ImaginaryI]", " ",
2177	FormBox["e",
2178	TraditionalForm], " ",
2179	FormBox[
2180	SubscriptBox["B",
2181	FormBox["\[Nu]",
2182	TraditionalForm]],
2183	TraditionalForm], " ",
2184	RowBox[{
2185	FormBox[
2186	SubscriptBox["P", "\<\"-\"\>"],
2187	TraditionalForm], ".", "uq"}]}],
2188	RowBox[{"6", " ",
2189	FormBox[
2190	SubscriptBox["c", "w"],
2191	TraditionalForm]}]], "-",
2192	FractionBox[
2193	RowBox[{"2", " ", "\[ImaginaryI]", " ",
2194	FormBox["e",
2195	TraditionalForm], " ",
2196	FormBox[
2197	SubscriptBox["B",
2198	FormBox["\[Nu]",
2199	TraditionalForm]],
2200	TraditionalForm], " ",
2201	RowBox[{
2202	FormBox[
2203	SubscriptBox["P", "\<\"+\"\>"],
2204	TraditionalForm], ".", "uq"}]}],
2205	RowBox[{"3", " ",
2206	FormBox[
2207	SubscriptBox["c", "w"],
2208	TraditionalForm]}]], "-",
2209	RowBox[{"\[ImaginaryI]", " ",
2210	FormBox[
2211	SubscriptBox["g", "s"],
2212	TraditionalForm], " ",
2213	RowBox[{
2214	FormBox[
2215	SuperscriptBox["T", "a$185"],
2216	TraditionalForm], ".", "uq"}], " ",
2217	FormBox[
2218	SubscriptBox["G",
2219	RowBox[{
2220	FormBox["\[Nu]",
2221	TraditionalForm], ",", "a$185"}]],
2222	TraditionalForm]}], "-",
2223	FractionBox[
2224	RowBox[{"\[ImaginaryI]", " ",
2225	FormBox["e",
2226	TraditionalForm], " ",
2227	RowBox[{
2228	FormBox[
2229	SubscriptBox["P", "\<\"-\"\>"],
2230	TraditionalForm], ".", "uq"}], " ",
2231	FormBox[
2232	SubscriptBox["Wi",
2233	RowBox[{
2234	FormBox["\[Nu]",
2235	TraditionalForm], ",", "3"}]],
2236	TraditionalForm]}],
2237	RowBox[{"2", " ",
2238	FormBox[
2239	SubscriptBox["s", "w"],
2240	TraditionalForm]}]]}], ")"}]}]}], "+",
2241	RowBox[{
2242	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2243	RowBox[{
2244	FormBox[
2245	SuperscriptBox["uq", "\[Dagger]"],
2246	TraditionalForm], ".",
2247	FormBox[
2248	SuperscriptBox["\[Gamma]",
2249	FormBox["\[Nu]",
2250	TraditionalForm]],
2251	TraditionalForm], ".",
2252	RowBox[{"(",
2253	RowBox[{
2254	FormBox[
2255	RowBox[{
2256	SubscriptBox["\<\"\[PartialD]\"\>",
2257	FormBox["\[Mu]",
2258	TraditionalForm]], "(", "uq", ")"}],
2259	TraditionalForm], "-",
2260	FractionBox[
2261	RowBox[{"\[ImaginaryI]", " ",
2262	FormBox["e",
2263	TraditionalForm], " ",
2264	FormBox[
2265	SubscriptBox["B",
2266	FormBox["\[Mu]",
2267	TraditionalForm]],
2268	TraditionalForm], " ",
2269	RowBox[{
2270	FormBox[
2271	SubscriptBox["P", "\<\"-\"\>"],
2272	TraditionalForm], ".", "uq"}]}],
2273	RowBox[{"6", " ",
2274	FormBox[
2275	SubscriptBox["c", "w"],
2276	TraditionalForm]}]], "-",
2277	FractionBox[
2278	RowBox[{"2", " ", "\[ImaginaryI]", " ",
2279	FormBox["e",
2280	TraditionalForm], " ",
2281	FormBox[
2282	SubscriptBox["B",
2283	FormBox["\[Mu]",
2284	TraditionalForm]],
2285	TraditionalForm], " ",
2286	RowBox[{
2287	FormBox[
2288	SubscriptBox["P", "\<\"+\"\>"],
2289	TraditionalForm], ".", "uq"}]}],
2290	RowBox[{"3", " ",
2291	FormBox[
2292	SubscriptBox["c", "w"],
2293	TraditionalForm]}]], "-",
2294	RowBox[{"\[ImaginaryI]", " ",
2295	FormBox[
2296	SubscriptBox["g", "s"],
2297	TraditionalForm], " ",
2298	RowBox[{
2299	FormBox[
2300	SuperscriptBox["T", "a$186"],
2301	TraditionalForm], ".", "uq"}], " ",
2302	FormBox[
2303	SubscriptBox["G",
2304	RowBox[{
2305	FormBox["\[Mu]",
2306	TraditionalForm], ",", "a$186"}]],
2307	TraditionalForm]}], "-",
2308	FractionBox[
2309	RowBox[{"\[ImaginaryI]", " ",
2310	FormBox["e",
2311	TraditionalForm], " ",
2312	RowBox[{
2313	FormBox[
2314	SubscriptBox["P", "\<\"-\"\>"],
2315	TraditionalForm], ".", "uq"}], " ",
2316	FormBox[
2317	SubscriptBox["Wi",
2318	RowBox[{
2319	FormBox["\[Mu]",
2320	TraditionalForm], ",", "3"}]],
2321	TraditionalForm]}],
2322	RowBox[{"2", " ",
2323	FormBox[
2324	SubscriptBox["s", "w"],
2325	TraditionalForm]}]]}], ")"}]}]}], "+",
2326	RowBox[{
2327	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2328	RowBox[{
2329	FormBox[
2330	SuperscriptBox["vl", "\[Dagger]"],
2331	TraditionalForm], ".",
2332	FormBox[
2333	SuperscriptBox["\[Gamma]",
2334	FormBox["\[Mu]",
2335	TraditionalForm]],
2336	TraditionalForm], ".",
2337	RowBox[{"(",
2338	RowBox[{
2339	FormBox[
2340	RowBox[{
2341	SubscriptBox["\<\"\[PartialD]\"\>",
2342	FormBox["\[Nu]",
2343	TraditionalForm]], "(", "vl", ")"}],
2344	TraditionalForm], "+",
2345	FractionBox[
2346	RowBox[{"\[ImaginaryI]", " ",
2347	FormBox["e",
2348	TraditionalForm], " ",
2349	FormBox[
2350	SubscriptBox["B",
2351	FormBox["\[Nu]",
2352	TraditionalForm]],
2353	TraditionalForm], " ",
2354	RowBox[{
2355	FormBox[
2356	SubscriptBox["P", "\<\"-\"\>"],
2357	TraditionalForm], ".", "vl"}]}],
2358	RowBox[{"2", " ",
2359	FormBox[
2360	SubscriptBox["c", "w"],
2361	TraditionalForm]}]], "-",
2362	FractionBox[
2363	RowBox[{"\[ImaginaryI]", " ",
2364	FormBox["e",
2365	TraditionalForm], " ",
2366	RowBox[{
2367	FormBox[
2368	SubscriptBox["P", "\<\"-\"\>"],
2369	TraditionalForm], ".", "vl"}], " ",
2370	FormBox[
2371	SubscriptBox["Wi",
2372	RowBox[{
2373	FormBox["\[Nu]",
2374	TraditionalForm], ",", "3"}]],
2375	TraditionalForm]}],
2376	RowBox[{"2", " ",
2377	FormBox[
2378	SubscriptBox["s", "w"],
2379	TraditionalForm]}]]}], ")"}]}]}], "+",
2380	RowBox[{
2381	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2382	RowBox[{
2383	FormBox[
2384	SuperscriptBox["vl", "\[Dagger]"],
2385	TraditionalForm], ".",
2386	FormBox[
2387	SuperscriptBox["\[Gamma]",
2388	FormBox["\[Nu]",
2389	TraditionalForm]],
2390	TraditionalForm], ".",
2391	RowBox[{"(",
2392	RowBox[{
2393	FormBox[
2394	RowBox[{
2395	SubscriptBox["\<\"\[PartialD]\"\>",
2396	FormBox["\[Mu]",
2397	TraditionalForm]], "(", "vl", ")"}],
2398	TraditionalForm], "+",
2399	FractionBox[
2400	RowBox[{"\[ImaginaryI]", " ",
2401	FormBox["e",
2402	TraditionalForm], " ",
2403	FormBox[
2404	SubscriptBox["B",
2405	FormBox["\[Mu]",
2406	TraditionalForm]],
2407	TraditionalForm], " ",
2408	RowBox[{
2409	FormBox[
2410	SubscriptBox["P", "\<\"-\"\>"],
2411	TraditionalForm], ".", "vl"}]}],
2412	RowBox[{"2", " ",
2413	FormBox[
2414	SubscriptBox["c", "w"],
2415	TraditionalForm]}]], "-",
2416	FractionBox[
2417	RowBox[{"\[ImaginaryI]", " ",
2418	FormBox["e",
2419	TraditionalForm], " ",
2420	RowBox[{
2421	FormBox[
2422	SubscriptBox["P", "\<\"-\"\>"],
2423	TraditionalForm], ".", "vl"}], " ",
2424	FormBox[
2425	SubscriptBox["Wi",
2426	RowBox[{
2427	FormBox["\[Mu]",
2428	TraditionalForm], ",", "3"}]],
2429	TraditionalForm]}],
2430	RowBox[{"2", " ",
2431	FormBox[
2432	SubscriptBox["s", "w"],
2433	TraditionalForm]}]]}], ")"}]}]}], "-",
2434	RowBox[{
2435	FractionBox["1",
2436	RowBox[{
2437	SqrtBox["2"], " ",
2438	FormBox[
2439	SubscriptBox["s", "w"],
2440	TraditionalForm]}]],
2441	RowBox[{
2442	FormBox["e",
2443	TraditionalForm], " ",
2444	RowBox[{"(",
2445	RowBox[{
2446	RowBox[{"CKM", " ",
2447	RowBox[{
2448	FormBox[
2449	SuperscriptBox["uq", "\[Dagger]"],
2450	TraditionalForm], ".",
2451	FormBox[
2452	SuperscriptBox["\[Gamma]",
2453	FormBox["\[Nu]",
2454	TraditionalForm]],
2455	TraditionalForm], ".",
2456	FormBox[
2457	SubscriptBox["P", "\<\"-\"\>"],
2458	TraditionalForm], ".", "dq"}], " ",
2459	FormBox[
2460	SubscriptBox["W",
2461	FormBox["\[Mu]",
2462	TraditionalForm]],
2463	TraditionalForm]}], "+",
2464	RowBox[{
2465	RowBox[{
2466	FormBox[
2467	SuperscriptBox["vl", "\[Dagger]"],
2468	TraditionalForm], ".",
2469	FormBox[
2470	SuperscriptBox["\[Gamma]",
2471	FormBox["\[Nu]",
2472	TraditionalForm]],
2473	TraditionalForm], ".",
2474	FormBox[
2475	SubscriptBox["P", "\<\"-\"\>"],
2476	TraditionalForm], ".", "l"}], " ",
2477	FormBox[
2478	SubscriptBox["W",
2479	FormBox["\[Mu]",
2480	TraditionalForm]],
2481	TraditionalForm]}], "+",
2482	RowBox[{"CKM", " ",
2483	RowBox[{
2484	FormBox[
2485	SuperscriptBox["uq", "\[Dagger]"],
2486	TraditionalForm], ".",
2487	FormBox[
2488	SuperscriptBox["\[Gamma]",
2489	FormBox["\[Mu]",
2490	TraditionalForm]],
2491	TraditionalForm], ".",
2492	FormBox[
2493	SubscriptBox["P", "\<\"-\"\>"],
2494	TraditionalForm], ".", "dq"}], " ",
2495	FormBox[
2496	SubscriptBox["W",
2497	FormBox["\[Nu]",
2498	TraditionalForm]],
2499	TraditionalForm]}], "+",
2500	RowBox[{
2501	RowBox[{
2502	FormBox[
2503	SuperscriptBox["vl", "\[Dagger]"],
2504	TraditionalForm], ".",
2505	FormBox[
2506	SuperscriptBox["\[Gamma]",
2507	FormBox["\[Mu]",
2508	TraditionalForm]],
2509	TraditionalForm], ".",
2510	FormBox[
2511	SubscriptBox["P", "\<\"-\"\>"],
2512	TraditionalForm], ".", "l"}], " ",
2513	FormBox[
2514	SubscriptBox["W",
2515	FormBox["\[Nu]",
2516	TraditionalForm]],
2517	TraditionalForm]}], "+",
2518	RowBox[{
2519	RowBox[{
2520	FormBox[
2521	SuperscriptBox["l", "\[Dagger]"],
2522	TraditionalForm], ".",
2523	FormBox[
2524	SuperscriptBox["\[Gamma]",
2525	FormBox["\[Nu]",
2526	TraditionalForm]],
2527	TraditionalForm], ".",
2528	FormBox[
2529	SubscriptBox["P", "\<\"-\"\>"],
2530	TraditionalForm], ".", "vl"}], " ",
2531	FormBox[
2532	SubsuperscriptBox["W",
2533	FormBox["\[Mu]",
2534	TraditionalForm], "\[Dagger]"],
2535	TraditionalForm]}], "+",
2536	RowBox[{
2537	RowBox[{
2538	FormBox[
2539	SuperscriptBox["dq", "\[Dagger]"],
2540	TraditionalForm], ".",
2541	FormBox[
2542	SuperscriptBox["\[Gamma]",
2543	FormBox["\[Nu]",
2544	TraditionalForm]],
2545	TraditionalForm], ".",
2546	FormBox[
2547	SubscriptBox["P", "\<\"-\"\>"],
2548	TraditionalForm], ".", "uq"}], " ",
2549	FormBox[
2550	SuperscriptBox["CKM", "\[Dagger]"],
2551	TraditionalForm], " ",
2552	FormBox[
2553	SubsuperscriptBox["W",
2554	FormBox["\[Mu]",
2555	TraditionalForm], "\[Dagger]"],
2556	TraditionalForm]}], "+",
2557	RowBox[{
2558	RowBox[{
2559	FormBox[
2560	SuperscriptBox["l", "\[Dagger]"],
2561	TraditionalForm], ".",
2562	FormBox[
2563	SuperscriptBox["\[Gamma]",
2564	FormBox["\[Mu]",
2565	TraditionalForm]],
2566	TraditionalForm], ".",
2567	FormBox[
2568	SubscriptBox["P", "\<\"-\"\>"],
2569	TraditionalForm], ".", "vl"}], " ",
2570	FormBox[
2571	SubsuperscriptBox["W",
2572	FormBox["\[Nu]",
2573	TraditionalForm], "\[Dagger]"],
2574	TraditionalForm]}], "+",
2575	RowBox[{
2576	RowBox[{
2577	FormBox[
2578	SuperscriptBox["dq", "\[Dagger]"],
2579	TraditionalForm], ".",
2580	FormBox[
2581	SuperscriptBox["\[Gamma]",
2582	FormBox["\[Mu]",
2583	TraditionalForm]],
2584	TraditionalForm], ".",
2585	FormBox[
2586	SubscriptBox["P", "\<\"-\"\>"],
2587	TraditionalForm], ".", "uq"}], " ",
2588	FormBox[
2589	SuperscriptBox["CKM", "\[Dagger]"],
2590	TraditionalForm], " ",
2591	FormBox[
2592	SubsuperscriptBox["W",
2593	FormBox["\[Nu]",
2594	TraditionalForm], "\[Dagger]"],
2595	TraditionalForm]}]}], ")"}]}]}]}], ")"}]}]}],
2596	TraditionalForm]], "Output",
2597	CellChangeTimes->{
2598	3.45406122390963*^9},ExpressionUUID->"d45a1b88-1dea-4e0d-b094-f0acead477a1"]
2599	}, Closed]]
2600	}, Open ]],
2601
2602	Cell[CellGroupData[{
2603
2604	Cell["Gravitons + Yukawa sector", "Subsubsection",
2605	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2606	3.411910393742139^9, 3.411910394852953^9}, {3.846587201709598*^9,
2607	3.846587228322217*^9}},ExpressionUUID->"49b0b76d-dae2-4d44-92f8-\
2608	831da3136cbd"],
2609
2610	Cell[CellGroupData[{
2611
2612	Cell[BoxData["LGYukawaO2"], "Input",
2613	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
2614	3.4119104032372026`^9, 3.411910404165523^9}, 3.4540523167591047`*^9, {
2615	3.454057108491197^9, 3.4540571095455637`^9}, 3.454061225806781*^9,
2616	3.8465870833881893`*^9},ExpressionUUID->"c5cc8969-d9dc-4874-85e7-\
2617	5a07594f4dd8"],
2618
2619	Cell[BoxData[
2620	FormBox[
2621	RowBox[{
2622	RowBox[{"-",
2623	FractionBox["1", "2"]}], " ",
2624	FormBox["\[Kappa]",
2625	TraditionalForm], " ",
2626	RowBox[{
2627	FormBox[
2628	SubscriptBox["h",
2629	RowBox[{
2630	FormBox["\[Mu]",
2631	TraditionalForm], ",",
2632	FormBox["\[Nu]",
2633	TraditionalForm]}]],
2634	TraditionalForm], ".",
2635	RowBox[{"(",
2636	RowBox[{"-",
2637	RowBox[{
2638	FormBox[
2639	SubscriptBox["\[Eta]",
2640	RowBox[{
2641	FormBox[
2642	FormBox["\[Mu]",
2643	TraditionalForm],
2644	TraditionalForm], ",",
2645	FormBox[
2646	FormBox["\[Nu]",
2647	TraditionalForm],
2648	TraditionalForm]}]],
2649	TraditionalForm], ".",
2650	RowBox[{"(",
2651	RowBox[{
2652	RowBox[{"-",
2653	FractionBox[
2654	RowBox[{
2655	RowBox[{"(",
2656	RowBox[{"H", "+", "v"}], ")"}], " ",
2657	RowBox[{
2658	FormBox[
2659	SubsuperscriptBox["dq",
2660	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
2661	TraditionalForm], ".",
2662	FormBox[
2663	SubscriptBox["dq",
2664	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
2665	TraditionalForm]}], " ",
2666	FormBox[
2667	SubscriptBox[
2668	RowBox[{"(",
2669	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2670	RowBox[{"s$194", ",", "r$194"}]],
2671	TraditionalForm], " ",
2672	FormBox[
2673	SubscriptBox["yd", "n$194"],
2674	TraditionalForm]}],
2675	SqrtBox["2"]]}], "-",
2676	FractionBox[
2677	RowBox[{
2678	RowBox[{"(",
2679	RowBox[{"H", "+", "v"}], ")"}], " ",
2680	RowBox[{
2681	FormBox[
2682	SubsuperscriptBox["dq",
2683	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
2684	TraditionalForm], ".",
2685	FormBox[
2686	SubscriptBox["dq",
2687	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
2688	TraditionalForm]}], " ",
2689	FormBox[
2690	SubscriptBox[
2691	RowBox[{"(",
2692	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2693	RowBox[{"r$195", ",", "s$195"}]],
2694	TraditionalForm], " ",
2695	FormBox[
2696	SubscriptBox["yd", "n$195"],
2697	TraditionalForm]}],
2698	SqrtBox["2"]], "-",
2699	FractionBox[
2700	RowBox[{
2701	RowBox[{"(",
2702	RowBox[{"H", "+", "v"}], ")"}], " ",
2703	RowBox[{
2704	FormBox[
2705	SubsuperscriptBox["l",
2706	RowBox[{"s$194", ",", "n$194"}], "\[Dagger]"],
2707	TraditionalForm], ".",
2708	FormBox[
2709	SubscriptBox["l",
2710	RowBox[{"r$194", ",", "n$194"}]],
2711	TraditionalForm]}], " ",
2712	FormBox[
2713	SubscriptBox[
2714	RowBox[{"(",
2715	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2716	RowBox[{"s$194", ",", "r$194"}]],
2717	TraditionalForm], " ",
2718	FormBox[
2719	SubscriptBox["yl", "n$194"],
2720	TraditionalForm]}],
2721	SqrtBox["2"]], "-",
2722	FractionBox[
2723	RowBox[{
2724	RowBox[{"(",
2725	RowBox[{"H", "+", "v"}], ")"}], " ",
2726	RowBox[{
2727	FormBox[
2728	SubsuperscriptBox["l",
2729	RowBox[{"r$195", ",", "n$195"}], "\[Dagger]"],
2730	TraditionalForm], ".",
2731	FormBox[
2732	SubscriptBox["l",
2733	RowBox[{"s$195", ",", "n$195"}]],
2734	TraditionalForm]}], " ",
2735	FormBox[
2736	SubscriptBox[
2737	RowBox[{"(",
2738	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2739	RowBox[{"r$195", ",", "s$195"}]],
2740	TraditionalForm], " ",
2741	FormBox[
2742	SubscriptBox["yl", "n$195"],
2743	TraditionalForm]}],
2744	SqrtBox["2"]], "-",
2745	FractionBox[
2746	RowBox[{
2747	RowBox[{"(",
2748	RowBox[{"H", "+", "v"}], ")"}], " ",
2749	RowBox[{
2750	FormBox[
2751	SubsuperscriptBox["uq",
2752	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
2753	TraditionalForm], ".",
2754	FormBox[
2755	SubscriptBox["uq",
2756	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
2757	TraditionalForm]}], " ",
2758	FormBox[
2759	SubscriptBox[
2760	RowBox[{"(",
2761	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2762	RowBox[{"s$194", ",", "r$194"}]],
2763	TraditionalForm], " ",
2764	FormBox[
2765	SubscriptBox["yu", "n$194"],
2766	TraditionalForm]}],
2767	SqrtBox["2"]], "-",
2768	FractionBox[
2769	RowBox[{
2770	RowBox[{"(",
2771	RowBox[{"H", "+", "v"}], ")"}], " ",
2772	RowBox[{
2773	FormBox[
2774	SubsuperscriptBox["uq",
2775	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
2776	TraditionalForm], ".",
2777	FormBox[
2778	SubscriptBox["uq",
2779	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
2780	TraditionalForm]}], " ",
2781	FormBox[
2782	SubscriptBox[
2783	RowBox[{"(",
2784	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2785	RowBox[{"r$195", ",", "s$195"}]],
2786	TraditionalForm], " ",
2787	FormBox[
2788	SubscriptBox["yu", "n$195"],
2789	TraditionalForm]}],
2790	SqrtBox["2"]]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output",
2791	CellChangeTimes->{
2792	3.454061226531508*^9},ExpressionUUID->"0d2c3841-cd5b-4454-b952-\
2793	167bcedc6b99"]
2794	}, Closed]]
2795	}, Open ]],
2796
2797	Cell[CellGroupData[{
2798
2799	Cell["Gravitons + Ghost sector", "Subsubsection",
2800	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2801	3.411910393742139^9, 3.411910394852953^9}, {3.846587094895335*^9,
2802	3.846587095297233^9}, {3.8465872029715157`^9,
2803	3.846587229213891*^9}},ExpressionUUID->"e273bb53-205e-4ce8-b51f-\
2804	77f61ca43d3b"],
2805
2806	Cell[CellGroupData[{
2807
2808	Cell[BoxData["LGGhostO2"], "Input",
2809	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
2810	3.4119104032372026`^9, 3.411910404165523^9}, 3.4540523167591047`*^9, {
2811	3.454057108491197^9, 3.4540571095455637`^9}, 3.454061225806781*^9,
2812	3.8465870833881893`*^9,
2813	3.846587114736705*^9},ExpressionUUID->"71a4aa6c-1c15-481b-9fc4-\
2814	9330b53c715e"],
2815
2816	Cell[BoxData[
2817	FormBox[
2818	RowBox[{
2819	RowBox[{"-",
2820	FractionBox["1", "2"]}], " ",
2821	FormBox["\[Kappa]",
2822	TraditionalForm], " ",
2823	RowBox[{
2824	FormBox[
2825	SubscriptBox["h",
2826	RowBox[{
2827	FormBox["\[Mu]",
2828	TraditionalForm], ",",
2829	FormBox["\[Nu]",
2830	TraditionalForm]}]],
2831	TraditionalForm], ".",
2832	RowBox[{"(",
2833	RowBox[{"-",
2834	RowBox[{
2835	FormBox[
2836	SubscriptBox["\[Eta]",
2837	RowBox[{
2838	FormBox[
2839	FormBox["\[Mu]",
2840	TraditionalForm],
2841	TraditionalForm], ",",
2842	FormBox[
2843	FormBox["\[Nu]",
2844	TraditionalForm],
2845	TraditionalForm]}]],
2846	TraditionalForm], ".",
2847	RowBox[{"(",
2848	RowBox[{
2849	RowBox[{"-",
2850	FractionBox[
2851	RowBox[{
2852	RowBox[{"(",
2853	RowBox[{"H", "+", "v"}], ")"}], " ",
2854	RowBox[{
2855	FormBox[
2856	SubsuperscriptBox["dq",
2857	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
2858	TraditionalForm], ".",
2859	FormBox[
2860	SubscriptBox["dq",
2861	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
2862	TraditionalForm]}], " ",
2863	FormBox[
2864	SubscriptBox[
2865	RowBox[{"(",
2866	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2867	RowBox[{"s$194", ",", "r$194"}]],
2868	TraditionalForm], " ",
2869	FormBox[
2870	SubscriptBox["yd", "n$194"],
2871	TraditionalForm]}],
2872	SqrtBox["2"]]}], "-",
2873	FractionBox[
2874	RowBox[{
2875	RowBox[{"(",
2876	RowBox[{"H", "+", "v"}], ")"}], " ",
2877	RowBox[{
2878	FormBox[
2879	SubsuperscriptBox["dq",
2880	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
2881	TraditionalForm], ".",
2882	FormBox[
2883	SubscriptBox["dq",
2884	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
2885	TraditionalForm]}], " ",
2886	FormBox[
2887	SubscriptBox[
2888	RowBox[{"(",
2889	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2890	RowBox[{"r$195", ",", "s$195"}]],
2891	TraditionalForm], " ",
2892	FormBox[
2893	SubscriptBox["yd", "n$195"],
2894	TraditionalForm]}],
2895	SqrtBox["2"]], "-",
2896	FractionBox[
2897	RowBox[{
2898	RowBox[{"(",
2899	RowBox[{"H", "+", "v"}], ")"}], " ",
2900	RowBox[{
2901	FormBox[
2902	SubsuperscriptBox["l",
2903	RowBox[{"s$194", ",", "n$194"}], "\[Dagger]"],
2904	TraditionalForm], ".",
2905	FormBox[
2906	SubscriptBox["l",
2907	RowBox[{"r$194", ",", "n$194"}]],
2908	TraditionalForm]}], " ",
2909	FormBox[
2910	SubscriptBox[
2911	RowBox[{"(",
2912	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2913	RowBox[{"s$194", ",", "r$194"}]],
2914	TraditionalForm], " ",
2915	FormBox[
2916	SubscriptBox["yl", "n$194"],
2917	TraditionalForm]}],
2918	SqrtBox["2"]], "-",
2919	FractionBox[
2920	RowBox[{
2921	RowBox[{"(",
2922	RowBox[{"H", "+", "v"}], ")"}], " ",
2923	RowBox[{
2924	FormBox[
2925	SubsuperscriptBox["l",
2926	RowBox[{"r$195", ",", "n$195"}], "\[Dagger]"],
2927	TraditionalForm], ".",
2928	FormBox[
2929	SubscriptBox["l",
2930	RowBox[{"s$195", ",", "n$195"}]],
2931	TraditionalForm]}], " ",
2932	FormBox[
2933	SubscriptBox[
2934	RowBox[{"(",
2935	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2936	RowBox[{"r$195", ",", "s$195"}]],
2937	TraditionalForm], " ",
2938	FormBox[
2939	SubscriptBox["yl", "n$195"],
2940	TraditionalForm]}],
2941	SqrtBox["2"]], "-",
2942	FractionBox[
2943	RowBox[{
2944	RowBox[{"(",
2945	RowBox[{"H", "+", "v"}], ")"}], " ",
2946	RowBox[{
2947	FormBox[
2948	SubsuperscriptBox["uq",
2949	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
2950	TraditionalForm], ".",
2951	FormBox[
2952	SubscriptBox["uq",
2953	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
2954	TraditionalForm]}], " ",
2955	FormBox[
2956	SubscriptBox[
2957	RowBox[{"(",
2958	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2959	RowBox[{"s$194", ",", "r$194"}]],
2960	TraditionalForm], " ",
2961	FormBox[
2962	SubscriptBox["yu", "n$194"],
2963	TraditionalForm]}],
2964	SqrtBox["2"]], "-",
2965	FractionBox[
2966	RowBox[{
2967	RowBox[{"(",
2968	RowBox[{"H", "+", "v"}], ")"}], " ",
2969	RowBox[{
2970	FormBox[
2971	SubsuperscriptBox["uq",
2972	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
2973	TraditionalForm], ".",
2974	FormBox[
2975	SubscriptBox["uq",
2976	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
2977	TraditionalForm]}], " ",
2978	FormBox[
2979	SubscriptBox[
2980	RowBox[{"(",
2981	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2982	RowBox[{"r$195", ",", "s$195"}]],
2983	TraditionalForm], " ",
2984	FormBox[
2985	SubscriptBox["yu", "n$195"],
2986	TraditionalForm]}],
2987	SqrtBox["2"]]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output",
2988	CellChangeTimes->{
2989	3.454061226531508*^9},ExpressionUUID->"37480c59-abcc-458b-96b9-\
2990	4525dad79f51"]
2991	}, Closed]]
2992	}, Open ]],
2993
2994	Cell[CellGroupData[{
2995
2996	Cell["The Gravitons + SM Lagrangian", "Subsubsection",
2997	CellChangeTimes->{{3.84658857959754*^9,
2998	3.8465886014033747`*^9}},ExpressionUUID->"0cac47a0-8b44-413a-bbdf-\
2999	87383adeb324"],
3000
3001	Cell["\<\
3002	The part of the lagrangian representing the up-to-two Gravitons + full SM can \
3003	be accessed via\
3004	\>", "Text",
3005	CellChangeTimes->{{3.452857023659556^9, 3.452857026196998^9}, {
3006	3.454050603115306^9, 3.454050604633585^9}, {3.4540508481103973`*^9,
3007	3.454050850614224^9}, {3.846587206795353^9, 3.846587231526289*^9}, {
3008	3.846588532771557^9, 3.84658853590773^9}, {3.8465885672503023`*^9,
3009	3.8465885835925617`^9}, 3.846588628366824^9, {3.846588991842053*^9,
3010	3.846588992190091*^9}},ExpressionUUID->"44cd65f4-1dd3-445d-89bc-\
3011	86fd60970a40"],
3012
3013	Cell[BoxData[
3014	RowBox[{
3015	RowBox[{"LGTotal", ":=",
3016	RowBox[{
3017	"LGGaugeO2", "+", "LGHiggsO2", "+", "LGFermionsO2", "+", "LGYukawaO2", "+",
3018	"LGGhostO2"}]}], ";"}]], "Input",
3019	CellChangeTimes->{{3.454056821219754^9, 3.4540568403918133`^9}, {
3020	3.454057126321587^9, 3.454057148256241^9}, 3.846587126891378*^9, {
3021	3.846588736288669*^9,
3022	3.846588738286845*^9}},ExpressionUUID->"91b83000-35d7-4c8d-b139-\
3023	9d02bd9d2244"]
3024	}, Open ]]
3025	}, Open ]],
3026
3027	Cell[CellGroupData[{
3028
3029	Cell["Calculation of the Feynman Rules", "Section",
3030	CellChangeTimes->{{3.4050095696734943`^9, 3.4050095702696466`^9}, {
3031	3.449909557093049^9, 3.449909562576384^9}, 3.452923012401949*^9, {
3032	3.45405673743528*^9,
3033	3.4540567428169327`*^9}},ExpressionUUID->"50030a7f-5392-4160-8560-\
3034	48224d30be9c"],
3035
3036	Cell["\<\
3037	We will calculate now explicitly the Feynman rules for the up-to-two \
3038	Gravitons coupled to each sector of SM in Feynman gauge.\
3039	\>", "Text",
3040	CellChangeTimes->{{3.846587870746901^9, 3.846587892274826^9}, {
3041	3.846588912653144^9, 3.846588925049086^9}, {3.846589001634121*^9,
3042	3.846589006489996*^9}},ExpressionUUID->"46ed1c78-f47a-4177-94f9-\
3043	4cf8218f6f6d"],
3044
3045	Cell[BoxData[
3046	RowBox[{
3047	RowBox[{"FeynmanGauge", "=", "True"}], ";"}]], "Input",
3048	CellChangeTimes->{{3.84658784283851*^9,
3049	3.846587857899506*^9}},ExpressionUUID->"46d76b01-79e9-402a-b6b1-\
3050	adf6a35a4d69"],
3051
3052	Cell[CellGroupData[{
3053
3054	Cell["Gravitons + Gauge sector", "Subsubsection",
3055	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3056	3.454057138248085^9, 3.454057139479412^9},
3057	3.846588677267292*^9},ExpressionUUID->"620d0c08-735a-487d-8815-\
3058	004be19352b3"],
3059
3060	Cell[BoxData[
3061	RowBox[{"vertsGGaugeO2", "=",
3062	RowBox[{"FeynmanRules", "[",
3063	RowBox[{"LGGaugeO2", ",", " ",
3064	RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}]}], "]"}]}]], "Input",
3065	CellChangeTimes->{{3.45406138410235^9, 3.454061389893989^9}, {
3066	3.846587900346593^9, 3.846587901760047^9}, {3.8465880800508966`*^9,
3067	3.846588085561921*^9},
3068	3.846588946603231*^9},ExpressionUUID->"959ee140-46d8-4d5e-9f36-\
3069	6ae3c82ee355"]
3070	}, Open ]],
3071
3072	Cell[CellGroupData[{
3073
3074	Cell["Gravitons + Scalar sector", "Subsubsection",
3075	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3076	3.411910274288354^9, 3.41191027703699^9}, {3.846588689923386*^9,
3077	3.846588692722417*^9}},ExpressionUUID->"a38d459d-783e-4af2-a1d0-\
3078	99b51620e3a0"],
3079
3080	Cell[BoxData[
3081	RowBox[{"vertsGHiggsO2", "=",
3082	RowBox[{"FeynmanRules", "[", "LGHiggsO2", "]"}]}]], "Input",
3083	CellChangeTimes->{{3.454061456389081^9, 3.454061463346387^9}, {
3084	3.846588194006473^9, 3.846588197252454^9}, {3.846588717835994*^9,
3085	3.84658873040434*^9},
3086	3.846588949805257*^9},ExpressionUUID->"ceb34b49-147c-4906-baea-\
3087	30ba2cd34bd2"]
3088	}, Open ]],
3089
3090	Cell[CellGroupData[{
3091
3092	Cell["Gravitons + Fermion sector", "Subsubsection",
3093	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3094	3.4119103528868923`^9, 3.411910357404933^9}, {3.846588695356337*^9,
3095	3.846588699830613*^9}},ExpressionUUID->"92c021fa-5f00-4e0e-b55f-\
3096	4a42072531aa"],
3097
3098	Cell[BoxData[
3099	RowBox[{"vertsGFermionsO2", "=",
3100	RowBox[{"FeynmanRules", "[", "LGFermionsO2", "]"}]}]], "Input",
3101	CellChangeTimes->{{3.454056857284236^9, 3.4540568672993917`^9},
3102	3.4540569533264227`^9, {3.4540571289311743`^9, 3.4540571290168457`*^9}, {
3103	3.454061235719533^9, 3.45406124186089^9}, 3.8465882022068577`*^9,
3104	3.8465887466657543`*^9,
3105	3.846588952697526*^9},ExpressionUUID->"a3dd8090-3c67-41b6-b34e-\
3106	51429bf8c82f"]
3107	}, Open ]],
3108
3109	Cell[CellGroupData[{
3110
3111	Cell["Gravitons + Yukawa sector", "Subsubsection",
3112	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3113	3.411910393742139^9, 3.411910394852953^9},
3114	3.8465887010778513`*^9},ExpressionUUID->"4de69377-84e8-4afc-8145-\
3115	6416fa1b8211"],
3116
3117	Cell[BoxData[
3118	RowBox[{"vertsGYukawaO2", "=",
3119	RowBox[{"FeynmanRules", "[",
3120	RowBox[{"LGYukawaO2", ",",
3121	RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]}]], "Input",
3122	CellChangeTimes->{{3.454061488319646^9, 3.454061493153029^9},
3123	3.8465882037164173`^9, 3.8465887531401567`^9, {3.846588839568973*^9,
3124	3.846588839797961*^9},
3125	3.846588955638159*^9},ExpressionUUID->"d1dced09-9f23-4049-a247-\
3126	1ff2cb8220c6"]
3127	}, Open ]],
3128
3129	Cell[CellGroupData[{
3130
3131	Cell["Gravitons + Ghost sector", "Subsubsection",
3132	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3133	3.411910393742139^9, 3.411910394852953^9}, {3.846587094895335*^9,
3134	3.846587095297233^9}, {3.8465872029715157`^9,
3135	3.846587229213891*^9}},ExpressionUUID->"32391b8d-1a41-4c99-ac04-\
3136	6b73f843d1ea"],
3137
3138	Cell[CellGroupData[{
3139
3140	Cell[BoxData[
3141	RowBox[{"vertsGGhostO2", "=",
3142	RowBox[{"FeynmanRules", "[",
3143	RowBox[{"LGGhostO2", ",", " ",
3144	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]}]], "Input",
3145	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
3146	3.4119104032372026`^9, 3.411910404165523^9}, 3.4540523167591047`*^9, {
3147	3.454057108491197^9, 3.4540571095455637`^9}, 3.454061225806781*^9,
3148	3.8465870833881893`^9, 3.846587114736705^9, 3.846588205175249*^9,
3149	3.846588759707254^9, {3.846588848300332^9, 3.846588861786497*^9},
3150	3.846588959547681*^9},ExpressionUUID->"8b957fda-0e1b-4e2b-b1ff-\
3151	01140f8b5a43"],
3152
3153	Cell[BoxData[
3154	FormBox[
3155	RowBox[{
3156	RowBox[{"-",
3157	FractionBox["1", "2"]}], " ",
3158	FormBox["\[Kappa]",
3159	TraditionalForm], " ",
3160	RowBox[{
3161	FormBox[
3162	SubscriptBox["h",
3163	RowBox[{
3164	FormBox["\[Mu]",
3165	TraditionalForm], ",",
3166	FormBox["\[Nu]",
3167	TraditionalForm]}]],
3168	TraditionalForm], ".",
3169	RowBox[{"(",
3170	RowBox[{"-",
3171	RowBox[{
3172	FormBox[
3173	SubscriptBox["\[Eta]",
3174	RowBox[{
3175	FormBox[
3176	FormBox["\[Mu]",
3177	TraditionalForm],
3178	TraditionalForm], ",",
3179	FormBox[
3180	FormBox["\[Nu]",
3181	TraditionalForm],
3182	TraditionalForm]}]],
3183	TraditionalForm], ".",
3184	RowBox[{"(",
3185	RowBox[{
3186	RowBox[{"-",
3187	FractionBox[
3188	RowBox[{
3189	RowBox[{"(",
3190	RowBox[{"H", "+", "v"}], ")"}], " ",
3191	RowBox[{
3192	FormBox[
3193	SubsuperscriptBox["dq",
3194	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
3195	TraditionalForm], ".",
3196	FormBox[
3197	SubscriptBox["dq",
3198	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
3199	TraditionalForm]}], " ",
3200	FormBox[
3201	SubscriptBox[
3202	RowBox[{"(",
3203	SubscriptBox["P", "\<\"+\"\>"], ")"}],
3204	RowBox[{"s$194", ",", "r$194"}]],
3205	TraditionalForm], " ",
3206	FormBox[
3207	SubscriptBox["yd", "n$194"],
3208	TraditionalForm]}],
3209	SqrtBox["2"]]}], "-",
3210	FractionBox[
3211	RowBox[{
3212	RowBox[{"(",
3213	RowBox[{"H", "+", "v"}], ")"}], " ",
3214	RowBox[{
3215	FormBox[
3216	SubsuperscriptBox["dq",
3217	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
3218	TraditionalForm], ".",
3219	FormBox[
3220	SubscriptBox["dq",
3221	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
3222	TraditionalForm]}], " ",
3223	FormBox[
3224	SubscriptBox[
3225	RowBox[{"(",
3226	SubscriptBox["P", "\<\"-\"\>"], ")"}],
3227	RowBox[{"r$195", ",", "s$195"}]],
3228	TraditionalForm], " ",
3229	FormBox[
3230	SubscriptBox["yd", "n$195"],
3231	TraditionalForm]}],
3232	SqrtBox["2"]], "-",
3233	FractionBox[
3234	RowBox[{
3235	RowBox[{"(",
3236	RowBox[{"H", "+", "v"}], ")"}], " ",
3237	RowBox[{
3238	FormBox[
3239	SubsuperscriptBox["l",
3240	RowBox[{"s$194", ",", "n$194"}], "\[Dagger]"],
3241	TraditionalForm], ".",
3242	FormBox[
3243	SubscriptBox["l",
3244	RowBox[{"r$194", ",", "n$194"}]],
3245	TraditionalForm]}], " ",
3246	FormBox[
3247	SubscriptBox[
3248	RowBox[{"(",
3249	SubscriptBox["P", "\<\"+\"\>"], ")"}],
3250	RowBox[{"s$194", ",", "r$194"}]],
3251	TraditionalForm], " ",
3252	FormBox[
3253	SubscriptBox["yl", "n$194"],
3254	TraditionalForm]}],
3255	SqrtBox["2"]], "-",
3256	FractionBox[
3257	RowBox[{
3258	RowBox[{"(",
3259	RowBox[{"H", "+", "v"}], ")"}], " ",
3260	RowBox[{
3261	FormBox[
3262	SubsuperscriptBox["l",
3263	RowBox[{"r$195", ",", "n$195"}], "\[Dagger]"],
3264	TraditionalForm], ".",
3265	FormBox[
3266	SubscriptBox["l",
3267	RowBox[{"s$195", ",", "n$195"}]],
3268	TraditionalForm]}], " ",
3269	FormBox[
3270	SubscriptBox[
3271	RowBox[{"(",
3272	SubscriptBox["P", "\<\"-\"\>"], ")"}],
3273	RowBox[{"r$195", ",", "s$195"}]],
3274	TraditionalForm], " ",
3275	FormBox[
3276	SubscriptBox["yl", "n$195"],
3277	TraditionalForm]}],
3278	SqrtBox["2"]], "-",
3279	FractionBox[
3280	RowBox[{
3281	RowBox[{"(",
3282	RowBox[{"H", "+", "v"}], ")"}], " ",
3283	RowBox[{
3284	FormBox[
3285	SubsuperscriptBox["uq",
3286	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
3287	TraditionalForm], ".",
3288	FormBox[
3289	SubscriptBox["uq",
3290	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
3291	TraditionalForm]}], " ",
3292	FormBox[
3293	SubscriptBox[
3294	RowBox[{"(",
3295	SubscriptBox["P", "\<\"+\"\>"], ")"}],
3296	RowBox[{"s$194", ",", "r$194"}]],
3297	TraditionalForm], " ",
3298	FormBox[
3299	SubscriptBox["yu", "n$194"],
3300	TraditionalForm]}],
3301	SqrtBox["2"]], "-",
3302	FractionBox[
3303	RowBox[{
3304	RowBox[{"(",
3305	RowBox[{"H", "+", "v"}], ")"}], " ",
3306	RowBox[{
3307	FormBox[
3308	SubsuperscriptBox["uq",
3309	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
3310	TraditionalForm], ".",
3311	FormBox[
3312	SubscriptBox["uq",
3313	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
3314	TraditionalForm]}], " ",
3315	FormBox[
3316	SubscriptBox[
3317	RowBox[{"(",
3318	SubscriptBox["P", "\<\"-\"\>"], ")"}],
3319	RowBox[{"r$195", ",", "s$195"}]],
3320	TraditionalForm], " ",
3321	FormBox[
3322	SubscriptBox["yu", "n$195"],
3323	TraditionalForm]}],
3324	SqrtBox["2"]]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output",
3325	CellChangeTimes->{
3326	3.454061226531508*^9},ExpressionUUID->"d83f6427-c2c1-4428-93e0-\
3327	822b87a65902"]
3328	}, Closed]]
3329	}, Open ]]
3330	}, Open ]]
3331	}, Open ]]
3332	},
3333	Evaluator->"Neutrino",
3334	WindowSize->{808, 703},
3335	WindowMargins->{{Automatic, 0}, {40, Automatic}},
3336	FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
3337	StyleDefinitions->"Default.nb"
3338	]
3339	(* End of Notebook Content *)
3340
3341	(* Internal cache information *)
3342	(*CellTagsOutline
3343	CellTagsIndex->{}
3344	*)
3345	(*CellTagsIndex
3346	CellTagsIndex->{}
3347	*)
3348	(*NotebookFileOutline
3349	Notebook[{
3350	Cell[CellGroupData[{
3351	Cell[580, 22, 410, 6, 160, "Title",ExpressionUUID->"0c7d382c-2c43-4a74-a4b0-6b33b7b494db"],
3352	Cell[CellGroupData[{
3353	Cell[1015, 32, 174, 3, 67, "Section",ExpressionUUID->"a39a0740-0c79-41c6-87fc-51f5ba05af02"],
3354	Cell[1192, 37, 180, 4, 30, "Input",ExpressionUUID->"b8c26645-927c-4e00-ae82-8dce9c9ad8f2"],
3355	Cell[1375, 43, 880, 16, 73, "Input",ExpressionUUID->"17ecac41-11e8-41a2-bb8f-8286be4e30fa"]
3356	}, Open ]],
3357	Cell[CellGroupData[{
3358	Cell[2292, 64, 303, 5, 67, "Section",ExpressionUUID->"5b4bbec4-1119-4816-a391-9dbf12789517"],
3359	Cell[CellGroupData[{
3360	Cell[2620, 73, 356, 6, 30, "Input",ExpressionUUID->"90eb63cf-3355-434a-930e-55afdafb9e3d"],
3361	Cell[CellGroupData[{
3362	Cell[3001, 83, 566, 11, 20, "Print",ExpressionUUID->"1d2ad7a4-41fc-4184-8f60-69b803fdc27c"],
3363	Cell[3570, 96, 537, 10, 20, "Print",ExpressionUUID->"85e92282-e1fc-4fb8-96fa-0b5abbeb1ef0"],
3364	Cell[4110, 108, 677, 14, 20, "Print",ExpressionUUID->"0194ce7d-a119-4ac0-b7d5-6e46cc6809fb"],
3365	Cell[4790, 124, 576, 11, 20, "Print",ExpressionUUID->"32beafcd-a690-41e1-8438-0f37fa115909"],
3366	Cell[5369, 137, 572, 11, 20, "Print",ExpressionUUID->"c00742c0-5c06-443a-bc15-2b63f78053e7"],
3367	Cell[5944, 150, 523, 10, 20, "Print",ExpressionUUID->"74101b3c-5e42-45c1-ae04-420f8f845b26"],
3368	Cell[6470, 162, 555, 11, 20, "Print",ExpressionUUID->"29c1d312-5bd8-455a-9233-5dda7eaf6dfb"],
3369	Cell[7028, 175, 559, 11, 20, "Print",ExpressionUUID->"16353bb5-aaac-4ebc-9648-c57638500838"],
3370	Cell[7590, 188, 555, 11, 20, "Print",ExpressionUUID->"87bc4951-f092-4380-a792-f0b06a032c97"],
3371	Cell[8148, 201, 795, 17, 36, "Print",ExpressionUUID->"2886e799-79a0-4cdb-ab75-e372b9e3bccd"]
3372	}, Open ]]
3373	}, Open ]]
3374	}, Open ]],
3375	Cell[CellGroupData[{
3376	Cell[9004, 225, 306, 5, 67, "Section",ExpressionUUID->"8f8f6385-04c2-4ae6-9586-bfd6425af08f"],
3377	Cell[9313, 232, 413, 8, 58, "Text",ExpressionUUID->"69aa44e3-ef8c-40a0-b1c4-290aa6d62baa"],
3378	Cell[CellGroupData[{
3379	Cell[9751, 244, 348, 5, 45, "Subsubsection",ExpressionUUID->"e31e7898-918c-4686-8343-b7f9fed381c3"],
3380	Cell[CellGroupData[{
3381	Cell[10124, 253, 358, 6, 30, "Input",ExpressionUUID->"80552330-6b99-4064-acd6-d05d29e6b5f4"],
3382	Cell[10485, 261, 15156, 480, 316, "Output",ExpressionUUID->"3fcd004e-dc4a-4abb-ac49-494b60fae4f3"]
3383	}, Closed]]
3384	}, Open ]],
3385	Cell[CellGroupData[{
3386	Cell[25690, 747, 274, 4, 45, "Subsubsection",ExpressionUUID->"6255587e-0af9-4334-a0fa-39a7c53c18cf"],
3387	Cell[CellGroupData[{
3388	Cell[25989, 755, 327, 5, 30, "Input",ExpressionUUID->"0b6ab6a8-4b40-48b1-b8de-c216aa59c101"],
3389	Cell[26319, 762, 13675, 446, 346, "Output",ExpressionUUID->"291dcac5-8f83-4b14-8091-6467de9ab4bb"]
3390	}, Closed]]
3391	}, Open ]],
3392	Cell[CellGroupData[{
3393	Cell[40043, 1214, 278, 4, 45, "Subsubsection",ExpressionUUID->"e55c713f-40d3-442f-872b-50b0e6cec5f2"],
3394	Cell[CellGroupData[{
3395	Cell[40346, 1222, 385, 6, 30, "Input",ExpressionUUID->"b9e6afda-6b21-4d26-b289-4e476fc55518"],
3396	Cell[40734, 1230, 44693, 1367, 898, "Output",ExpressionUUID->"d45a1b88-1dea-4e0d-b094-f0acead477a1"]
3397	}, Closed]]
3398	}, Open ]],
3399	Cell[CellGroupData[{
3400	Cell[85476, 2603, 273, 4, 45, "Subsubsection",ExpressionUUID->"49b0b76d-dae2-4d44-92f8-831da3136cbd"],
3401	Cell[CellGroupData[{
3402	Cell[85774, 2611, 337, 5, 30, "Input",ExpressionUUID->"c5cc8969-d9dc-4874-85e7-5a07594f4dd8"],
3403	Cell[86114, 2618, 5667, 174, 375, "Output",ExpressionUUID->"0d2c3841-cd5b-4454-b952-167bcedc6b99"]
3404	}, Closed]]
3405	}, Open ]],
3406	Cell[CellGroupData[{
3407	Cell[91830, 2798, 323, 5, 45, "Subsubsection",ExpressionUUID->"e273bb53-205e-4ce8-b51f-77f61ca43d3b"],
3408	Cell[CellGroupData[{
3409	Cell[92178, 2807, 362, 6, 30, "Input",ExpressionUUID->"71a4aa6c-1c15-481b-9fc4-9330b53c715e"],
3410	Cell[92543, 2815, 5667, 174, 375, "Output",ExpressionUUID->"37480c59-abcc-458b-96b9-4525dad79f51"]
3411	}, Closed]]
3412	}, Open ]],
3413	Cell[CellGroupData[{
3414	Cell[98259, 2995, 181, 3, 45, "Subsubsection",ExpressionUUID->"0cac47a0-8b44-413a-bbdf-87383adeb324"],
3415	Cell[98443, 3000, 565, 10, 35, "Text",ExpressionUUID->"44cd65f4-1dd3-445d-89bc-86fd60970a40"],
3416	Cell[99011, 3012, 432, 10, 30, "Input",ExpressionUUID->"91b83000-35d7-4c8d-b139-9d02bd9d2244"]
3417	}, Open ]]
3418	}, Open ]],
3419	Cell[CellGroupData[{
3420	Cell[99492, 3028, 305, 5, 67, "Section",ExpressionUUID->"50030a7f-5392-4160-8560-48224d30be9c"],
3421	Cell[99800, 3035, 372, 7, 58, "Text",ExpressionUUID->"46ed1c78-f47a-4177-94f9-4cf8218f6f6d"],
3422	Cell[100175, 3044, 206, 5, 30, "Input",ExpressionUUID->"46d76b01-79e9-402a-b6b1-adf6a35a4d69"],
3423	Cell[CellGroupData[{
3424	Cell[100406, 3053, 250, 4, 45, "Subsubsection",ExpressionUUID->"620d0c08-735a-487d-8815-004be19352b3"],
3425	Cell[100659, 3059, 437, 9, 30, "Input",ExpressionUUID->"959ee140-46d8-4d5e-9f36-6ae3c82ee355"]
3426	}, Open ]],
3427	Cell[CellGroupData[{
3428	Cell[101133, 3073, 272, 4, 45, "Subsubsection",ExpressionUUID->"a38d459d-783e-4af2-a1d0-99b51620e3a0"],
3429	Cell[101408, 3079, 356, 7, 30, "Input",ExpressionUUID->"ceb34b49-147c-4906-baea-30ba2cd34bd2"]
3430	}, Open ]],
3431	Cell[CellGroupData[{
3432	Cell[101801, 3091, 276, 4, 45, "Subsubsection",ExpressionUUID->"92c021fa-5f00-4e0e-b55f-4a42072531aa"],
3433	Cell[102080, 3097, 444, 8, 30, "Input",ExpressionUUID->"a3dd8090-3c67-41b6-b34e-51429bf8c82f"]
3434	}, Open ]],
3435	Cell[CellGroupData[{
3436	Cell[102561, 3110, 253, 4, 45, "Subsubsection",ExpressionUUID->"4de69377-84e8-4afc-8145-6416fa1b8211"],
3437	Cell[102817, 3116, 430, 9, 30, "Input",ExpressionUUID->"d1dced09-9f23-4049-a247-1ff2cb8220c6"]
3438	}, Open ]],
3439	Cell[CellGroupData[{
3440	Cell[103284, 3130, 323, 5, 45, "Subsubsection",ExpressionUUID->"32391b8d-1a41-4c99-ac04-6b73f843d1ea"],
3441	Cell[CellGroupData[{
3442	Cell[103632, 3139, 625, 11, 30, "Input",ExpressionUUID->"8b957fda-0e1b-4e2b-b1ff-01140f8b5a43"],
3443	Cell[104260, 3152, 5667, 174, 375, "Output",ExpressionUUID->"d83f6427-c2c1-4428-93e0-822b87a65902"]
3444	}, Closed]]
3445	}, Open ]]
3446	}, Open ]]
3447	}, Open ]]
3448	}
3449	]
3450	*)
3451

Download in other formats:

Original Format