(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[   5882740,     142452]
NotebookOptionsPosition[   5784776,     140905]
NotebookOutlinePosition[   5785229,     140923]
CellTagsIndexPosition[   5785186,     140920]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["The conformal Einstein equations ", "Title",
 CellChangeTimes->{{3.731235059695258*^9, 3.731235112298023*^9}, {
  3.731235176984663*^9, 
  3.7312351866147346`*^9}},ExpressionUUID->"36382883-8916-491d-a737-\
5ead42e3ac32"],

Cell["Alfonso Garc\[IAcute]a-Parrado (alfonso@math.uminho.pt)", "Text",
 CellChangeTimes->{{3.731235197088551*^9, 
  3.731235210365556*^9}},ExpressionUUID->"20557ddb-950f-4ab8-8468-\
d22c90f4dff3"],

Cell[CellGroupData[{

Cell["Initialization", "Subsection",
 CellChangeTimes->{{3.511457881062109*^9, 3.511457884028792*^9}, {
  3.5212761222100763`*^9, 
  3.521276122572281*^9}},ExpressionUUID->"5d750807-e4e9-4839-b9c5-\
f60a785ca10b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "xAct`xTensor`"}]], "Input",
 CellChangeTimes->{{3.511339934962049*^9, 3.5113399464527407`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"dc994d09-78a2-429d-8276-8a109d0e54cb"],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869325045*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"f2605b0c-d34f-4a17-8546-2b9997726d60"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xPerm`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}],
  SequenceForm["Package xAct`xPerm`  version ", "1.2.3", ", ", {2015, 8, 23}],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869326385*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a4a71840-8597-4c2e-b07b-3c4cda1e74df"],

Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.7312348693270197`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"5a8e5136-b87e-4575-8d52-f6d05531979e"],

Cell[BoxData["\<\"Connecting to external linux executable...\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869360478*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"69f1e3cc-1cde-4ff3-9115-9fb0612d3a4a"],

Cell[BoxData["\<\"Connection established.\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869398789*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"54d83816-4bc4-4578-97b9-aba6ed1dbf2f"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.7312348694139843`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"074b5618-28be-4f44-a466-ac319531bf9c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xTensor`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.1.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm[
  "Package xAct`xTensor`  version ", "1.1.3", ", ", {2018, 2, 28}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869414592*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"bfd8b203-e941-4cb6-a45e-4265b83bc53b"],

Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869415083*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"19e6b331-160a-46c3-a3ea-2e44e5eef9a7"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869415564*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"cb2f2060-f033-4b45-b6f3-aff90369afad"],

Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \
details type Disclaimer[]. This is free software, and you are welcome to \
redistribute it under certain conditions. See the General Public License for \
details.\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869416045*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"5b869a7d-e3cc-4a9a-8134-32c6538c307d"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.511339949146274*^9, 3.511372716204062*^9, 3.511457893023953*^9, 
   3.5115031295240593`*^9, 3.5115036837796164`*^9, 3.511503772690022*^9, 
   3.511504750807366*^9, 3.511507389230101*^9, 3.511591714833169*^9, 
   3.5115952159662046`*^9, 3.511630872191937*^9, {3.51163155854006*^9, 
   3.511631586602716*^9}, 3.511720861822033*^9, 3.5120205843761*^9, 
   3.521273620448641*^9, 3.5212763073329287`*^9, 3.521276408881486*^9, 
   3.521277299263812*^9, 3.5212774853986197`*^9, 3.521278893444448*^9, 
   3.521364373603189*^9, 3.521366288901263*^9, 3.5213703480340023`*^9, 
   3.5214406713586187`*^9, 3.5214409110370607`*^9, 3.5214558982870626`*^9, 
   3.521458270961645*^9, 3.521506960064761*^9, 3.521520500096485*^9, 
   3.521520572853319*^9, 3.521523010497229*^9, 3.5215390283082848`*^9, 
   3.521785474418467*^9, 3.5217973527854433`*^9, 3.521803972391775*^9, 
   3.521883287990349*^9, 3.521940087510797*^9, 3.521971049811674*^9, {
   3.521971379595537*^9, 3.5219714036217203`*^9}, 3.521971472845063*^9, 
   3.521971562933522*^9, 3.521972098052104*^9, 3.521973951324196*^9, 
   3.522029093931342*^9, 3.524393876193983*^9, 3.524396307699461*^9, 
   3.5249778600411663`*^9, 3.524997213819282*^9, 3.525066320365389*^9, 
   3.5250664157754507`*^9, 3.5250707923507023`*^9, 3.525072065467749*^9, 
   3.5250732244582443`*^9, 3.525081017663541*^9, 3.5251871331904593`*^9, 
   3.5252402418146467`*^9, 3.525243894708537*^9, 3.525397506848866*^9, 
   3.525398670265326*^9, 3.525493458279299*^9, 3.525660861809417*^9, 
   3.525661906567539*^9, 3.525662975725625*^9, 3.525673271830946*^9, 
   3.545738862283895*^9, 3.545991117712463*^9, 3.545991461296288*^9, 
   3.5460001121324472`*^9, 3.5460213470035667`*^9, 3.54605760760271*^9, 
   3.546064576077878*^9, 3.546091114321471*^9, 3.546325591090282*^9, 
   3.5482473199807787`*^9, 3.548404540424324*^9, 3.548481242102871*^9, 
   3.548511419597639*^9, 3.548525801754377*^9, 3.548567864108521*^9, 
   3.548571024116538*^9, 3.548575002947618*^9, 3.548591579509233*^9, 
   3.548662085802371*^9, 3.548700110309354*^9, 3.548756239729282*^9, 
   3.54891123630415*^9, 3.548930601007369*^9, 3.548960788449718*^9, 
   3.549002162833894*^9, 3.549020854165785*^9, 3.549043531738325*^9, 
   3.54904702085294*^9, 3.549086266595454*^9, 3.5490962620281067`*^9, 
   3.5492602975805283`*^9, 3.549272914915964*^9, 3.549305065650899*^9, 
   3.549305283978747*^9, 3.549305792419859*^9, 3.5493588712644463`*^9, 
   3.549433061183907*^9, 3.5494623056547318`*^9, 3.549540236207613*^9, 
   3.550921573344493*^9, 3.550990705418545*^9, 3.550996412739667*^9, 
   3.550996580086052*^9, 3.555347003764056*^9, 3.557392086099666*^9, 
   3.557403140034082*^9, 3.557466431885129*^9, 3.5575793684836893`*^9, 
   3.557635721627142*^9, 3.5584411259606123`*^9, 3.558549874953004*^9, 
   3.5600077295399027`*^9, 3.560044342678896*^9, 3.560044401780879*^9, 
   3.560185487411512*^9, 3.560186273559101*^9, 3.560186346815609*^9, 
   3.560186497226633*^9, 3.560222866172888*^9, 3.560256411573771*^9, 
   3.5602689179936666`*^9, 3.560269920853791*^9, 3.5602714061765223`*^9, 
   3.560516234915675*^9, 3.56052158915646*^9, 3.560534279692978*^9, 
   3.56053514294128*^9, 3.560842295039115*^9, 3.5608444244198437`*^9, 
   3.561176797671228*^9, 3.561210835734953*^9, 3.561269134829852*^9, 
   3.561275583700585*^9, 3.561276928432659*^9, 3.561302789881699*^9, 
   3.561305353566955*^9, 3.5613085236860933`*^9, 3.56130877196378*^9, {
   3.561360296265143*^9, 3.561360054235808*^9}, 3.728115015117846*^9, 
   3.731234869416527*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"c57a2263-c480-436e-87a6-6f2b9ad9b4a6"]
}, Open  ]]
}, Open  ]],

Cell["Preliminary arrangements", "Text",
 CellChangeTimes->{{3.419925954259194*^9, 3.4199259606031313`*^9}}],

Cell[BoxData[
 RowBox[{"<<", "xAct`ShowTime1`"}]], "Input",
 CellLabel->"In[2]:=",ExpressionUUID->"9a72d7b7-2c57-4160-8154-ec0a844a0d80"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=", "ScreenDollarIndices"}], ";"}]], "Input",
 CellChangeTimes->{{3.45951897955881*^9, 3.459518990176119*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"e4b5f0b0-3a87-4ac0-ad40-d7298cfe6e69"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"ContractMetric", ",", 
    RowBox[{"AllowUpperDerivatives", "\[Rule]", "True"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.521275534900227*^9, 3.5212755528921747`*^9}, 
   3.521275614893703*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"7bfa232c-e3c2-4df9-8bce-30d021c3a3b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ApplyRule", "[", "expr_", "]"}], ":=", 
   RowBox[{"MakeRule", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"List", "@@", "expr"}], "]"}], ",", 
     RowBox[{"MetricOn", "\[Rule]", "All"}], ",", 
     RowBox[{"ContractMetrics", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.412482655748526*^9, 3.412482694002795*^9}, 
   3.467884942226431*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"48451fe8-6095-41fd-ad21-3afb51ea23a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ApplyRuleN", "[", "expr_", "]"}], ":=", 
   RowBox[{"MakeRule", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"List", "@@", "expr"}], "]"}], ",", 
     RowBox[{"MetricOn", "\[Rule]", "None"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.511341052874819*^9, 3.5113410600137987`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"3e150d26-8cb6-41b9-b8e5-2b1eb93be9dc"],

Cell["Here, we work in  dimension four", "Text",
 CellChangeTimes->{{3.511720974261937*^9, 3.511720985815381*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefManifold", "[", 
  RowBox[{"M4", ",", "4", ",", 
   RowBox[{"Complement", "[", 
    RowBox[{
     RowBox[{"IndexRange", "[", 
      RowBox[{"\[Alpha]", ",", "\[Rho]"}], "]"}], ",", 
     RowBox[{"{", "\[Pi]", "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511339998111088*^9, 3.511340016300664*^9}, {
  3.525066424326806*^9, 3.525066436854772*^9}, {3.525066731836854*^9, 
  3.525066735683955*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"c8ec8473-3c75-4044-879d-0bca28db54c1"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefManifold", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"manifold \"\>", "\[InvisibleSpace]", "M4", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefManifold, ": Defining ", 
   "manifold ", $CellContext`M4, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.525066737205559*^9, 3.525070792785482*^9, 3.525072066042234*^9, 
   3.525073225021248*^9, 3.5250810183280497`*^9, 3.525187133621848*^9, 
   3.525240242327248*^9, 3.525243895241001*^9, 3.525397507578891*^9, 
   3.525398670823207*^9, 3.525493458662319*^9, 3.52566086219278*^9, 
   3.525661906765781*^9, 3.52566297601975*^9, 3.525673272358757*^9, 
   3.5457388626595097`*^9, 3.545991118359087*^9, 3.545991461861517*^9, 
   3.546000112765945*^9, 3.546021347661317*^9, 3.546057608370862*^9, 
   3.546064576552905*^9, 3.5460911149067583`*^9, 3.5463255919152613`*^9, 
   3.548247320748406*^9, 3.5484045409516783`*^9, 3.548481242472249*^9, 
   3.548511420108013*^9, 3.5485258022768507`*^9, 3.548567864817111*^9, 
   3.54857102436931*^9, 3.548575003392139*^9, 3.548591579956716*^9, 
   3.548662086412507*^9, 3.548700110782071*^9, 3.548756240343381*^9, 
   3.5489112367293653`*^9, 3.54893060126357*^9, 3.548960788686639*^9, 
   3.5490021632241993`*^9, 3.549020854631588*^9, 3.5490435321411953`*^9, 
   3.5490470212447777`*^9, 3.54908626697465*^9, 3.549096262474547*^9, 
   3.549260298309348*^9, 3.549272915343309*^9, 3.549305066280354*^9, 
   3.549305284308318*^9, 3.549305792653648*^9, 3.5493588716167088`*^9, 
   3.5494330615671*^9, 3.549462306266889*^9, 3.549540236550695*^9, 
   3.550921573842101*^9, 3.550990705782814*^9, 3.550996413179311*^9, 
   3.55099658090742*^9, 3.5553470042965593`*^9, 3.557392086665407*^9, 
   3.557403140361075*^9, 3.557466432582562*^9, 3.5575793687590027`*^9, 
   3.557635722322892*^9, 3.558441126595353*^9, 3.5585498753311253`*^9, 
   3.560007730087845*^9, 3.560044343371833*^9, 3.560044402555003*^9, 
   3.560185488045208*^9, 3.560186274403364*^9, 3.560186347778058*^9, 
   3.5601864979860067`*^9, 3.5602228671770697`*^9, 3.560256412132126*^9, 
   3.560268918804326*^9, 3.560269921915092*^9, 3.5602714069967947`*^9, 
   3.5605162353441887`*^9, 3.56052159012061*^9, 3.560534280111335*^9, 
   3.5605351433256683`*^9, 3.5608422956145267`*^9, 3.560844425460782*^9, 
   3.5611767980681667`*^9, 3.561210836413101*^9, 3.5612691353529787`*^9, 
   3.561275585268223*^9, 3.561276929729918*^9, 3.561302791208084*^9, 
   3.5613053542803497`*^9, 3.561308524710857*^9, 3.561308772854896*^9, {
   3.561360296788041*^9, 3.561360054796455*^9}, 3.728115015473222*^9, 
   3.7312348696678877`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"6e671b8d-a88b-48a4-8a6e-52fe6c5caec8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefVBundle", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vbundle \"\>", "\[InvisibleSpace]", "TangentM4", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefVBundle, ": Defining ", 
   "vbundle ", $CellContext`TangentM4, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.525066737205559*^9, 3.525070792785482*^9, 3.525072066042234*^9, 
   3.525073225021248*^9, 3.5250810183280497`*^9, 3.525187133621848*^9, 
   3.525240242327248*^9, 3.525243895241001*^9, 3.525397507578891*^9, 
   3.525398670823207*^9, 3.525493458662319*^9, 3.52566086219278*^9, 
   3.525661906765781*^9, 3.52566297601975*^9, 3.525673272358757*^9, 
   3.5457388626595097`*^9, 3.545991118359087*^9, 3.545991461861517*^9, 
   3.546000112765945*^9, 3.546021347661317*^9, 3.546057608370862*^9, 
   3.546064576552905*^9, 3.5460911149067583`*^9, 3.5463255919152613`*^9, 
   3.548247320748406*^9, 3.5484045409516783`*^9, 3.548481242472249*^9, 
   3.548511420108013*^9, 3.5485258022768507`*^9, 3.548567864817111*^9, 
   3.54857102436931*^9, 3.548575003392139*^9, 3.548591579956716*^9, 
   3.548662086412507*^9, 3.548700110782071*^9, 3.548756240343381*^9, 
   3.5489112367293653`*^9, 3.54893060126357*^9, 3.548960788686639*^9, 
   3.5490021632241993`*^9, 3.549020854631588*^9, 3.5490435321411953`*^9, 
   3.5490470212447777`*^9, 3.54908626697465*^9, 3.549096262474547*^9, 
   3.549260298309348*^9, 3.549272915343309*^9, 3.549305066280354*^9, 
   3.549305284308318*^9, 3.549305792653648*^9, 3.5493588716167088`*^9, 
   3.5494330615671*^9, 3.549462306266889*^9, 3.549540236550695*^9, 
   3.550921573842101*^9, 3.550990705782814*^9, 3.550996413179311*^9, 
   3.55099658090742*^9, 3.5553470042965593`*^9, 3.557392086665407*^9, 
   3.557403140361075*^9, 3.557466432582562*^9, 3.5575793687590027`*^9, 
   3.557635722322892*^9, 3.558441126595353*^9, 3.5585498753311253`*^9, 
   3.560007730087845*^9, 3.560044343371833*^9, 3.560044402555003*^9, 
   3.560185488045208*^9, 3.560186274403364*^9, 3.560186347778058*^9, 
   3.5601864979860067`*^9, 3.5602228671770697`*^9, 3.560256412132126*^9, 
   3.560268918804326*^9, 3.560269921915092*^9, 3.5602714069967947`*^9, 
   3.5605162353441887`*^9, 3.56052159012061*^9, 3.560534280111335*^9, 
   3.5605351433256683`*^9, 3.5608422956145267`*^9, 3.560844425460782*^9, 
   3.5611767980681667`*^9, 3.561210836413101*^9, 3.5612691353529787`*^9, 
   3.561275585268223*^9, 3.561276929729918*^9, 3.561302791208084*^9, 
   3.5613053542803497`*^9, 3.561308524710857*^9, 3.561308772854896*^9, {
   3.561360296788041*^9, 3.561360054796455*^9}, 3.728115015473222*^9, 
   3.731234869677658*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"d5145841-9971-4868-8b1d-19e4d1e05b97"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Unphysical metric (default)", "Subsection",
 CellChangeTimes->{{3.5115069792164583`*^9, 
  3.511506989528101*^9}},ExpressionUUID->"da77d62d-89a5-4c3c-9194-\
3d664b4166ab"],

Cell[TextData[{
 "We define the unphysical metric. This is the default metric which means \
that indices are ",
 StyleBox["always",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 " raised and lowered with this metric."
}], "Text",
 CellChangeTimes->{{3.5117208713191633`*^9, 3.5117209125249662`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefMetric", "[", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"Unphysicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], " ", "]"}], ",", "CDg", ",", 
   RowBox[{"SymbolOfCovD", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<;\>\"", ",", "\"\<\[Del]\>\""}], "}"}]}], ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<g\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51134001824146*^9, 3.51134010345382*^9}, {
  3.5113401400036488`*^9, 3.5113402026981783`*^9}, {3.511340345711108*^9, 
  3.511340391693554*^9}, {3.525066749970519*^9, 3.525066752227005*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"2f8c3ff9-5d29-4ad4-b9d4-6ef829c08f23"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric metric tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"Unphysicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric metric tensor ", 
   $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869696237*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"dc30dc5c-0bf6-4b62-b304-149fec67bf61"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric tensor \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"epsilonUnphysicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric tensor ", 
   $CellContext`epsilonUnphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta], -$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869697081*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"fc813357-29fc-49f5-889a-89067524462f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tetrametric \"\>", "\[InvisibleSpace]", 
   RowBox[{"TetraUnphysicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tetrametric ", 
   $CellContext`TetraUnphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869697695*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"0514a215-0b79-4734-9b83-b4715d94c0c6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tetrametric \"\>", "\[InvisibleSpace]", 
   RowBox[{"TetraUnphysicalg\[Dagger]", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tetrametric ", 
   $CellContext`TetraUnphysicalg\[Dagger][-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348696983423`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"95464fd8-7924-45c0-8e65-bb4bf0070ae6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"covariant derivative \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"CDg", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "covariant derivative ", 
   $CellContext`CDg[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348697014923`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"3646c2a1-77f7-4707-9f3f-be2d9f897780"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionCDg", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionCDg[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348697030888`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"74ec83f1-d50a-4368-9489-b689972cdee2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelCDg", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelCDg[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869703888*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"3ecb1693-c671-421e-9b4c-986fdcd72ddf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Riemann tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"RiemannCDg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Riemann tensor ", 
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348697053223`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"bdf71789-e7e4-4f6e-bf3f-8cce1bd300f6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciCDg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Ricci tensor ", 
   $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ",
    ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869711087*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"e85cacaa-fe78-4c3b-9cb5-ecc54c0615bb"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Riemann automatically replaced \
by Ricci.\"\>"], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869729401*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"eabcc15d-7358-4de2-af00-8f7b598813d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Ricci scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"RicciScalarCDg", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Ricci scalar ", 
   $CellContext`RicciScalarCDg[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.73123486973004*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"bfe4e8d6-14bb-40dc-9bef-1bebec190ce0"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Ricci automatically replaced \
by RicciScalar.\"\>"], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348697479887`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"f6ade3dc-cbff-4ccd-9b45-6baaec2857b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Einstein tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"EinsteinCDg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Einstein tensor ", 
   $CellContext`EinsteinCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869749282*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"ea20aa4e-82cb-48db-9161-91851c10d38e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Weyl tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"WeylCDg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "Weyl tensor ", 
   $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869769187*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"9f6a3bf0-32f1-43ba-bfde-e4a07bc23cda"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric TFRicci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TFRicciCDg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric TFRicci tensor ", 
   $CellContext`TFRicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869861055*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"9df670b5-8c1d-4ee0-b0a4-56419006079e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Kretschmann scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"KretschmannCDg", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Kretschmann scalar ", 
   $CellContext`KretschmannCDg[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869876343*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"889e5724-8235-423a-a734-ff10e5e2c8eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RiemannToWeylRules for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RiemannToWeylRules for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234869876999*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"777c904a-6d30-4bc5-ab23-4551c2f1ae1f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RicciToTFRicci for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RicciToTFRicci for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348699967422`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"2ca0a0e2-7104-4c9e-a123-63bae6c72c97"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RicciToEinsteinRules for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RicciToEinsteinRules for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.731234870007999*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"0ea8008a-87f6-48b1-9cec-20bbffb405eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"weight +2 density \"\>", "\[InvisibleSpace]", 
   RowBox[{"DetUnphysicalg", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Determinant.\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "weight +2 density ", 
   $CellContext`DetUnphysicalg[], ". ", "Determinant."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113403927438374`*^9, 3.511372724813774*^9, 3.511457893481172*^9, 
   3.5115031302297907`*^9, 3.511503684496717*^9, 3.511503773386538*^9, 
   3.511504751523897*^9, 3.511507401272183*^9, 3.511591715621129*^9, 
   3.511595221793828*^9, 3.5116308727697697`*^9, {3.511631558993093*^9, 
   3.511631587148266*^9}, 3.5117209144503937`*^9, 3.5120216888658657`*^9, 
   3.521273633866912*^9, 3.5212763178367243`*^9, 3.521276418867744*^9, 
   3.521277300346567*^9, 3.521277486399604*^9, 3.521278894665967*^9, 
   3.5213644494501762`*^9, 3.521366289890627*^9, 3.521370348644586*^9, 
   3.5214406727202597`*^9, 3.5214409121961393`*^9, 3.521455898833282*^9, 
   3.521458271395184*^9, 3.521506961495193*^9, 3.5215205009317102`*^9, 
   3.5215205821282587`*^9, 3.521523011107327*^9, 3.521539028923461*^9, 
   3.5217854754894667`*^9, 3.521797353485065*^9, 3.5218039730355387`*^9, 
   3.521883288558783*^9, 3.5219400887543087`*^9, 3.521971074143609*^9, 
   3.521971380207612*^9, 3.521971411683773*^9, 3.5219714734378557`*^9, 
   3.521971563486356*^9, 3.5219720986559668`*^9, 3.521973951804467*^9, 
   3.522029094851344*^9, 3.52439388512394*^9, 3.5243963117469254`*^9, 
   3.524977861348752*^9, 3.5249972145883408`*^9, 3.52506675440907*^9, 
   3.525070792829776*^9, 3.525072066163842*^9, 3.525073225082082*^9, 
   3.5250810184843388`*^9, 3.52518713376608*^9, 3.525240242462487*^9, 
   3.525243895350312*^9, 3.5253975216307173`*^9, 3.52539867091022*^9, 
   3.525493458885323*^9, 3.5256608624287987`*^9, 3.52566190683709*^9, 
   3.5256629761151876`*^9, 3.5256732724434977`*^9, 3.54573886282444*^9, 
   3.5459911186349916`*^9, 3.5459914620291853`*^9, 3.5460001128995333`*^9, 
   3.546021347873418*^9, 3.546057608496426*^9, 3.546064576716185*^9, 
   3.546091115150456*^9, 3.5463255920815773`*^9, 3.548247320878085*^9, 
   3.548404541479012*^9, 3.548481242777132*^9, 3.548511420202684*^9, 
   3.5485258027667418`*^9, 3.5485678651178083`*^9, 3.548571035226871*^9, 
   3.548575003488112*^9, 3.548591580098752*^9, 3.548662086566337*^9, 
   3.5487001110481787`*^9, 3.548756242812339*^9, 3.548911236851471*^9, 
   3.548930601916462*^9, 3.54896079010664*^9, 3.54900217351219*^9, 
   3.5490208548450527`*^9, 3.549043532684984*^9, 3.549047021384119*^9, 
   3.5490862670763702`*^9, 3.549096262552203*^9, 3.549260298391608*^9, 
   3.549272915430748*^9, 3.54930506652833*^9, 3.549305284423967*^9, 
   3.549305793325634*^9, 3.5493588717757053`*^9, 3.549433061781453*^9, 
   3.549462306385663*^9, 3.54954023843685*^9, 3.5509215739459476`*^9, 
   3.550990705894362*^9, 3.550996413343287*^9, 3.550996580958549*^9, 
   3.555347014536055*^9, 3.5573920867830067`*^9, 3.5574031404663353`*^9, 
   3.557466432686203*^9, 3.557579369407933*^9, 3.5576357224251957`*^9, 
   3.5584411267351637`*^9, 3.558549877751883*^9, 3.560007730217025*^9, 
   3.560044343518255*^9, 3.560044402846002*^9, 3.560185488268701*^9, 
   3.5601862746393223`*^9, 3.56018634798384*^9, 3.560186498296091*^9, 
   3.560222867294881*^9, 3.560256412273184*^9, 3.560268919040283*^9, 
   3.560269922000379*^9, 3.560271407253305*^9, 3.5605162421256313`*^9, 
   3.560521590326703*^9, 3.560534280317562*^9, 3.560535143417345*^9, 
   3.560842306784589*^9, 3.560844425654917*^9, 3.561176798115776*^9, 
   3.561210836470684*^9, 3.5612691354888783`*^9, 3.5612755855872087`*^9, 
   3.5612769298176107`*^9, 3.561302791396229*^9, 3.5613053544812317`*^9, 
   3.561308524838904*^9, 3.561308772908885*^9, {3.5613602968993387`*^9, 
   3.561360054922076*^9}, 3.7281150155094557`*^9, 3.7312348700207863`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"a2fdfa3e-c72c-4755-ad83-92b6b86464f2"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SignatureOfMetric", "@", "Unphysicalg"}], "^=", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5252445856043587`*^9, 3.525244593111565*^9}, {
  3.5252446564817743`*^9, 3.52524467273181*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"5bac8434-1f9c-4b68-9f75-8f8ef168d053"]
}, Closed]],

Cell[CellGroupData[{

Cell["Physical metric and its relation to the unphysical one", "Subsection",
 CellChangeTimes->{{3.511507002984076*^9, 
  3.511507026439909*^9}},ExpressionUUID->"a984f6ef-5902-497f-a8b0-\
77a5e2008cf7"],

Cell["We introduce the physical metric", "Text",
 CellChangeTimes->{{3.511720930519355*^9, 3.511720935271854*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefMetric", "[", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"Physicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], " ", "]"}], ",", "CDTildeg", ",", 
   RowBox[{"SymbolOfCovD", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<;\>\"", ",", "\"\<\!\(\*OverscriptBox[\(\[Del]\), \(~\)]\)\>\""}], 
     "}"}]}], ",", 
   RowBox[{
   "PrintAs", "\[Rule]", "\"\<\!\(\*OverscriptBox[\(g\), \(~\)]\)\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.51134001824146*^9, 3.51134010345382*^9}, {
  3.5113401400036488`*^9, 3.5113402026981783`*^9}, {3.511340345711108*^9, 
  3.511340391693554*^9}, {3.511340450023027*^9, 3.511340488804549*^9}, {
  3.5250667631590757`*^9, 3.5250667651654243`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"0da9c0e1-b330-4d0c-9d87-f733bc2136eb"],

Cell[BoxData[
 TemplateBox[{
  "DefMetric","old",
   "\"There are already metrics \\!\\(\\*RowBox[{\\\"{\\\", \\\"Unphysicalg\\\
\", \\\"}\\\"}]\\) in vbundle \\!\\(\\*InterpretationBox[StyleBox[\\\"\
\[DoubleStruckCapitalT]M4\\\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, \
False]], TangentM4, Rule[Editable, False]]\\).\"",2,10,1,21821618543520981435,
   "Local","xAct`xTensor`DefMetric"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.511340494185334*^9, 3.511372726406329*^9, 3.511457893849778*^9, 
   3.511503130853116*^9, 3.5115036850214643`*^9, 3.5115037739406776`*^9, 
   3.5115047522712603`*^9, 3.511507410404518*^9, 3.511591716250037*^9, 
   3.511595229970072*^9, 3.511630873183214*^9, {3.5116315594037457`*^9, 
   3.5116315875822067`*^9}, 3.511720936647743*^9, 3.5212736457816963`*^9, 
   3.521276332740693*^9, 3.521276422460288*^9, 3.521277301077705*^9, 
   3.5212774872049227`*^9, 3.521278902242552*^9, 3.5213644605552177`*^9, 
   3.521366291816887*^9, 3.521370349080258*^9, 3.521440673942083*^9, 
   3.52144091310295*^9, 3.5214558999169416`*^9, 3.521458271778414*^9, 
   3.521506962830966*^9, 3.5215205017148457`*^9, 3.521520596737191*^9, 
   3.521523011660133*^9, 3.521539029942019*^9, 3.5217854764149227`*^9, 
   3.521797353907148*^9, 3.5218039745687227`*^9, 3.521883289612499*^9, 
   3.521940089815467*^9, 3.521971075990444*^9, 3.521971413457597*^9, 
   3.521971473858263*^9, 3.5219715639067297`*^9, 3.521972100055835*^9, 
   3.521973952296856*^9, 3.5220290962406397`*^9, 3.52439389969031*^9, 
   3.524396312652974*^9, 3.524977861839375*^9, 3.5249972151706257`*^9, 
   3.5250667668684273`*^9, 3.525070793206702*^9, 3.5250720668531*^9, 
   3.5250732255108356`*^9, 3.525081019120946*^9, 3.5251871342875757`*^9, 
   3.525240243051733*^9, 3.5252438958172703`*^9, 3.525397522987823*^9, 
   3.5253986715533257`*^9, 3.525493459655847*^9, 3.525660863160706*^9, 
   3.525661907462564*^9, 3.525662976716299*^9, 3.5256732731836653`*^9, 
   3.545738863741282*^9, 3.545991119823861*^9, 3.545991462895959*^9, 
   3.5460001137442102`*^9, 3.546021348936256*^9, 3.546057609448398*^9, 
   3.5460645777244*^9, 3.546091116204142*^9, 3.5463255929999437`*^9, 
   3.548247321913228*^9, 3.54840454246728*^9, 3.548481243741048*^9, 
   3.548511420982815*^9, 3.5485258037447233`*^9, 3.548567866710692*^9, 
   3.548571047137168*^9, 3.5485750040803623`*^9, 3.54859158107969*^9, 
   3.548662087363605*^9, 3.548700111924026*^9, 3.548756244719871*^9, 
   3.54891123741897*^9, 3.548930602744993*^9, 3.548960791933568*^9, 
   3.5490021745887136`*^9, 3.549020856403901*^9, 3.5490435336647167`*^9, 
   3.5490470220491657`*^9, 3.549086267603557*^9, 3.549096263375602*^9, 
   3.549260299037436*^9, 3.549272916193235*^9, 3.5493050674799147`*^9, 
   3.549305285152254*^9, 3.549305794529602*^9, 3.549358872680599*^9, 
   3.549433141905192*^9, 3.549462307183733*^9, 3.5495402397368727`*^9, 
   3.5509215747569733`*^9, 3.550990706624783*^9, 3.550996414063723*^9, 
   3.550996582260445*^9, 3.555347027340486*^9, 3.5573920876822357`*^9, 
   3.55740314104809*^9, 3.557466447897895*^9, 3.557579370284699*^9, 
   3.5576357231225433`*^9, 3.5584411276814327`*^9, 3.558549879766329*^9, 
   3.560007731107272*^9, 3.560044344495016*^9, 3.5600444041279716`*^9, 
   3.560185489215897*^9, 3.5601862760523777`*^9, 3.560186349247343*^9, 
   3.5601864995718393`*^9, 3.560222868184224*^9, 3.560256413172072*^9, 
   3.56026892013955*^9, 3.560269923564589*^9, 3.560271408513835*^9, 
   3.5605162429567347`*^9, 3.560521591393779*^9, 3.560534281035466*^9, 
   3.5605351440079823`*^9, 3.5608423077052307`*^9, 3.560844427232765*^9, 
   3.561176798885973*^9, 3.561210837441863*^9, 3.561269136417809*^9, 
   3.561275586759223*^9, 3.5612769310425863`*^9, 3.56130279293349*^9, 
   3.561305356258971*^9, 3.561308526359159*^9, 3.56130877454116*^9, {
   3.561360297813756*^9, 3.561360057146101*^9}, 3.728115016048683*^9, 
   3.731234870069723*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"f72f089a-e0d8-4bd7-875a-b03d22fc7538"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric metric tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"Physicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric metric tensor ", 
   $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348700707493`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"43117b88-f6f4-44ee-89dd-72d058b168df"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"inverse metric tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"InvPhysicalg", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Metric is frozen!\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "inverse metric tensor ", 
   $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Beta]], 
   ". ", "Metric is frozen!"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870071484*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"221f231f-b087-4a7f-9abb-cce6269c4788"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric tensor \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"epsilonPhysicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric tensor ", 
   $CellContext`epsilonPhysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870072116*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"2b81ce33-1cb4-4dee-8d8a-2b49e25a012d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tetrametric \"\>", "\[InvisibleSpace]", 
   RowBox[{"TetraPhysicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tetrametric ", 
   $CellContext`TetraPhysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870072723*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"1d0afcfb-ffd0-456e-9a42-dacd505f3840"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tetrametric \"\>", "\[InvisibleSpace]", 
   RowBox[{"TetraPhysicalg\[Dagger]", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tetrametric ", 
   $CellContext`TetraPhysicalg\[Dagger][-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870073382*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"73ebf311-9ee7-441c-a8d7-31176fe9d5e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"covariant derivative \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"CDTildeg", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "covariant derivative ", 
   $CellContext`CDTildeg[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348700739822`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"f9bc11b4-5a83-4a5b-9e68-7378c6b12b1c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionCDTildeg", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionCDTildeg[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870074565*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"0207ce22-308c-4380-aca7-31e009670257"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelCDTildeg", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelCDTildeg[$CellContext`\[Alpha], -$CellContext`\
\[Beta], -$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870075121*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"220292f5-b85a-47fb-9117-d038b2b1eb73"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Riemann tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"RiemannDownCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Riemann tensor ", 
   $CellContext`RiemannDownCDTildeg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta], -$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870087359*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"835923ec-183e-49e6-8104-13996c8e4b3b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Riemann tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"RiemannCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Antisymmetric only in the first pair.\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Riemann tensor ", 
   $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]], ". ", 
   "Antisymmetric only in the first pair."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348700880547`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"6c8d84fd-c732-490b-a1ca-a35873510f0a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Ricci tensor ", 
   $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870088648*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"be76a3d2-85d0-497e-b390-e0a4181a45a2"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Riemann automatically replaced \
by Ricci.\"\>"], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.73123487008926*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"b2e80b89-84e3-4507-bff0-dc39ec621229"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Ricci scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"RicciScalarCDTildeg", "[", "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Ricci scalar ", 
   $CellContext`RicciScalarCDTildeg[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348700898323`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"5f8a569f-0850-4a59-94cc-de89833ffec6"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Ricci automatically replaced \
by RicciScalar.\"\>"], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870106142*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"69697171-b67d-46ca-80ac-f996df82929c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Einstein tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"EinsteinCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Einstein tensor ", 
   $CellContext`EinsteinCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870107071*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"d6fe61af-dfb6-4793-bc84-b35579e1c08f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Weyl tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"WeylCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "Weyl tensor ", 
   $CellContext`WeylCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348701202173`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"50c5f13c-b2fc-461b-b968-82324ed93664"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric TFRicci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TFRicciCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric TFRicci tensor ", 
   $CellContext`TFRicciCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348702103786`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"af50c2cf-708f-4b73-b9ed-073607e60abb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Kretschmann scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"KretschmannCDTildeg", "[", "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Kretschmann scalar ", 
   $CellContext`KretschmannCDTildeg[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.731234870222755*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"1a7710a4-1d13-47f0-993b-0f872e0afca3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RiemannToWeylRules for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RiemannToWeylRules for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.7312348702234373`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"d2611bc2-00be-41eb-b7e2-c6892e84ade4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RicciToEinsteinRules for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RicciToEinsteinRules for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.73123487038308*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"dd0bb2fe-8bc2-4b88-bec9-f9c7908a43d7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"weight +2 density \"\>", "\[InvisibleSpace]", 
   RowBox[{"DetPhysicalg", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Determinant.\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "weight +2 density ", 
   $CellContext`DetPhysicalg[], ". ", "Determinant."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511340494336129*^9, 3.5113727264237957`*^9, 3.511457893852854*^9, 
   3.5115031308545103`*^9, 3.511503685022431*^9, 3.511503773953333*^9, 
   3.5115047522771273`*^9, 3.5115074104088297`*^9, 3.511591716251276*^9, 
   3.511595229977969*^9, 3.511630873184272*^9, {3.511631559422467*^9, 
   3.511631587591301*^9}, 3.511720936653051*^9, 3.5212736457865267`*^9, 
   3.521276332801215*^9, 3.521276422504846*^9, 3.5212773010884047`*^9, 
   3.521277487242478*^9, 3.521278902318606*^9, 3.521364460561236*^9, 
   3.521366291831698*^9, 3.521370349081234*^9, 3.521440673950876*^9, 
   3.5214409131437387`*^9, 3.5214558999178543`*^9, 3.521458271792252*^9, 
   3.521506962839521*^9, 3.521520501716577*^9, 3.5215205967601347`*^9, 
   3.521523011671833*^9, 3.521539029943049*^9, 3.5217854764166937`*^9, 
   3.52179735390834*^9, 3.5218039745726*^9, 3.521883289613995*^9, 
   3.521940089833969*^9, 3.5219710759914207`*^9, 3.521971413477351*^9, 
   3.521971473863614*^9, 3.5219715639184427`*^9, 3.521972100056965*^9, 
   3.52197395230934*^9, 3.522029096243478*^9, 3.5243938996952963`*^9, 
   3.524396312671406*^9, 3.5249778618404703`*^9, 3.524997215172817*^9, 
   3.525066766871594*^9, 3.5250707932078953`*^9, 3.5250720668550673`*^9, 
   3.525073225512294*^9, 3.525081019122549*^9, 3.525187134288784*^9, 
   3.525240243052888*^9, 3.525243895818544*^9, 3.525397523007868*^9, 
   3.525398671557712*^9, 3.525493459678269*^9, 3.525660863161852*^9, 
   3.525661907464625*^9, 3.525662976719488*^9, 3.525673273185733*^9, 
   3.545738863744238*^9, 3.5459911198265553`*^9, 3.5459914628983727`*^9, 
   3.546000113746541*^9, 3.546021348939039*^9, 3.546057609450704*^9, 
   3.546064577726713*^9, 3.5460911162067547`*^9, 3.54632559300181*^9, 
   3.548247321923613*^9, 3.548404542469596*^9, 3.5484812437444363`*^9, 
   3.548511420984858*^9, 3.548525803748282*^9, 3.5485678667265387`*^9, 
   3.548571047139443*^9, 3.548575004084222*^9, 3.548591581081894*^9, 
   3.548662087365851*^9, 3.548700111925796*^9, 3.548756244721868*^9, 
   3.5489112374305267`*^9, 3.548930602746665*^9, 3.5489607919349003`*^9, 
   3.549002174593793*^9, 3.5490208564059963`*^9, 3.5490435336813803`*^9, 
   3.549047022052924*^9, 3.549086267605002*^9, 3.549096263377878*^9, 
   3.549260299039009*^9, 3.549272916195314*^9, 3.549305067481555*^9, 
   3.5493052851548023`*^9, 3.54930579453283*^9, 3.549358872683154*^9, 
   3.549433141919717*^9, 3.549462307186805*^9, 3.5495402397382603`*^9, 
   3.550921574760079*^9, 3.550990706627007*^9, 3.550996414066349*^9, 
   3.5509965822641993`*^9, 3.555347027344603*^9, 3.557392087685359*^9, 
   3.557403141049616*^9, 3.557466447923834*^9, 3.557579370286405*^9, 
   3.557635723124256*^9, 3.558441127684868*^9, 3.558549879768154*^9, 
   3.560007731110471*^9, 3.560044344498673*^9, 3.560044404131796*^9, 
   3.56018548921978*^9, 3.560186276056699*^9, 3.560186349251824*^9, 
   3.560186499576228*^9, 3.560222868186728*^9, 3.560256413175394*^9, 
   3.5602689201439867`*^9, 3.5602699235693617`*^9, 3.560271408518168*^9, 
   3.560516242958539*^9, 3.5605215913969593`*^9, 3.560534281036948*^9, 
   3.560535144011182*^9, 3.560842307707775*^9, 3.5608444272371264`*^9, 
   3.561176798888461*^9, 3.561210837445636*^9, 3.561269136420751*^9, 
   3.561275586764223*^9, 3.561276931049521*^9, 3.56130279293832*^9, 
   3.561305356264097*^9, 3.561308526363482*^9, 3.5613087745459843`*^9, {
   3.561360297816956*^9, 3.5613600571501627`*^9}, 3.7281150160498657`*^9, 
   3.73123487039618*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"f579e2b5-864b-4c37-b75e-87ff078054f2"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PrintAs", "@", "InvPhysicalg"}], "^=", 
   "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(g\), \(~\)], \(#\)]\)\>\""}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5484135907853613`*^9, 3.548413609666703*^9}, {
  3.548413677840522*^9, 3.548413692738635*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"a03c92cd-b0e3-4eaa-967d-51c901dba235"],

Cell["The conformal factor", "Text",
 CellChangeTimes->{{3.511720946905879*^9, 3.511720952762385*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"\[CapitalTheta]", "[", "]"}], ",", "M4"}], "]"}]], "Input",
 CellChangeTimes->{{3.5113405576759233`*^9, 3.5113405681215982`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"95cb4f76-dacf-4025-8e91-6d128bee8766"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[CapitalTheta]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[CapitalTheta][], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5113405685605297`*^9, 3.511372729780939*^9, 3.511457894242717*^9, 
   3.511503131413664*^9, 3.511503685614558*^9, 3.511503774534135*^9, 
   3.511504752767877*^9, 3.511507411670472*^9, 3.5115917167509003`*^9, 
   3.511595231265486*^9, 3.511630873513026*^9, {3.511631559742292*^9, 
   3.511631587905826*^9}, 3.511720953881818*^9, 3.5212736478576813`*^9, 
   3.521276333734428*^9, 3.521276424101997*^9, 3.521277301803483*^9, 
   3.521277487938363*^9, 3.521278903266128*^9, 3.521364461400758*^9, 
   3.521366292489641*^9, 3.521370349412553*^9, 3.5214406746165047`*^9, 
   3.521440913752233*^9, 3.521455900285089*^9, 3.521458272114421*^9, 
   3.521506963685787*^9, 3.521520502408053*^9, 3.521520597427086*^9, 
   3.521523011998218*^9, 3.521539030271369*^9, 3.5217854773232517`*^9, 
   3.52179735424446*^9, 3.521803974955669*^9, 3.521883289983322*^9, 
   3.521940090496647*^9, 3.5219710763594303`*^9, 3.521971413835343*^9, 
   3.5219714741960907`*^9, 3.521971564236301*^9, 3.5219721004188004`*^9, 
   3.5219739526270103`*^9, 3.522029096909215*^9, 3.52439390037678*^9, 
   3.5243963131620417`*^9, 3.5249778621888866`*^9, 3.524997215681958*^9, 
   3.525066770163542*^9, 3.5250707936155252`*^9, 3.525072067223917*^9, 
   3.52507322585922*^9, 3.52508101966267*^9, 3.52518713462396*^9, 
   3.52524024345289*^9, 3.525243896189658*^9, 3.525397523493567*^9, 
   3.525398671946257*^9, 3.5254934600176983`*^9, 3.525660863539637*^9, 
   3.525661907867374*^9, 3.5256629771022797`*^9, 3.525673273728559*^9, 
   3.545738864323244*^9, 3.545991120520012*^9, 3.545991463566348*^9, 
   3.546000114405908*^9, 3.5460213498144836`*^9, 3.546057610162443*^9, 
   3.546064578402625*^9, 3.546091117018364*^9, 3.546325593722402*^9, 
   3.548247322628458*^9, 3.548404543044921*^9, 3.548481244143944*^9, 
   3.548511421594244*^9, 3.54852580414539*^9, 3.548567867244796*^9, 
   3.548571047614415*^9, 3.548575004524639*^9, 3.5485915816904716`*^9, 
   3.548662088350552*^9, 3.548700112320795*^9, 3.5487562457783823`*^9, 
   3.548911237882145*^9, 3.548930603189196*^9, 3.5489607924376583`*^9, 
   3.549002175023361*^9, 3.549020857376379*^9, 3.549043534053647*^9, 
   3.549047022533421*^9, 3.549086268119787*^9, 3.5490962643590107`*^9, 
   3.5492602994325333`*^9, 3.549272917164475*^9, 3.549305067921239*^9, 
   3.549305285592421*^9, 3.549305795038124*^9, 3.549358873680181*^9, 
   3.5494331423871117`*^9, 3.549462307592354*^9, 3.549540240188224*^9, 
   3.550921575339347*^9, 3.550990707936277*^9, 3.550996414699658*^9, 
   3.550996582872834*^9, 3.555347028125906*^9, 3.557392089003389*^9, 
   3.557403141620623*^9, 3.557466448215995*^9, 3.557579370699737*^9, 
   3.557635723510667*^9, 3.5584411289585333`*^9, 3.5585498803211727`*^9, 
   3.560007731855639*^9, 3.5600443451783113`*^9, 3.5600444048402853`*^9, 
   3.560185489901842*^9, 3.560186276763919*^9, 3.5601863499111233`*^9, 
   3.560186500237632*^9, 3.560222869351206*^9, 3.5602564138727007`*^9, 
   3.5602689210081587`*^9, 3.56026992439898*^9, 3.560271409196501*^9, 
   3.560516244033493*^9, 3.56052159205059*^9, 3.560534281666061*^9, 
   3.560535144421224*^9, 3.5608423088722477`*^9, 3.560844427973134*^9, 
   3.561176799742669*^9, 3.5612108381725273`*^9, 3.561269137208206*^9, 
   3.561275587461622*^9, 3.561276931736961*^9, 3.561302793910214*^9, 
   3.561305357514617*^9, 3.561308527449154*^9, 3.5613087756103563`*^9, {
   3.561360298469136*^9, 3.561360057873065*^9}, 3.728115016772987*^9, 
   3.731234870478711*^9},
 CellLabel->
  "During evaluation of \
In[12]:=",ExpressionUUID->"5ea5dabb-e108-40e4-91b8-8f149cd4f1a0"]
}, Open  ]],

Cell["\<\
The unphysical and the physical metric are related as follows\
\>", "Text",
 CellChangeTimes->{{3.511720956203236*^9, 3.511720956627092*^9}, {
  3.511720996706397*^9, 3.511721011371113*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Unphysicalg", "[", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], ",", 
    RowBox[{"-", "\[Beta]"}]}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalTheta]", "[", "]"}], "^", "2"}], 
   RowBox[{"Physicalg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.511340540703185*^9, 3.5113405705386744`*^9}, {
  3.511340614553068*^9, 3.511340628732489*^9}, {3.52506677284377*^9, 
  3.5250667803579063`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"fed0d8f1-81ba-405b-9798-786440cb20e9"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"g", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["g", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.5113406291617317`*^9, 3.511372731436001*^9, 3.511457894250441*^9, 
   3.511503131421179*^9, 3.511503685620393*^9, 3.511503774578972*^9, 
   3.511504752777515*^9, 3.511507412303329*^9, 3.511591716761857*^9, 
   3.511595231822105*^9, 3.511630873518661*^9, {3.511631559746313*^9, 
   3.511631587910623*^9}, 3.511721013563148*^9, 3.521273649267496*^9, 
   3.52127633380238*^9, 3.521276424204937*^9, 3.521277301885942*^9, 
   3.521277487997498*^9, 3.521278903323214*^9, 3.521364461502268*^9, 
   3.521366292498798*^9, 3.521370349418126*^9, 3.5214406746254663`*^9, 
   3.521440913760228*^9, 3.521455900314843*^9, 3.521458272118988*^9, 
   3.52150696380777*^9, 3.521520502471798*^9, 3.521520597437954*^9, 
   3.521523012004574*^9, 3.521539030276746*^9, 3.521785477335371*^9, 
   3.521797354250703*^9, 3.521803974961582*^9, 3.521883289989193*^9, 
   3.521940090724597*^9, 3.521971076365508*^9, 3.521971413839841*^9, 
   3.521971474200407*^9, 3.5219715642406883`*^9, 3.5219721004241467`*^9, 
   3.5219739526359787`*^9, 3.522029096981248*^9, 3.524393900418214*^9, 
   3.5243963131715107`*^9, 3.524977862194772*^9, 3.524997215691963*^9, 
   3.525066781115429*^9, 3.525070793620315*^9, 3.52507206723018*^9, 
   3.525073225884156*^9, 3.525081019671961*^9, 3.5251871346302223`*^9, 
   3.525240243504567*^9, 3.525243896231556*^9, 3.525397523517166*^9, 
   3.525398671962285*^9, 3.525493460038273*^9, 3.525660863555727*^9, 
   3.525661907892262*^9, 3.525662977115904*^9, 3.52567327377559*^9, 
   3.545738864335622*^9, 3.5459911205807323`*^9, 3.5459914636056232`*^9, 
   3.5460001144474497`*^9, 3.546021349891589*^9, 3.546057610270599*^9, 
   3.546064578443864*^9, 3.546091117144391*^9, 3.546325593745537*^9, 
   3.5482473227519827`*^9, 3.548404543081015*^9, 3.548481244150078*^9, 
   3.548511421636383*^9, 3.548525804152809*^9, 3.5485678672708817`*^9, 
   3.5485710476440563`*^9, 3.5485750045575123`*^9, 3.548591581723852*^9, 
   3.548662088373375*^9, 3.548700112327341*^9, 3.548756245808631*^9, 
   3.548911237929435*^9, 3.548930603223022*^9, 3.54896079246279*^9, 
   3.5490021750307426`*^9, 3.549020857405367*^9, 3.5490435340630417`*^9, 
   3.549047022566474*^9, 3.549086268129034*^9, 3.549096264394205*^9, 
   3.549260299440215*^9, 3.549272917193945*^9, 3.54930506794862*^9, 
   3.5493052856143017`*^9, 3.5493057950603237`*^9, 3.5493588736952267`*^9, 
   3.54943314239356*^9, 3.549462307600789*^9, 3.549540240196621*^9, 
   3.550921575357698*^9, 3.5509907079515133`*^9, 3.550996414727099*^9, 
   3.550996582908925*^9, 3.555347028138331*^9, 3.5573920890320663`*^9, 
   3.5574031417041817`*^9, 3.5574664482545156`*^9, 3.557579370731032*^9, 
   3.557635723523613*^9, 3.558441128989336*^9, 3.558549880351035*^9, 
   3.5600077318769503`*^9, 3.560044345194127*^9, 3.5600444048652678`*^9, 
   3.560185489913903*^9, 3.560186276791408*^9, 3.560186349923154*^9, 
   3.560186500265492*^9, 3.560222869365471*^9, 3.560256413887514*^9, 
   3.560268921111998*^9, 3.560269924429591*^9, 3.5602714092216988`*^9, 
   3.560516244061986*^9, 3.560521592086941*^9, 3.5605342816969137`*^9, 
   3.56053514444691*^9, 3.5608423089002533`*^9, 3.560844428000697*^9, 
   3.561176799763401*^9, 3.561210838207357*^9, 3.5612691372225*^9, 
   3.561275587496497*^9, 3.56127693177687*^9, 3.561302793979458*^9, 
   3.56130535754745*^9, 3.561308527486618*^9, 3.5613087756766253`*^9, {
   3.5613602984845753`*^9, 3.561360057889347*^9}, 3.7281150167880077`*^9, 
   3.7312348704986467`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"07d72f42-ff5d-48ab-9818-90f12b0a6a39"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"UnphysicalToPhysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511340656061425*^9, 3.511340662719078*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"695276f9-66ef-47f0-9d8c-f2a6a4781dda"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"UnphysicalToPhysical", ",", 
       RowBox[{"Physicalg", "[", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], ",", 
         RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "//", "Flatten"}], "//", 
    "First"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511341684075027*^9, 3.5113417427519217`*^9}, {
  3.525066785435421*^9, 3.5250667877351*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"0c9c8612-25dd-43bf-8085-eea86ecc83d6"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["g", "~"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  FractionBox[
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]]}]], "Output",
 CellChangeTimes->{{3.511341700354938*^9, 3.511341743733529*^9}, 
   3.51137273277215*^9, 3.5114578942830467`*^9, 3.5115031314654217`*^9, 
   3.511503685678814*^9, 3.511503774628441*^9, 3.5115047528250513`*^9, 
   3.511507413335246*^9, 3.511591716797838*^9, 3.511595232805966*^9, 
   3.5116308735391827`*^9, {3.5116315597660027`*^9, 3.511631587929328*^9}, 
   3.51172101510815*^9, 3.5212736518219137`*^9, 3.52127633394593*^9, 
   3.521276424347066*^9, 3.5212773020028353`*^9, 3.521277488231756*^9, 
   3.52127890345827*^9, 3.521364461715827*^9, 3.521366292517029*^9, 
   3.5213703494439373`*^9, 3.521440674726221*^9, 3.521440913862691*^9, 
   3.521455900446199*^9, 3.5214582721442957`*^9, 3.521506963910782*^9, 
   3.52152050258813*^9, 3.521520597484395*^9, 3.521523012035861*^9, 
   3.5215390303245792`*^9, 3.5217854774684763`*^9, 3.521797354275566*^9, 
   3.52180397498656*^9, 3.521883290013962*^9, 3.521940091071774*^9, 
   3.521971076383132*^9, 3.5219714138663673`*^9, 3.5219714742230053`*^9, 
   3.521971564263403*^9, 3.521972100447201*^9, 3.52197395265943*^9, 
   3.522029097285955*^9, 3.5243939005182123`*^9, 3.524396313206992*^9, 
   3.5249778622305593`*^9, 3.524997215733404*^9, 3.52506678848027*^9, 
   3.525070793654689*^9, 3.5250720672767982`*^9, 3.525073225989649*^9, 
   3.525081019729644*^9, 3.525187134659029*^9, 3.525240243610578*^9, 
   3.525243896276626*^9, 3.5253975236488743`*^9, 3.525398672044077*^9, 
   3.5254934600931253`*^9, 3.525660863590816*^9, 3.5256619079500237`*^9, 
   3.5256629771275187`*^9, 3.525673273826572*^9, 3.54573886444343*^9, 
   3.545991120833385*^9, 3.545991463635846*^9, 3.546000114497909*^9, 
   3.546021350016529*^9, 3.546057610389118*^9, 3.5460645788009167`*^9, 
   3.546091117312181*^9, 3.546325593851145*^9, 3.548247322885861*^9, 
   3.54840454314758*^9, 3.548481244183429*^9, 3.548511421678485*^9, 
   3.548525804180958*^9, 3.54856786730197*^9, 3.548571047683145*^9, 
   3.548575004591288*^9, 3.548591581877139*^9, 3.5486620884152412`*^9, 
   3.5487001123591547`*^9, 3.5487562458877983`*^9, 3.548911238001154*^9, 
   3.548930603259892*^9, 3.5489607924889383`*^9, 3.549002175058652*^9, 
   3.549020857493187*^9, 3.5490435341088552`*^9, 3.549047022603084*^9, 
   3.549086268169363*^9, 3.549096264505577*^9, 3.549260299477212*^9, 
   3.5492729172158833`*^9, 3.549305068013135*^9, 3.549305285713387*^9, 
   3.549305795092991*^9, 3.5493588737187567`*^9, 3.549433142433269*^9, 
   3.54946230763262*^9, 3.5495402402327137`*^9, 3.550921575450897*^9, 
   3.550990707974922*^9, 3.5509964148385487`*^9, 3.5509965831332817`*^9, 
   3.555347028283362*^9, 3.557392089244299*^9, 3.557403141808876*^9, 
   3.557466448300702*^9, 3.55757937077656*^9, 3.557635723572315*^9, 
   3.558441129111883*^9, 3.558549880455353*^9, 3.560007732055767*^9, 
   3.560044345426791*^9, 3.560044404970931*^9, 3.5601854900435677`*^9, 
   3.5601862768444653`*^9, 3.56018634995958*^9, 3.5601865003016863`*^9, 
   3.560222869489396*^9, 3.5602564139886417`*^9, 3.560268921278911*^9, 
   3.56026992446758*^9, 3.560271409286831*^9, 3.560516244159048*^9, 
   3.5605215921342278`*^9, 3.560534281763135*^9, 3.560535144494183*^9, 
   3.56084230903555*^9, 3.560844428249982*^9, 3.561176799876915*^9, 
   3.561210838425041*^9, 3.561269137420896*^9, 3.561275587885927*^9, 
   3.5612769322202682`*^9, 3.561302794077281*^9, 3.56130535761292*^9, 
   3.561308527557913*^9, 3.561308775729836*^9, {3.561360298618524*^9, 
   3.561360058016227*^9}, 3.7281150168086023`*^9, 3.731234870549374*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"b19d2184-edc1-485e-b247-b465236831d0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PhysicalToUnPhysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511341747494932*^9, 3.5113417579205837`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"a8664868-d0f5-4fb0-a39f-c5c720f0555b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", 
     RowBox[{"Unphysicalg", "[", 
      RowBox[{"\[Gamma]", ",", "\[Alpha]"}], "]"}]}], "]"}], "&"}], "/@", 
  "UnphysicalToPhysical"}]], "Input",
 CellChangeTimes->{{3.511340728655305*^9, 3.51134074462111*^9}, {
  3.525066792507032*^9, 3.5250667949377537`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"468729c1-22a9-4adb-9185-bcd2bdf286bd"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[Delta]", 
       StyleBox[GridBox[{
          {" ", "\[Gamma]"},
          {"\[Beta]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["g", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[Gamma]", "\[Alpha]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[Gamma], $CellContext`\[Alpha]],
    Editable->False], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.511340745188829*^9, 3.511372733988935*^9, 3.51145789429465*^9, 
   3.5115031314772177`*^9, 3.5115036857268*^9, 3.511503774675502*^9, 
   3.511504752870229*^9, 3.511507414572096*^9, 3.511591716959774*^9, 
   3.511595233856793*^9, 3.511630873548418*^9, {3.511631559772525*^9, 
   3.511631587936504*^9}, 3.511721017723424*^9, 3.521273653162593*^9, 
   3.521276334082045*^9, 3.521276424488062*^9, 3.521277302075848*^9, 
   3.521277488311302*^9, 3.521278903584474*^9, 3.521364461843667*^9, 
   3.5213662925667553`*^9, 3.521370349527173*^9, 3.521440674801968*^9, 
   3.521440914057045*^9, 3.521455900528097*^9, 3.521458272210908*^9, 
   3.521506963993628*^9, 3.521520502764183*^9, 3.521520597499497*^9, 
   3.5215230120971537`*^9, 3.521539030380342*^9, 3.521785477534286*^9, 
   3.52179735429739*^9, 3.5218039750939302`*^9, 3.5218832900444593`*^9, 
   3.5219400912600927`*^9, 3.521971076412663*^9, 3.5219714138858757`*^9, 
   3.5219714742301702`*^9, 3.521971564286304*^9, 3.5219721005090847`*^9, 
   3.521973952666788*^9, 3.522029097738953*^9, 3.5243939006239033`*^9, 
   3.524396313349012*^9, 3.524977862239863*^9, 3.524997215745121*^9, 
   3.525066795826635*^9, 3.525070793689437*^9, 3.525072067286025*^9, 
   3.525073226024687*^9, 3.5250810197445803`*^9, 3.5251871346692142`*^9, 
   3.525240243665494*^9, 3.5252438963077393`*^9, 3.5253975236637983`*^9, 
   3.525398672135762*^9, 3.525493460148459*^9, 3.525660863613347*^9, 
   3.525661907982202*^9, 3.525662977136726*^9, 3.525673273842905*^9, 
   3.545738864571505*^9, 3.545991120881468*^9, 3.54599146366473*^9, 
   3.546000114604684*^9, 3.5460213500723248`*^9, 3.546057610416852*^9, 
   3.546064578888445*^9, 3.546091117363613*^9, 3.546325593983327*^9, 
   3.548247322909087*^9, 3.5484045432970247`*^9, 3.548481244297009*^9, 
   3.548511421722246*^9, 3.548525804345538*^9, 3.548567867397835*^9, 
   3.548571047737917*^9, 3.548575004661051*^9, 3.548591581932828*^9, 
   3.5486620884377832`*^9, 3.548700112396679*^9, 3.548756245910509*^9, 
   3.5489112380338907`*^9, 3.548930603343492*^9, 3.5489607925038023`*^9, 
   3.549002175116001*^9, 3.549020857546712*^9, 3.549043534215971*^9, 
   3.549047022622121*^9, 3.5490862682094173`*^9, 3.5490962646256313`*^9, 
   3.549260299524001*^9, 3.5492729172533493`*^9, 3.549305068032091*^9, 
   3.5493052857418833`*^9, 3.5493057951443233`*^9, 3.549358873756941*^9, 
   3.549433142495166*^9, 3.549462307644704*^9, 3.549540240272188*^9, 
   3.550921575500103*^9, 3.550990708013238*^9, 3.550996414861453*^9, 
   3.550996583156555*^9, 3.55534702830322*^9, 3.5573920892694674`*^9, 
   3.55740314186235*^9, 3.5574664483508883`*^9, 3.557579370809668*^9, 
   3.557635723651775*^9, 3.558441129137361*^9, 3.558549880487842*^9, 
   3.560007732188511*^9, 3.5600443454747868`*^9, 3.560044405150239*^9, 
   3.5601854902218113`*^9, 3.5601862769956703`*^9, 3.560186349997345*^9, 
   3.560186500337556*^9, 3.5602228696278257`*^9, 3.5602564141904993`*^9, 
   3.560268921412691*^9, 3.560269924532063*^9, 3.5602714093211412`*^9, 
   3.5605162442151537`*^9, 3.560521592283287*^9, 3.560534281875102*^9, 
   3.560535144520392*^9, 3.560842309094118*^9, 3.560844428277273*^9, 
   3.561176799969164*^9, 3.5612108384452057`*^9, 3.5612691374436283`*^9, 
   3.56127558808784*^9, 3.5612769322422667`*^9, 3.561302794163365*^9, 
   3.561305357692236*^9, 3.561308527603113*^9, 3.561308775753792*^9, {
   3.561360298759664*^9, 3.561360058042306*^9}, 3.7281150168289833`*^9, 
   3.731234870570167*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"2f03fcf6-1ec5-4396-8de3-3c29e69a07c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"InvPhysicalg", "[", 
   RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"Unphysicalg", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
   RowBox[{
    RowBox[{"\[CapitalTheta]", "[", "]"}], "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.511340756691247*^9, 3.511340804005815*^9}, {
  3.5113419673171253`*^9, 3.51134196944123*^9}, {3.525066798915971*^9, 
  3.525066812077217*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"501684fc-3c31-4a49-b98d-5728ae529044"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       SuperscriptBox[
        OverscriptBox["g", "~"], "#"], 
       StyleBox[GridBox[{
          {"\[Alpha]", "\[Beta]"},
          {" ", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[Alpha], $CellContext`\[Beta]],
    Editable->False], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]}]}]], "Output",
 CellChangeTimes->{{3.511340778034659*^9, 3.511340805303522*^9}, 
   3.5113419742813597`*^9, 3.511372734588105*^9, 3.5114578943006372`*^9, 
   3.5115031314839783`*^9, 3.511503685779622*^9, 3.511503774681032*^9, 
   3.5115047529108877`*^9, 3.5115074151181517`*^9, 3.511591716966693*^9, 
   3.511595234342002*^9, 3.5116308735534763`*^9, {3.511631559776391*^9, 
   3.511631587940235*^9}, 3.511721018300145*^9, 3.521273653972487*^9, 
   3.52127633420683*^9, 3.521276424612657*^9, 3.521277302084834*^9, 
   3.5212774883194*^9, 3.521278903700007*^9, 3.52136446195507*^9, 
   3.5213662925758047`*^9, 3.521370349533361*^9, 3.52144067481052*^9, 
   3.5214409140652113`*^9, 3.521455900534354*^9, 3.5214582722151413`*^9, 
   3.521506964012591*^9, 3.521520502837226*^9, 3.52152059750667*^9, 
   3.52152301211866*^9, 3.521539030385522*^9, 3.521785477551016*^9, 
   3.5217973543026333`*^9, 3.521803975114654*^9, 3.5218832900495358`*^9, 
   3.521940091275714*^9, 3.521971076418013*^9, 3.521971413891941*^9, 
   3.5219714742342987`*^9, 3.5219715643032312`*^9, 3.521972100514468*^9, 
   3.5219739526711397`*^9, 3.522029097839513*^9, 3.524393900711986*^9, 
   3.5243963133797913`*^9, 3.524977862245343*^9, 3.524997215751721*^9, 
   3.525066812827674*^9, 3.525070793695162*^9, 3.5250720672922363`*^9, 
   3.5250732260548677`*^9, 3.5250810197529793`*^9, 3.5251871346752167`*^9, 
   3.525240243671982*^9, 3.5252438963145113`*^9, 3.525397523669114*^9, 
   3.525398672149336*^9, 3.5254934601649714`*^9, 3.5256608636189747`*^9, 
   3.525661907987422*^9, 3.5256629771492357`*^9, 3.525673273881248*^9, 
   3.545738864585333*^9, 3.545991120895125*^9, 3.545991463710463*^9, 
   3.546000114661386*^9, 3.546021350118676*^9, 3.546057610431657*^9, 
   3.546064578931391*^9, 3.546091117379196*^9, 3.5463255939981422`*^9, 
   3.548247322944385*^9, 3.548404543326159*^9, 3.5484812443043756`*^9, 
   3.548511421758342*^9, 3.5485258043589363`*^9, 3.5485678674213963`*^9, 
   3.548571047744873*^9, 3.548575004690309*^9, 3.548591581961233*^9, 
   3.548662088467002*^9, 3.5487001124266453`*^9, 3.548756245923071*^9, 
   3.548911238041686*^9, 3.5489306033663177`*^9, 3.54896079251048*^9, 
   3.549002175136394*^9, 3.5490208575596533`*^9, 3.549043534223634*^9, 
   3.549047022656358*^9, 3.5490862682166967`*^9, 3.5490962646529217`*^9, 
   3.54926029953198*^9, 3.549272917267713*^9, 3.549305068051323*^9, 
   3.549305285749084*^9, 3.549305795164359*^9, 3.5493588737702217`*^9, 
   3.549433142536387*^9, 3.5494623076526937`*^9, 3.549540240320895*^9, 
   3.550921575519706*^9, 3.550990708057129*^9, 3.5509964148750963`*^9, 
   3.550996583196295*^9, 3.555347028315407*^9, 3.5573920892841377`*^9, 
   3.557403141876709*^9, 3.557466448357645*^9, 3.557579370818306*^9, 
   3.557635723691383*^9, 3.55844112915235*^9, 3.5585498804980927`*^9, 
   3.5600077322169333`*^9, 3.560044345514143*^9, 3.560044405191905*^9, 
   3.56018549024654*^9, 3.560186277007349*^9, 3.560186350147979*^9, 
   3.560186500477495*^9, 3.560222869669421*^9, 3.560256414205865*^9, 
   3.560268921445076*^9, 3.560269924600141*^9, 3.560271409334259*^9, 
   3.560516244282642*^9, 3.5605215922955513`*^9, 3.5605342818818283`*^9, 
   3.560535144528676*^9, 3.560842309130924*^9, 3.560844428293521*^9, 
   3.561176799998805*^9, 3.5612108384592257`*^9, 3.561269137456511*^9, 
   3.561275588101981*^9, 3.561276932255062*^9, 3.561302794246441*^9, 
   3.561305357720976*^9, 3.561308527621138*^9, 3.561308775846414*^9, {
   3.56136029877347*^9, 3.561360058057122*^9}, 3.728115016843001*^9, 
   3.731234870586451*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"e93112ef-9779-431a-99b3-9b6adee71208"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"InvPhysicalToPhysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511340834961973*^9, 3.511340852665538*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"d7eb8974-91f1-44ba-a5bc-9ce90421f5ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"InvPhysicalToPhysicalUp", "=", 
   RowBox[{"(", 
    RowBox[{"InvPhysicalToPhysical", "/.", 
     RowBox[{"ApplyRule", "@", "UnphysicalToPhysical"}]}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.54954156789008*^9, 3.549541570194255*^9}, {
  3.549541783276874*^9, 3.5495417906544456`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"c2298377-49f2-4c68-9410-4c456ad50559"],

Cell[CellGroupData[{

Cell["Relation between the unphysical and the physical connections", \
"Subsubsection",
 CellChangeTimes->{{3.511342142651569*^9, 3.5113421444118223`*^9}, {
  3.511374535157523*^9, 3.5113745435333843`*^9}, {3.511374602814631*^9, 
  3.511374611799605*^9}}],

Cell["We start from the relation", "Text",
 CellChangeTimes->{{3.5117210303501263`*^9, 3.5117210351426477`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["UnphysicalToPhysical"], "Input",
 CellLabel->"In[21]:=",ExpressionUUID->"8621ec99-6c06-48df-a7bf-24d924dde179"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"g", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["g", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.5113408676130447`*^9, 3.511340908703271*^9, 3.511341190360661*^9, 
   3.511341978748303*^9, 3.511374615533442*^9, 3.511458521956626*^9, 
   3.5115031324047403`*^9, 3.511503686331767*^9, 3.511503775325674*^9, 
   3.511504753837655*^9, 3.511507417886785*^9, 3.511591716979535*^9, 
   3.511595238941956*^9, 3.511630873576178*^9, {3.511631559795499*^9, 
   3.511631587958312*^9}, 3.511721036996423*^9, 3.5212737980922623`*^9, {
   3.52127633433857*^9, 3.521276347551724*^9}, 3.5212764247394857`*^9, 
   3.5212773021349497`*^9, 3.521277488331985*^9, 3.521278903866404*^9, 
   3.5213644620838823`*^9, 3.521366292626801*^9, 3.52137034955916*^9, 
   3.521440674881057*^9, 3.521440914080089*^9, 3.521455900556712*^9, 
   3.5214582722412853`*^9, 3.521506964075281*^9, 3.5215205029229727`*^9, 
   3.521520597561529*^9, 3.521523012140266*^9, 3.5215390304071407`*^9, 
   3.521785477630391*^9, 3.521797354323853*^9, 3.5218039751222553`*^9, 
   3.521883290073209*^9, 3.521940091345818*^9, 3.521971076435129*^9, 
   3.521971413917807*^9, 3.521971474255374*^9, 3.521971564374465*^9, 
   3.521972100536083*^9, 3.5219739527066593`*^9, 3.5220290978535843`*^9, 
   3.524393900809565*^9, 3.524396313394475*^9, 3.524977862279036*^9, 
   3.524997215794211*^9, 3.525066818984536*^9, 3.525070793704712*^9, 
   3.525072067342607*^9, 3.5250732261148252`*^9, 3.525081019805223*^9, 
   3.525187134707094*^9, 3.525240243680698*^9, 3.525243896339713*^9, 
   3.5253975236965446`*^9, 3.5253986721645203`*^9, 3.525493460187138*^9, 
   3.525660863726061*^9, 3.525661908018813*^9, 3.5256629771603603`*^9, 
   3.525673273895844*^9, 3.545738864607512*^9, 3.5459911209443817`*^9, 
   3.545991463870401*^9, 3.546000114728064*^9, 3.5460213501406384`*^9, 
   3.546057610474972*^9, 3.5460645790092783`*^9, 3.546091117457583*^9, 
   3.5463255940457*^9, 3.548247322966769*^9, 3.5484045433973637`*^9, 
   3.548481244409358*^9, 3.548511421796945*^9, 3.548525804403305*^9, 
   3.5485678674587173`*^9, 3.5485710477748833`*^9, 3.548575004722247*^9, 
   3.548591581994076*^9, 3.548662088488093*^9, 3.5487001124877367`*^9, 
   3.5487562459612494`*^9, 3.548911238073954*^9, 3.548930603477338*^9, 
   3.5489607925351143`*^9, 3.549002175184908*^9, 3.5490208575795097`*^9, 
   3.549043534328065*^9, 3.549047022746183*^9, 3.549086268245551*^9, 
   3.549096264673053*^9, 3.549260299631569*^9, 3.549272917289447*^9, 
   3.5493050681564713`*^9, 3.5493052857746477`*^9, 3.54930579519525*^9, 
   3.549358873790017*^9, 3.5494331425473833`*^9, 3.5494623076801453`*^9, 
   3.549540240374812*^9, 3.5509215755800533`*^9, 3.5509907081256638`*^9, 
   3.5509964150742273`*^9, 3.550996583280245*^9, 3.55534702837152*^9, 
   3.557392089333021*^9, 3.5574031420037193`*^9, 3.557466448406399*^9, 
   3.557579370902493*^9, 3.557635723805319*^9, 3.5584411292020483`*^9, 
   3.5585498805390472`*^9, 3.560007732262786*^9, 3.5600443456413527`*^9, 
   3.560044405236367*^9, 3.56018549028986*^9, 3.560186277122141*^9, 
   3.56018635023081*^9, 3.560186500568116*^9, 3.5602228697548103`*^9, 
   3.560256414250206*^9, 3.5602689214921103`*^9, 3.560269924651285*^9, 
   3.560271409505183*^9, 3.56051624441217*^9, 3.560521592337969*^9, 
   3.560534281921522*^9, 3.56053514463208*^9, 3.560842309209072*^9, 
   3.560844428422495*^9, 3.561176800078232*^9, 3.561210838507011*^9, 
   3.56126913750655*^9, 3.561275588177711*^9, 3.561276932315247*^9, 
   3.561302794356963*^9, 3.56130535776832*^9, 3.561308527677536*^9, 
   3.5613087759316196`*^9, {3.561360298829359*^9, 3.5613600581075*^9}, 
   3.7281150168693447`*^9, 3.731234870618691*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"381c7296-5ce8-463c-ad16-c25a8b8a1835"]
}, Open  ]],

Cell["\<\
We take the unphysical covariant derivative on both sides of this equation.\
\>", "Text",
 CellChangeTimes->{{3.5117210382311163`*^9, 3.511721051913254*^9}, {
  3.511721116899314*^9, 3.511721119091166*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDg", "[", 
   RowBox[{"-", "\[Gamma]"}], "]"}], "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511340868645773*^9, 3.511340878933838*^9}, {
  3.525066821362567*^9, 3.5250668218684187`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"3e0931f8-23d6-4e15-99bc-0e605c007dce"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {
          OverscriptBox["g", "~"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.5113408797462463`*^9, 3.5113409093368797`*^9}, 
   3.511341202091259*^9, 3.511341979559708*^9, 3.511374615630579*^9, 
   3.511458522022447*^9, 3.5115031324150763`*^9, 3.5115036863388653`*^9, 
   3.511503775333066*^9, 3.511504753851367*^9, 3.5115074183585997`*^9, 
   3.511591717017658*^9, 3.511595239124651*^9, 3.511630873668449*^9, {
   3.511631559811462*^9, 3.5116315879745893`*^9}, 3.511721062349667*^9, 
   3.521273799442246*^9, {3.5212763343963423`*^9, 3.521276347587421*^9}, 
   3.521276424754793*^9, 3.521277302149159*^9, 3.5212774883918667`*^9, 
   3.5212789039261913`*^9, 3.521364462141502*^9, 3.5213662926361933`*^9, 
   3.521370349595457*^9, 3.5214406749895487`*^9, 3.521440914197125*^9, 
   3.521455900562048*^9, 3.5214582722627783`*^9, 3.521506964094685*^9, 
   3.521520502981846*^9, 3.521520597644533*^9, 3.521523012146017*^9, 
   3.52153903042619*^9, 3.5217854777083683`*^9, 3.5217973543423862`*^9, 
   3.5218039751409473`*^9, 3.5218832900911007`*^9, 3.521940091425891*^9, 
   3.5219710764487658`*^9, 3.5219714139396753`*^9, 3.521971474274784*^9, 
   3.521971564394318*^9, 3.521972100554256*^9, 3.521973952727728*^9, 
   3.52202909792933*^9, 3.524393900860434*^9, 3.524396313406925*^9, 
   3.5249778623107367`*^9, 3.524997215831513*^9, 3.525066822480507*^9, 
   3.525070793739587*^9, 3.5250720673955*^9, 3.5250732261411743`*^9, 
   3.525081019852367*^9, 3.52518713471535*^9, 3.525240243729596*^9, 
   3.5252438963449593`*^9, 3.525397523724375*^9, 3.525398672170808*^9, 
   3.525493460205414*^9, 3.525660863745255*^9, 3.525661908025445*^9, 
   3.525662977175057*^9, 3.52567327390728*^9, 3.545738864651341*^9, 
   3.545991120958973*^9, 3.5459914638893967`*^9, 3.546000114785026*^9, 
   3.546021350155151*^9, 3.54605761049297*^9, 3.546064579052021*^9, 
   3.5460911175304728`*^9, 3.546325594062665*^9, 3.54824732300823*^9, 
   3.5484045434291153`*^9, 3.548481244416011*^9, 3.548511421883904*^9, 
   3.548525804429257*^9, 3.54856786746775*^9, 3.548571047784585*^9, 
   3.548575004731741*^9, 3.548591582038148*^9, 3.548662088522616*^9, 
   3.548700112565844*^9, 3.548756245975514*^9, 3.548911238082493*^9, 
   3.5489306035483027`*^9, 3.548960792544236*^9, 3.549002175210782*^9, 
   3.549020857611249*^9, 3.549043534337194*^9, 3.549047022768631*^9, 
   3.54908626827448*^9, 3.549096264687406*^9, 3.549260299697942*^9, 
   3.549272917319125*^9, 3.549305068168069*^9, 3.549305285785544*^9, 
   3.549305795204167*^9, 3.549358873821664*^9, 3.5494331425738707`*^9, 
   3.549462307687709*^9, 3.549540240382716*^9, 3.5509215755975933`*^9, 
   3.5509907081383123`*^9, 3.550996415165113*^9, 3.550996583294889*^9, 
   3.555347028384959*^9, 3.557392089348778*^9, 3.5574031420164337`*^9, 
   3.557466448412499*^9, 3.557579370959902*^9, 3.557635723815281*^9, 
   3.5584411292168093`*^9, 3.55854988055084*^9, 3.560007732277426*^9, 
   3.560044345679419*^9, 3.560044405247966*^9, 3.560185490303584*^9, 
   3.5601862771496763`*^9, 3.56018635024293*^9, 3.560186500580299*^9, 
   3.5602228697803297`*^9, 3.560256414279223*^9, 3.5602689215042667`*^9, 
   3.5602699246657667`*^9, 3.560271409547567*^9, 3.560516244430272*^9, 
   3.560521592352054*^9, 3.560534281930468*^9, 3.560535144648086*^9, 
   3.5608423092434607`*^9, 3.560844428437475*^9, 3.5611768000983686`*^9, 
   3.5612108385223846`*^9, 3.561269137523884*^9, 3.561275588239068*^9, 
   3.561276932349485*^9, 3.5613027944709177`*^9, 3.561305357784272*^9, 
   3.561308527692606*^9, 3.561308775947096*^9, {3.5613602988482533`*^9, 
   3.561360058125576*^9}, 3.7281150168830633`*^9, 3.7312348706392612`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"72449daf-9eca-44d8-979b-335dba9ec714"]
}, Open  ]],

Cell["\<\
This relation can be written in terms of the physical covariant derivative as \
follows\
\>", "Text",
 CellChangeTimes->{{3.5117211067371407`*^9, 3.511721131628707*^9}, {
  3.511721226331977*^9, 3.5117212303633423`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "CDTildeg"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.511340909986227*^9, 3.511340926063572*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"6e9dad69-f5b6-480b-a5c0-34cab120d5de"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"ChristoffelCDgCDTildeg", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Alpha], -$CellContext`\
\[Beta], -$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.521276424816675*^9, 3.521277302199739*^9, 3.521277488453133*^9, 
   3.5212789039970427`*^9, 3.521364462205687*^9, 3.521366292649707*^9, 
   3.5213703496218348`*^9, 3.52144067505136*^9, 3.521440914269376*^9, 
   3.5214559005812683`*^9, 3.521458272284006*^9, 3.521506964114345*^9, 
   3.52152050308895*^9, 3.521520597693886*^9, 3.521523012168746*^9, 
   3.521539030446941*^9, 3.521785477798481*^9, 3.5217973543784723`*^9, 
   3.521803975173891*^9, 3.5218832901125917`*^9, 3.521940091497221*^9, 
   3.5219710764649057`*^9, 3.5219714139628267`*^9, 3.52197147429326*^9, 
   3.521971564420622*^9, 3.521972100574709*^9, 3.521973952746072*^9, 
   3.52202909794884*^9, 3.524393900911043*^9, 3.524396313423562*^9, 
   3.524977862347908*^9, 3.524997215871203*^9, 3.525066823997635*^9, 
   3.5250707937721357`*^9, 3.525072067445386*^9, 3.525073226169861*^9, 
   3.5250810199024076`*^9, 3.5251871347448893`*^9, 3.52524024378111*^9, 
   3.525243896365938*^9, 3.525397523763135*^9, 3.525398672184651*^9, 
   3.525493460225383*^9, 3.525660863771612*^9, 3.525661908050438*^9, 
   3.525662977191058*^9, 3.5256732739246407`*^9, 3.545738864699424*^9, 
   3.545991120978487*^9, 3.5459914639379177`*^9, 3.546000114809719*^9, 
   3.546021350197253*^9, 3.546057610517126*^9, 3.546064579077141*^9, 
   3.5460911176052513`*^9, 3.5463255941146812`*^9, 3.548247323028222*^9, 
   3.548404543468804*^9, 3.5484812444394712`*^9, 3.548511421919455*^9, 
   3.5485258044531517`*^9, 3.548567867494648*^9, 3.548571047813291*^9, 
   3.5485750047407207`*^9, 3.5485915820865383`*^9, 3.548662088552142*^9, 
   3.548700112594326*^9, 3.5487562460066423`*^9, 3.548911238093849*^9, 
   3.5489306035840816`*^9, 3.548960792576915*^9, 3.5490021752419567`*^9, 
   3.549020857631928*^9, 3.549043534364765*^9, 3.549047022789462*^9, 
   3.5490862683103943`*^9, 3.5490962647246933`*^9, 3.5492602997310467`*^9, 
   3.549272917333395*^9, 3.549305068180616*^9, 3.549305285812237*^9, 
   3.549305795213203*^9, 3.549358873843027*^9, 3.549433142602847*^9, 
   3.549462307712944*^9, 3.549540240408991*^9, 3.55092157569669*^9, 
   3.550990708152541*^9, 3.5509964152026873`*^9, 3.5509965833136997`*^9, 
   3.555347028398426*^9, 3.557392089380723*^9, 3.557403142059484*^9, 
   3.5574664484469976`*^9, 3.55757937099332*^9, 3.557635723828477*^9, 
   3.558441129249333*^9, 3.558549880563272*^9, 3.560007732319681*^9, 
   3.560044345714776*^9, 3.560044405260384*^9, 3.560185490317143*^9, 
   3.5601862772026367`*^9, 3.5601863502708073`*^9, 3.5601865006082497`*^9, 
   3.5602228698096437`*^9, 3.560256414311756*^9, 3.5602689215360403`*^9, 
   3.56026992468084*^9, 3.560271409598186*^9, 3.56051624445466*^9, 
   3.5605215923641653`*^9, 3.560534281955675*^9, 3.560535144662057*^9, 
   3.560842309284994*^9, 3.560844428464621*^9, 3.5611768001215076`*^9, 
   3.561210838554134*^9, 3.561269137542759*^9, 3.561275588279222*^9, 
   3.5612769323927107`*^9, 3.561302794514797*^9, 3.561305357814476*^9, 
   3.561308527712022*^9, 3.561308775964229*^9, {3.56136029888111*^9, 
   3.561360058164318*^9}, 3.728115016904829*^9, 3.7312348706594477`*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"9a5ace94-a30b-4e40-92a7-7c500aa5608d"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "~"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Gamma]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Gamma], -$CellContext`\[Beta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "~"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
        
        Editable->False]}]}], ")"}], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.51134092692426*^9, 3.511341203098631*^9, 3.5113419801141577`*^9, 
   3.511374615680337*^9, 3.511458522061602*^9, 3.511503132431966*^9, 
   3.511503686390563*^9, 3.511503775346684*^9, 3.511504753869607*^9, 
   3.51150741882815*^9, 3.5115917170665903`*^9, 3.511595239175392*^9, 
   3.5116308736938133`*^9, {3.5116315598391314`*^9, 3.5116315880079603`*^9}, 
   3.511721063740877*^9, 3.521273800634054*^9, {3.521276334464334*^9, 
   3.5212763476084423`*^9}, 3.52127642487444*^9, 3.5212773022051363`*^9, 
   3.521277488456621*^9, 3.521278904000278*^9, 3.521364462209217*^9, 
   3.5213662926531277`*^9, 3.521370349624357*^9, 3.521440675056591*^9, 
   3.521440914316539*^9, 3.521455900583157*^9, 3.521458272296352*^9, 
   3.521506964117651*^9, 3.521520503092876*^9, 3.5215205976990213`*^9, 
   3.521523012171088*^9, 3.5215390304490128`*^9, 3.5217854778540993`*^9, 
   3.5217973543806353`*^9, 3.521803975177875*^9, 3.521883290115913*^9, 
   3.521940091502307*^9, 3.5219710764670343`*^9, 3.521971413973917*^9, 
   3.521971474295706*^9, 3.521971564431693*^9, 3.521972100577505*^9, 
   3.521973952756652*^9, 3.522029097952436*^9, 3.524393900914081*^9, 
   3.524396313426503*^9, 3.524977862349927*^9, 3.524997215880621*^9, 
   3.5250668241397877`*^9, 3.525070793774713*^9, 3.525072067471019*^9, 
   3.5250732261720057`*^9, 3.525081019905287*^9, 3.525187134747211*^9, 
   3.525240243783226*^9, 3.525243896368464*^9, 3.5253975237663717`*^9, 
   3.525398672187584*^9, 3.52549346022816*^9, 3.525660863776428*^9, 
   3.525661908085047*^9, 3.525662977204208*^9, 3.5256732739278307`*^9, 
   3.5457388647048073`*^9, 3.545991120983341*^9, 3.545991463942193*^9, 
   3.546000114813879*^9, 3.5460213502028*^9, 3.546057610521183*^9, 
   3.546064579081427*^9, 3.5460911176095037`*^9, 3.5463255941187077`*^9, 
   3.548247323034869*^9, 3.5484045434744473`*^9, 3.5484812444426394`*^9, 
   3.5485114219228773`*^9, 3.548525804455636*^9, 3.5485678674968777`*^9, 
   3.54857104781806*^9, 3.548575004743808*^9, 3.548591582090074*^9, 
   3.548662088555592*^9, 3.548700112608984*^9, 3.548756246011075*^9, 
   3.548911238096221*^9, 3.548930603589719*^9, 3.548960792583459*^9, 
   3.54900217524461*^9, 3.549020857635392*^9, 3.5490435343675613`*^9, 
   3.549047022804228*^9, 3.5490862683167353`*^9, 3.549096264728253*^9, 
   3.549260299733423*^9, 3.549272917337027*^9, 3.549305068183202*^9, 
   3.549305285816155*^9, 3.5493057952192917`*^9, 3.549358873847884*^9, 
   3.549433142606021*^9, 3.549462307715617*^9, 3.5495402404142513`*^9, 
   3.550921575702323*^9, 3.550990708156201*^9, 3.550996415206732*^9, 
   3.550996583319523*^9, 3.55534702840316*^9, 3.557392089385384*^9, 
   3.5574031420632153`*^9, 3.557466448481947*^9, 3.557579370996142*^9, 
   3.557635723832695*^9, 3.558441129254156*^9, 3.558549880566245*^9, 
   3.560007732324234*^9, 3.560044345719762*^9, 3.560044405269352*^9, 
   3.560185490322695*^9, 3.5601862772092733`*^9, 3.5601863502762737`*^9, 
   3.5601865006137447`*^9, 3.560222869813684*^9, 3.560256414316472*^9, 
   3.5602689215411243`*^9, 3.560269924686635*^9, 3.560271409604082*^9, 
   3.560516244457897*^9, 3.560521592369866*^9, 3.560534281959262*^9, 
   3.5605351446652203`*^9, 3.560842309289585*^9, 3.560844428470118*^9, 
   3.561176800125773*^9, 3.561210838559428*^9, 3.561269137547409*^9, 
   3.561275588305111*^9, 3.561276932402192*^9, 3.5613027945209427`*^9, 
   3.5613053578251657`*^9, 3.561308527717596*^9, 3.561308775970232*^9, {
   3.561360298886223*^9, 3.561360058169219*^9}, 3.7281150169151506`*^9, 
   3.7312348706734247`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"1bf8430e-545a-4a82-b1aa-e7cf58f0b52b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"expr1", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511341182688305*^9, 3.511341206886155*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"d06c55dd-bbd9-401b-8bbe-901327f56933"],

Cell["We permute indices cyclically", "Text",
 CellChangeTimes->{{3.511721239028439*^9, 3.5117212686889467`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ReplaceIndex", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], "\[Rule]", 
         RowBox[{"-", "\[Beta]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], "\[Rule]", 
         RowBox[{"-", "\[Gamma]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Gamma]"}], "\[Rule]", 
         RowBox[{"-", "\[Alpha]"}]}]}], "}"}]}], "]"}], "&"}], "/@", 
   "expr1"}]}]], "Input",
 CellChangeTimes->{{3.511341209205172*^9, 3.511341263405363*^9}, {
  3.525066827552215*^9, 3.525066837623148*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"a8110672-a557-41c8-b1d1-2d638247315f"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "~"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Alpha]", "\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "~"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.5113412361577797`*^9, 3.511341264009027*^9}, 
   3.511341981398973*^9, 3.511374615751067*^9, 3.511458522108367*^9, 
   3.511503132449973*^9, 3.511503686404657*^9, 3.511503775396475*^9, 
   3.511504753933467*^9, 3.511507420297523*^9, 3.511591717121962*^9, 
   3.511595239237336*^9, 3.511630873719927*^9, {3.5116315598591003`*^9, 
   3.511631588041761*^9}, 3.5117210658679037`*^9, 3.5212738029079037`*^9, {
   3.521276334533822*^9, 3.5212763477005043`*^9}, 3.521276424954503*^9, 
   3.521277302297678*^9, 3.52127748859581*^9, 3.521278904080546*^9, 
   3.521364462370273*^9, 3.521366292706593*^9, 3.521370349692556*^9, 
   3.521440675083516*^9, 3.5214409144394703`*^9, 3.521455900609517*^9, 
   3.521458272333727*^9, 3.521506964212344*^9, 3.521520503204088*^9, 
   3.521520597792801*^9, 3.5215230122153883`*^9, 3.521539030552792*^9, 
   3.521785477934746*^9, 3.521797354445846*^9, 3.521803975256103*^9, 
   3.521883290154726*^9, 3.521940091610499*^9, 3.521971076487748*^9, 
   3.521971413999292*^9, 3.5219714743236113`*^9, 3.5219715645297117`*^9, 
   3.5219721006413527`*^9, 3.521973952817067*^9, 3.522029098038582*^9, 
   3.524393900974392*^9, 3.524396313536029*^9, 3.52497786239042*^9, 
   3.524997215931315*^9, 3.5250668383821*^9, 3.525070793814845*^9, 
   3.5250720675720797`*^9, 3.525073226203714*^9, 3.525081019962792*^9, 
   3.525187134834635*^9, 3.525240243829548*^9, 3.525243896462319*^9, 
   3.5253975238065157`*^9, 3.52539867221463*^9, 3.525493460330388*^9, 
   3.525660863834977*^9, 3.525661908118347*^9, 3.525662977238224*^9, 
   3.5256732739770412`*^9, 3.545738864751856*^9, 3.5459911210154753`*^9, 
   3.545991463999764*^9, 3.54600011489753*^9, 3.546021350230748*^9, 
   3.546057610578652*^9, 3.54606457913947*^9, 3.5460911177052717`*^9, 
   3.546325594153502*^9, 3.548247323062413*^9, 3.548404543551016*^9, 
   3.548481244551386*^9, 3.548511421960619*^9, 3.5485258044893093`*^9, 
   3.5485678675340652`*^9, 3.548571047850072*^9, 3.548575004781849*^9, 
   3.5485915821307907`*^9, 3.5486620885979557`*^9, 3.548700112653996*^9, 
   3.5487562460564528`*^9, 3.548911238150216*^9, 3.5489306036857433`*^9, 
   3.5489607926127357`*^9, 3.5490021753078527`*^9, 3.54902085766146*^9, 
   3.549043534453559*^9, 3.549047022970974*^9, 3.549086268358635*^9, 
   3.549096264756156*^9, 3.549260299786166*^9, 3.549272917386943*^9, 
   3.5493050682256413`*^9, 3.549305285880609*^9, 3.549305795258379*^9, 
   3.549358873891739*^9, 3.549433142666443*^9, 3.549462307752376*^9, 
   3.549540240472286*^9, 3.550921575752736*^9, 3.550990708195353*^9, 
   3.550996415305304*^9, 3.5509965833683*^9, 3.555347028445839*^9, 
   3.5573920894292393`*^9, 3.557403142116037*^9, 3.557466448526105*^9, 
   3.5575793710681973`*^9, 3.557635723869739*^9, 3.558441129303691*^9, 
   3.558549880604199*^9, 3.560007732364214*^9, 3.560044345767501*^9, 
   3.560044405306785*^9, 3.560185490360406*^9, 3.560186277289947*^9, 
   3.560186350315729*^9, 3.5601865006540117`*^9, 3.560222869862608*^9, 
   3.560256414368389*^9, 3.560268921590082*^9, 3.56026992472878*^9, 
   3.560271409684229*^9, 3.560516244516082*^9, 3.560521592410636*^9, 
   3.5605342819987288`*^9, 3.5605351446865997`*^9, 3.560842309330283*^9, 
   3.56084442850834*^9, 3.561176800240849*^9, 3.561210838606058*^9, 
   3.5612691376045103`*^9, 3.561275588356884*^9, 3.561276932466132*^9, 
   3.561302794561776*^9, 3.561305357868866*^9, 3.5613085277646627`*^9, 
   3.561308776031999*^9, {3.561360298935721*^9, 3.56136005821705*^9}, 
   3.7281150169393873`*^9, 3.7312348707047863`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"13ea6c71-1417-491e-a5ec-9395729df526"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ReplaceIndex", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], "\[Rule]", 
         RowBox[{"-", "\[Beta]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], "\[Rule]", 
         RowBox[{"-", "\[Gamma]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Gamma]"}], "\[Rule]", 
         RowBox[{"-", "\[Alpha]"}]}]}], "}"}]}], "]"}], "&"}], "/@", 
   "expr2"}]}]], "Input",
 CellChangeTimes->{{3.511341268526355*^9, 3.5113412711811533`*^9}, {
  3.525066845416933*^9, 3.525066852374238*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"1a7d09de-33d4-47fd-bb0d-0ea04105e37b"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "~"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Gamma], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "~"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
        Editable->False]}]}], ")"}], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341272108281*^9, 3.511341981915153*^9, 3.511374615885805*^9, 
   3.511458522262219*^9, 3.511503132488233*^9, 3.511503686414597*^9, 
   3.51150377540644*^9, 3.51150475397894*^9, 3.511507420828265*^9, 
   3.51159171716326*^9, 3.5115952392810163`*^9, 3.511630873740896*^9, {
   3.511631559880031*^9, 3.511631588065027*^9}, 3.511721066463662*^9, 
   3.52127380360258*^9, {3.521276334598106*^9, 3.521276347728589*^9}, 
   3.521276425126177*^9, 3.52127730234673*^9, 3.521277488615*^9, 
   3.52127890414574*^9, 3.521364462436871*^9, 3.521366292718985*^9, 
   3.521370349716508*^9, 3.52144067514126*^9, 3.5214409144986486`*^9, 
   3.521455900630619*^9, 3.521458272356616*^9, 3.521506964228806*^9, 
   3.521520503264735*^9, 3.521520597836256*^9, 3.521523012288494*^9, 
   3.5215390305769567`*^9, 3.521785478009859*^9, 3.521797354472584*^9, 
   3.521803975282126*^9, 3.521883290180087*^9, 3.521940091689364*^9, 
   3.5219710765055447`*^9, 3.521971414025131*^9, 3.521971474343642*^9, 
   3.521971564550336*^9, 3.521972100661783*^9, 3.5219739528381233`*^9, 
   3.5220290980657883`*^9, 3.524393901025016*^9, 3.524396313571863*^9, 
   3.5249778624338408`*^9, 3.524997215968822*^9, 3.525066853212553*^9, 
   3.5250707938543577`*^9, 3.5250720676250896`*^9, 3.525073226230164*^9, 
   3.525081020022965*^9, 3.5251871348576403`*^9, 3.525240243880481*^9, 
   3.525243896491578*^9, 3.525397523833049*^9, 3.5253986722326403`*^9, 
   3.525493460420508*^9, 3.5256608639338408`*^9, 3.5256619081474237`*^9, 
   3.5256629772530193`*^9, 3.525673273992564*^9, 3.545738864797778*^9, 
   3.545991121059457*^9, 3.545991464022436*^9, 3.546000114939505*^9, 
   3.546021350275887*^9, 3.546057610601507*^9, 3.546064579202856*^9, 
   3.546091117749865*^9, 3.546325594201758*^9, 3.5482473231040773`*^9, 
   3.5484045435708017`*^9, 3.548481244581501*^9, 3.548511422003574*^9, 
   3.548525804518105*^9, 3.548567867576846*^9, 3.548571047879012*^9, 
   3.548575004820685*^9, 3.548591582149091*^9, 3.5486620886181097`*^9, 
   3.5487001126829443`*^9, 3.5487562460782557`*^9, 3.548911238178651*^9, 
   3.5489306037174187`*^9, 3.548960792638145*^9, 3.549002175333335*^9, 
   3.549020857702042*^9, 3.549043534491849*^9, 3.549047022999548*^9, 
   3.5490862684031773`*^9, 3.5490962647747507`*^9, 3.549260299818203*^9, 
   3.549272917430303*^9, 3.549305068255316*^9, 3.549305285985032*^9, 
   3.549305795332872*^9, 3.5493588739266872`*^9, 3.549433142700472*^9, 
   3.5494623077787848`*^9, 3.54954024050142*^9, 3.550921575793634*^9, 
   3.550990708229836*^9, 3.550996415328803*^9, 3.550996583407819*^9, 
   3.5553470284803467`*^9, 3.557392089463975*^9, 3.557403142162959*^9, 
   3.55746644857585*^9, 3.557579371092745*^9, 3.557635723952565*^9, 
   3.558441129338648*^9, 3.558549880639846*^9, 3.560007732399416*^9, 
   3.560044345807404*^9, 3.560044405337571*^9, 3.560185490390931*^9, 
   3.560186277320025*^9, 3.560186350346794*^9, 3.5601865006903667`*^9, 
   3.5602228698965273`*^9, 3.560256414444324*^9, 3.5602689216273108`*^9, 
   3.5602699247579803`*^9, 3.56027140971249*^9, 3.560516244551794*^9, 
   3.5605215924417067`*^9, 3.560534282026937*^9, 3.5605351447209387`*^9, 
   3.560842309386374*^9, 3.560844428555019*^9, 3.561176800282922*^9, 
   3.561210838641029*^9, 3.5612691376439133`*^9, 3.561275588410899*^9, 
   3.561276932506628*^9, 3.5613027945891447`*^9, 3.561305357901939*^9, 
   3.561308527807282*^9, 3.5613087760894823`*^9, {3.561360298970166*^9, 
   3.561360058253413*^9}, 3.7281150169570103`*^9, 3.731234870725533*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"063fe68c-e44f-4fd0-b530-e314a395d3ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{"Last", "@", "expr1"}], "+", 
   RowBox[{"Last", "@", "expr2"}], "-", 
   RowBox[{"Last", "@", "expr3"}]}]}]], "Input",
 CellChangeTimes->{{3.511341300110064*^9, 3.511341318976223*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"042cf40c-6974-4179-bcd8-b3c452ca7054"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]", " ", " "},
                 {" ", "\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Alpha]],
          Editable->False]}], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["g", "~"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Gamma]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Physicalg[-$CellContext`\[Gamma], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "~"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[Delta]", " ", " "},
                {" ", "\[Beta]", "\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["g", "~"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Physicalg[-$CellContext`\[Delta], \
-$CellContext`\[Alpha]],
         Editable->False]}]}], ")"}]}], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "~"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Gamma]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Gamma], -$CellContext`\[Beta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "~"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
        
        Editable->False]}]}], ")"}], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "~"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Alpha]", "\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "~"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341319998344*^9, 3.511341982568362*^9, 3.5113746160162582`*^9, 
   3.51145852233524*^9, 3.511503132512878*^9, 3.5115036864307947`*^9, 
   3.511503775422791*^9, 3.511504754027309*^9, 3.511507421562167*^9, 
   3.511591717299108*^9, 3.511595239336112*^9, 3.51163087377072*^9, {
   3.511631559906661*^9, 3.5116315880920267`*^9}, 3.511721067197082*^9, 
   3.521273804265476*^9, {3.521276334662776*^9, 3.5212763477562027`*^9}, 
   3.521276425217988*^9, 3.521277302409103*^9, 3.521277488643282*^9, 
   3.521278904378827*^9, 3.5213644625115337`*^9, 3.5213662927391357`*^9, 
   3.5213703497488956`*^9, 3.5214406752085114`*^9, 3.521440914622856*^9, 
   3.521455900660471*^9, 3.5214582723805304`*^9, 3.521506964302019*^9, 
   3.521520503339576*^9, 3.521520597857087*^9, 3.521523012322454*^9, 
   3.5215390306213512`*^9, 3.521785478111524*^9, 3.521797354612707*^9, 
   3.5218039753099327`*^9, 3.521883290209976*^9, 3.521940091766822*^9, 
   3.521971076541502*^9, 3.521971414049942*^9, 3.521971474380953*^9, 
   3.521971564586747*^9, 3.521972100690898*^9, 3.521973952863491*^9, 
   3.522029098157765*^9, 3.524393901081997*^9, 3.5243963136226997`*^9, 
   3.5249778624865227`*^9, 3.524997216015274*^9, 3.5250668547209187`*^9, 
   3.525070793898848*^9, 3.525072067658526*^9, 3.5250732263366127`*^9, 
   3.525081020072735*^9, 3.525187134966168*^9, 3.525240243917986*^9, 
   3.5252438965194674`*^9, 3.52539752388072*^9, 3.525398672252475*^9, 
   3.525493460455008*^9, 3.525660863967916*^9, 3.525661908185104*^9, 
   3.5256629772780647`*^9, 3.525673274022187*^9, 3.545738864848042*^9, 
   3.545991121087915*^9, 3.545991464088066*^9, 3.546000115001408*^9, 
   3.5460213503359957`*^9, 3.5460576106403627`*^9, 3.546064579284637*^9, 
   3.546091117856718*^9, 3.546325594319057*^9, 3.548247323132107*^9, 
   3.548404543602849*^9, 3.548481244628335*^9, 3.548511422056305*^9, 
   3.548525804552815*^9, 3.548567867663793*^9, 3.548571047931951*^9, 
   3.5485750048593082`*^9, 3.548591582184882*^9, 3.5486620886741257`*^9, 
   3.548700112728221*^9, 3.5487562461118193`*^9, 3.548911238225628*^9, 
   3.548930603750705*^9, 3.548960792683353*^9, 3.549002175376216*^9, 
   3.549020857778503*^9, 3.549043534531583*^9, 3.549047023043762*^9, 
   3.549086268449197*^9, 3.549096264807631*^9, 3.549260299856874*^9, 
   3.549272917491475*^9, 3.5493050682887373`*^9, 3.549305286015396*^9, 
   3.549305795364736*^9, 3.549358873982685*^9, 3.549433142744216*^9, 
   3.549462307813798*^9, 3.549540240548686*^9, 3.550921575826652*^9, 
   3.550990708288629*^9, 3.550996415390667*^9, 3.550996583461666*^9, 
   3.5553470285452003`*^9, 3.557392089514958*^9, 3.557403142218347*^9, 
   3.557466448622898*^9, 3.5575793711361513`*^9, 3.557635723999504*^9, 
   3.558441129388693*^9, 3.5585498806782637`*^9, 3.560007732448778*^9, 
   3.56004434585534*^9, 3.5600444053713417`*^9, 3.560185490430809*^9, 
   3.5601862773590117`*^9, 3.560186350388784*^9, 3.56018650072858*^9, 
   3.560222869944618*^9, 3.560256414494171*^9, 3.560268921668481*^9, 
   3.560269924800974*^9, 3.560271409752433*^9, 3.560516244606085*^9, 
   3.56052159249536*^9, 3.56053428206957*^9, 3.560535144750161*^9, 
   3.560842309435898*^9, 3.5608444285830727`*^9, 3.56117680034999*^9, 
   3.5612108386848392`*^9, 3.56126913771511*^9, 3.56127558846999*^9, 
   3.561276932546439*^9, 3.561302794645639*^9, 3.561305357968384*^9, 
   3.561308527855872*^9, 3.561308776141602*^9, {3.5613602990251837`*^9, 
   3.561360058305915*^9}, 3.728115016982093*^9, 3.731234870754038*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"2936e599-ab2c-4fc5-86e8-67728c34ed11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511341321708908*^9, 3.511341324535602*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"24d75624-75ee-4fef-9545-6e92a04e2734"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341325117337*^9, 3.511341983179254*^9, 3.511374616124331*^9, 
   3.511458522432149*^9, 3.511503132557405*^9, 3.5115036865023108`*^9, 
   3.5115037754945183`*^9, 3.511504754102364*^9, 3.5115074222901993`*^9, 
   3.511591717347924*^9, 3.511595239414979*^9, 3.511630873810979*^9, {
   3.511631559945765*^9, 3.511631588133419*^9}, 3.511721067995749*^9, 
   3.521273805113018*^9, {3.5212763348399343`*^9, 3.521276347879377*^9}, 
   3.521276425323204*^9, 3.521277302511992*^9, 3.521277488772929*^9, 
   3.521278904471246*^9, 3.521364462604122*^9, 3.5213662927812147`*^9, 
   3.521370349876816*^9, 3.521440675340567*^9, 3.5214409147234592`*^9, 
   3.521455900702033*^9, 3.5214582724223213`*^9, 3.521506964361973*^9, 
   3.521520503452547*^9, 3.521520597928823*^9, 3.521523012365343*^9, 
   3.521539030668622*^9, 3.521785478196746*^9, 3.521797354644023*^9, 
   3.521803975351207*^9, 3.521883290240213*^9, 3.5219400919635563`*^9, 
   3.52197107658724*^9, 3.521971414093254*^9, 3.5219714744219103`*^9, 
   3.521971564630043*^9, 3.521972100733037*^9, 3.521973952905054*^9, 
   3.522029098268622*^9, 3.524393901166567*^9, 3.524396313701434*^9, 
   3.524977862550598*^9, 3.52499721609013*^9, 3.525066855624817*^9, 
   3.525070793960812*^9, 3.525072067709996*^9, 3.5250732263664293`*^9, 
   3.525081020112225*^9, 3.525187134995881*^9, 3.52524024395884*^9, 
   3.525243896575472*^9, 3.525397523940213*^9, 3.5253986722965403`*^9, 
   3.5254934605075607`*^9, 3.525660864032555*^9, 3.525661908235566*^9, 
   3.5256629773143883`*^9, 3.525673274095644*^9, 3.545738864916168*^9, 
   3.5459911211397343`*^9, 3.545991464149907*^9, 3.5460001151080837`*^9, 
   3.546021350429083*^9, 3.5460576107029743`*^9, 3.5460645793777237`*^9, 
   3.5460911179465647`*^9, 3.546325594380859*^9, 3.548247323188184*^9, 
   3.548404543650436*^9, 3.548481244686274*^9, 3.548511422137354*^9, 
   3.5485258046008883`*^9, 3.5485678677152367`*^9, 3.548571047991041*^9, 
   3.54857500491108*^9, 3.548591582247167*^9, 3.548662088756876*^9, 
   3.548700112787613*^9, 3.5487562461683187`*^9, 3.5489112382820053`*^9, 
   3.548930603802945*^9, 3.5489607927349443`*^9, 3.549002175434361*^9, 
   3.5490208578526993`*^9, 3.54904353459964*^9, 3.549047023096039*^9, 
   3.549086268517589*^9, 3.549096264891506*^9, 3.549260299966084*^9, 
   3.549272917546126*^9, 3.549305068339737*^9, 3.549305286066134*^9, 
   3.549305795411749*^9, 3.5493588740689983`*^9, 3.549433142804062*^9, 
   3.549462307902144*^9, 3.549540240605226*^9, 3.5509215758753853`*^9, 
   3.550990708382657*^9, 3.550996415453075*^9, 3.5509965835298843`*^9, 
   3.555347028616623*^9, 3.557392089585658*^9, 3.557403142292624*^9, 
   3.557466448688342*^9, 3.557579371191909*^9, 3.557635724054682*^9, 
   3.558441129454681*^9, 3.558549880730098*^9, 3.560007732576919*^9, 
   3.560044345928393*^9, 3.5600444054348307`*^9, 3.560185490483828*^9, 
   3.560186277427619*^9, 3.560186350451806*^9, 3.560186500792561*^9, 
   3.5602228700122747`*^9, 3.560256414563356*^9, 3.560268921737962*^9, 
   3.560269924869246*^9, 3.560271409816819*^9, 3.560516244667707*^9, 
   3.560521592639657*^9, 3.560534282122621*^9, 3.560535144795888*^9, 
   3.560842309522348*^9, 3.56084442865231*^9, 3.561176800417884*^9, 
   3.56121083875347*^9, 3.561269137774242*^9, 3.5612755885697308`*^9, 
   3.561276932681305*^9, 3.5613027948579807`*^9, 3.561305358023259*^9, 
   3.561308527934561*^9, 3.5613087762569733`*^9, {3.56136029909944*^9, 
   3.561360058370564*^9}, 3.72811501702818*^9, 3.7312348707996407`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"8dd8353a-1341-4ca2-b287-fb7604adb477"]
}, Open  ]],

Cell[TextData[{
 "This expression enables us to find the value of  ",
 Cell[BoxData[GridBox[{
    {
     RowBox[{"\[CapitalGamma]", "[", 
      RowBox[{"\[Del]", 
       RowBox[{",", 
        OverscriptBox["\[Del]", "~"]}]}], "]"}], 
     StyleBox[GridBox[{
        {"d", " ", " "},
        {" ", "a", "c"}
       },
       GridBoxSpacings->{"Columns" -> {
           Offset[0.], {
            Offset[0.034999999999999996`]}, 
           Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.]}}, "RowsIndexed" -> {}}],
      FontSize->9]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.034999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]], "Output",
  CellChangeTimes->{
   3.511341325117337*^9, 3.511341983179254*^9, 3.511374616124331*^9, 
    3.511458522432149*^9, 3.511503132557405*^9, 3.5115036865023108`*^9, 
    3.5115037754945183`*^9, 3.511504754102364*^9, 3.5115074222901993`*^9, 
    3.511591717347924*^9, 3.511595239414979*^9, 3.511630873810979*^9, {
    3.511631559945765*^9, 3.511631588133419*^9}, 3.511721067995749*^9}]
}], "Text",
 CellChangeTimes->{{3.5117212774981623`*^9, 3.511721293189885*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", 
     RowBox[{"InvPhysicalg", "[", 
      RowBox[{"\[CurlyEpsilon]", ",", "\[Beta]"}], "]"}]}], "]"}], "&"}], "/@",
   "%"}]], "Input",
 CellChangeTimes->{{3.511341344280452*^9, 3.511341410629932*^9}, {
  3.525066859232503*^9, 3.525066883009837*^9}, {3.5250669172721577`*^9, 
  3.525066925717864*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"69ff68eb-7f2d-4b18-95b2-2f3c7e1f9cb3"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        SuperscriptBox[
         OverscriptBox["g", "~"], "#"], 
        StyleBox[GridBox[{
           {"\[CurlyEpsilon]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`InvPhysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
    Editable->False], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"\[Del]", ",", 
             OverscriptBox["\[Del]", "~"]}], "]"}], 
           StyleBox[GridBox[{
              {"\[Delta]", " ", " "},
              {" ", "\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["g", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False], " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["g", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Physicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "~"], "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDTildeg[-$CellContext`\[Alpha]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["g", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "~"], "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDTildeg[-$CellContext`\[Beta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["g", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "~"], "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDTildeg[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.511341411574317*^9, 3.511341424961944*^9}, 
   3.511341470881757*^9, 3.511341985365611*^9, 3.511374616280751*^9, 
   3.5114585225197773`*^9, 3.5115031326036787`*^9, 3.5115036865126333`*^9, 
   3.511503775601447*^9, 3.511504754147667*^9, 3.5115074232009583`*^9, 
   3.511591717401814*^9, 3.51159523947156*^9, 3.5116308738350143`*^9, {
   3.511631559969214*^9, 3.5116315881531887`*^9}, 3.511721068803133*^9, 
   3.5212738064497557`*^9, {3.5212763349068623`*^9, 3.521276347991061*^9}, 
   3.521276425408969*^9, 3.521277302562229*^9, 3.521277488837731*^9, 
   3.521278904536256*^9, 3.521364462661552*^9, 3.521366292833404*^9, 
   3.521370349909824*^9, 3.521440675356185*^9, 3.521440914874959*^9, 
   3.521455900728437*^9, 3.52145827244923*^9, 3.521506964434732*^9, 
   3.521520503562994*^9, 3.521520597973584*^9, 3.521523012390506*^9, 
   3.521539030692895*^9, 3.5217854783908567`*^9, 3.521797354687258*^9, 
   3.5218039753758698`*^9, 3.521883290266073*^9, 3.5219400920901003`*^9, 
   3.521971076606122*^9, 3.52197141412608*^9, 3.521971474443084*^9, 
   3.5219715646517773`*^9, 3.521972100760124*^9, 3.52197395292737*^9, 
   3.522029098348419*^9, 3.5243939012169437`*^9, 3.524396313743046*^9, 
   3.524977862609947*^9, 3.524997216159749*^9, 3.525066944864111*^9, 
   3.5250707939977016`*^9, 3.525072067739827*^9, 3.525073226440647*^9, 
   3.525081020141*^9, 3.5251871350436707`*^9, 3.5252402440321093`*^9, 
   3.525243896606675*^9, 3.525397523969309*^9, 3.52539867231423*^9, 
   3.525493460529386*^9, 3.525660864055645*^9, 3.525661908276002*^9, 
   3.525662977332839*^9, 3.52567327416232*^9, 3.5457388649593983`*^9, 
   3.545991121158702*^9, 3.5459914642010183`*^9, 3.546000115201215*^9, 
   3.546021350471365*^9, 3.54605761075244*^9, 3.546064579451517*^9, 
   3.5460911179950027`*^9, 3.5463255944839277`*^9, 3.548247323258864*^9, 
   3.548404543671488*^9, 3.548481244713521*^9, 3.548511422182317*^9, 
   3.548525804627553*^9, 3.548567867749905*^9, 3.548571048044259*^9, 
   3.5485750049400454`*^9, 3.5485915823009*^9, 3.548662088893428*^9, 
   3.5487001128772373`*^9, 3.548756246194539*^9, 3.548911238360632*^9, 
   3.5489306038362627`*^9, 3.548960792772459*^9, 3.549002175505282*^9, 
   3.549020857893855*^9, 3.549043534633544*^9, 3.5490470231287603`*^9, 
   3.549086268660782*^9, 3.549096264932321*^9, 3.5492603000062647`*^9, 
   3.5492729175910053`*^9, 3.549305068366696*^9, 3.549305286093232*^9, 
   3.549305795436451*^9, 3.549358874146781*^9, 3.549433142827715*^9, 
   3.549462307928259*^9, 3.5495402406429358`*^9, 3.550921575897149*^9, 
   3.550990708419395*^9, 3.550996415487432*^9, 3.550996583580112*^9, 
   3.555347028671962*^9, 3.557392089623077*^9, 3.557403142342916*^9, 
   3.557466448744913*^9, 3.557579371219215*^9, 3.5576357241328993`*^9, 
   3.5584411294906*^9, 3.5585498807619333`*^9, 3.5600077326164637`*^9, 
   3.56004434596942*^9, 3.560044405465448*^9, 3.5601854905268993`*^9, 
   3.5601862774569883`*^9, 3.5601863504822083`*^9, 3.560186500823403*^9, 
   3.560222870050068*^9, 3.560256414599931*^9, 3.560268921776458*^9, 
   3.56026992490407*^9, 3.56027140984737*^9, 3.560516244714292*^9, 
   3.560521592672955*^9, 3.560534282156152*^9, 3.5605351448309927`*^9, 
   3.560842309601553*^9, 3.560844428722343*^9, 3.5611768004602947`*^9, 
   3.56121083879501*^9, 3.561269137822414*^9, 3.561275588614408*^9, 
   3.561276932733698*^9, 3.561302794988216*^9, 3.561305358056501*^9, 
   3.561308527979198*^9, 3.561308776306477*^9, {3.561360299138722*^9, 
   3.5613600584079533`*^9}, 3.72811501704827*^9, 3.731234870818893*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"706f7f83-bfb5-4542-9f0d-1402d3186a87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ToCanonical", "[", 
    RowBox[{"#", ",", 
     RowBox[{"UseMetricOnVBundle", "\[Rule]", "None"}]}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.511341428420292*^9, 3.5113414338317013`*^9}, {
  3.511341473257368*^9, 3.511341484241159*^9}, {3.5113419865147467`*^9, 
  3.511341987242367*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"604dbc80-22e7-4bc7-98f6-e1c5a49bf516"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         SuperscriptBox[
          OverscriptBox["g", "~"], "#"], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Beta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`InvPhysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "~"], "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDTildeg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.5113414346029377`*^9, 3.5113414854414988`*^9, 3.511341987740241*^9, 
   3.511374616432663*^9, 3.51145852261974*^9, 3.511503132660461*^9, 
   3.5115036865737267`*^9, 3.5115037756617403`*^9, 3.511504754205155*^9, 
   3.511507423946443*^9, 3.511591717457617*^9, 3.511595239533876*^9, 
   3.511630873893875*^9, {3.511631559999861*^9, 3.511631588180251*^9}, 
   3.511721069820889*^9, 3.521273808674775*^9, {3.521276334972445*^9, 
   3.521276348027491*^9}, 3.521276425480204*^9, 3.521277302612205*^9, 
   3.521277488925715*^9, 3.521278904614509*^9, 3.521364462738331*^9, 
   3.521366292859728*^9, 3.521370349946278*^9, 3.521440675423119*^9, 
   3.521440915080367*^9, 3.521455900777007*^9, 3.5214582724814653`*^9, 
   3.521506964522894*^9, 3.521520503672002*^9, 3.521520597999977*^9, 
   3.521523012437209*^9, 3.521539030725082*^9, 3.521785478489305*^9, 
   3.521797354719284*^9, 3.52180397545255*^9, 3.521883290304316*^9, 
   3.52194009222611*^9, 3.521971076637689*^9, 3.521971414162011*^9, 
   3.521971474472514*^9, 3.521971564698756*^9, 3.521972100793659*^9, 
   3.521973952956843*^9, 3.522029098451242*^9, 3.524393901295912*^9, 
   3.5243963138083057`*^9, 3.524977862659831*^9, 3.524997216217085*^9, 
   3.5250671628318872`*^9, 3.5250707940400133`*^9, 3.525072067782976*^9, 
   3.525073226586493*^9, 3.525081020210257*^9, 3.525187135088499*^9, 
   3.525240244077126*^9, 3.525243896641327*^9, 3.525397524021957*^9, 
   3.52539867234181*^9, 3.5254934605665894`*^9, 3.525660864090721*^9, 
   3.525661908412053*^9, 3.525662977357855*^9, 3.525673274190846*^9, 
   3.545738865014267*^9, 3.545991121227112*^9, 3.545991464271796*^9, 
   3.546000115261841*^9, 3.5460213505563107`*^9, 3.546057610822386*^9, 
   3.546064579522111*^9, 3.54609111803899*^9, 3.546325594576982*^9, 
   3.548247323323276*^9, 3.548404543717495*^9, 3.5484812447597933`*^9, 
   3.548511422218833*^9, 3.548525804759426*^9, 3.548567867788857*^9, 
   3.548571048070388*^9, 3.548575005124961*^9, 3.5485915823561068`*^9, 
   3.548662088945766*^9, 3.548700112901862*^9, 3.5487562462332163`*^9, 
   3.548911238398628*^9, 3.548930603875923*^9, 3.548960792809156*^9, 
   3.549002175539227*^9, 3.5490208579298964`*^9, 3.5490435346916227`*^9, 
   3.549047023154766*^9, 3.5490862687046213`*^9, 3.5490962649889393`*^9, 
   3.549260300045775*^9, 3.549272917653295*^9, 3.549305068404681*^9, 
   3.549305286130516*^9, 3.549305795473531*^9, 3.549358874194749*^9, 
   3.549433142860766*^9, 3.549462307962906*^9, 3.54954024069302*^9, 
   3.550921575942596*^9, 3.550990708474381*^9, 3.550996415553409*^9, 
   3.5509965838542624`*^9, 3.555347028725884*^9, 3.557392089673778*^9, 
   3.55740314240202*^9, 3.557466448799683*^9, 3.557579371260098*^9, 
   3.557635724174781*^9, 3.558441129540354*^9, 3.558549880796536*^9, 
   3.560007732659934*^9, 3.5600443460134897`*^9, 3.560044405510436*^9, 
   3.5601854905720253`*^9, 3.560186277501442*^9, 3.560186350527726*^9, 
   3.560186500868595*^9, 3.560222870095687*^9, 3.560256414649023*^9, 
   3.560268921827709*^9, 3.5602699249539537`*^9, 3.560271409892148*^9, 
   3.560516244767418*^9, 3.560521592721999*^9, 3.56053428220177*^9, 
   3.56053514486406*^9, 3.560842309691699*^9, 3.560844428768135*^9, 
   3.561176800503538*^9, 3.5612108388464737`*^9, 3.561269137873686*^9, 
   3.561275588689581*^9, 3.561276932791662*^9, 3.561302795048003*^9, 
   3.56130535812113*^9, 3.561308528043921*^9, 3.5613087763761053`*^9, {
   3.561360299185154*^9, 3.561360058458226*^9}, 3.72811501708035*^9, 
   3.7312348708477287`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"3fe4988d-bab2-4b6b-8c74-0002a2697ca9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"CDTildeg", "\[Rule]", "CDg"}]}]], "Input",
 CellChangeTimes->{{3.5113415435780697`*^9, 3.5113415558340263`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"7ea025eb-f769-46f8-b53b-1cc2cd0bedec"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         SuperscriptBox[
          OverscriptBox["g", "~"], "#"], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Beta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`InvPhysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341556709495*^9, 3.511341989801038*^9, 3.511374616616541*^9, 
   3.511458522806226*^9, 3.511503132701441*^9, 3.511503686617816*^9, 
   3.511503775709186*^9, 3.511504754250072*^9, 3.5115074248972816`*^9, 
   3.511591717504487*^9, 3.5115952395851297`*^9, 3.511630873914844*^9, {
   3.5116315600214567`*^9, 3.5116315881984377`*^9}, 3.511721070503086*^9, 
   3.521273809720264*^9, {3.521276335047752*^9, 3.521276348104954*^9}, 
   3.5212764255618753`*^9, 3.521277302673287*^9, 3.5212774889794493`*^9, 
   3.521278904673174*^9, 3.5213644628009453`*^9, 3.521366292906125*^9, 
   3.5213703499689913`*^9, 3.5214406755060873`*^9, 3.521440915136524*^9, 
   3.521455900798506*^9, 3.521458272505705*^9, 3.521506964671269*^9, 
   3.521520503854398*^9, 3.521520598011819*^9, 3.521523012459961*^9, 
   3.521539030747817*^9, 3.5217854785919237`*^9, 3.521797354741633*^9, 
   3.521803975476529*^9, 3.521883290333198*^9, 3.5219400923250437`*^9, 
   3.521971076659359*^9, 3.52197141418771*^9, 3.5219714744925013`*^9, 
   3.521971564722466*^9, 3.521972100818183*^9, 3.521973952994791*^9, 
   3.522029098545909*^9, 3.524393901412964*^9, 3.524396313849646*^9, 
   3.5249778635391417`*^9, 3.5249972162541428`*^9, 3.5250671644699497`*^9, 
   3.525070794086063*^9, 3.525072067812305*^9, 3.5250732266127462`*^9, 
   3.5250810202652187`*^9, 3.525187135112298*^9, 3.52524024409937*^9, 
   3.525243896683135*^9, 3.5253975240538797`*^9, 3.525398672424996*^9, 
   3.5254934605888844`*^9, 3.525660864110216*^9, 3.525661908438031*^9, 
   3.525662977373248*^9, 3.525673274207151*^9, 3.54573886505579*^9, 
   3.545991121244845*^9, 3.545991464313899*^9, 3.5460001153036003`*^9, 
   3.546021350600728*^9, 3.5460576108664*^9, 3.546064579595853*^9, 
   3.54609111809524*^9, 3.546325594614388*^9, 3.5482473233453083`*^9, 
   3.548404543742633*^9, 3.5484812447940903`*^9, 3.54851142226044*^9, 
   3.548525804784006*^9, 3.5485678678206463`*^9, 3.548571048098448*^9, 
   3.5485750051516447`*^9, 3.5485915824012003`*^9, 3.54866208898625*^9, 
   3.5487001129349527`*^9, 3.5487562462702847`*^9, 3.5489112384386044`*^9, 
   3.54893060388431*^9, 3.548960792835475*^9, 3.5490021755627317`*^9, 
   3.549020857978775*^9, 3.5490435347245493`*^9, 3.54904702318163*^9, 
   3.549086268736805*^9, 3.549096265026991*^9, 3.549260300075337*^9, 
   3.5492729176941843`*^9, 3.549305068428177*^9, 3.5493052861551323`*^9, 
   3.549305795500533*^9, 3.5493588742164917`*^9, 3.549433142884062*^9, 
   3.549462307985442*^9, 3.549540240727013*^9, 3.5509215759646673`*^9, 
   3.550990708509376*^9, 3.550996415571952*^9, 3.5509965838937607`*^9, 
   3.5553470287802477`*^9, 3.557392089707539*^9, 3.557403142497437*^9, 
   3.557466448840209*^9, 3.557579371285904*^9, 3.5576357242059717`*^9, 
   3.5584411295731173`*^9, 3.558549880823017*^9, 3.560007732706365*^9, 
   3.560044346057557*^9, 3.560044405539031*^9, 3.5601854906005583`*^9, 
   3.560186277529791*^9, 3.560186350556589*^9, 3.560186500897382*^9, 
   3.560222870124901*^9, 3.560256414681251*^9, 3.56026892200879*^9, 
   3.5602699250038147`*^9, 3.560271409920393*^9, 3.560516244801917*^9, 
   3.560521592779072*^9, 3.560534282232872*^9, 3.5605351449505444`*^9, 
   3.560842309730831*^9, 3.560844428800026*^9, 3.561176800559416*^9, 
   3.5612108389153547`*^9, 3.561269137927853*^9, 3.5612755887319307`*^9, 
   3.561276932948412*^9, 3.561302795105632*^9, 3.5613053581565933`*^9, 
   3.5613085281105623`*^9, 3.561308776581465*^9, {3.5613602992357807`*^9, 
   3.561360058494932*^9}, 3.728115017095726*^9, 3.7312348708685904`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"c62e58f3-93b1-40c7-94ce-0135d402bbc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "InvPhysicalToPhysical"}]}]], "Input",
 CellChangeTimes->{{3.5113416196180363`*^9, 3.51134162442854*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"fe9006ef-deff-4c95-807c-526a42046e37"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Beta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "3"], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341626799594*^9, 3.511341993513331*^9, 3.5113746167584352`*^9, 
   3.5114585229072104`*^9, 3.511503132737897*^9, 3.511503686665366*^9, 
   3.511503775756703*^9, 3.511504754295538*^9, 3.511507428786022*^9, 
   3.511591717551449*^9, 3.5115952396431017`*^9, 3.511630873937229*^9, {
   3.511631560045554*^9, 3.5116315882180433`*^9}, 3.511721071089476*^9, 
   3.5212738105432034`*^9, {3.521276335116953*^9, 3.521276348199353*^9}, 
   3.521276425644227*^9, 3.5212773027236967`*^9, 3.5212774890469427`*^9, 
   3.521278904738592*^9, 3.521364462860322*^9, 3.521366292956882*^9, 
   3.521370349995903*^9, 3.521440675703824*^9, 3.521440915204461*^9, 
   3.521455900817668*^9, 3.521458272529357*^9, 3.521506964738843*^9, 
   3.5215205039612226`*^9, 3.521520598025374*^9, 3.521523012520739*^9, 
   3.521539030772161*^9, 3.521785478654583*^9, 3.521797354764256*^9, 
   3.5218039755015497`*^9, 3.521883290358697*^9, 3.521940092394102*^9, 
   3.521971076685257*^9, 3.52197141421216*^9, 3.521971474512932*^9, 
   3.521971564744417*^9, 3.5219721008397512`*^9, 3.521973953016136*^9, 
   3.5220290985676813`*^9, 3.5243939014730062`*^9, 3.524396313890514*^9, 
   3.5249778636696043`*^9, 3.5249972162963953`*^9, 3.525067165614249*^9, 
   3.525070794123661*^9, 3.525072067833536*^9, 3.525073226641362*^9, 
   3.525081020320589*^9, 3.5251871351419697`*^9, 3.525240244120502*^9, 
   3.52524389671556*^9, 3.5253975240947847`*^9, 3.525398672446015*^9, 
   3.525493460620616*^9, 3.525660864137927*^9, 3.5256619084702873`*^9, 
   3.525662977390239*^9, 3.525673274261938*^9, 3.545738865140967*^9, 
   3.54599112126407*^9, 3.545991464369075*^9, 3.54600011535421*^9, 
   3.546021350621964*^9, 3.546057610926553*^9, 3.546064579753042*^9, 
   3.546091118146079*^9, 3.54632559463879*^9, 3.548247323369483*^9, 
   3.548404543793544*^9, 3.548481244823964*^9, 3.548511422318437*^9, 
   3.548525804804576*^9, 3.548567867862124*^9, 3.548571048126421*^9, 
   3.548575005186743*^9, 3.548591582459203*^9, 3.548662089012732*^9, 
   3.54870011297073*^9, 3.548756246367116*^9, 3.5489112384781847`*^9, 
   3.54893060390904*^9, 3.548960792859415*^9, 3.5490021755970984`*^9, 
   3.549020858106146*^9, 3.549043534763139*^9, 3.549047023212929*^9, 
   3.549086268788377*^9, 3.549096265065426*^9, 3.549260300116496*^9, 
   3.549272917736816*^9, 3.5493050684581413`*^9, 3.549305286182365*^9, 
   3.549305795524828*^9, 3.5493588742571697`*^9, 3.5494331429074583`*^9, 
   3.549462308013892*^9, 3.5495402407574253`*^9, 3.550921576001809*^9, 
   3.550990708544128*^9, 3.550996415592648*^9, 3.550996583945077*^9, 
   3.555347028819653*^9, 3.557392089745493*^9, 3.55740314259156*^9, 
   3.5574664488911953`*^9, 3.557579371315465*^9, 3.5576357242413893`*^9, 
   3.55844112960887*^9, 3.5585498808489227`*^9, 3.56000773274121*^9, 
   3.560044346111161*^9, 3.5600444055700407`*^9, 3.560185490632099*^9, 
   3.560186277560649*^9, 3.56018635058794*^9, 3.5601865009314938`*^9, 
   3.560222870156836*^9, 3.560256414716105*^9, 3.560268922046365*^9, 
   3.560269925033946*^9, 3.56027140995177*^9, 3.560516244838706*^9, 
   3.5605215928504553`*^9, 3.560534282272964*^9, 3.560535144973434*^9, 
   3.560842309829344*^9, 3.560844428842772*^9, 3.561176800666477*^9, 
   3.56121083899022*^9, 3.561269137951849*^9, 3.5612755887896557`*^9, 
   3.561276932983386*^9, 3.561302795127699*^9, 3.561305358187929*^9, 
   3.561308528243033*^9, 3.561308776635347*^9, {3.561360299269771*^9, 
   3.56136005852816*^9}, 3.728115017112856*^9, 3.731234870896644*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"64a30688-8a18-47ef-bf0b-a2e32f00c783"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "PhysicalToUnPhysical"}]}]], "Input",
 CellChangeTimes->{{3.511341644562254*^9, 3.5113416574247913`*^9}, {
  3.511341821653162*^9, 3.5113418402802362`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"cbd4f334-b086-4ab4-ba72-49761e32e394"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Beta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341660949133*^9, {3.51134182620331*^9, 3.511341840814311*^9}, 
   3.5113419969486923`*^9, 3.51137461685152*^9, 3.5114585230065823`*^9, 
   3.511503132788661*^9, 3.5115036867264643`*^9, 3.5115037758123302`*^9, 
   3.511504754335704*^9, 3.5115074296883783`*^9, 3.511591717572898*^9, 
   3.511595239697379*^9, 3.511630873958794*^9, {3.5116315600718393`*^9, 
   3.5116315882433968`*^9}, 3.511721071644391*^9, 3.52127381142383*^9, {
   3.521276335188396*^9, 3.521276348281843*^9}, 3.5212764257532663`*^9, 
   3.521277302781212*^9, 3.5212774891945457`*^9, 3.521278904806282*^9, 
   3.521364462926942*^9, 3.521366293015603*^9, 3.52137035002145*^9, 
   3.521440675779313*^9, 3.5214409152782497`*^9, 3.521455900840473*^9, 
   3.521458272553524*^9, 3.5215069648104267`*^9, 3.5215205040271883`*^9, 
   3.5215205980698147`*^9, 3.521523012545442*^9, 3.521539030795689*^9, 
   3.521785478730299*^9, 3.5217973547862473`*^9, 3.5218039755264683`*^9, 
   3.521883290404948*^9, 3.5219400925183887`*^9, 3.521971076705256*^9, 
   3.521971414237598*^9, 3.521971474598784*^9, 3.521971564767888*^9, 
   3.521972100864766*^9, 3.521973953038885*^9, 3.522029098590331*^9, 
   3.524393901532531*^9, 3.524396313937003*^9, 3.5249778637051487`*^9, 
   3.524997216349648*^9, 3.525067166862817*^9, 3.525070794176189*^9, 
   3.525072067869204*^9, 3.525073226667614*^9, 3.525081020378768*^9, 
   3.525187135217805*^9, 3.525240244144465*^9, 3.525243896854805*^9, 
   3.525397524142756*^9, 3.525398672465665*^9, 3.525493460646009*^9, 
   3.5256608641697273`*^9, 3.5256619085007772`*^9, 3.525662977408299*^9, 
   3.525673274281438*^9, 3.5457388651785793`*^9, 3.545991121305893*^9, 
   3.545991464425024*^9, 3.546000115404636*^9, 3.546021350663587*^9, 
   3.546057610990613*^9, 3.5460645797855453`*^9, 3.546091118173175*^9, 
   3.546325594667264*^9, 3.54824732341713*^9, 3.548404543829298*^9, 
   3.54848124485445*^9, 3.548511422353994*^9, 3.54852580484761*^9, 
   3.54856786789819*^9, 3.5485710481718082`*^9, 3.548575005214396*^9, 
   3.5485915825136213`*^9, 3.548662089035037*^9, 3.548700113004952*^9, 
   3.548756246414857*^9, 3.5489112385114822`*^9, 3.548930603982521*^9, 
   3.548960792886113*^9, 3.549002175623217*^9, 3.549020858193416*^9, 
   3.549043534803897*^9, 3.549047023246942*^9, 3.54908626882568*^9, 
   3.549096265109234*^9, 3.549260300149005*^9, 3.549272917779457*^9, 
   3.5493050684932137`*^9, 3.549305286219489*^9, 3.549305795561961*^9, 
   3.549358874318101*^9, 3.549433142941338*^9, 3.549462308041078*^9, 
   3.549540240799613*^9, 3.5509215760408993`*^9, 3.550990708589271*^9, 
   3.550996415615263*^9, 3.550996583986301*^9, 3.55534702887008*^9, 
   3.557392089783749*^9, 3.5574031426661863`*^9, 3.55746644894676*^9, 
   3.557579371351058*^9, 3.557635724282344*^9, 3.5584411296515293`*^9, 
   3.558549880882207*^9, 3.56000773277846*^9, 3.560044346153591*^9, 
   3.560044405603006*^9, 3.560185490665792*^9, 3.5601862775934677`*^9, 
   3.560186350621335*^9, 3.5601865009673843`*^9, 3.560222870191362*^9, 
   3.560256414753159*^9, 3.560268922085456*^9, 3.560269925066585*^9, 
   3.5602714099821663`*^9, 3.5605162448818293`*^9, 3.56052159290212*^9, 
   3.5605342823072767`*^9, 3.560535145002595*^9, 3.560842309944757*^9, 
   3.56084442888246*^9, 3.5611768007053223`*^9, 3.561210839049265*^9, 
   3.5612691379879913`*^9, 3.5612755888428583`*^9, 3.561276933042219*^9, 
   3.561302795171701*^9, 3.561305358252306*^9, 3.5613085286678333`*^9, 
   3.561308776685596*^9, {3.561360299329735*^9, 3.561360058603141*^9}, 
   3.728115017130434*^9, 3.731234870920879*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"9880e2a5-94e4-4dfe-9aa8-d089c5b622db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"%", ",", 
       RowBox[{"Union", "@", 
        RowBox[{"Cases", "[", 
         RowBox[{"%", ",", "_ChristoffelCDgCDTildeg", ",", "Infinity"}], 
         "]"}]}]}], "]"}], "//", "Flatten"}], "//", "First"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.51134202786652*^9, 3.511342047731166*^9}, {
  3.5113420793650627`*^9, 3.511342087730639*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"47a5891f-5c45-4f7b-af3f-8d01e371d524"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "~"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[CurlyEpsilon]", " ", " "},
          {" ", "\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[CurlyEpsilon]"},
             {"\[Gamma]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {"\[CurlyEpsilon]", "\[Beta]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[CurlyEpsilon]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.5113420481724567`*^9, {3.511342081350751*^9, 3.511342090420473*^9}, 
   3.511374616953292*^9, 3.511458523171938*^9, 3.511503132803771*^9, 
   3.511503686780191*^9, 3.511503775864854*^9, 3.51150475438098*^9, 
   3.511507430407997*^9, 3.511591717594344*^9, 3.5115952397455397`*^9, 
   3.511630873985466*^9, {3.511631560092803*^9, 3.511631588273328*^9}, 
   3.5117210722306223`*^9, 3.521273812422789*^9, {3.5212763352578993`*^9, 
   3.52127634837105*^9}, 3.521276425871251*^9, 3.521277302832168*^9, 
   3.521277489260386*^9, 3.521278904871252*^9, 3.521364462942482*^9, 
   3.521366293086014*^9, 3.521370350095833*^9, 3.521440675851474*^9, 
   3.521440915346792*^9, 3.521455900862236*^9, 3.5214582725904284`*^9, 
   3.521506964879871*^9, 3.521520504131056*^9, 3.52152059811726*^9, 
   3.521523012568986*^9, 3.521539030847754*^9, 3.52178547881847*^9, 
   3.521797354811957*^9, 3.5218039755491133`*^9, 3.5218832904289513`*^9, 
   3.521940092589595*^9, 3.521971076724824*^9, 3.5219714142646437`*^9, 
   3.5219714746230516`*^9, 3.521971564790496*^9, 3.521972100888493*^9, 
   3.52197395306569*^9, 3.522029098608919*^9, 3.524393901580447*^9, 
   3.524396313991817*^9, 3.5249778637439203`*^9, 3.52499721640042*^9, 
   3.5250671681481457`*^9, 3.5250707942120333`*^9, 3.525072067898494*^9, 
   3.52507322669241*^9, 3.525081020433962*^9, 3.525187135245966*^9, 
   3.5252402441666937`*^9, 3.5252438968933153`*^9, 3.525397524174262*^9, 
   3.525398672483696*^9, 3.5254934606717243`*^9, 3.525660864195347*^9, 
   3.525661908530181*^9, 3.5256629774219437`*^9, 3.525673274299098*^9, 
   3.545738865223404*^9, 3.5459911213271427`*^9, 3.545991464474627*^9, 
   3.546000115466073*^9, 3.546021350843686*^9, 3.546057611055896*^9, 
   3.5460645798165007`*^9, 3.54609111819834*^9, 3.5463255947965593`*^9, 
   3.5482473235056057`*^9, 3.5484045438736*^9, 3.548481244883647*^9, 
   3.548511422374404*^9, 3.548525804872908*^9, 3.548567867939719*^9, 
   3.548571048204414*^9, 3.548575005254437*^9, 3.548591582554132*^9, 
   3.548662089074862*^9, 3.548700113038945*^9, 3.548756246505851*^9, 
   3.54891123854716*^9, 3.548930604026143*^9, 3.548960792915779*^9, 
   3.549002175649214*^9, 3.549020858242011*^9, 3.549043534840341*^9, 
   3.5490470232972317`*^9, 3.549086268858691*^9, 3.549096265154642*^9, 
   3.549260300181151*^9, 3.549272917825034*^9, 3.549305068526331*^9, 
   3.549305286246854*^9, 3.5493057955834513`*^9, 3.54935887435498*^9, 
   3.54943314296517*^9, 3.549462308065855*^9, 3.549540240833843*^9, 
   3.550921576075585*^9, 3.5509907086376553`*^9, 3.55099641565703*^9, 
   3.550996584144788*^9, 3.555347028911355*^9, 3.557392089820817*^9, 
   3.557403142780323*^9, 3.5574664490167713`*^9, 3.5575793713786592`*^9, 
   3.557635724314748*^9, 3.558441129697833*^9, 3.558549880912438*^9, 
   3.560007732814913*^9, 3.560044346194826*^9, 3.560044405630481*^9, 
   3.560185490698575*^9, 3.560186277626327*^9, 3.560186350672703*^9, 
   3.560186501005506*^9, 3.560222870224823*^9, 3.560256414789562*^9, 
   3.560268922124052*^9, 3.560269925100333*^9, 3.560271410014463*^9, 
   3.5605162449247923`*^9, 3.560521592936466*^9, 3.560534282340313*^9, 
   3.5605351450457067`*^9, 3.560842309982559*^9, 3.560844428920869*^9, 
   3.561176800777392*^9, 3.5612108391244802`*^9, 3.561269138036717*^9, 
   3.5612755888835382`*^9, 3.561276933085051*^9, 3.561302795240629*^9, 
   3.5613053584595222`*^9, 3.561308528715579*^9, 3.561308776748438*^9, {
   3.561360299368672*^9, 3.561360058636194*^9}, 3.728115017147367*^9, 
   3.731234870944934*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"bed41197-8617-417e-9285-c25ce0b0fe95"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExpandChristoffelCDgCDTildeg", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5113421243166447`*^9, 3.511342131373743*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"7025a927-9445-411c-84c4-959eb27c5ac1"],

Cell["\<\
We wish to rewrite this relation in an alternative form. To that end we \
define a \"temporary delta\"\
\>", "Text",
 CellChangeTimes->{{3.511373586001505*^9, 3.511373592386023*^9}, {
  3.51172107662917*^9, 3.511721090142511*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"deltaM", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", "\[Beta]"}], "]"}], ",", "M4"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.511373576056535*^9, 3.511373584070777*^9}, {
  3.5250671744193068`*^9, 3.5250671785226593`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"3a71d72e-d353-4ae3-8e81-9b8f1a500492"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"deltaM", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", "\[Beta]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`deltaM[-$CellContext`\[Alpha], $CellContext`\[Beta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.521276426159814*^9, 3.5212773028521843`*^9, 3.5212774894423723`*^9, 
   3.52127890488468*^9, 3.5213644629565363`*^9, 3.521366293134604*^9, 
   3.521370350121016*^9, 3.5214406759253473`*^9, 3.521440915422171*^9, 
   3.521455900883215*^9, 3.521458272613495*^9, 3.5215069649465923`*^9, 
   3.5215205041907387`*^9, 3.521520598129767*^9, 3.521523012591959*^9, 
   3.5215390308715153`*^9, 3.521785478834902*^9, 3.521797354933522*^9, 
   3.5218039755721207`*^9, 3.5218832904507732`*^9, 3.521940092699749*^9, 
   3.521971076742914*^9, 3.521971414289653*^9, 3.5219714746486263`*^9, 
   3.5219715647982197`*^9, 3.5219721009093246`*^9, 3.521973953101871*^9, 
   3.522029098684547*^9, 3.5243939016283827`*^9, 3.524396314009769*^9, 
   3.524977863779852*^9, 3.524997216447158*^9, 3.525067179662366*^9, 
   3.525070794249579*^9, 3.525072067959642*^9, 3.52507322671972*^9, 
   3.525081020485888*^9, 3.5251871352706327`*^9, 3.525240244189345*^9, 
   3.525243896918054*^9, 3.5253975242237663`*^9, 3.525398672505637*^9, 
   3.525493460769829*^9, 3.525660864259687*^9, 3.5256619085578327`*^9, 
   3.525662977445571*^9, 3.525673274313528*^9, 3.545738865275339*^9, 
   3.545991121349567*^9, 3.545991464522717*^9, 3.546000115558014*^9, 
   3.546021350893216*^9, 3.546057611105566*^9, 3.546064579852178*^9, 
   3.546091118246126*^9, 3.546325594874281*^9, 3.548247323552486*^9, 
   3.5484045439174633`*^9, 3.548481244926804*^9, 3.548511422412607*^9, 
   3.548525804897029*^9, 3.548567867988052*^9, 3.548571048240477*^9, 
   3.548575005295537*^9, 3.548591582640068*^9, 3.548662089174316*^9, 
   3.548700113078969*^9, 3.548756246546769*^9, 3.548911238644071*^9, 
   3.548930604061768*^9, 3.548960792944278*^9, 3.5490021756732693`*^9, 
   3.549020858289632*^9, 3.5490435348919983`*^9, 3.549047023324336*^9, 
   3.549086268986929*^9, 3.549096265204946*^9, 3.5492603002177277`*^9, 
   3.549272917871895*^9, 3.549305068605476*^9, 3.549305286284832*^9, 
   3.549305795611848*^9, 3.549358874382497*^9, 3.549433143011548*^9, 
   3.549462308136437*^9, 3.5495402408918753`*^9, 3.550921576121361*^9, 
   3.5509907086883993`*^9, 3.550996415719109*^9, 3.550996584199459*^9, 
   3.555347028969079*^9, 3.557392089855566*^9, 3.557403142863667*^9, 
   3.557466449058749*^9, 3.557579371405779*^9, 3.557635724352851*^9, 
   3.5584411297565413`*^9, 3.5585498809732847`*^9, 3.560007732908174*^9, 
   3.560044346320671*^9, 3.5600444056634398`*^9, 3.560185490719849*^9, 
   3.560186277693619*^9, 3.560186350714189*^9, 3.560186501072068*^9, 
   3.560222870359333*^9, 3.5602564148235292`*^9, 3.5602689221625223`*^9, 
   3.5602699251335087`*^9, 3.5602714100479*^9, 3.5605162449735947`*^9, 
   3.560521592984071*^9, 3.560534282473209*^9, 3.560535145101289*^9, 
   3.560842310001746*^9, 3.5608444289864883`*^9, 3.561176800819088*^9, 
   3.561210839201253*^9, 3.561269138080641*^9, 3.56127558905365*^9, 
   3.561276933105999*^9, 3.561302795326007*^9, 3.561305358543915*^9, 
   3.561308528775976*^9, 3.561308776798602*^9, {3.561360299391066*^9, 
   3.5613600586720657`*^9}, 3.728115017166093*^9, 3.731234870971434*^9},
 CellLabel->
  "During evaluation of \
In[36]:=",ExpressionUUID->"6113c624-7041-441c-b3a2-c4b775bae871"]
}, Open  ]],

Cell["\<\
The reason of introducing the \"temporary delta\" is to avoid the automatic \
contraction of the ordinary Kronecker delta when it has any of its indices \
contracted. \
\>", "Text",
 CellChangeTimes->{{3.511721447306985*^9, 3.51172150730022*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{"ExpandChristoffelCDgCDTildeg", "/.", 
   RowBox[{
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]_"}], "]"}], "@", 
     RowBox[{"\[CapitalTheta]", "[", "]"}]}], "->", 
    RowBox[{
     RowBox[{"deltaM", "[", 
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], ",", "\[Rho]"}], "]"}], 
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Rho]"}], "]"}], "@", 
      RowBox[{"\[CapitalTheta]", "[", "]"}]}]}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.511373395411243*^9, 3.51137340924362*^9}, {
   3.5113734646445007`*^9, 3.511373523378162*^9}, {3.511373561089822*^9, 
   3.51137356523839*^9}, {3.511373614765586*^9, 3.5113737044990377`*^9}, {
   3.511373738815905*^9, 3.5113737396359453`*^9}, {3.511373898429861*^9, 
   3.51137390124914*^9}, 3.511373952699072*^9, {3.511507441737423*^9, 
   3.5115074456568527`*^9}, {3.511507509195889*^9, 3.511507544367063*^9}, {
   3.525067183293456*^9, 3.5250672045148687`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"086d8163-6e38-438f-960e-8716fbec08fd"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "~"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[CurlyEpsilon]", " ", " "},
          {" ", "\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[CurlyEpsilon]"},
             {"\[Gamma]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"deltaM", 
          StyleBox[GridBox[{
             {" ", "\[Rho]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`deltaM[-$CellContext`\[Alpha], $CellContext`\[Rho]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Rho]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[CurlyEpsilon]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"deltaM", 
          StyleBox[GridBox[{
             {" ", "\[Rho]"},
             {"\[Gamma]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`deltaM[-$CellContext`\[Gamma], $CellContext`\[Rho]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Rho]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"deltaM", 
          StyleBox[GridBox[{
             {" ", "\[Rho]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`deltaM[-$CellContext`\[Beta], $CellContext`\[Rho]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {"\[CurlyEpsilon]", "\[Beta]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Rho]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{{3.511373507972513*^9, 3.511373524028742*^9}, 
   3.5113735680868464`*^9, 3.511373616820066*^9, {3.51137370519571*^9, 
   3.511373740295607*^9}, {3.511373882084126*^9, 3.511373908851894*^9}, 
   3.511373965961965*^9, 3.511374007444433*^9, 3.511458477629775*^9, 
   3.511503132024296*^9, 3.511503686106215*^9, 3.511503775116418*^9, 
   3.511504753604991*^9, 3.511507446966838*^9, 3.511507545345991*^9, 
   3.5115917176878567`*^9, 3.511595239899262*^9, 3.5116308740613623`*^9, {
   3.5116315601334*^9, 3.5116315883908453`*^9}, 3.511721305589386*^9, 
   3.521273819259389*^9, {3.521276335390685*^9, 3.521276349025703*^9}, 
   3.5212764262785254`*^9, 3.52127730294145*^9, 3.521277489499156*^9, 
   3.521278904950095*^9, 3.521364463018014*^9, 3.5213662931457787`*^9, 
   3.521370350144834*^9, 3.521440675982821*^9, 3.521440915489439*^9, 
   3.521455900904759*^9, 3.5214582726348248`*^9, 3.521506965012978*^9, 
   3.521520504267971*^9, 3.5215205981736*^9, 3.521523012629733*^9, 
   3.521539030895527*^9, 3.521785478854485*^9, 3.521797354959754*^9, 
   3.5218039755924997`*^9, 3.5218832904745617`*^9, 3.5219400927695017`*^9, 
   3.521971076761484*^9, 3.521971414322996*^9, 3.52197147466856*^9, 
   3.521971564818192*^9, 3.521972100930559*^9, 3.521973953161532*^9, 
   3.5220290987047358`*^9, 3.5243939016848707`*^9, 3.524396314052648*^9, 
   3.524977863812584*^9, 3.524997216458033*^9, {3.5250671978279343`*^9, 
   3.525067206281083*^9}, 3.525070794285181*^9, 3.52507206798365*^9, 
   3.525073226757497*^9, 3.5250810205079727`*^9, 3.525187135281835*^9, 
   3.525240244212112*^9, 3.525243896955043*^9, 3.5253975242499638`*^9, 
   3.52539867252112*^9, 3.525493460796365*^9, 3.5256608642835293`*^9, 
   3.5256619085847178`*^9, 3.5256629774598*^9, 3.525673274332059*^9, 
   3.5457388653059273`*^9, 3.545991121392696*^9, 3.545991464577417*^9, 
   3.546000115604398*^9, 3.546021350934545*^9, 3.5460576111620626`*^9, 
   3.546064579917139*^9, 3.546091118284809*^9, 3.5463255949776793`*^9, 
   3.548247323623734*^9, 3.5484045439537497`*^9, 3.548481244950612*^9, 
   3.5485114224944468`*^9, 3.5485258049306*^9, 3.5485678680348377`*^9, 
   3.5485710482685966`*^9, 3.548575005311615*^9, 3.548591582689802*^9, 
   3.548662089217141*^9, 3.548700113104892*^9, 3.548756246583933*^9, 
   3.548911238683383*^9, 3.548930604071698*^9, 3.548960792973934*^9, 
   3.5490021757006483`*^9, 3.5490208583118353`*^9, 3.5490435349339237`*^9, 
   3.549047023348796*^9, 3.549086269017997*^9, 3.5490962652416143`*^9, 
   3.549260300248406*^9, 3.5492729179070463`*^9, 3.5493050686362743`*^9, 
   3.5493052862985563`*^9, 3.549305795634959*^9, 3.549358874412756*^9, 
   3.549433143038724*^9, 3.549462308166546*^9, 3.5495402409346046`*^9, 
   3.550921576155678*^9, 3.550990708736711*^9, 3.5509964157589417`*^9, 
   3.550996584238721*^9, 3.555347029006899*^9, 3.557392089880961*^9, 
   3.557403142914092*^9, 3.55746644909555*^9, 3.5575793714346533`*^9, 
   3.557635724384606*^9, 3.558441129835773*^9, 3.558549881003639*^9, 
   3.560007733015972*^9, 3.560044346358506*^9, 3.560044405692995*^9, 
   3.560185490748989*^9, 3.560186277724923*^9, 3.560186350763047*^9, 
   3.560186501102433*^9, 3.560222870393961*^9, 3.5602564148591747`*^9, 
   3.560268922197282*^9, 3.560269925151348*^9, 3.560271410076921*^9, 
   3.560516245011896*^9, 3.560521593022328*^9, 3.560534282491247*^9, 
   3.5605351451192503`*^9, 3.560842310041916*^9, 3.560844429007255*^9, 
   3.5611768008826227`*^9, 3.561210839276359*^9, 3.561269138119503*^9, 
   3.5612755891044083`*^9, 3.561276933147241*^9, 3.561302795392745*^9, 
   3.561305358577105*^9, 3.561308528797491*^9, 3.561308776847075*^9, {
   3.5613602994293547`*^9, 3.5613600587096243`*^9}, 3.7281150171856203`*^9, 
   3.731234870997972*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"1c525f62-dd42-4fce-87fb-4a186225d026"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Rho]"}], "]"}], "@", 
      RowBox[{"\[CapitalTheta]", "[", "]"}]}]}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.5113737502117*^9, 3.5113737644025717`*^9}, {
  3.511507587220482*^9, 3.5115075943271227`*^9}, {3.5250672096468143`*^9, 
  3.525067210964176*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"5041ff3b-35f0-474e-822b-3f273835aaf1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "~"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[CurlyEpsilon]", " ", " "},
          {" ", "\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"deltaM", 
            StyleBox[GridBox[{
               {" ", "\[Rho]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`deltaM[-$CellContext`\[Alpha], $CellContext`\[Rho]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"deltaM", 
            StyleBox[GridBox[{
               {" ", "\[Rho]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`deltaM[-$CellContext`\[Gamma], $CellContext`\[Rho]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"deltaM", 
            StyleBox[GridBox[{
               {" ", "\[Rho]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`deltaM[-$CellContext`\[Beta], $CellContext`\[Rho]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Beta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Beta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Rho]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.511373765215519*^9, 3.51137401641461*^9, 3.511458479896081*^9, 
   3.511503132119519*^9, 3.511503686124669*^9, 3.511503775134614*^9, 
   3.5115047536785316`*^9, 3.511507595048273*^9, 3.511591717737327*^9, 
   3.511595239954739*^9, 3.511630874084482*^9, {3.5116315601524277`*^9, 
   3.511631588412581*^9}, 3.511721307848258*^9, 3.521273820165416*^9, {
   3.521276335459799*^9, 3.521276349149251*^9}, 3.521276426345936*^9, 
   3.521277303052596*^9, 3.5212774895604553`*^9, 3.521278905015781*^9, 
   3.521364463030239*^9, 3.521366293219222*^9, 3.521370350168914*^9, 
   3.5214406760582952`*^9, 3.521440915562904*^9, 3.5214559009256144`*^9, 
   3.521458272658517*^9, 3.521506965076137*^9, 3.5215205043321047`*^9, 
   3.521520598226561*^9, 3.521523012654641*^9, 3.521539030918806*^9, 
   3.521785478922538*^9, 3.521797354984488*^9, 3.521803975615458*^9, 
   3.5218832904966717`*^9, 3.521940092892097*^9, 3.521971076779846*^9, 
   3.521971414346643*^9, 3.521971474687255*^9, 3.521971564839181*^9, 
   3.5219721009520273`*^9, 3.5219739532065983`*^9, 3.522029098722864*^9, 
   3.524393901731847*^9, 3.524396314093306*^9, 3.5249778638487463`*^9, 
   3.524997216468039*^9, 3.52506721180339*^9, 3.52507079432026*^9, 
   3.5250720680087442`*^9, 3.5250732267908707`*^9, 3.525081020522146*^9, 
   3.525187135304574*^9, 3.525240244239716*^9, 3.525243896982855*^9, 
   3.525397524300315*^9, 3.5253986725366793`*^9, 3.525493460820847*^9, 
   3.5256608643058243`*^9, 3.525661908630251*^9, 3.525662977474655*^9, 
   3.525673274383638*^9, 3.5457388653338127`*^9, 3.545991121457718*^9, 
   3.545991464643345*^9, 3.546000115677205*^9, 3.5460213510401163`*^9, 
   3.546057611275373*^9, 3.546064579983176*^9, 3.546091118385666*^9, 
   3.546325595083027*^9, 3.5482473236956472`*^9, 3.548404544009412*^9, 
   3.54848124497884*^9, 3.548511422529191*^9, 3.54852580496815*^9, 
   3.548567868068956*^9, 3.548571048298901*^9, 3.548575005324891*^9, 
   3.548591582739929*^9, 3.548662089283502*^9, 3.5487001131388083`*^9, 
   3.548756246633024*^9, 3.548911238730316*^9, 3.54893060408637*^9, 
   3.548960793001566*^9, 3.5490021757322397`*^9, 3.549020858332037*^9, 
   3.5490435349661503`*^9, 3.549047023373241*^9, 3.549086269073781*^9, 
   3.5490962652756233`*^9, 3.549260300293252*^9, 3.549272917926675*^9, 
   3.5493050686627913`*^9, 3.549305286310915*^9, 3.549305795666237*^9, 
   3.5493588744483852`*^9, 3.54943314304932*^9, 3.549462308193935*^9, 
   3.549540240975285*^9, 3.550921576204459*^9, 3.550990708779294*^9, 
   3.550996415800333*^9, 3.550996584280527*^9, 3.555347029055629*^9, 
   3.5573920899783497`*^9, 3.557403142975341*^9, 3.557466449133514*^9, 
   3.557579371506803*^9, 3.557635724418345*^9, 3.55844113000651*^9, 
   3.558549881029604*^9, 3.560007733156372*^9, 3.560044346443706*^9, 
   3.560044405725569*^9, 3.560185490793573*^9, 3.560186277755101*^9, 
   3.560186350836214*^9, 3.5601865011363363`*^9, 3.5602228704392548`*^9, 
   3.560256414909322*^9, 3.560268922234981*^9, 3.560269925179985*^9, 
   3.56027141010637*^9, 3.56051624510998*^9, 3.5605215930403833`*^9, 
   3.560534282504486*^9, 3.560535145129587*^9, 3.5608423100773783`*^9, 
   3.560844429176993*^9, 3.5611768009081097`*^9, 3.561210839485379*^9, 
   3.561269138196951*^9, 3.561275589148855*^9, 3.5612769331993217`*^9, 
   3.5613027954389553`*^9, 3.561305358611305*^9, 3.561308528818318*^9, 
   3.561308776902411*^9, {3.561360299467292*^9, 3.561360058760681*^9}, 
   3.72811501720383*^9, 3.731234871020788*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"92cca81f-16fe-4826-bb89-10481f4891fb"]
}, Open  ]],

Cell["\<\
We replace the \"temporary delta\" by the normal Kronecker delta\
\>", "Text",
 CellChangeTimes->{{3.511373780989873*^9, 3.511373786830516*^9}, {
  3.511721311919565*^9, 3.5117213215124826`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"deltaM", "\[Rule]", "delta"}]}]], "Input",
 CellChangeTimes->{{3.511373771255979*^9, 3.511373777337138*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"e4117457-d8e7-4a71-9873-13e1dc12204b"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "~"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[CurlyEpsilon]", " ", " "},
          {" ", "\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Rho]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Rho]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Rho]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Rho]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Rho]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Rho]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.5113737779903393`*^9, 3.5113740191843967`*^9, 3.511458482134141*^9, 
   3.51150313216014*^9, 3.511503686133572*^9, 3.511503775181391*^9, 
   3.511504753687949*^9, 3.511507598016643*^9, 3.511591717788767*^9, 
   3.51159524000663*^9, 3.511630874105942*^9, {3.511631560172288*^9, 
   3.511631588430757*^9}, 3.511721515500773*^9, 3.5212738216654377`*^9, {
   3.52127633552454*^9, 3.521276349257617*^9}, 3.521276426464958*^9, 
   3.521277303137537*^9, 3.521277489645873*^9, 3.5212789050764923`*^9, 
   3.5213644630889*^9, 3.521366293286662*^9, 3.521370350192548*^9, 
   3.521440676127837*^9, 3.521440915730249*^9, 3.521455900948608*^9, 
   3.5214582726788073`*^9, 3.521506965167802*^9, 3.521520504349481*^9, 
   3.521520598267428*^9, 3.5215230126776953`*^9, 3.521539030941527*^9, 
   3.521785479009262*^9, 3.521797355005928*^9, 3.521803975655443*^9, 
   3.521883290519022*^9, 3.521940093074053*^9, 3.521971076808168*^9, 
   3.521971414370397*^9, 3.521971474695359*^9, 3.521971564902894*^9, 
   3.521972100988824*^9, 3.521973953244629*^9, 3.522029098801238*^9, 
   3.5243939017784452`*^9, 3.524396314136566*^9, 3.524977863913343*^9, 
   3.5249972164792624`*^9, 3.5250672148136997`*^9, 3.525070794358124*^9, 
   3.525072068034659*^9, 3.5250732268352327`*^9, 3.525081020535944*^9, 
   3.525187135335401*^9, 3.525240244270722*^9, 3.525243897011599*^9, 
   3.5253975243325787`*^9, 3.525398672553637*^9, 3.525493460841608*^9, 
   3.525660864332634*^9, 3.52566190865928*^9, 3.525662977489771*^9, 
   3.5256732744333572`*^9, 3.545738865433375*^9, 3.5459911215156813`*^9, 
   3.5459914646874*^9, 3.5460001157300253`*^9, 3.546021351057654*^9, 
   3.54605761138444*^9, 3.5460645800582647`*^9, 3.546091118443644*^9, 
   3.5463255951643877`*^9, 3.548247323795718*^9, 3.548404544052668*^9, 
   3.5484812450175467`*^9, 3.548511422625907*^9, 3.5485258049963293`*^9, 
   3.548567868104638*^9, 3.548571048330761*^9, 3.548575005334847*^9, 
   3.548591582774707*^9, 3.548662089368493*^9, 3.548700113167193*^9, 
   3.548756246727006*^9, 3.5489112387597857`*^9, 3.548930604096075*^9, 
   3.548960793036738*^9, 3.549002175763167*^9, 3.5490208583936863`*^9, 
   3.54904353500385*^9, 3.549047023399177*^9, 3.5490862691013737`*^9, 
   3.549096265373741*^9, 3.5492603003267307`*^9, 3.54927291794601*^9, 
   3.549305068784287*^9, 3.549305286340711*^9, 3.549305795688198*^9, 
   3.5493588744712343`*^9, 3.549433143057055*^9, 3.54946230821959*^9, 
   3.549540241023082*^9, 3.550921576236946*^9, 3.550990708798657*^9, 
   3.55099641583743*^9, 3.550996584298069*^9, 3.5553470291562347`*^9, 
   3.557392090014099*^9, 3.557403143082864*^9, 3.557466449180818*^9, 
   3.5575793715437*^9, 3.557635724454509*^9, 3.558441130324812*^9, 
   3.558549881055972*^9, 3.560007733189938*^9, 3.560044346483861*^9, 
   3.5600444057565813`*^9, 3.5601854908208437`*^9, 3.560186277799107*^9, 
   3.560186350957274*^9, 3.5601865011658077`*^9, 3.560222870484249*^9, 
   3.56025641494389*^9, 3.560268922275242*^9, 3.560269925208853*^9, 
   3.560271410135501*^9, 3.560516245156451*^9, 3.560521593056307*^9, 
   3.560534282552623*^9, 3.560535145139452*^9, 3.560842310121832*^9, 
   3.560844429217095*^9, 3.561176800932808*^9, 3.561210839523048*^9, 
   3.561269138235799*^9, 3.561275589183112*^9, 3.5612769332937403`*^9, 
   3.5613027954919643`*^9, 3.561305358667261*^9, 3.561308528860018*^9, 
   3.561308776953703*^9, {3.5613602995271997`*^9, 3.561360058795773*^9}, 
   3.728115017221191*^9, 3.7312348710442047`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"c4900001-a406-41b1-872d-02936bef3fd3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExpandChristoffelCDgCDTildeg", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5113742123390303`*^9, 3.5113742922927313`*^9}, {
  3.5115076382546673`*^9, 3.511507644914143*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"a9605fb9-f7cd-4b51-9603-3f8ef48307a4"],

Cell["The quantity in brackets is used to define a new tensor.", "Text",
 CellChangeTimes->{{3.511721519469817*^9, 3.511721543593306*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"SUnphysical", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", "\[Gamma]", ",", "\[Delta]"}], "]"}], ",",
    "M4", ",", 
   RowBox[{"GenSet", "[", 
    RowBox[{
     RowBox[{"Cycles", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", 
        RowBox[{"-", "\[Beta]"}]}], "}"}], "]"}], ",", 
     RowBox[{"Cycles", "[", 
      RowBox[{"{", 
       RowBox[{"\[Gamma]", ",", "\[Delta]"}], "}"}], "]"}]}], "]"}], ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<S\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511374036764024*^9, 3.5113740622761993`*^9}, {
  3.5117215552620277`*^9, 3.511721587579962*^9}, {3.525067219468751*^9, 
  3.525067233428483*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"8f2db1fd-655c-4eb3-9e44-7ddfa727571c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"SUnphysical", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", "\[Gamma]", ",", "\[Delta]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
$CellContext`\[Gamma], $CellContext`\[Delta]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.521276426721212*^9, 3.521277303213122*^9, 3.5212774897125273`*^9, 
   3.521278905095278*^9, 3.521364463160557*^9, 3.52136629336157*^9, 
   3.5213703502184677`*^9, 3.52144067621141*^9, 3.5214409158898277`*^9, 
   3.5214559009844112`*^9, 3.521458272702606*^9, 3.521506965237903*^9, 
   3.521520504369038*^9, 3.521520598315308*^9, 3.521523012702312*^9, 
   3.521539030965707*^9, 3.5217854791000223`*^9, 3.5217973550419893`*^9, 
   3.521803975680539*^9, 3.521883290543537*^9, 3.521940093188624*^9, 
   3.5219710768269043`*^9, 3.52197141439713*^9, 3.521971474718184*^9, 
   3.5219715649410686`*^9, 3.5219721010723*^9, 3.521973953267709*^9, 
   3.522029098839345*^9, 3.5243939018303423`*^9, 3.52439631415455*^9, 
   3.524977863953788*^9, 3.524997216521036*^9, 3.5250672345809402`*^9, 
   3.525070794391274*^9, 3.5250720680664597`*^9, 3.525073226898693*^9, 
   3.525081020589114*^9, 3.5251871353850822`*^9, 3.525240244363608*^9, 
   3.5252438970515623`*^9, 3.525397524390357*^9, 3.525398672574655*^9, 
   3.5254934608678627`*^9, 3.525660864404337*^9, 3.52566190870401*^9, 
   3.5256629775433187`*^9, 3.5256732744503527`*^9, 3.545738865558115*^9, 
   3.545991121549752*^9, 3.545991464714787*^9, 3.546000115781115*^9, 
   3.546021351083403*^9, 3.546057611413149*^9, 3.546064580093316*^9, 
   3.546091118500721*^9, 3.5463255952713957`*^9, 3.548247323845706*^9, 
   3.548404544089978*^9, 3.548481245116212*^9, 3.548511422675946*^9, 
   3.5485258050295563`*^9, 3.54856786823405*^9, 3.54857104836372*^9, 
   3.548575005376666*^9, 3.54859158286276*^9, 3.5486620894280167`*^9, 
   3.548700113282288*^9, 3.5487562467689037`*^9, 3.5489112388833113`*^9, 
   3.548930604145122*^9, 3.548960793076684*^9, 3.5490021758030033`*^9, 
   3.5490208584380417`*^9, 3.5490435350496607`*^9, 3.549047023497919*^9, 
   3.549086269157333*^9, 3.549096265453946*^9, 3.5492603003634653`*^9, 
   3.5492729179898863`*^9, 3.549305068817762*^9, 3.5493052864040003`*^9, 
   3.549305795714324*^9, 3.549358874528412*^9, 3.549433143091489*^9, 
   3.54946230824643*^9, 3.549540241052156*^9, 3.550921576282461*^9, 
   3.5509907088416758`*^9, 3.55099641589132*^9, 3.5509965843231573`*^9, 
   3.555347029218849*^9, 3.557392090051319*^9, 3.5574031431209087`*^9, 
   3.557466449292102*^9, 3.557579371571905*^9, 3.5576357245263453`*^9, 
   3.558441130501535*^9, 3.5585498810856867`*^9, 3.560007733224366*^9, 
   3.560044346529812*^9, 3.56004440579392*^9, 3.560185490882413*^9, 
   3.5601862778349752`*^9, 3.5601863512794027`*^9, 3.56018650120208*^9, 
   3.560222870531487*^9, 3.560256414980763*^9, 3.560268922314158*^9, 
   3.560269925384639*^9, 3.560271410171604*^9, 3.5605162452172813`*^9, 
   3.56052159309478*^9, 3.56053428260317*^9, 3.5605351451788177`*^9, 
   3.560842310166576*^9, 3.560844429275964*^9, 3.561176800965321*^9, 
   3.561210839564971*^9, 3.5612691384298553`*^9, 3.5612755892250147`*^9, 
   3.561276933340893*^9, 3.5613027955491867`*^9, 3.5613053587068577`*^9, 
   3.5613085288925962`*^9, 3.561308777019953*^9, {3.561360299569707*^9, 
   3.561360058900745*^9}, 3.728115017240309*^9, 3.731234871070395*^9},
 CellLabel->
  "During evaluation of \
In[41]:=",ExpressionUUID->"7c80ed61-9837-4d34-a7af-3483af04a52c"]
}, Open  ]],

Cell["By definition", "Text",
 CellChangeTimes->{{3.511721592576634*^9, 3.5117215951205273`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SUnphysical", "[", 
   RowBox[{
    RowBox[{"-", "\[Gamma]"}], ",", 
    RowBox[{"-", "\[Alpha]"}], ",", "\[CurlyEpsilon]", ",", "\[Rho]"}], "]"}],
   "\[Equal]", 
  RowBox[{"ExpandChristoffelCDgCDTildeg", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.511374089253232*^9, 3.511374106883998*^9}, {
  3.5113743039820423`*^9, 3.511374304664865*^9}, {3.511374379881068*^9, 
  3.511374380221108*^9}, {3.511507654150056*^9, 3.511507679276889*^9}, {
  3.525067237159614*^9, 3.5250672510810223`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"fadb2852-69a0-4cb5-b440-d5a91eb616b9"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"S", 
       StyleBox[GridBox[{
          {" ", " ", "\[CurlyEpsilon]", "\[Rho]"},
          {"\[Gamma]", "\[Alpha]", " ", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Rho]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Rho]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Rho]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Rho]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511374107677204*^9, 3.5113743052986*^9, 3.511374380696021*^9, 
   3.5114584859582157`*^9, 3.511503132184373*^9, 3.5115036861891212`*^9, 
   3.511503775200992*^9, 3.511504753709064*^9, 3.511507714631729*^9, 
   3.51159171781559*^9, 3.511595240201119*^9, 3.511630874318574*^9, {
   3.5116315602094727`*^9, 3.5116315884789963`*^9}, 3.511721596231868*^9, 
   3.521273825725507*^9, {3.5212763356062613`*^9, 3.5212763496950493`*^9}, 
   3.5212764268199587`*^9, 3.521277303265428*^9, 3.5212774897809362`*^9, 
   3.521278905110518*^9, 3.5213644632233353`*^9, 3.521366293428383*^9, 
   3.521370350241826*^9, 3.521440676273325*^9, 3.521440916048246*^9, 
   3.521455901005444*^9, 3.5214582727235737`*^9, 3.521506965314486*^9, 
   3.5215205044350977`*^9, 3.5215205983258038`*^9, 3.521523012724402*^9, 
   3.521539030986979*^9, 3.5217854791815367`*^9, 3.5217973550638227`*^9, 
   3.521803975701066*^9, 3.521883290563839*^9, 3.5219400932602673`*^9, 
   3.521971076843936*^9, 3.5219714144204283`*^9, 3.521971474738113*^9, 
   3.521971564962089*^9, 3.521972101098274*^9, 3.521973953287475*^9, 
   3.522029098920257*^9, 3.524393901889865*^9, 3.5243963141674767`*^9, 
   3.524977863990672*^9, 3.524997216530242*^9, 3.525067252963447*^9, 
   3.525070794426673*^9, 3.525072068092484*^9, 3.525073226927899*^9, 
   3.5250810206023417`*^9, 3.5251871354318457`*^9, 3.525240244384169*^9, 
   3.5252438970791063`*^9, 3.52539752451515*^9, 3.525398672588518*^9, 
   3.5254934608993063`*^9, 3.5256608644563913`*^9, 3.525661908734714*^9, 
   3.525662977635635*^9, 3.525673274465218*^9, 3.5457388655937567`*^9, 
   3.545991121563799*^9, 3.545991464761689*^9, 3.546000115804949*^9, 
   3.546021351099416*^9, 3.546057611458351*^9, 3.546064580118545*^9, 
   3.546091118523378*^9, 3.5463255952939177`*^9, 3.54824732390519*^9, 
   3.548404544107725*^9, 3.548481245144968*^9, 3.548511422755414*^9, 
   3.5485258050570908`*^9, 3.54856786826974*^9, 3.548571048399494*^9, 
   3.5485750054213037`*^9, 3.548591582880556*^9, 3.548662089447695*^9, 
   3.54870011329802*^9, 3.548756246786542*^9, 3.5489112389318123`*^9, 
   3.548930604175329*^9, 3.5489607931015368`*^9, 3.5490021758257437`*^9, 
   3.549020858460052*^9, 3.549043535086128*^9, 3.549047023521332*^9, 
   3.549086269190063*^9, 3.549096265487916*^9, 3.549260300400034*^9, 
   3.549272918033779*^9, 3.549305068833843*^9, 3.549305286434745*^9, 
   3.549305795740383*^9, 3.54935887460036*^9, 3.549433143116394*^9, 
   3.54946230826959*^9, 3.549540241093542*^9, 3.550921576314929*^9, 
   3.55099070887204*^9, 3.550996415916954*^9, 3.55099658436127*^9, 
   3.5553470292563343`*^9, 3.557392090089957*^9, 3.557403143155126*^9, 
   3.557466449320269*^9, 3.5575793715979548`*^9, 3.557635724561863*^9, 
   3.558441130653595*^9, 3.5585498811103477`*^9, 3.5600077332615557`*^9, 
   3.560044346566297*^9, 3.560044405829916*^9, 3.560185490909667*^9, 
   3.560186277863406*^9, 3.5601863513125143`*^9, 3.560186501231028*^9, 
   3.56022287058403*^9, 3.560256415013865*^9, 3.560268922347529*^9, 
   3.560269925398403*^9, 3.560271410200253*^9, 3.560516245257172*^9, 
   3.5605215931099663`*^9, 3.560534282634357*^9, 3.5605351451895113`*^9, 
   3.560842310202201*^9, 3.5608444293078537`*^9, 3.561176801004745*^9, 
   3.561210839596284*^9, 3.561269138506184*^9, 3.561275589244492*^9, 
   3.561276933395512*^9, 3.561302795603033*^9, 3.56130535875626*^9, 
   3.561308528933159*^9, 3.561308777063778*^9, {3.561360299608304*^9, 
   3.561360058935918*^9}, 3.728115017257394*^9, 3.7312348710957823`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"629eba13-7853-4618-a458-f74e8f758b7d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExpandSUnphysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{
  3.5113741236979094`*^9, {3.511374309502295*^9, 3.511374316710886*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"57d07c9c-75ed-4145-be2a-5dc90d7c154b"],

Cell[TextData[{
 "For later use we derive an expression for the product ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Gamma]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->9]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[CurlyEpsilon]", "\[Rho]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->9]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]],
    Editable->False]}]], "Output",
  CellChangeTimes->{
   3.511374107677204*^9, 3.5113743052986*^9, 3.511374380696021*^9, 
    3.5114584859582157`*^9, 3.511503132184373*^9, 3.5115036861891212`*^9, 
    3.511503775200992*^9, 3.511504753709064*^9, 3.511507714631729*^9, 
    3.51159171781559*^9, 3.511595240201119*^9, 3.511630874318574*^9, {
    3.5116315602094727`*^9, 3.5116315884789963`*^9}, 3.511721596231868*^9, 
    3.521273825725507*^9, {3.5212763356062613`*^9, 3.5212763496950493`*^9}, 
    3.5212764268199587`*^9, 3.521277303265428*^9, 3.5212774897809362`*^9, 
    3.521278905110518*^9, 3.5213644632233353`*^9, 3.521366293428383*^9, 
    3.521370350241826*^9, 3.521440676273325*^9, 3.521440916048246*^9, 
    3.521455901005444*^9, 3.5214582727235737`*^9, 3.521506965314486*^9, 
    3.5215205044350977`*^9, 3.5215205983258038`*^9, 3.521523012724402*^9, 
    3.521539030986979*^9, 3.5217854791815367`*^9, 3.5217973550638227`*^9, 
    3.521803975701066*^9, 3.521883290563839*^9, 3.5219400932602673`*^9, 
    3.521971076843936*^9, 3.5219714144204283`*^9, 3.521971474738113*^9, 
    3.521971564962089*^9, 3.521972101098274*^9, 3.521973953287475*^9, 
    3.522029098920257*^9, 3.524393901889865*^9, 3.5243963141674767`*^9, 
    3.524977863990672*^9, 3.524997216530242*^9, 3.525067252963447*^9}]
}], "Text",
 CellChangeTimes->{{3.511721606242766*^9, 3.511721624954125*^9}, {
  3.525067267474774*^9, 3.525067277828388*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MapAt", "[", 
  RowBox[{"Hold", ",", "ExpandSUnphysical", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511374651372953*^9, 3.511374659266165*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"704b4a2f-e9c0-40af-a71e-ca714f6e150c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"S", 
       StyleBox[GridBox[{
          {" ", " ", "\[CurlyEpsilon]", "\[Rho]"},
          {"\[Gamma]", "\[Alpha]", " ", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Rho]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Rho]],
     Editable->False]}], "+", 
   RowBox[{"Hold", "[", 
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Alpha]],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {"\[CurlyEpsilon]", "\[Rho]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Rho]],
      Editable->False]}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.51137464315027*^9, 3.511374659812481*^9}, 
   3.511458488676746*^9, 3.5115031322382193`*^9, 3.511503686250176*^9, 
   3.5115037752592154`*^9, 3.511504753760295*^9, 3.511507772183282*^9, 
   3.511591717866705*^9, 3.511595240214116*^9, 3.511630874342767*^9, {
   3.511631560237088*^9, 3.511631588549452*^9}, 3.511721598761039*^9, 
   3.521273827669093*^9, {3.521276335672933*^9, 3.5212763503709993`*^9}, 
   3.521276426995242*^9, 3.521277303292057*^9, 3.5212774898420897`*^9, 
   3.521278905249558*^9, 3.521364463373057*^9, 3.521366293594387*^9, 
   3.521370350268483*^9, 3.521440676296328*^9, 3.5214409161138268`*^9, 
   3.521455901029079*^9, 3.5214582727469053`*^9, 3.521506965408874*^9, 
   3.521520504509501*^9, 3.521520598382978*^9, 3.521523012735742*^9, 
   3.5215390310122967`*^9, 3.521785479262411*^9, 3.52179735511539*^9, 
   3.521803975710093*^9, 3.521883290589718*^9, 3.521940093359495*^9, 
   3.521971076862932*^9, 3.521971414446146*^9, 3.521971474762291*^9, 
   3.5219715649851103`*^9, 3.5219721011218987`*^9, 3.521973953310224*^9, 
   3.5220290989419823`*^9, 3.5243939019051943`*^9, 3.5243963142024927`*^9, 
   3.5249778640331097`*^9, 3.524997216543185*^9, {3.5250672623317842`*^9, 
   3.5250672823700867`*^9}, 3.525070794462122*^9, 3.525072068137067*^9, 
   3.5250732270013533`*^9, 3.525081020619581*^9, 3.5251871354585648`*^9, 
   3.525240244506809*^9, 3.5252438970899477`*^9, 3.525397524547153*^9, 
   3.525398672696618*^9, 3.525493460942313*^9, 3.525660864471058*^9, 
   3.5256619087663727`*^9, 3.525662977734123*^9, 3.525673274512999*^9, 
   3.545738865635502*^9, 3.54599112161705*^9, 3.54599146488265*^9, 
   3.5460001158330917`*^9, 3.546021351150674*^9, 3.546057611486709*^9, 
   3.546064580195158*^9, 3.546091118580105*^9, 3.5463255953512774`*^9, 
   3.548247324008169*^9, 3.548404544130702*^9, 3.548481245181038*^9, 
   3.5485114227941217`*^9, 3.5485258051273317`*^9, 3.548567868292145*^9, 
   3.548571048411195*^9, 3.5485750054902353`*^9, 3.5485915829223022`*^9, 
   3.548662089478265*^9, 3.548700113308917*^9, 3.548756246832716*^9, 
   3.5489112389790173`*^9, 3.548930604233225*^9, 3.548960793115342*^9, 
   3.549002175883184*^9, 3.549020858518203*^9, 3.5490435351264763`*^9, 
   3.549047023558341*^9, 3.5490862692911243`*^9, 3.549096265511455*^9, 
   3.549260300494671*^9, 3.549272918078451*^9, 3.549305068866047*^9, 
   3.549305286465394*^9, 3.549305795783533*^9, 3.549358874737471*^9, 
   3.549433143164*^9, 3.549462308301889*^9, 3.549540241109765*^9, 
   3.550921576342156*^9, 3.550990708938716*^9, 3.550996415953578*^9, 
   3.5509965843938103`*^9, 3.555347029301733*^9, 3.557392090155993*^9, 
   3.557403143170253*^9, 3.557466449349661*^9, 3.557579371613337*^9, 
   3.557635724676238*^9, 3.558441130805725*^9, 3.558549881190295*^9, 
   3.560007733342554*^9, 3.5600443465872517`*^9, 3.560044405865097*^9, 
   3.560185490929847*^9, 3.5601862780166073`*^9, 3.560186351332733*^9, 
   3.560186501251733*^9, 3.560222870681163*^9, 3.56025641512084*^9, 
   3.5602689223681383`*^9, 3.5602699254191313`*^9, 3.5602714102211313`*^9, 
   3.560516245363184*^9, 3.5605215932175827`*^9, 3.560534282674036*^9, 
   3.560535145206334*^9, 3.5608423102320004`*^9, 3.560844429331305*^9, 
   3.561176801042904*^9, 3.561210839618458*^9, 3.561269138580328*^9, 
   3.561275589309411*^9, 3.561276933418271*^9, 3.561302795687269*^9, 
   3.561305358854291*^9, 3.561308528967704*^9, 3.561308777111662*^9, {
   3.561360299637801*^9, 3.561360058962657*^9}, 3.7281150172785263`*^9, 
   3.7312348711314707`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"f926a498-7000-444a-9777-81ad1674c963"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{"Union", "@", 
      RowBox[{"Cases", "[", 
       RowBox[{"%", ",", "_Hold", ",", "Infinity"}], "]"}]}]}], "]"}], "//", 
   "Flatten"}], "//", "ReleaseHold"}]], "Input",
 CellChangeTimes->{{3.511374661473543*^9, 3.51137468065554*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"ec387a45-ee27-4e50-af15-4e8c4b96d44a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Rho]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Rho]],
     Editable->False]}], "\[Rule]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Rho]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[CurlyEpsilon]"},
             {"\[Gamma]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[CurlyEpsilon]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Rho]"},
             {"\[Gamma]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Rho]],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Rho]"},
            {"\[Gamma]", "\[Alpha]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Rho]],
     Editable->False]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.51137468128167*^9, 3.5114584893421183`*^9, 3.51150313228666*^9, 
   3.5115036862609367`*^9, 3.511503775269746*^9, 3.511504753774424*^9, 
   3.511507781111341*^9, 3.511591717917733*^9, 3.511595240271029*^9, 
   3.511630874365572*^9, {3.51163156025891*^9, 3.511631588570993*^9}, 
   3.511721599402185*^9, 3.521273828401844*^9, {3.521276335809987*^9, 
   3.52127635071255*^9}, 3.521276427187064*^9, 3.521277303368342*^9, 
   3.521277489911242*^9, 3.521278905314179*^9, 3.521364463438717*^9, 
   3.521366293663907*^9, 3.521370350306644*^9, 3.5214406763128433`*^9, 
   3.521440916181478*^9, 3.521455901050557*^9, 3.5214582727688227`*^9, 
   3.5215069654273367`*^9, 3.521520504576297*^9, 3.521520598501873*^9, 
   3.52152301275729*^9, 3.52153903103584*^9, 3.521785479387512*^9, 
   3.521797355138894*^9, 3.521803975730503*^9, 3.521883290630028*^9, 
   3.521940093427446*^9, 3.521971076884385*^9, 3.521971414471293*^9, 
   3.521971474784363*^9, 3.521971565005905*^9, 3.521972101148148*^9, 
   3.5219739533277817`*^9, 3.522029098961226*^9, 3.5243939019628687`*^9, 
   3.524396314223145*^9, 3.524977864067861*^9, 3.524997216584393*^9, 
   3.525067283521864*^9, 3.525070794494732*^9, 3.5250720681647043`*^9, 
   3.525073227037714*^9, 3.525081020635064*^9, 3.525187135490679*^9, 
   3.525240244527506*^9, 3.5252438971149054`*^9, 3.525397524584272*^9, 
   3.525398672716878*^9, 3.525493460965858*^9, 3.525660864491865*^9, 
   3.525661908795827*^9, 3.52566297775473*^9, 3.525673274531395*^9, 
   3.545738865733378*^9, 3.545991121637967*^9, 3.5459914649301233`*^9, 
   3.546000115874922*^9, 3.546021351203948*^9, 3.546057611542205*^9, 
   3.546064580252791*^9, 3.546091118606368*^9, 3.5463255954825773`*^9, 
   3.548247324059411*^9, 3.5484045441672487`*^9, 3.548481245238854*^9, 
   3.548511422814883*^9, 3.548525805155225*^9, 3.548567868322912*^9, 
   3.548571048437695*^9, 3.548575005519966*^9, 3.5485915829992847`*^9, 
   3.548662089515254*^9, 3.548700113339055*^9, 3.548756246868778*^9, 
   3.548911239012966*^9, 3.548930604266971*^9, 3.548960793140894*^9, 
   3.5490021759122143`*^9, 3.549020858557197*^9, 3.549043535164608*^9, 
   3.549047023592908*^9, 3.549086269334053*^9, 3.549096265549996*^9, 
   3.549260300529922*^9, 3.5492729182095633`*^9, 3.5493050689031363`*^9, 
   3.549305286499263*^9, 3.5493057958092318`*^9, 3.549358874758473*^9, 
   3.5494331431922693`*^9, 3.5494623083342953`*^9, 3.5495402411459208`*^9, 
   3.550921576382535*^9, 3.550990708959729*^9, 3.550996415990183*^9, 
   3.550996584433598*^9, 3.5553470293404617`*^9, 3.5573920901937733`*^9, 
   3.557403143201268*^9, 3.5574664493769083`*^9, 3.557579371639813*^9, 
   3.557635724708414*^9, 3.558441130954524*^9, 3.5585498812696667`*^9, 
   3.560007733382524*^9, 3.560044346629118*^9, 3.560044405895488*^9, 
   3.56018549095737*^9, 3.560186278049602*^9, 3.560186351367096*^9, 
   3.560186501284388*^9, 3.560222870715467*^9, 3.560256415152617*^9, 
   3.5602689224017153`*^9, 3.560269925451736*^9, 3.560271410251196*^9, 
   3.5605162453857327`*^9, 3.560521593357407*^9, 3.560534282709544*^9, 
   3.560535145235921*^9, 3.560842310266368*^9, 3.5608444293603687`*^9, 
   3.5611768010819397`*^9, 3.561210839652051*^9, 3.561269138618043*^9, 
   3.561275589373847*^9, 3.561276933452238*^9, 3.561302795806617*^9, 
   3.561305358929364*^9, 3.561308529009143*^9, 3.561308777168335*^9, {
   3.561360299721177*^9, 3.561360058996677*^9}, 3.728115017295219*^9, 
   3.731234871154497*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"55818a17-a0eb-41b7-83c7-33e7bfb2d849"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.5113746853154793`*^9, 3.511374689894554*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"1c30366b-34e1-46fe-8da2-1c675e3c78ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[CurlyEpsilon]", "\[Rho]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Rho]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Rho]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"S", 
        StyleBox[GridBox[{
           {" ", " ", "\[CurlyEpsilon]", "\[Rho]"},
           {"\[Gamma]", "\[Alpha]", " ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Rho]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5113746904184723`*^9, 3.511458489852394*^9, 3.511503132327817*^9, 
   3.511503686268865*^9, 3.511503775315349*^9, 3.511504753785265*^9, 
   3.5115077847669353`*^9, 3.511591717957508*^9, 3.51159524031818*^9, 
   3.511630874476042*^9, {3.5116315602754393`*^9, 3.511631588596381*^9}, 
   3.5117216000026627`*^9, 3.521273829045526*^9, {3.5212763358712597`*^9, 
   3.521276351012714*^9}, 3.521276427309972*^9, 3.5212773035242167`*^9, 
   3.521277489976263*^9, 3.5212789053759336`*^9, 3.521364463500966*^9, 
   3.52136629371492*^9, 3.521370350328885*^9, 3.521440676323895*^9, 
   3.521440916239909*^9, 3.5214559010702877`*^9, 3.521458272788783*^9, 
   3.521506965441599*^9, 3.5215205046418343`*^9, 3.5215205985121937`*^9, 
   3.521523012778759*^9, 3.521539031074913*^9, 3.521785479481758*^9, 
   3.521797355163763*^9, 3.5218039757360697`*^9, 3.521883290653998*^9, 
   3.5219400935109987`*^9, 3.521971076902607*^9, 3.521971414494183*^9, 
   3.521971474804675*^9, 3.5219715650251083`*^9, 3.521972101157298*^9, 
   3.521973953346272*^9, 3.522029098976139*^9, 3.52439390200896*^9, 
   3.524396314236082*^9, 3.524977864100341*^9, 3.524997216593319*^9, 
   3.525067285502142*^9, 3.525070794530725*^9, 3.525072068186676*^9, 
   3.525073227070258*^9, 3.525081020682721*^9, 3.52518713551441*^9, 
   3.5252402445540457`*^9, 3.52524389712226*^9, 3.5253975246154613`*^9, 
   3.525398672734201*^9, 3.525493460990919*^9, 3.5256608645030947`*^9, 
   3.5256619088231783`*^9, 3.525662977771678*^9, 3.525673274545602*^9, 
   3.545738865773428*^9, 3.545991121719844*^9, 3.5459914649495583`*^9, 
   3.546000115896413*^9, 3.5460213513556423`*^9, 3.5460576115646152`*^9, 
   3.546064580286688*^9, 3.546091118627294*^9, 3.54632559550098*^9, 
   3.5482473240761213`*^9, 3.548404544185182*^9, 3.548481245295925*^9, 
   3.548511422872333*^9, 3.548525805278253*^9, 3.548567868336638*^9, 
   3.548571048445043*^9, 3.5485750055500937`*^9, 3.5485915830466137`*^9, 
   3.5486620895558968`*^9, 3.548700113347678*^9, 3.5487562469089518`*^9, 
   3.548911239048328*^9, 3.5489306043096113`*^9, 3.548960793164014*^9, 
   3.5490021759357023`*^9, 3.5490208586029873`*^9, 3.5490435352496643`*^9, 
   3.5490470236138678`*^9, 3.549086269364874*^9, 3.549096265582924*^9, 
   3.5492603005682364`*^9, 3.549272918230756*^9, 3.549305068937866*^9, 
   3.5493052865217648`*^9, 3.549305795835641*^9, 3.549358874775694*^9, 
   3.549433143223998*^9, 3.549462308384212*^9, 3.549540241216382*^9, 
   3.550921576406971*^9, 3.550990708992173*^9, 3.5509964160551453`*^9, 
   3.550996584450077*^9, 3.5553470293826027`*^9, 3.557392090227201*^9, 
   3.557403143214245*^9, 3.557466449403343*^9, 3.557579371649699*^9, 
   3.557635724743166*^9, 3.55844113104655*^9, 3.558549881293147*^9, 
   3.560007733420413*^9, 3.560044346665543*^9, 3.5600444059232616`*^9, 
   3.560185490991942*^9, 3.560186278076487*^9, 3.560186351380498*^9, 
   3.560186501312759*^9, 3.560222870744576*^9, 3.560256415184738*^9, 
   3.560268922414916*^9, 3.560269925479278*^9, 3.560271410264656*^9, 
   3.560516245402624*^9, 3.560521593442021*^9, 3.560534282740518*^9, 
   3.560535145260141*^9, 3.56084231028996*^9, 3.560844429402012*^9, 
   3.561176801106186*^9, 3.561210839724073*^9, 3.561269138667275*^9, 
   3.5612755894170237`*^9, 3.561276933467223*^9, 3.5613027958793507`*^9, 
   3.561305358964422*^9, 3.5613085290516453`*^9, 3.561308777222019*^9, {
   3.561360299773353*^9, 3.561360059018386*^9}, 3.728115017312022*^9, 
   3.731234871179789*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"a3b90548-1ef3-4ab4-8297-df0cd806b107"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", 
     RowBox[{"-", "1"}]}], "]"}], "&"}], "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511507785602929*^9, 3.511507791041548*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"24082216-49b9-47e4-834a-9c7d6dcfa8e2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Gamma]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[CurlyEpsilon]", "\[Rho]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[CurlyEpsilon]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Rho]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"S", 
        StyleBox[GridBox[{
           {" ", " ", "\[CurlyEpsilon]", "\[Rho]"},
           {"\[Gamma]", "\[Alpha]", " ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Rho]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511507791759357*^9, 3.511591717998209*^9, 3.511595240383871*^9, 
   3.511630874499303*^9, {3.511631560292796*^9, 3.511631588613552*^9}, 
   3.511721600778339*^9, 3.5212738296632633`*^9, {3.521276335939712*^9, 
   3.521276351489818*^9}, 3.521276427490807*^9, 3.521277303540236*^9, 
   3.5212774900475473`*^9, 3.521278905436803*^9, 3.5213644635687943`*^9, 
   3.5213662937666473`*^9, 3.521370350351672*^9, 3.521440676383255*^9, 
   3.5214409163042173`*^9, 3.521455901092002*^9, 3.521458272809813*^9, 
   3.521506965499399*^9, 3.521520504708563*^9, 3.521520598522819*^9, 
   3.521523012799643*^9, 3.521539031095127*^9, 3.521785479495418*^9, 
   3.5217973551875467`*^9, 3.521803975755623*^9, 3.521883290676238*^9, 
   3.521940093592806*^9, 3.521971076929164*^9, 3.52197141451633*^9, 
   3.521971474860651*^9, 3.521971565043298*^9, 3.521972101177383*^9, 
   3.521973953363627*^9, 3.522029099054019*^9, 3.52439390205765*^9, 
   3.524396314248642*^9, 3.524977864135034*^9, 3.5249972166026382`*^9, 
   3.525067310073124*^9, 3.52507079456462*^9, 3.5250720682112703`*^9, 
   3.5250732270968933`*^9, 3.525081020695153*^9, 3.5251871355428133`*^9, 
   3.525240244577601*^9, 3.5252438971289883`*^9, 3.525397524647058*^9, 
   3.5253986727482843`*^9, 3.525493461010207*^9, 3.525660864523262*^9, 
   3.525661908851081*^9, 3.525662977786194*^9, 3.525673274560357*^9, 
   3.545738865789529*^9, 3.5459911218616133`*^9, 3.545991464994124*^9, 
   3.5460001159155397`*^9, 3.546021351411922*^9, 3.546057611585905*^9, 
   3.5460645803121243`*^9, 3.546091118649043*^9, 3.5463255955191507`*^9, 
   3.5482473240927763`*^9, 3.5484045442004232`*^9, 3.548481245322219*^9, 
   3.5485114229037857`*^9, 3.548525805334426*^9, 3.548567868378706*^9, 
   3.548571048472652*^9, 3.548575005576885*^9, 3.548591583097521*^9, 
   3.548662089610141*^9, 3.548700113373995*^9, 3.5487562469491568`*^9, 
   3.54891123905812*^9, 3.548930604345158*^9, 3.548960793186858*^9, 
   3.549002175959689*^9, 3.549020858654585*^9, 3.549043535261815*^9, 
   3.549047023645756*^9, 3.549086269404875*^9, 3.5490962656327343`*^9, 
   3.549260300604055*^9, 3.549272918253426*^9, 3.549305069031086*^9, 
   3.549305286555477*^9, 3.549305795846136*^9, 3.5493588747972603`*^9, 
   3.549433143244479*^9, 3.549462308407082*^9, 3.54954024124907*^9, 
   3.550921576425132*^9, 3.550990709009438*^9, 3.550996416101925*^9, 
   3.550996584465556*^9, 3.555347029420347*^9, 3.557392090262834*^9, 
   3.557403143243636*^9, 3.557466449431344*^9, 3.557579371673417*^9, 
   3.5576357247832193`*^9, 3.558441131297011*^9, 3.55854988132231*^9, 
   3.5600077334439297`*^9, 3.560044346702236*^9, 3.56004440595051*^9, 
   3.560185491021117*^9, 3.56018627810504*^9, 3.560186351412937*^9, 
   3.5601865013411713`*^9, 3.560222870774413*^9, 3.560256415216455*^9, 
   3.560268922447987*^9, 3.5602699255075893`*^9, 3.5602714102924213`*^9, 
   3.560516245444612*^9, 3.560521593475267*^9, 3.560534282771742*^9, 
   3.560535145284298*^9, 3.56084231032163*^9, 3.560844429469405*^9, 
   3.561176801129677*^9, 3.561210839755925*^9, 3.561269138686718*^9, 
   3.561275589435595*^9, 3.561276933509307*^9, 3.561302795909683*^9, 
   3.561305358995553*^9, 3.561308529071755*^9, 3.561308777280953*^9, {
   3.561360299800811*^9, 3.56136005903928*^9}, 3.728115017329214*^9, 
   3.7312348712019157`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"f0fc36bf-0788-437b-8fb7-71175298f460"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"UnphysicalgSquare", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511374692979589*^9, 3.511374704200626*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"d52269a0-268d-41f2-be80-ee0a04228630"],

Cell["\<\
The relation between the connections is now rendered in the form\
\>", "Text",
 CellChangeTimes->{{3.511721672804183*^9, 3.5117216866699543`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExpandChristoffelCDgCDTildeg", "/.", 
  RowBox[{"ApplyRuleN", "@", "UnphysicalgSquare"}]}]], "Input",
 CellChangeTimes->{{3.511374720155574*^9, 3.511374725741542*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"81ef2630-2d8d-49fe-8aed-abc5f14a763b"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "~"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[CurlyEpsilon]", " ", " "},
          {" ", "\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Rho]"},
            {"\[Gamma]", "\[Alpha]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Rho]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.511374726511636*^9, 3.511458523258749*^9, 3.511503132827467*^9, 
   3.511503686799506*^9, 3.5115037759213963`*^9, 3.511504754406856*^9, 
   3.5115077976434917`*^9, 3.5115917180454597`*^9, 3.5115952404489098`*^9, 
   3.511630874527178*^9, {3.511631560321186*^9, 3.5116315886571074`*^9}, 
   3.511721688030723*^9, 3.5212738313312197`*^9, {3.521276336047256*^9, 
   3.521276351642416*^9}, 3.5212764276012897`*^9, 3.521277303589842*^9, 
   3.521277490147882*^9, 3.521278905519353*^9, 3.521364463670226*^9, 
   3.521366293824304*^9, 3.521370350379895*^9, 3.521440676418848*^9, 
   3.521440916387237*^9, 3.5214559011249104`*^9, 3.521458272849875*^9, 
   3.5215069655642767`*^9, 3.52152050499669*^9, 3.521520598571786*^9, 
   3.521523012827404*^9, 3.521539031122469*^9, 3.521785479586293*^9, 
   3.521797355230748*^9, 3.521803975782896*^9, 3.521883290701915*^9, 
   3.5219400936186934`*^9, 3.521971076951717*^9, 3.5219714145586863`*^9, 
   3.521971474888591*^9, 3.521971565064067*^9, 3.521972101198831*^9, 
   3.521973953389303*^9, 3.522029099080524*^9, 3.524393902193397*^9, 
   3.5243963143379173`*^9, 3.5249778641786623`*^9, 3.524997216621357*^9, 
   3.525067315219172*^9, 3.525070794661439*^9, 3.525072068235174*^9, 
   3.5250732271439953`*^9, 3.5250810207662*^9, 3.5251871355986767`*^9, 
   3.52524024460378*^9, 3.525243897156591*^9, 3.5253975247134943`*^9, 
   3.525398672824367*^9, 3.525493461106413*^9, 3.525660864654872*^9, 
   3.525661908885872*^9, 3.525662977811185*^9, 3.525673274582892*^9, 
   3.5457388658288116`*^9, 3.545991121912081*^9, 3.5459914650493307`*^9, 
   3.546000115968886*^9, 3.5460213515075808`*^9, 3.5460576116483793`*^9, 
   3.5460645803779583`*^9, 3.546091118708194*^9, 3.546325595569746*^9, 
   3.548247324157866*^9, 3.5484045443107567`*^9, 3.5484812454042807`*^9, 
   3.5485114229615793`*^9, 3.548525805430622*^9, 3.5485678684454823`*^9, 
   3.54857104851274*^9, 3.5485750056052227`*^9, 3.548591583157176*^9, 
   3.548662089658442*^9, 3.54870011344081*^9, 3.548756246978478*^9, 
   3.548911239147768*^9, 3.548930604386291*^9, 3.548960793223116*^9, 
   3.5490021760766068`*^9, 3.54902085870807*^9, 3.5490435353167343`*^9, 
   3.5490470236938267`*^9, 3.5490862695236187`*^9, 3.549096265690856*^9, 
   3.549260300667976*^9, 3.549272918290258*^9, 3.549305069170579*^9, 
   3.5493052865954943`*^9, 3.5493057958767023`*^9, 3.549358874847621*^9, 
   3.549433143291407*^9, 3.549462308440572*^9, 3.549540241324692*^9, 
   3.5509215764681683`*^9, 3.5509907090683403`*^9, 3.5509964161669703`*^9, 
   3.550996584520282*^9, 3.555347029479721*^9, 3.557392090308826*^9, 
   3.557403143281536*^9, 3.557466449465727*^9, 3.557579371761751*^9, 
   3.557635724867435*^9, 3.5584411314235992`*^9, 3.558549881370421*^9, 
   3.560007733496846*^9, 3.560044346753738*^9, 3.5600444060894337`*^9, 
   3.560185491182292*^9, 3.560186278148975*^9, 3.5601863514598637`*^9, 
   3.5601865014867363`*^9, 3.56022287081535*^9, 3.56025641526082*^9, 
   3.560268922495851*^9, 3.560269925551573*^9, 3.560271410334826*^9, 
   3.560516245500525*^9, 3.560521593527261*^9, 3.560534282840187*^9, 
   3.560535145338303*^9, 3.560842310382098*^9, 3.5608444295281887`*^9, 
   3.561176801178034*^9, 3.5612108398274927`*^9, 3.5612691387759743`*^9, 
   3.56127558948202*^9, 3.561276933602919*^9, 3.561302795985424*^9, 
   3.561305359037539*^9, 3.5613085291258297`*^9, 3.561308777390519*^9, {
   3.5613602998497*^9, 3.5613600590824823`*^9}, 3.728115017353837*^9, 
   3.7312348712321587`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"402ad488-0246-44a3-be23-475d43e8a2ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5113747289092903`*^9, 3.511374731868331*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"dd2db046-51ee-4301-a145-2c9b77bc2b2a"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "~"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[CurlyEpsilon]", " ", " "},
          {" ", "\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", " "},
            {"\[Alpha]", "\[Gamma]", " ", "\[Rho]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
$CellContext`\[CurlyEpsilon], -$CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[$CellContext`\[Rho]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.511374732415517*^9, 3.511458523330011*^9, 3.511503132839436*^9, 
   3.511503686810175*^9, 3.5115037759775047`*^9, 3.511504754419744*^9, 
   3.5115078019739656`*^9, 3.511591718096537*^9, 3.511595240503401*^9, 
   3.511630874547472*^9, {3.5116315603479567`*^9, 3.5116315886798763`*^9}, 
   3.511721688999262*^9, 3.52127383210205*^9, {3.521276336111947*^9, 
   3.52127635174824*^9}, 3.5212764277238398`*^9, 3.521277303639806*^9, 
   3.521277490225111*^9, 3.521278905594301*^9, 3.52136446377065*^9, 
   3.521366293872725*^9, 3.521370350402999*^9, 3.521440676434505*^9, 
   3.521440916510353*^9, 3.521455901154747*^9, 3.52145827287359*^9, 
   3.521506965672317*^9, 3.5215205050921173`*^9, 3.521520598585046*^9, 
   3.521523012874267*^9, 3.521539031144175*^9, 3.5217854796012983`*^9, 
   3.5217973552941227`*^9, 3.521803975806415*^9, 3.521883290817466*^9, 
   3.521940093691986*^9, 3.521971076969619*^9, 3.5219714145872517`*^9, 
   3.521971474910798*^9, 3.521971565084453*^9, 3.521972101229608*^9, 
   3.521973953406927*^9, 3.522029099160161*^9, 3.52439390225659*^9, 
   3.524396314374687*^9, 3.5249778642125063`*^9, 3.524997216632819*^9, 
   3.525067316443307*^9, 3.525070794704494*^9, 3.525072068260494*^9, 
   3.5250732271710367`*^9, 3.5250810207787724`*^9, 3.525187135631824*^9, 
   3.525240244623629*^9, 3.525243897190064*^9, 3.525397524744261*^9, 
   3.52539867284407*^9, 3.525493461129674*^9, 3.525660864694354*^9, 
   3.525661908914168*^9, 3.525662977834948*^9, 3.525673274624214*^9, 
   3.545738865868086*^9, 3.545991121979508*^9, 3.5459914650971003`*^9, 
   3.546000116014874*^9, 3.546021351550007*^9, 3.546057611691924*^9, 
   3.5460645804051743`*^9, 3.546091118785318*^9, 3.546325595629319*^9, 
   3.548247324210868*^9, 3.548404544346993*^9, 3.548481245439043*^9, 
   3.548511422997188*^9, 3.5485258054544*^9, 3.548567868474391*^9, 
   3.548571048582759*^9, 3.548575005633271*^9, 3.548591583194149*^9, 
   3.548662089679357*^9, 3.548700113480603*^9, 3.548756246995614*^9, 
   3.548911239178638*^9, 3.548930604425459*^9, 3.5489607932482777`*^9, 
   3.549002176114778*^9, 3.549020858747048*^9, 3.549043535351028*^9, 
   3.549047023720991*^9, 3.549086269560817*^9, 3.5490962657347593`*^9, 
   3.549260300697068*^9, 3.5492729183284063`*^9, 3.549305069196867*^9, 
   3.549305286625482*^9, 3.549305795900366*^9, 3.5493588748889647`*^9, 
   3.5494331433140373`*^9, 3.549462308470788*^9, 3.549540241367436*^9, 
   3.550921576504925*^9, 3.55099070910926*^9, 3.550996416184863*^9, 
   3.550996584539988*^9, 3.555347029517041*^9, 3.557392090346265*^9, 
   3.557403143310528*^9, 3.5574664494978456`*^9, 3.557579371786603*^9, 
   3.557635724907468*^9, 3.5584411314624434`*^9, 3.558549881397352*^9, 
   3.560007733531383*^9, 3.560044346789235*^9, 3.560044406122754*^9, 
   3.560185491215332*^9, 3.560186278180265*^9, 3.560186351495174*^9, 
   3.5601865015179577`*^9, 3.560222870843894*^9, 3.560256415293171*^9, 
   3.560268922532154*^9, 3.560269925581892*^9, 3.560271410365575*^9, 
   3.560516245534799*^9, 3.560521593595937*^9, 3.56053428286753*^9, 
   3.560535145372279*^9, 3.560842310413772*^9, 3.560844429559148*^9, 
   3.561176801223507*^9, 3.5612108398661633`*^9, 3.5612691388231783`*^9, 
   3.561275589533328*^9, 3.561276933639699*^9, 3.5613027960339203`*^9, 
   3.561305359069955*^9, 3.561308529166028*^9, 3.561308777498137*^9, {
   3.5613602998829603`*^9, 3.561360059112467*^9}, 3.728115017369945*^9, 
   3.731234871258703*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"d7dd74c4-c869-46b7-8576-08be57f80efe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExpandChristoffelCDgCDTildegS", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{3.511374760937326*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"b184dcc2-96f7-4aa7-9161-c4d479345867"]
}, Closed]],

Cell[CellGroupData[{

Cell["Relation between the unphysical and the physical curvature", \
"Subsubsection",
 CellChangeTimes->{{3.511342150428656*^9, 3.5113421518845654`*^9}, {
  3.511507156345544*^9, 3.5115071695992527`*^9}}],

Cell["\<\
This is the relation between the unphysical and the physical curvature\
\>", "Text",
 CellChangeTimes->{{3.5117217162666073`*^9, 3.511721729260817*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannCDg", "[", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], ",", 
    RowBox[{"-", "\[Beta]"}], ",", 
    RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], "\[Equal]", 
  RowBox[{"ChangeCurvature", "[", 
   RowBox[{
    RowBox[{"RiemannCDg", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], ",", "CDg", ",", 
    "CDTildeg"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.511342167496276*^9, 3.5113422101251297`*^9}, {
  3.525067324447727*^9, 3.5250673389793463`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"83ebda50-9a70-44d1-80a1-414753ba30c5"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "~"], "\[Alpha]"], GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDTildeg[-$CellContext`\[Alpha]][
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "~"], "\[Beta]"], GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDTildeg[-$CellContext`\[Beta]][
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511342211264769*^9, 3.51150784856885*^9, 3.51159171815755*^9, 
   3.511595251807993*^9, 3.511630874659837*^9, {3.5116315604075737`*^9, 
   3.511631588764946*^9}, 3.511721730534445*^9, 3.521273840523192*^9, 
   3.5212763361897583`*^9, 3.5212764279974403`*^9, 3.521277303700041*^9, 
   3.521277490313314*^9, 3.521278905712268*^9, 3.521364463868455*^9, 
   3.5213662939568777`*^9, 3.521370350434141*^9, 3.521440676455185*^9, 
   3.521440916625095*^9, 3.5214559012022333`*^9, 3.5214582728983793`*^9, 
   3.521506965749318*^9, 3.521520505169714*^9, 3.521520598635564*^9, 
   3.5215230129268703`*^9, 3.521539031176054*^9, 3.521785479727727*^9, 
   3.521797355332012*^9, 3.521803975831719*^9, 3.521883290861088*^9, 
   3.5219400937229023`*^9, 3.521971076993808*^9, 3.521971414614231*^9, 
   3.521971474936792*^9, 3.521971565110257*^9, 3.5219721012567463`*^9, 
   3.5219739534310503`*^9, 3.522029099191925*^9, 3.52439390227911*^9, 
   3.524396314420143*^9, 3.5249778642518053`*^9, 3.524997216676683*^9, 
   3.5250673398454103`*^9, 3.525070794743483*^9, 3.5250720682920227`*^9, 
   3.5250732272232313`*^9, 3.525081020842709*^9, 3.525187135684828*^9, 
   3.525240244656361*^9, 3.525243897277403*^9, 3.525397524774568*^9, 
   3.525398672898162*^9, 3.525493461161869*^9, 3.525660864726131*^9, 
   3.525661908947219*^9, 3.525662977859941*^9, 3.525673274648519*^9, 
   3.545738865923493*^9, 3.5459911222400208`*^9, 3.545991465200087*^9, 
   3.546000116051743*^9, 3.546021351621269*^9, 3.5460576117799587`*^9, 
   3.546064580480734*^9, 3.546091118822966*^9, 3.546325595726025*^9, 
   3.5482473242700644`*^9, 3.548404544458385*^9, 3.5484812454866943`*^9, 
   3.548511423041932*^9, 3.548525805565484*^9, 3.5485678685277643`*^9, 
   3.548571048698134*^9, 3.5485750056747227`*^9, 3.548591583293482*^9, 
   3.548662089750249*^9, 3.5487001135583344`*^9, 3.548756247043962*^9, 
   3.5489112392148848`*^9, 3.548930604494226*^9, 3.548960793297131*^9, 
   3.549002176163871*^9, 3.5490208588244257`*^9, 3.549043535397832*^9, 
   3.549047023755692*^9, 3.54908626962374*^9, 3.549096265868656*^9, 
   3.5492603007184553`*^9, 3.54927291843189*^9, 3.5493050692311993`*^9, 
   3.549305286721095*^9, 3.549305795953186*^9, 3.549358875020892*^9, 
   3.5494331433984632`*^9, 3.5494623085270567`*^9, 3.5495402414672956`*^9, 
   3.550921576645508*^9, 3.550990709184613*^9, 3.5509964162182217`*^9, 
   3.5509965848041973`*^9, 3.5553470296291847`*^9, 3.5573920903939342`*^9, 
   3.557403143347603*^9, 3.557466449600801*^9, 3.557579371843418*^9, 
   3.5576357249740677`*^9, 3.558441131496325*^9, 3.5585498814564133`*^9, 
   3.5600077335888357`*^9, 3.560044346838303*^9, 3.560044406159193*^9, 
   3.560185491249501*^9, 3.5601862782212067`*^9, 3.5601863515366373`*^9, 
   3.5601865015573397`*^9, 3.560222870889831*^9, 3.560256415340166*^9, 
   3.560268922578814*^9, 3.560269925623136*^9, 3.5602714105047693`*^9, 
   3.5605162455901537`*^9, 3.560521593639845*^9, 3.560534282915619*^9, 
   3.560535145449142*^9, 3.560842310463647*^9, 3.560844429621956*^9, 
   3.561176801296364*^9, 3.561210839923864*^9, 3.561269138884145*^9, 
   3.56127558963281*^9, 3.5612769336930943`*^9, 3.561302796124324*^9, 
   3.5613053591127*^9, 3.5613085292038794`*^9, 3.561308777601376*^9, {
   3.561360299930828*^9, 3.5613600591630983`*^9}, 3.728115017396557*^9, 
   3.7312348712967453`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"6d2788dd-d316-4d30-ac4d-a87e5477c052"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDTildeg", ",", "CDg"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.511340909986227*^9, 3.511340926063572*^9}, {
  3.511342245340397*^9, 3.5113422495221157`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"11917740-6b6f-48a7-845d-27b0036150e2"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"\[Del]", ",", 
            OverscriptBox["\[Del]", "~"]}], "]"}], 
          StyleBox[GridBox[{
             {"\[Delta]", " ", " "},
             {" ", "\[CurlyEpsilon]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[CurlyEpsilon], -$CellContext`\[Gamma]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[CurlyEpsilon]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[CurlyEpsilon], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "~"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511342250748415*^9, 3.511507848603537*^9, 3.511591718236829*^9, 
   3.5115952519368677`*^9, 3.5116308746894703`*^9, {3.511631560431967*^9, 
   3.511631588803506*^9}, 3.511721731679153*^9, 3.5212738414413958`*^9, 
   3.521276336211356*^9, 3.521276428143305*^9, 3.521277303759925*^9, 
   3.521277490355206*^9, 3.521278905741201*^9, 3.521364463977043*^9, 
   3.5213662940141983`*^9, 3.521370350464822*^9, 3.521440676518599*^9, 
   3.521440916693619*^9, 3.5214559012320127`*^9, 3.521458272926044*^9, 
   3.521506965821416*^9, 3.521520505238405*^9, 3.521520598683724*^9, 
   3.521523012959367*^9, 3.521539031206566*^9, 3.521785479756864*^9, 
   3.5217973553621483`*^9, 3.521803975877408*^9, 3.521883290890148*^9, 
   3.521940093753645*^9, 3.521971077020768*^9, 3.5219714146415157`*^9, 
   3.5219714749641037`*^9, 3.521971565142008*^9, 3.521972101285046*^9, 
   3.521973953472625*^9, 3.5220290992213287`*^9, 3.524393902296707*^9, 
   3.524396314481164*^9, 3.524977864289538*^9, 3.524997216693767*^9, 
   3.5250673409938583`*^9, 3.525070794784259*^9, 3.525072068324085*^9, 
   3.525073227255303*^9, 3.525081020912011*^9, 3.525187135724009*^9, 
   3.525240244693652*^9, 3.5252438973115053`*^9, 3.52539752480986*^9, 
   3.5253986729323463`*^9, 3.525493461194989*^9, 3.525660864764887*^9, 
   3.525661908981694*^9, 3.52566297788181*^9, 3.525673274675921*^9, 
   3.545738865981949*^9, 3.5459911229610977`*^9, 3.545991465254991*^9, 
   3.5460001160913067`*^9, 3.546021351679655*^9, 3.546057611835868*^9, 
   3.546064580525758*^9, 3.546091118909979*^9, 3.5463255957882767`*^9, 
   3.548247324298938*^9, 3.548404544489189*^9, 3.548481245519868*^9, 
   3.548511423090143*^9, 3.5485258056042356`*^9, 3.548567868571722*^9, 
   3.5485710487852097`*^9, 3.548575005718437*^9, 3.5485915833416023`*^9, 
   3.548662089801705*^9, 3.548700113606779*^9, 3.548756247096663*^9, 
   3.548911239264201*^9, 3.548930604593402*^9, 3.548960793330761*^9, 
   3.5490021761987467`*^9, 3.549020858871319*^9, 3.549043535438465*^9, 
   3.549047023787128*^9, 3.549086269664372*^9, 3.5490962659460897`*^9, 
   3.549260300763318*^9, 3.54927291848102*^9, 3.549305069264859*^9, 
   3.5493052867555103`*^9, 3.549305796064187*^9, 3.549358875068103*^9, 
   3.549433143427557*^9, 3.5494623085587397`*^9, 3.549540241504475*^9, 
   3.550921576747126*^9, 3.550990709230625*^9, 3.550996416269486*^9, 
   3.550996584859741*^9, 3.55534702967593*^9, 3.55739209044431*^9, 
   3.557403143393591*^9, 3.557466449632596*^9, 3.557579371883806*^9, 
   3.557635725016572*^9, 3.558441131545643*^9, 3.558549881492795*^9, 
   3.560007733637968*^9, 3.560044346886632*^9, 3.5600444061993313`*^9, 
   3.560185491286037*^9, 3.560186278260285*^9, 3.560186351581245*^9, 
   3.560186501597374*^9, 3.5602228709354277`*^9, 3.560256415387735*^9, 
   3.560268922623925*^9, 3.5602699256627502`*^9, 3.560271410546383*^9, 
   3.5605162456468477`*^9, 3.560521593707735*^9, 3.560534282951975*^9, 
   3.560535145481888*^9, 3.5608423105223913`*^9, 3.560844429668462*^9, 
   3.5611768013428288`*^9, 3.561210839981244*^9, 3.561269138951332*^9, 
   3.561275589732006*^9, 3.56127693376617*^9, 3.561302796197431*^9, 
   3.561305359158928*^9, 3.5613085292487297`*^9, 3.5613087776613913`*^9, {
   3.56136029998039*^9, 3.561360059215639*^9}, 3.728115017421163*^9, 
   3.7312348713245373`*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"e40ff8d1-0222-4feb-9225-c9bba13cba32"]
}, Open  ]],

Cell["\<\
We replace the connection tensors using the result of previous subsection\
\>", "Text",
 CellChangeTimes->{{3.511721742470373*^9, 3.5117217764272337`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "ExpandChristoffelCDgCDTildeg"}]}]], "Input",
 CellChangeTimes->{{3.5113422659894047`*^9, 3.51134227841238*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"ec68e1c3-a5ed-4845-baf7-3118fc30c17a"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[CapitalTheta][]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
           $CellContext`\[CapitalTheta][]],
          Editable->False]}], 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False], "2"]]}], "+", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[CurlyEpsilon]"], 
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
         $CellContext`CDg[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
           $CellContext`\[CapitalTheta][]],
          Editable->False]}], 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False], "2"]]}], "+", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[CurlyEpsilon]"], 
          SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
         $CellContext`CDg[-$CellContext`\[Beta]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Zeta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Gamma]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[Delta]", "\[Zeta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Eta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\
\[CurlyEpsilon]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Eta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", "\[Eta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
         Editable->False]}]}], ")"}], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Zeta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Zeta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Eta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Eta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Zeta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> 
             {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Gamma]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[Delta]", "\[Zeta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Eta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\
\[CurlyEpsilon]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Eta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", "\[Eta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
         Editable->False]}]}], ")"}], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Zeta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Zeta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Eta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Eta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[Delta]", "\[Zeta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[CurlyEpsilon]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta]],
         Editable->False]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Eta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Eta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Gamma]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", "\[Eta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
         Editable->False]}]}], ")"}], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Zeta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Zeta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Eta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Eta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Delta]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Zeta]"},
                {"\[CurlyEpsilon]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[Delta]", "\[Zeta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[CurlyEpsilon]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha]],
         Editable->False]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Eta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[CurlyEpsilon]"},
                {"\[Beta]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\
\[CurlyEpsilon]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[Delta]", 
             StyleBox[GridBox[{
                {" ", "\[Eta]"},
                {"\[Gamma]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Eta]],
         Editable->False]}], "-", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Gamma]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Beta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", "\[Eta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
         Editable->False]}]}], ")"}], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Zeta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Zeta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Eta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Eta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]]}]}]], "Output",
 CellChangeTimes->{
  3.511342279290107*^9, 3.511507848748706*^9, 3.511591718435079*^9, 
   3.511595252112911*^9, 3.5116308747830677`*^9, {3.511631560503231*^9, 
   3.511631588870433*^9}, 3.511721778493082*^9, 3.5212738427727337`*^9, 
   3.5212763363439198`*^9, 3.521276428545904*^9, 3.5212773039561768`*^9, 
   3.521277490660283*^9, 3.521278905929579*^9, 3.5213644641382017`*^9, 
   3.521366294142248*^9, 3.521370350563868*^9, 3.521440676910327*^9, 
   3.521440916848199*^9, 3.521455901323615*^9, 3.5214582730030107`*^9, 
   3.5215069659782476`*^9, 3.521520505455433*^9, 3.5215205988086033`*^9, 
   3.521523013054619*^9, 3.521539031299035*^9, 3.521785479950729*^9, 
   3.521797355464801*^9, 3.521803975964772*^9, 3.521883290992332*^9, 
   3.5219400940571423`*^9, 3.5219710771123953`*^9, 3.5219714147169027`*^9, 
   3.521971475035984*^9, 3.521971565235485*^9, 3.521972101379459*^9, 
   3.5219739535459414`*^9, 3.5220290994090757`*^9, 3.524393902415347*^9, 
   3.524396314626828*^9, 3.524977864386827*^9, 3.5249972168081703`*^9, 
   3.525067342424815*^9, 3.525070794870015*^9, 3.525072068408864*^9, 
   3.525073227347805*^9, 3.525081021034871*^9, 3.525187135832896*^9, 
   3.525240244787616*^9, 3.525243897391677*^9, 3.525397524914731*^9, 
   3.5253986730177794`*^9, 3.525493461301373*^9, 3.525660864870019*^9, 
   3.525661909092877*^9, 3.525662977961154*^9, 3.525673274823391*^9, 
   3.545738866149705*^9, 3.545991123417377*^9, 3.545991465446*^9, 
   3.546000116278908*^9, 3.546021351850852*^9, 3.546057612061392*^9, 
   3.54606458069911*^9, 3.546091119134074*^9, 3.546325595969563*^9, 
   3.548247324525642*^9, 3.548404544642223*^9, 3.5484812456246557`*^9, 
   3.548511423271349*^9, 3.548525805703946*^9, 3.548567868686235*^9, 
   3.548571048940113*^9, 3.548575005814218*^9, 3.5485915835195093`*^9, 
   3.548662089983018*^9, 3.548700113703933*^9, 3.548756247262904*^9, 
   3.5489112393756104`*^9, 3.5489306046860943`*^9, 3.5489607934855967`*^9, 
   3.549002176305562*^9, 3.5490208590436163`*^9, 3.5490435355580177`*^9, 
   3.549047023881426*^9, 3.549086269783399*^9, 3.549096266096448*^9, 
   3.549260300870469*^9, 3.549272918640362*^9, 3.549305069370307*^9, 
   3.549305286844433*^9, 3.549305796147339*^9, 3.549358875234449*^9, 
   3.549433143511921*^9, 3.549462308675158*^9, 3.549540241615726*^9, 
   3.5509215769104567`*^9, 3.550990709391631*^9, 3.550996416427703*^9, 
   3.550996585019071*^9, 3.555347029814631*^9, 3.557392090632947*^9, 
   3.557403143504635*^9, 3.557466449729649*^9, 3.5575793719902*^9, 
   3.557635725126157*^9, 3.558441131725322*^9, 3.558549881603425*^9, 
   3.560007733801976*^9, 3.560044347030792*^9, 3.5600444063463*^9, 
   3.560185491419095*^9, 3.560186278452537*^9, 3.5601863517138042`*^9, 
   3.5601865017266703`*^9, 3.560222871106105*^9, 3.560256415560939*^9, 
   3.560268922761286*^9, 3.5602699257909*^9, 3.560271410678842*^9, 
   3.560516245813118*^9, 3.5605215938375607`*^9, 3.56053428306951*^9, 
   3.560535145566031*^9, 3.560842310698308*^9, 3.560844429808292*^9, 
   3.5611768015389757`*^9, 3.561210840121681*^9, 3.5612691391420603`*^9, 
   3.561275589873837*^9, 3.561276933906123*^9, 3.5613027963238277`*^9, 
   3.5613053592913723`*^9, 3.561308529483343*^9, 3.561308777843507*^9, {
   3.561360300158042*^9, 3.561360059391594*^9}, 3.728115017514571*^9, 
   3.73123487143318*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"1de99b33-a14b-4997-949b-e0482715b8e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511342290226898*^9, 3.511342298254085*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"915e0ebc-62f1-4fe3-8b85-673673a491a1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Delta]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Delta]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Delta]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Delta]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]]}]}]], "Output",
 CellChangeTimes->{
  3.511342298698504*^9, 3.511507849073329*^9, 3.5115917186621447`*^9, 
   3.511595252334127*^9, 3.511630874959343*^9, {3.511631560672379*^9, 
   3.511631589053096*^9}, 3.5117217821066313`*^9, 3.521273843899427*^9, 
   3.52127633662052*^9, 3.521276428847374*^9, 3.521277304234437*^9, 
   3.52127749100273*^9, 3.521278906200897*^9, 3.521364464391945*^9, 
   3.52136629443749*^9, 3.521370350720024*^9, 3.521440677205312*^9, 
   3.521440917065105*^9, 3.52145590157939*^9, 3.521458273156498*^9, 
   3.521506966244595*^9, 3.521520505748705*^9, 3.521520599054326*^9, 
   3.521523013207135*^9, 3.5215390314784803`*^9, 3.521785480226103*^9, 
   3.521797355622176*^9, 3.521803976132145*^9, 3.521883291181018*^9, 
   3.521940094474852*^9, 3.521971077254218*^9, 3.5219714148685837`*^9, 
   3.521971475180367*^9, 3.521971565384695*^9, 3.521972101529879*^9, 
   3.521973953698822*^9, 3.522029099641357*^9, 3.524393902726111*^9, 
   3.524396314811819*^9, 3.5249778645467863`*^9, 3.524997216988949*^9, 
   3.525067344329875*^9, 3.525070795030445*^9, 3.52507206854949*^9, 
   3.5250732275074883`*^9, 3.525081021302986*^9, 3.525187135989773*^9, 
   3.525240244941758*^9, 3.525243897541026*^9, 3.525397525085125*^9, 
   3.525398673181608*^9, 3.52549346146515*^9, 3.525660865064842*^9, 
   3.525661909262948*^9, 3.5256629781249332`*^9, 3.525673275064039*^9, 
   3.545738866399*^9, 3.545991123721426*^9, 3.545991465729648*^9, 
   3.5460001165567837`*^9, 3.5460213522085667`*^9, 3.54605761234866*^9, 
   3.546064581018045*^9, 3.5460911194660797`*^9, 3.546325596302672*^9, 
   3.548247324800856*^9, 3.5484045448722277`*^9, 3.5484812458572273`*^9, 
   3.548511423606503*^9, 3.5485258058690987`*^9, 3.548567868871255*^9, 
   3.548571049148347*^9, 3.548575005981331*^9, 3.548591583811625*^9, 
   3.548662090257633*^9, 3.548700113893841*^9, 3.548756247513006*^9, 
   3.54891123959447*^9, 3.548930604864129*^9, 3.548960793655517*^9, 
   3.549002176478833*^9, 3.549020859314877*^9, 3.549043535806645*^9, 
   3.5490470241139*^9, 3.5490862699579983`*^9, 3.5490962663720922`*^9, 
   3.549260301070133*^9, 3.5492729189470787`*^9, 3.549305069544372*^9, 
   3.549305287022091*^9, 3.5493057962994556`*^9, 3.549358875540276*^9, 
   3.549433143693467*^9, 3.549462308848077*^9, 3.549540241798271*^9, 
   3.550921577149557*^9, 3.550990709659432*^9, 3.550996416682301*^9, 
   3.550996585325304*^9, 3.5553470300825653`*^9, 3.5573920909017153`*^9, 
   3.55740314368089*^9, 3.557466449906769*^9, 3.557579372214295*^9, 
   3.557635725301724*^9, 3.558441131997685*^9, 3.5585498817566977`*^9, 
   3.560007734067762*^9, 3.56004434730145*^9, 3.560044406601015*^9, 
   3.560185491704533*^9, 3.560186278708745*^9, 3.560186351972453*^9, 
   3.5601865019810963`*^9, 3.560222871368581*^9, 3.5602564158475227`*^9, 
   3.560268923023628*^9, 3.560269926034416*^9, 3.560271410945771*^9, 
   3.560516246061583*^9, 3.560521594064898*^9, 3.560534283222241*^9, 
   3.56053514573041*^9, 3.560842310962723*^9, 3.5608444300648117`*^9, 
   3.5611768018032227`*^9, 3.56121084036868*^9, 3.5612691394241247`*^9, 
   3.561275590132257*^9, 3.561276934228692*^9, 3.56130279663274*^9, 
   3.561305359589283*^9, 3.5613085297601833`*^9, 3.561308778127142*^9, {
   3.56136030041336*^9, 3.561360059656808*^9}, 3.728115017741448*^9, 
   3.731234871617301*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"0641295b-d664-4b3e-a4cc-d1ba198b432a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContractMetric", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511342314187271*^9, 3.511342318112204*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"f97057b2-2bb5-4b3e-8c79-ae32cf9d1cad"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Delta]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Delta]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Delta]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Delta]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]]}]}]], "Output",
 CellChangeTimes->{
  3.511342318725507*^9, 3.5115078491891212`*^9, 3.511591718715909*^9, 
   3.511595252407588*^9, 3.511630874987617*^9, {3.511631560692836*^9, 
   3.511631589080983*^9}, 3.5117217845011787`*^9, 3.521273844993144*^9, 
   3.521276336752548*^9, 3.5212764289642773`*^9, 3.521277304284436*^9, 
   3.5212774910581837`*^9, 3.52127890652013*^9, 3.521364464605496*^9, 
   3.5213662944900084`*^9, 3.521370350745811*^9, 3.521440677263648*^9, 
   3.52144091716214*^9, 3.521455901608922*^9, 3.5214582732036552`*^9, 
   3.521506966305422*^9, 3.521520505945222*^9, 3.521520599094782*^9, 
   3.5215230132364073`*^9, 3.521539031518208*^9, 3.521785480301605*^9, 
   3.5217973556508904`*^9, 3.521803976158538*^9, 3.5218832912174463`*^9, 
   3.521940094545868*^9, 3.5219710772792387`*^9, 3.521971414925638*^9, 
   3.521971475200963*^9, 3.5219715654175873`*^9, 3.52197210157801*^9, 
   3.521973953726322*^9, 3.5220290997247677`*^9, 3.524393902832471*^9, 
   3.5243963148639107`*^9, 3.5249778646307983`*^9, 3.524997217046734*^9, 
   3.525067345682611*^9, 3.525070795066527*^9, 3.5250720685800657`*^9, 
   3.5250732275928698`*^9, 3.525081021365843*^9, 3.525187136023464*^9, 
   3.5252402450022697`*^9, 3.52524389756633*^9, 3.525397525114007*^9, 
   3.5253986732039747`*^9, 3.5254934616037397`*^9, 3.525660865088161*^9, 
   3.525661909289199*^9, 3.525662978143577*^9, 3.525673275124099*^9, 
   3.545738866449134*^9, 3.545991123791445*^9, 3.5459914657895803`*^9, 
   3.546000116606884*^9, 3.546021352257395*^9, 3.54605761242765*^9, 
   3.546064581083168*^9, 3.546091119526122*^9, 3.5463255963590937`*^9, 
   3.5482473248980913`*^9, 3.54840454492109*^9, 3.548481245892539*^9, 
   3.548511423650139*^9, 3.548525805898663*^9, 3.548567868912472*^9, 
   3.548571049186986*^9, 3.548575006048319*^9, 3.5485915839122334`*^9, 
   3.548662090299505*^9, 3.548700113928801*^9, 3.548756247599532*^9, 
   3.548911239630681*^9, 3.5489306049007607`*^9, 3.548960793697256*^9, 
   3.549002176517437*^9, 3.5490208593768587`*^9, 3.549043535842936*^9, 
   3.5490470241396313`*^9, 3.549086270003669*^9, 3.5490962665186987`*^9, 
   3.549260301107911*^9, 3.549272918989999*^9, 3.549305069572877*^9, 
   3.54930528706905*^9, 3.5493057963407297`*^9, 3.549358875584791*^9, 
   3.5494331437319517`*^9, 3.549462308888547*^9, 3.54954024183384*^9, 
   3.550921577197274*^9, 3.550990709708466*^9, 3.550996416727249*^9, 
   3.550996585397204*^9, 3.5553470301777287`*^9, 3.557392091027808*^9, 
   3.557403143718864*^9, 3.557466449935574*^9, 3.557579372247128*^9, 
   3.5576357253331223`*^9, 3.5584411320440598`*^9, 3.558549881790801*^9, 
   3.560007734133657*^9, 3.5600443473730173`*^9, 3.560044406632977*^9, 
   3.5601854917418137`*^9, 3.560186278751225*^9, 3.560186352009564*^9, 
   3.560186502013323*^9, 3.560222871425931*^9, 3.560256415893813*^9, 
   3.5602689231344833`*^9, 3.560269926067752*^9, 3.5602714109858217`*^9, 
   3.560516246175552*^9, 3.560521594104446*^9, 3.560534283256084*^9, 
   3.560535145763136*^9, 3.560842311017961*^9, 3.560844430135688*^9, 
   3.561176801866991*^9, 3.561210840473115*^9, 3.561269139529505*^9, 
   3.5612755902321*^9, 3.561276934267892*^9, 3.5613027966794357`*^9, 
   3.5613053596437597`*^9, 3.56130852981205*^9, 3.561308778173644*^9, {
   3.5613603004538717`*^9, 3.5613600597033567`*^9}, 3.728115017762363*^9, 
   3.731234871654285*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"b4cee62a-633d-4baa-9e49-4e83033a149d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511342327538601*^9, 3.511342329050097*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"d304c9b9-c338-48e7-bd93-9dbcf2940c97"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Delta]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Delta]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Delta]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Delta]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[CurlyEpsilon]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[CurlyEpsilon]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]]}]}]], "Output",
 CellChangeTimes->{
  3.51134232979919*^9, 3.511507849394318*^9, 3.511591718806817*^9, 
   3.511595252505414*^9, 3.511630875040049*^9, {3.511631560740653*^9, 
   3.5116315891237087`*^9}, 3.51172178585918*^9, 3.521273845843635*^9, 
   3.521276336945182*^9, 3.5212764291186123`*^9, 3.521277304377474*^9, 
   3.521277491192137*^9, 3.521278906800301*^9, 3.521364464766542*^9, 
   3.521366294622157*^9, 3.521370350813545*^9, 3.521440677371896*^9, 
   3.521440917258033*^9, 3.521455901659974*^9, 3.5214582732539787`*^9, 
   3.521506966433557*^9, 3.5215205060523157`*^9, 3.5215205991864758`*^9, 
   3.521523013288474*^9, 3.52153903156758*^9, 3.5217854804927473`*^9, 
   3.521797355699092*^9, 3.52180397620679*^9, 3.521883291269236*^9, 
   3.52194009467061*^9, 3.521971077324027*^9, 3.521971414978682*^9, 
   3.5219714752485867`*^9, 3.521971565451844*^9, 3.52197210162647*^9, 
   3.52197395377522*^9, 3.5220290998820972`*^9, 3.5243939028758574`*^9, 
   3.524396314948048*^9, 3.524977864692354*^9, 3.524997217101763*^9, 
   3.525067346640957*^9, 3.525070795130067*^9, 3.5250720686645403`*^9, 
   3.5250732277143707`*^9, 3.5250810214672956`*^9, 3.525187136078994*^9, 
   3.5252402450621767`*^9, 3.525243897620644*^9, 3.525397525176016*^9, 
   3.525398673251603*^9, 3.525493461654402*^9, 3.525660865139382*^9, 
   3.525661909379944*^9, 3.5256629781918716`*^9, 3.5256732752517776`*^9, 
   3.5457388665274687`*^9, 3.5459911239455*^9, 3.545991465885949*^9, 
   3.5460001167099237`*^9, 3.5460213523655663`*^9, 3.546057612524518*^9, 
   3.5460645811827803`*^9, 3.5460911196462107`*^9, 3.546325596484023*^9, 
   3.5482473249882317`*^9, 3.548404545007908*^9, 3.548481245947468*^9, 
   3.548511423739312*^9, 3.5485258059575863`*^9, 3.548567868989962*^9, 
   3.5485710492383633`*^9, 3.548575006104245*^9, 3.548591584008771*^9, 
   3.548662090415413*^9, 3.548700113995955*^9, 3.548756247685184*^9, 
   3.548911239694027*^9, 3.548930604958281*^9, 3.548960793757574*^9, 
   3.549002176583776*^9, 3.549020859458294*^9, 3.549043535909648*^9, 
   3.5490470241941757`*^9, 3.549086270072578*^9, 3.5490962665974073`*^9, 
   3.549260301168561*^9, 3.549272919089004*^9, 3.54930506963017*^9, 
   3.549305287194356*^9, 3.5493057964075823`*^9, 3.549358875673477*^9, 
   3.5494331437863493`*^9, 3.549462308930088*^9, 3.549540241902617*^9, 
   3.5509215772773952`*^9, 3.550990709805228*^9, 3.550996416825347*^9, 
   3.550996585508786*^9, 3.5553470302811527`*^9, 3.5573920911182137`*^9, 
   3.557403143784893*^9, 3.557466449991251*^9, 3.557579372311417*^9, 
   3.557635725396936*^9, 3.558441132147888*^9, 3.558549881846571*^9, 
   3.560007734215748*^9, 3.560044347457912*^9, 3.560044406707554*^9, 
   3.560185491815928*^9, 3.560186278825447*^9, 3.560186352098217*^9, 
   3.560186502092911*^9, 3.560222871506517*^9, 3.560256416002513*^9, 
   3.5602689232151947`*^9, 3.560269926141942*^9, 3.560271411067815*^9, 
   3.560516246262086*^9, 3.560521594185129*^9, 3.560534283317294*^9, 
   3.560535145824821*^9, 3.560842311098605*^9, 3.560844430212637*^9, 
   3.561176801950905*^9, 3.561210840561475*^9, 3.561269139626419*^9, 
   3.561275590331626*^9, 3.561276934371787*^9, 3.56130279682279*^9, 
   3.5613053597323513`*^9, 3.561308529949095*^9, 3.5613087782798347`*^9, {
   3.5613603005493317`*^9, 3.5613600597874002`*^9}, 3.72811501781319*^9, 
   3.73123487170192*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"4ae8a1be-0cf8-41b4-a66b-7cea1be2dbbb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannUnphysToRiemannPhys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511342386609405*^9, 3.511342407333634*^9}, {
  3.51134246596839*^9, 3.5113424757452097`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"e0e14963-0896-4739-a2e4-d8709dda77a9"],

Cell["\<\
We use this to compute the relation between the Ricci tensors and the scalar \
curvatures\
\>", "Text",
 CellChangeTimes->{{3.511721791117384*^9, 3.5117218099682417`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RiemannUnphysToRiemannPhys", "/.", 
  RowBox[{"\[Delta]", "\[Rule]", "\[Beta]"}]}]], "Input",
 CellChangeTimes->{{3.5113424139505796`*^9, 3.5113424177204857`*^9}, {
  3.5113424823421087`*^9, 3.51134248593017*^9}, {3.525067350970717*^9, 
  3.525067352965197*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"6a86a1bb-435a-4b00-a370-66788aac2559"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
    Editable->False], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], 
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.511342418429199*^9, 3.511342486582222*^9, 3.511507849507657*^9, 
   3.511591718867343*^9, 3.511595252529895*^9, 3.51163087506919*^9, {
   3.511631560764283*^9, 3.5116315891692123`*^9}, 3.5117218110249863`*^9, 
   3.521273847745549*^9, 3.52127633701336*^9, 3.521276429306636*^9, 
   3.5212773044344807`*^9, 3.521277491267621*^9, 3.521278906867094*^9, 
   3.521364464838624*^9, 3.521366294700727*^9, 3.5213703508414297`*^9, 
   3.5214406774855003`*^9, 3.521440917409972*^9, 3.521455901720722*^9, 
   3.5214582732832327`*^9, 3.5215069665317917`*^9, 3.521520506122966*^9, 
   3.5215205992897367`*^9, 3.5215230133226*^9, 3.5215390315936003`*^9, 
   3.5217854805703382`*^9, 3.5217973557262487`*^9, 3.521803976230954*^9, 
   3.521883291307641*^9, 3.5219400947617188`*^9, 3.521971077405099*^9, 
   3.521971415010149*^9, 3.521971475275819*^9, 3.5219715655089197`*^9, 
   3.521972101653915*^9, 3.5219739537984123`*^9, 3.5220291002022047`*^9, 
   3.5243939029837217`*^9, 3.524396315008068*^9, 3.524977864738574*^9, 
   3.5249972171943083`*^9, 3.5250673535758953`*^9, 3.5250707951801033`*^9, 
   3.52507206869543*^9, 3.525073227743024*^9, 3.525081021519293*^9, 
   3.525187136108098*^9, 3.5252402451245117`*^9, 3.5252438976562243`*^9, 
   3.525397525220622*^9, 3.525398673329865*^9, 3.5254934617110653`*^9, 
   3.5256608652141247`*^9, 3.525661909448162*^9, 3.5256629782640343`*^9, 
   3.5256732753490963`*^9, 3.5457388666181383`*^9, 3.545991124044663*^9, 
   3.5459914660511837`*^9, 3.546000116795412*^9, 3.5460213524401207`*^9, 
   3.546057612589643*^9, 3.54606458126025*^9, 3.5460911197363253`*^9, 
   3.546325596553576*^9, 3.548247325042395*^9, 3.548404545058632*^9, 
   3.548481246020112*^9, 3.548511423789094*^9, 3.548525806088009*^9, 
   3.5485678690321417`*^9, 3.548571049283061*^9, 3.548575006141088*^9, 
   3.5485915840510273`*^9, 3.548662090467132*^9, 3.548700114030253*^9, 
   3.5487562477373877`*^9, 3.5489112397508507`*^9, 3.548930604994083*^9, 
   3.548960793796957*^9, 3.5490021766193457`*^9, 3.5490208595298367`*^9, 
   3.549043535957159*^9, 3.549047024236277*^9, 3.549086270151778*^9, 
   3.549096266625267*^9, 3.549260301255772*^9, 3.549272919174234*^9, 
   3.549305069734437*^9, 3.5493052872290287`*^9, 3.549305796438306*^9, 
   3.5493588757381363`*^9, 3.549433143829282*^9, 3.549462308962759*^9, 
   3.5495402419749403`*^9, 3.550921577323284*^9, 3.5509907098487387`*^9, 
   3.5509964169098873`*^9, 3.550996585658206*^9, 3.555347030350216*^9, 
   3.557392091165687*^9, 3.557403143824177*^9, 3.557466450025104*^9, 
   3.557579372353786*^9, 3.557635725434615*^9, 3.558441132231556*^9, 
   3.558549881877994*^9, 3.56000773426018*^9, 3.560044347506206*^9, 
   3.560044406746429*^9, 3.560185491852264*^9, 3.560186278865025*^9, 
   3.560186352176982*^9, 3.5601865021465816`*^9, 3.5602228715488234`*^9, 
   3.560256416251491*^9, 3.5602689232628307`*^9, 3.560269926180389*^9, 
   3.560271411206294*^9, 3.560516246322756*^9, 3.560521594230866*^9, 
   3.560534283352947*^9, 3.5605351459548807`*^9, 3.5608423111414537`*^9, 
   3.560844430250071*^9, 3.561176802004199*^9, 3.5612108406388702`*^9, 
   3.561269139680791*^9, 3.561275590380938*^9, 3.561276934431418*^9, 
   3.561302796944515*^9, 3.5613053597898483`*^9, 3.5613085300272818`*^9, 
   3.561308778334544*^9, {3.561360300606348*^9, 3.561360059849077*^9}, 
   3.7281150178371067`*^9, 3.731234871749202*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"4cecb58f-162d-46e7-a58d-1797b38d14c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellLabel->"In[60]:=",ExpressionUUID->"e1de4939-0770-4a54-973c-d36fdc96fab7"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], 
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`CDg[$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.511342430190309*^9, 3.5113424874059143`*^9, 3.511507849711623*^9, 
   3.511591718890395*^9, 3.5115952525572233`*^9, 3.511630875098178*^9, {
   3.511631560791407*^9, 3.511631589196336*^9}, 3.511721811662869*^9, 
   3.52127384856833*^9, 3.5212763371084547`*^9, 3.5212764294099627`*^9, 
   3.5212773045345163`*^9, 3.521277491368628*^9, 3.5212789068973713`*^9, 
   3.521364464916575*^9, 3.5213662947624083`*^9, 3.521370350874607*^9, 
   3.521440677564481*^9, 3.5214409174879932`*^9, 3.521455901756551*^9, 
   3.521458273318819*^9, 3.521506966605277*^9, 3.521520506196787*^9, 
   3.521520599347875*^9, 3.521523013357504*^9, 3.521539031615045*^9, 
   3.521785480683701*^9, 3.5217973558272448`*^9, 3.521803976262445*^9, 
   3.521883291343935*^9, 3.521940094821308*^9, 3.521971077443434*^9, 
   3.521971415044847*^9, 3.5219714753098307`*^9, 3.521971565541547*^9, 
   3.5219721016855907`*^9, 3.5219739538273706`*^9, 3.522029100301927*^9, 
   3.524393903017614*^9, 3.524396315063468*^9, 3.524977864788472*^9, 
   3.5249972172584743`*^9, 3.525067354560444*^9, 3.525070795232298*^9, 
   3.5250720687362022`*^9, 3.525073227787747*^9, 3.5250810215873003`*^9, 
   3.525187136147781*^9, 3.5252402451557198`*^9, 3.5252438976931973`*^9, 
   3.525397525264759*^9, 3.525398673360306*^9, 3.525493461740389*^9, 
   3.52566086524806*^9, 3.525661909494216*^9, 3.525662978295361*^9, 
   3.525673275414792*^9, 3.5457388666915007`*^9, 3.545991124202312*^9, 
   3.545991466112393*^9, 3.546000116864895*^9, 3.5460213524994793`*^9, 
   3.546057612635391*^9, 3.5460645813141317`*^9, 3.5460911198084583`*^9, 
   3.546325596607502*^9, 3.548247325081489*^9, 3.5484045451197557`*^9, 
   3.5484812460618763`*^9, 3.548511423847286*^9, 3.548525806132031*^9, 
   3.548567869080351*^9, 3.548571049325603*^9, 3.548575006177402*^9, 
   3.548591584108419*^9, 3.5486620905325327`*^9, 3.5487001140742273`*^9, 
   3.548756247801674*^9, 3.548911239804949*^9, 3.548930605043837*^9, 
   3.5489607938391027`*^9, 3.549002176670515*^9, 3.549020859589127*^9, 
   3.549043536084337*^9, 3.5490470242752657`*^9, 3.549086270191842*^9, 
   3.549096266658691*^9, 3.549260301297583*^9, 3.549272919241088*^9, 
   3.549305069774473*^9, 3.549305287274843*^9, 3.549305796479333*^9, 
   3.549358875777931*^9, 3.549433143866323*^9, 3.5494623090020313`*^9, 
   3.549540242018717*^9, 3.550921577390223*^9, 3.550990709907201*^9, 
   3.550996416975775*^9, 3.5509965857169027`*^9, 3.555347030408407*^9, 
   3.557392091217413*^9, 3.557403143878789*^9, 3.557466450060536*^9, 
   3.557579372390532*^9, 3.557635725478571*^9, 3.558441132297007*^9, 
   3.558549881930621*^9, 3.560007734310811*^9, 3.5600443475619993`*^9, 
   3.560044406793254*^9, 3.560185491899343*^9, 3.5601862789112997`*^9, 
   3.5601863522283907`*^9, 3.560186502193035*^9, 3.560222871606934*^9, 
   3.560256416372254*^9, 3.560268923315304*^9, 3.560269926226775*^9, 
   3.56027141128874*^9, 3.56051624638778*^9, 3.560521594296955*^9, 
   3.560534283400416*^9, 3.560535146020756*^9, 3.5608423111901484`*^9, 
   3.5608444303039913`*^9, 3.561176802042556*^9, 3.561210840682616*^9, 
   3.5612691397279997`*^9, 3.561275590423893*^9, 3.561276934501169*^9, 
   3.561302797007016*^9, 3.561305359844824*^9, 3.561308530105822*^9, 
   3.561308778445953*^9, {3.561360300655044*^9, 3.561360059901071*^9}, 
   3.728115017865576*^9, 3.731234871775416*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"e8862421-593d-426b-be5e-628316026aee"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciUnphysToRicciPhys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511342446968039*^9, 3.5113424596781273`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"822f1404-7f7b-43b5-a135-5fd4eeb9ca02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", 
     RowBox[{"InvPhysicalg", "[", 
      RowBox[{"\[Alpha]", ",", "\[Gamma]"}], "]"}]}], "]"}], "&"}], "/@", " ",
   "RicciUnphysToRicciPhys"}]], "Input",
 CellChangeTimes->{{3.5115090908352137`*^9, 3.511509093716572*^9}, {
  3.511509247325796*^9, 3.511509305316454*^9}, {3.525067358053165*^9, 
  3.525067360422266*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"b57d3c30-e5cb-4f80-a9c0-2421e8e9358f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        SuperscriptBox[
         OverscriptBox["g", "~"], "#"], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Gamma]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        SuperscriptBox[
         OverscriptBox["g", "~"], "#"], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Gamma]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
    Editable->False], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"R", "[", 
           OverscriptBox["\[Del]", "~"], "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
      Editable->False], "-", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Beta]"], 
          SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Beta]][
         $CellContext`CDg[$CellContext`\[Beta]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Beta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[$CellContext`\[Beta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}], 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], 
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`CDg[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511509094209906*^9, 3.511509306386732*^9, 3.511591718935766*^9, 
   3.5115952526227083`*^9, 3.511630875126137*^9, {3.5116315608155413`*^9, 
   3.511631589233428*^9}, 3.511721813006428*^9, 3.521273850258575*^9, 
   3.521276337235955*^9, 3.521276429479599*^9, 3.521277304587614*^9, 
   3.521277491433662*^9, 3.521278906917287*^9, 3.521364464980762*^9, 
   3.5213662948185883`*^9, 3.521370350906488*^9, 3.521440677664098*^9, 
   3.521440918041361*^9, 3.521455901783167*^9, 3.521458273369833*^9, 
   3.521506966802615*^9, 3.521520506271221*^9, 3.521520599397958*^9, 
   3.521523013382916*^9, 3.521539031642103*^9, 3.521785480768607*^9, 
   3.5217973558576937`*^9, 3.521803976293441*^9, 3.521883291370596*^9, 
   3.521940094909074*^9, 3.521971077470798*^9, 3.521971415075842*^9, 
   3.521971475350861*^9, 3.521971565583143*^9, 3.5219721017114964`*^9, 
   3.521973953850965*^9, 3.522029100424492*^9, 3.52439390309514*^9, 
   3.524396315109476*^9, 3.5249778648467283`*^9, 3.524997217315866*^9, 
   3.52506736120192*^9, 3.525070795273069*^9, 3.52507206876693*^9, 
   3.525073227861116*^9, 3.525081021648931*^9, 3.52518713623527*^9, 
   3.5252402451821337`*^9, 3.525243897744825*^9, 3.525397525355034*^9, 
   3.525398673410798*^9, 3.525493461771554*^9, 3.525660865348645*^9, 
   3.5256619095269117`*^9, 3.525662978322242*^9, 3.525673275463201*^9, 
   3.545738866770932*^9, 3.545991125134617*^9, 3.545991466169426*^9, 
   3.546000116918023*^9, 3.5460213525510197`*^9, 3.546057612726996*^9, 
   3.546064581412785*^9, 3.54609111989746*^9, 3.54632559667064*^9, 
   3.548247325141882*^9, 3.54840454517068*^9, 3.54848124609616*^9, 
   3.5485114239431334`*^9, 3.548525806218687*^9, 3.548567869150919*^9, 
   3.5485710493659573`*^9, 3.548575006208927*^9, 3.548591584156281*^9, 
   3.5486620905651007`*^9, 3.5487001141136303`*^9, 3.548756247859509*^9, 
   3.548911239913336*^9, 3.548930605094335*^9, 3.548960793904334*^9, 
   3.549002176742962*^9, 3.549020859625895*^9, 3.549043536207131*^9, 
   3.549047024310457*^9, 3.549086270294755*^9, 3.549096266703244*^9, 
   3.5492603014009132`*^9, 3.549272919378461*^9, 3.54930506980653*^9, 
   3.549305287304847*^9, 3.549305796528854*^9, 3.5493588758269663`*^9, 
   3.549433143923691*^9, 3.549462309034651*^9, 3.549540242073889*^9, 
   3.550921577467354*^9, 3.550990709967908*^9, 3.550996417071597*^9, 
   3.550996585766629*^9, 3.5553470305248137`*^9, 3.557392091260585*^9, 
   3.557403143917295*^9, 3.55746645015718*^9, 3.5575793724274607`*^9, 
   3.5576357255195017`*^9, 3.5584411336634073`*^9, 3.558549881963533*^9, 
   3.560007734353513*^9, 3.560044347606943*^9, 3.560044406830083*^9, 
   3.56018549202951*^9, 3.5601862789722147`*^9, 3.560186352253936*^9, 
   3.5601865022695637`*^9, 3.5602228716570177`*^9, 3.56025641645858*^9, 
   3.560268923356421*^9, 3.560269926330143*^9, 3.5602714113716583`*^9, 
   3.5605162464490023`*^9, 3.560521594323399*^9, 3.5605342834352283`*^9, 
   3.56053514608361*^9, 3.560842311230426*^9, 3.560844430344784*^9, 
   3.5611768021102867`*^9, 3.5612108407441063`*^9, 3.561269139817822*^9, 
   3.5612755904876013`*^9, 3.5612769345638323`*^9, 3.561302797068656*^9, 
   3.5613053599143887`*^9, 3.561308530168541*^9, 3.5613087789338837`*^9, {
   3.561360300727318*^9, 3.561360059945825*^9}, 3.72811501788811*^9, 
   3.7312348718124313`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"82d1bf17-11c2-40b5-9935-cb02b0b033e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5115093796595182`*^9, 3.511509381776828*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"455d3b27-c97e-4462-bb0a-e0b58eed5499"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        SuperscriptBox[
         OverscriptBox["g", "~"], "#"], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Gamma]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          SuperscriptBox[
           OverscriptBox["g", "~"], "#"], 
          StyleBox[GridBox[{
             {"\[Alpha]", "\[Gamma]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], 
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`CDg[$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          SuperscriptBox[
           OverscriptBox["g", "~"], "#"], 
          StyleBox[GridBox[{
             {"\[Alpha]", "\[Gamma]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          SuperscriptBox[
           OverscriptBox["g", "~"], "#"], 
          StyleBox[GridBox[{
             {"\[Alpha]", "\[Gamma]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`InvPhysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], 
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.511509382560649*^9, 3.5115917189499187`*^9, 3.511595252639583*^9, 
   3.511630875149633*^9, {3.5116315608349247`*^9, 3.511631589259014*^9}, 
   3.51172181353654*^9, 3.521273851055489*^9, 3.521276337352043*^9, 
   3.521276429607284*^9, 3.521277304637824*^9, 3.521277491487576*^9, 
   3.521278906982332*^9, 3.521364465042659*^9, 3.521366294868599*^9, 
   3.5213703509299*^9, 3.521440677732379*^9, 3.5214409181238327`*^9, 
   3.52145590180573*^9, 3.521458273396586*^9, 3.521506966858344*^9, 
   3.5215205063355627`*^9, 3.521520599498294*^9, 3.521523013405511*^9, 
   3.5215390316652927`*^9, 3.521785480860758*^9, 3.521797355895618*^9, 
   3.521803976329074*^9, 3.5218832913922873`*^9, 3.521940094992011*^9, 
   3.521971077493599*^9, 3.521971415100582*^9, 3.521971475370822*^9, 
   3.521971565607007*^9, 3.521972101746348*^9, 3.521973953870273*^9, 
   3.522029100508379*^9, 3.524393903146347*^9, 3.524396315159133*^9, 
   3.52497786488618*^9, 3.524997217355817*^9, 3.525067362230809*^9, 
   3.5250707953103437`*^9, 3.525072068794806*^9, 3.525073227888728*^9, 
   3.525081021699782*^9, 3.525187136259218*^9, 3.5252402451922617`*^9, 
   3.525243897843659*^9, 3.5253975253877993`*^9, 3.525398673427965*^9, 
   3.5254934618025017`*^9, 3.525660865372552*^9, 3.525661909567006*^9, 
   3.525662978342774*^9, 3.525673275507535*^9, 3.5457388668045883`*^9, 
   3.5459911252346163`*^9, 3.54599146621492*^9, 3.546000116962873*^9, 
   3.546021352595787*^9, 3.546057612776701*^9, 3.5460645814415073`*^9, 
   3.546091119943226*^9, 3.54632559675561*^9, 3.548247325157941*^9, 
   3.5484045452084503`*^9, 3.54848124612785*^9, 3.548511423979021*^9, 
   3.5485258062419453`*^9, 3.548567869183754*^9, 3.5485710493757877`*^9, 
   3.548575006241086*^9, 3.548591584188601*^9, 3.548662090585084*^9, 
   3.548700114144134*^9, 3.548756247884326*^9, 3.548911239958346*^9, 
   3.548930605133733*^9, 3.5489607939299498`*^9, 3.549002176770347*^9, 
   3.549020859645802*^9, 3.549043536339863*^9, 3.54904702433716*^9, 
   3.549086270327882*^9, 3.549096266723126*^9, 3.549260301430994*^9, 
   3.5492729193982143`*^9, 3.54930506983113*^9, 3.54930528732859*^9, 
   3.549305796552047*^9, 3.549358875917659*^9, 3.549433143947337*^9, 
   3.549462309067939*^9, 3.549540242111371*^9, 3.5509215774997377`*^9, 
   3.550990709999691*^9, 3.5509964170919323`*^9, 3.5509965857814627`*^9, 
   3.555347030590391*^9, 3.5573920912978153`*^9, 3.5574031439500017`*^9, 
   3.557466450248815*^9, 3.557579372442381*^9, 3.557635725561998*^9, 
   3.5584411337021503`*^9, 3.558549881989358*^9, 3.56000773438896*^9, 
   3.5600443476480722`*^9, 3.560044406859914*^9, 3.560185492059896*^9, 
   3.5601862790022173`*^9, 3.5601863523206244`*^9, 3.5601865022998457`*^9, 
   3.560222871690625*^9, 3.56025641649781*^9, 3.560268923394611*^9, 
   3.56026992637185*^9, 3.560271411403989*^9, 3.560516246504676*^9, 
   3.560521594353217*^9, 3.560534283463615*^9, 3.560535146107583*^9, 
   3.560842311263938*^9, 3.560844430376*^9, 3.561176802133522*^9, 
   3.561210840777327*^9, 3.561269139863452*^9, 3.561275590507256*^9, 
   3.561276934635552*^9, 3.561302797115964*^9, 3.561305359953373*^9, 
   3.561308530193974*^9, 3.561308779104178*^9, {3.56136030077499*^9, 
   3.561360059985057*^9}, 3.7281150179075336`*^9, 3.731234871841845*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"0e13d4b9-70a3-49ae-b6f9-08808e807ea5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "InvPhysicalToPhysical"}]}]], "Input",
 CellChangeTimes->{{3.511509391241127*^9, 3.511509411626625*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"09692063-a686-45c0-a793-553e0dd5a6ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", "\[Del]", "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDg[],
    Editable->False], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], "-", 
   RowBox[{"4", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], 
       SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False]}], "+", 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[Alpha]", "\[Gamma]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[Alpha], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], 
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511509413536327*^9, 3.511591718961554*^9, 3.51159525270026*^9, 
   3.511630875180963*^9, {3.5116315608540993`*^9, 3.511631589278288*^9}, 
   3.511721814119467*^9, 3.521273851797701*^9, 3.521276337474967*^9, 
   3.5212764297352743`*^9, 3.521277304689563*^9, 3.521277491500575*^9, 
   3.521278907042817*^9, 3.52136446510131*^9, 3.521366294921295*^9, 
   3.5213703509517927`*^9, 3.521440677807349*^9, 3.521440918214487*^9, 
   3.521455901826404*^9, 3.5214582734220257`*^9, 3.521506966927185*^9, 
   3.521520506398325*^9, 3.521520599543398*^9, 3.521523013427856*^9, 
   3.521539031686782*^9, 3.5217854809406033`*^9, 3.521797355947652*^9, 
   3.521803976351124*^9, 3.5218832914135923`*^9, 3.5219400950076933`*^9, 
   3.521971077518136*^9, 3.521971415126116*^9, 3.521971475390768*^9, 
   3.5219715656283703`*^9, 3.5219721017671423`*^9, 3.521973953890733*^9, 
   3.5220291005737534`*^9, 3.524393903193569*^9, 3.5243963151974907`*^9, 
   3.524977864922697*^9, 3.5249972173964643`*^9, 3.525067363149246*^9, 
   3.525070795341462*^9, 3.525072068823956*^9, 3.525073227946389*^9, 
   3.5250810217499647`*^9, 3.525187136293921*^9, 3.525240245218068*^9, 
   3.525243897868531*^9, 3.5253975254401197`*^9, 3.525398673442436*^9, 
   3.525493461821475*^9, 3.525660865395865*^9, 3.5256619096034946`*^9, 
   3.525662978359253*^9, 3.525673275548448*^9, 3.545738866820668*^9, 
   3.545991125368704*^9, 3.5459914662642612`*^9, 3.5460001170038967`*^9, 
   3.5460213526446657`*^9, 3.54605761282119*^9, 3.546064581465322*^9, 
   3.546091120008428*^9, 3.54632559684833*^9, 3.5482473252284813`*^9, 
   3.548404545261832*^9, 3.5484812461569242`*^9, 3.54851142400873*^9, 
   3.548525806263633*^9, 3.548567869218424*^9, 3.548571049403142*^9, 
   3.548575006269868*^9, 3.548591584217111*^9, 3.548662090624543*^9, 
   3.548700114173799*^9, 3.5487562479234447`*^9, 3.54891123998882*^9, 
   3.548930605165566*^9, 3.548960793961825*^9, 3.549002176793263*^9, 
   3.5490208596884108`*^9, 3.549043536367939*^9, 3.5490470243773108`*^9, 
   3.549086270359836*^9, 3.5490962667400713`*^9, 3.549260301463085*^9, 
   3.549272919415093*^9, 3.5493050698556013`*^9, 3.549305287355669*^9, 
   3.5493057965761213`*^9, 3.549358875949017*^9, 3.549433143998011*^9, 
   3.549462309098483*^9, 3.5495402421482553`*^9, 3.55092157752945*^9, 
   3.550990710039084*^9, 3.550996417110227*^9, 3.5509965858138103`*^9, 
   3.555347030706547*^9, 3.557392091330276*^9, 3.557403143980472*^9, 
   3.5574664502931433`*^9, 3.557579372453795*^9, 3.5576357255892973`*^9, 
   3.558441133736568*^9, 3.558549882017263*^9, 3.5600077344212093`*^9, 
   3.560044347686881*^9, 3.5600444068864098`*^9, 3.560185492116173*^9, 
   3.560186279029793*^9, 3.560186352362821*^9, 3.560186502330069*^9, 
   3.560222871719041*^9, 3.560256416534266*^9, 3.560268923430583*^9, 
   3.560269926401762*^9, 3.560271411463707*^9, 3.560516246536416*^9, 
   3.560521594390648*^9, 3.5605342834982758`*^9, 3.56053514613161*^9, 
   3.560842311293232*^9, 3.560844430421789*^9, 3.561176802163272*^9, 
   3.561210840822278*^9, 3.561269139898377*^9, 3.5612755905665293`*^9, 
   3.5612769346766644`*^9, 3.561302797159771*^9, 3.561305359989402*^9, 
   3.56130853021598*^9, 3.561308779151671*^9, {3.5613603008073997`*^9, 
   3.561360060018125*^9}, 3.728115017921378*^9, 3.731234871866109*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"c3ea258d-d876-4ef8-9a49-e475957b790c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511509095996147*^9, 3.511509098986125*^9}, {
  3.511509423404101*^9, 3.511509428482136*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"f7b0903f-9e03-41fc-8a3d-2e05138e0603"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", "\[Del]", "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDg[],
    Editable->False], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], "-", 
   RowBox[{"6", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], 
       SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False]}], "+", 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[$CellContext`\[Beta]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511509099604353*^9, 3.511509428857727*^9, 3.511591718979553*^9, 
   3.51159525277595*^9, 3.511630875205209*^9, {3.511631560878542*^9, 
   3.511631589316348*^9}, 3.5117218146822643`*^9, 3.521273852549431*^9, 
   3.521276337547653*^9, 3.521276429822846*^9, 3.521277304743125*^9, 
   3.5212774915169973`*^9, 3.521278907105105*^9, 3.521364465163452*^9, 
   3.521366294972909*^9, 3.521370350976427*^9, 3.521440677882886*^9, 
   3.521440918239242*^9, 3.5214559018491592`*^9, 3.521458273446866*^9, 
   3.521506966953424*^9, 3.521520506463593*^9, 3.521520599591579*^9, 
   3.521523013451725*^9, 3.521539031711216*^9, 3.5217854810316887`*^9, 
   3.5217973559743137`*^9, 3.521803976376293*^9, 3.5218832914366217`*^9, 
   3.5219400950280857`*^9, 3.52197107753625*^9, 3.521971415150794*^9, 
   3.5219714754191847`*^9, 3.521971565760769*^9, 3.5219721017898417`*^9, 
   3.5219739539323997`*^9, 3.522029100683331*^9, 3.524393903250183*^9, 
   3.524396315245504*^9, 3.5249778649620953`*^9, 3.5249972174439507`*^9, 
   3.525067363958604*^9, 3.525070795380245*^9, 3.525072068848619*^9, 
   3.5250732279931183`*^9, 3.525081021807147*^9, 3.5251871363284273`*^9, 
   3.525240245244356*^9, 3.5252438979027643`*^9, 3.5253975254916573`*^9, 
   3.525398673472522*^9, 3.5254934618479*^9, 3.525660865424636*^9, 
   3.5256619096587887`*^9, 3.5256629783799677`*^9, 3.5256732756055*^9, 
   3.5457388668403387`*^9, 3.54599112543274*^9, 3.54599146631481*^9, 
   3.546000117061818*^9, 3.5460213527356853`*^9, 3.546057612878517*^9, 
   3.546064581546789*^9, 3.5460911200991917`*^9, 3.5463255969088297`*^9, 
   3.5482473252939587`*^9, 3.548404545303644*^9, 3.5484812461914053`*^9, 
   3.5485114240428743`*^9, 3.548525806291546*^9, 3.548567869249215*^9, 
   3.548571049429495*^9, 3.548575006305892*^9, 3.548591584252161*^9, 
   3.5486620906688128`*^9, 3.548700114213768*^9, 3.548756247947666*^9, 
   3.5489112400331078`*^9, 3.548930605201828*^9, 3.548960793990056*^9, 
   3.549002176824044*^9, 3.549020859737184*^9, 3.549043536413151*^9, 
   3.549047024402342*^9, 3.5490862703989*^9, 3.549096266779202*^9, 
   3.549260301502945*^9, 3.549272919435381*^9, 3.549305069883689*^9, 
   3.549305287410222*^9, 3.5493057966096973`*^9, 3.549358875969336*^9, 
   3.549433144029315*^9, 3.549462309127714*^9, 3.5495402422532377`*^9, 
   3.5509215775729847`*^9, 3.550990710079447*^9, 3.550996417145403*^9, 
   3.5509965858533688`*^9, 3.555347030788715*^9, 3.5573920913745127`*^9, 
   3.557403144015317*^9, 3.557466450320413*^9, 3.557579372486611*^9, 
   3.557635725639217*^9, 3.558441133776063*^9, 3.558549882050528*^9, 
   3.560007734450842*^9, 3.560044347730525*^9, 3.560044406929832*^9, 
   3.560185492149095*^9, 3.5601862790645227`*^9, 3.56018635240548*^9, 
   3.560186502364736*^9, 3.5602228717571774`*^9, 3.5602564165738497`*^9, 
   3.560268923471003*^9, 3.5602699264359617`*^9, 3.560271411495308*^9, 
   3.560516246570478*^9, 3.56052159442798*^9, 3.560534283529077*^9, 
   3.560535146158667*^9, 3.5608423113269453`*^9, 3.5608444304519167`*^9, 
   3.561176802210319*^9, 3.561210840877138*^9, 3.561269139947075*^9, 
   3.561275590631062*^9, 3.561276934742661*^9, 3.561302797211327*^9, 
   3.561305360031492*^9, 3.561308530263883*^9, 3.561308779226041*^9, {
   3.56136030084449*^9, 3.561360060055678*^9}, 3.728115017939521*^9, 
   3.731234871893024*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"0def1662-850f-472a-8555-1505f8e50815"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{"RicciScalarCDg", "[", "]"}]}], "]"}], "//", "Flatten"}], "//", 
  "First"}]], "Input",
 CellChangeTimes->{{3.511509438085494*^9, 3.511509452922439*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"433509cb-aaf4-4fa3-ba64-8d07545d633a"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{"R", "[", "\[Del]", "]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciScalarCDg[],
   Editable->False], "\[Rule]", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], "-", 
    RowBox[{"6", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], 
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`CDg[$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], "+", 
    RowBox[{"12", " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]]}]], "Output",
 CellChangeTimes->{
  3.511509453855154*^9, 3.5115917190189333`*^9, 3.511595252836916*^9, 
   3.51163087522761*^9, {3.511631560898498*^9, 3.51163158934028*^9}, 
   3.51172181523414*^9, 3.5212738532131863`*^9, 3.521276337619459*^9, 
   3.52127642989184*^9, 3.521277304835946*^9, 3.5212774915260887`*^9, 
   3.521278907165447*^9, 3.5213644651732388`*^9, 3.521366294982685*^9, 
   3.5213703510115*^9, 3.521440677948104*^9, 3.52144091824883*^9, 
   3.521455901878911*^9, 3.521458273469589*^9, 3.521506967047513*^9, 
   3.52152050651945*^9, 3.52152059963699*^9, 3.5215230134726353`*^9, 
   3.521539031738964*^9, 3.521785481101304*^9, 3.5217973559975967`*^9, 
   3.5218039763971033`*^9, 3.521883291456805*^9, 3.52194009503931*^9, 
   3.521971077549487*^9, 3.5219714151726923`*^9, 3.521971475440546*^9, 
   3.521971565784596*^9, 3.521972101807646*^9, 3.52197395395714*^9, 
   3.5220291007549*^9, 3.524393903259185*^9, 3.524396315280665*^9, 
   3.524977865009695*^9, 3.524997217452313*^9, 3.525067364805291*^9, 
   3.525070795418179*^9, 3.52507206887422*^9, 3.525073228019166*^9, 
   3.525081021861237*^9, 3.525187136353732*^9, 3.525240245264732*^9, 
   3.525243897927145*^9, 3.5253975255288963`*^9, 3.5253986734911833`*^9, 
   3.525493461868876*^9, 3.525660865443849*^9, 3.52566190969377*^9, 
   3.525662978394402*^9, 3.525673275656774*^9, 3.545738866853488*^9, 
   3.545991125497875*^9, 3.545991466329069*^9, 3.546000117098166*^9, 
   3.546021352817377*^9, 3.546057612934945*^9, 3.546064581612708*^9, 
   3.546091120148449*^9, 3.546325596962644*^9, 3.548247325338023*^9, 
   3.548404545336423*^9, 3.548481246219317*^9, 3.548511424057684*^9, 
   3.5485258063952723`*^9, 3.548567869275239*^9, 3.548571049454792*^9, 
   3.548575006336986*^9, 3.548591584292469*^9, 3.548662090699472*^9, 
   3.548700114245674*^9, 3.5487562479654284`*^9, 3.548911240059761*^9, 
   3.5489306052455597`*^9, 3.548960794013954*^9, 3.54900217683537*^9, 
   3.5490208597718287`*^9, 3.549043536442753*^9, 3.549047024437921*^9, 
   3.549086270431419*^9, 3.5490962667919207`*^9, 3.549260301536775*^9, 
   3.549272919449243*^9, 3.549305069909507*^9, 3.5493052874445677`*^9, 
   3.549305796634801*^9, 3.5493588759832153`*^9, 3.5494331440533533`*^9, 
   3.549462309152993*^9, 3.549540242281212*^9, 3.5509215776132107`*^9, 
   3.5509907101118793`*^9, 3.5509964171628103`*^9, 3.55099658588914*^9, 
   3.5553470308263817`*^9, 3.5573920914127007`*^9, 3.557403144086481*^9, 
   3.557466450347784*^9, 3.557579372516041*^9, 3.5576357256679077`*^9, 
   3.558441133809847*^9, 3.55854988207907*^9, 3.5600077344781923`*^9, 
   3.56004434776868*^9, 3.560044406955234*^9, 3.560185492175858*^9, 
   3.560186279091529*^9, 3.560186352512783*^9, 3.560186502391642*^9, 
   3.56022287178209*^9, 3.560256416608385*^9, 3.560268923506195*^9, 
   3.5602699264621572`*^9, 3.560271411523794*^9, 3.560516246603468*^9, 
   3.560521594462387*^9, 3.5605342835544643`*^9, 3.56053514617925*^9, 
   3.56084231135235*^9, 3.560844430495187*^9, 3.561176802261676*^9, 
   3.5612108409174423`*^9, 3.561269139993917*^9, 3.5612755906758137`*^9, 
   3.5612769347846003`*^9, 3.561302797281884*^9, 3.561305360067058*^9, 
   3.561308530339456*^9, 3.561308779281743*^9, {3.56136030088457*^9, 
   3.5613600600846033`*^9}, 3.728115017953766*^9, 3.731234871924656*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"b693ee20-3056-4112-acd0-61f2f3cdd5f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", "%"}]], "Input",
 CellChangeTimes->{{3.511509455430337*^9, 3.511509458731938*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"f4aeb77d-10dc-4bce-9146-51f2e23ff8c2"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{"R", "[", "\[Del]", "]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciScalarCDg[],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], "-", 
    RowBox[{"6", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], 
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`CDg[$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False]}], "+", 
    RowBox[{"12", " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], "2"]]}]], "Output",
 CellChangeTimes->{{3.511509457362561*^9, 3.5115094634868526`*^9}, 
   3.5115917190282917`*^9, 3.511595252967939*^9, 3.511630875234334*^9, {
   3.511631560915262*^9, 3.511631589358253*^9}, 3.511721815878418*^9, 
   3.5212738538664103`*^9, 3.5212763378231697`*^9, 3.521276429958137*^9, 
   3.5212773048474617`*^9, 3.521277491575755*^9, 3.521278907228593*^9, 
   3.521364465181326*^9, 3.521366294990966*^9, 3.5213703510310163`*^9, 
   3.521440677956234*^9, 3.521440918349558*^9, 3.521455901898418*^9, 
   3.521458273491228*^9, 3.5215069671430073`*^9, 3.521520506578617*^9, 
   3.521520599645735*^9, 3.521523013520462*^9, 3.5215390317577477`*^9, 
   3.52178548111407*^9, 3.521797356024362*^9, 3.521803976417329*^9, 
   3.521883291474907*^9, 3.521940095099719*^9, 3.521971077575253*^9, 
   3.521971415210002*^9, 3.521971475445857*^9, 3.521971565804537*^9, 
   3.5219721018250113`*^9, 3.521973953962055*^9, 3.522029100924624*^9, 
   3.524393903266782*^9, 3.524396315326788*^9, 3.5249778650671587`*^9, 
   3.5249972174594803`*^9, 3.5250673656421413`*^9, 3.525070795455262*^9, 
   3.5250720688968887`*^9, 3.5250732280438557`*^9, 3.525081021869647*^9, 
   3.525187136375638*^9, 3.525240245285533*^9, 3.525243897947797*^9, 
   3.525397525560486*^9, 3.525398673502954*^9, 3.5254934618777313`*^9, 
   3.5256608654638243`*^9, 3.525661909698554*^9, 3.525662978409584*^9, 
   3.525673275695207*^9, 3.5457388668825407`*^9, 3.5459911255279827`*^9, 
   3.5459914663416862`*^9, 3.546000117143304*^9, 3.546021352832714*^9, 
   3.546057612988221*^9, 3.546064581657921*^9, 3.546091120243347*^9, 
   3.546325597017071*^9, 3.548247325360877*^9, 3.5484045453748283`*^9, 
   3.5484812462499247`*^9, 3.54851142408816*^9, 3.54852580641492*^9, 
   3.5485678693017817`*^9, 3.548571049464053*^9, 3.548575006358706*^9, 
   3.548591584304903*^9, 3.548662090725574*^9, 3.548700114309093*^9, 
   3.5487562480120907`*^9, 3.5489112400864773`*^9, 3.548930605276041*^9, 
   3.548960794036158*^9, 3.549002176845207*^9, 3.5490208597995*^9, 
   3.549043536466949*^9, 3.549047024464126*^9, 3.549086270457788*^9, 
   3.549096266803987*^9, 3.54926030154729*^9, 3.5492729194758368`*^9, 
   3.549305069931932*^9, 3.549305287470982*^9, 3.549305796659967*^9, 
   3.549358876018005*^9, 3.5494331440610447`*^9, 3.549462309173552*^9, 
   3.54954024231789*^9, 3.5509215776281767`*^9, 3.550990710123637*^9, 
   3.550996417175201*^9, 3.5509965859068832`*^9, 3.5553470308652487`*^9, 
   3.557392091425126*^9, 3.557403144116149*^9, 3.557466450353805*^9, 
   3.557579372525869*^9, 3.5576357256940613`*^9, 3.558441133840241*^9, 
   3.558549882086298*^9, 3.560007734506283*^9, 3.560044347803768*^9, 
   3.5600444069789352`*^9, 3.5601854922025843`*^9, 3.56018627911826*^9, 
   3.560186352568659*^9, 3.5601865024852657`*^9, 3.560222871804948*^9, 
   3.56025641663898*^9, 3.560268923537643*^9, 3.56026992648792*^9, 
   3.560271411552187*^9, 3.560516246631692*^9, 3.560521594475319*^9, 
   3.560534283583782*^9, 3.560535146200316*^9, 3.560842311379656*^9, 
   3.5608444305535707`*^9, 3.561176802274417*^9, 3.561210840952422*^9, 
   3.5612691400436783`*^9, 3.561275590691106*^9, 3.5612769347971487`*^9, 
   3.561302797374044*^9, 3.561305360086997*^9, 3.561308530360064*^9, 
   3.561308779332027*^9, {3.56136030091155*^9, 3.561360060113514*^9}, 
   3.728115017962064*^9, 3.731234871951909*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"dcc09535-b6a5-45d6-8a9e-e7959855e427"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciScalarUnphysToRicciScalarPhys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.51150910508279*^9, 3.5115091183375597`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"a4825906-ddab-475f-81fc-caedd408e9a6"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Weyl Connection", "Subsection",
 CellChangeTimes->{{3.511372738645494*^9, 
  3.511372744029612*^9}},ExpressionUUID->"b8fa8e4e-2c15-489d-bc7f-\
606aef1d952e"],

Cell["We define here a Weyl connection", "Text",
 CellChangeTimes->{{3.511721833867861*^9, 3.5117218388363867`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"\[ScriptF]", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], ",", "M4"}], "]"}]], "Input",
 CellChangeTimes->{{3.511372862241396*^9, 3.5113728798070602`*^9}, {
  3.525067379179904*^9, 3.52506737971315*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"c6b1a8b8-7917-4cc0-8609-19fcf674df45"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[ScriptF]", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[ScriptF][-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511372881048441*^9, 3.511458464403431*^9, 3.511503131651263*^9, 
   3.5115036858757687`*^9, 3.511503774739884*^9, 3.511504753099903*^9, 
   3.511507871848775*^9, 3.511591719075247*^9, 3.5115952615528*^9, 
   3.511630875265534*^9, 3.5116315894051723`*^9, 3.511721840027125*^9, 
   3.5212740658413*^9, 3.521276459980094*^9, 3.5212773049170113`*^9, 
   3.521277491818548*^9, 3.521278914406489*^9, 3.521364473541391*^9, 
   3.521366295052919*^9, 3.521370351069848*^9, 3.521440678047057*^9, 
   3.521440918483487*^9, 3.521455902013373*^9, 3.52145827691214*^9, 
   3.5215069699911633`*^9, 3.521520506744626*^9, 3.521520599715169*^9, 
   3.5215230135575438`*^9, 3.521539059499592*^9, 3.521785481228681*^9, 
   3.521797358151435*^9, 3.521803976449821*^9, 3.52188329691376*^9, 
   3.521940095180049*^9, 3.521971086620905*^9, 3.521971416602291*^9, 
   3.521971475489358*^9, 3.5219715658319407`*^9, 3.521972105209424*^9, 
   3.521973954074087*^9, 3.522029101281877*^9, 3.524393913321596*^9, 
   3.524396315388781*^9, 3.524977865147541*^9, 3.5249972175098543`*^9, 
   3.5250673804585667`*^9, 3.525070795499442*^9, 3.5250720689303226`*^9, 
   3.525073228102748*^9, 3.5250810218933353`*^9, 3.5251871364808607`*^9, 
   3.5252402453135443`*^9, 3.525243898028693*^9, 3.525397525605998*^9, 
   3.525398673580971*^9, 3.525493461905575*^9, 3.525660865557246*^9, 
   3.5256619097058153`*^9, 3.525662978459724*^9, 3.525673275708997*^9, 
   3.5457388669157352`*^9, 3.5459911256363*^9, 3.5459914664415197`*^9, 
   3.546000117180616*^9, 3.546021352937976*^9, 3.546057613021079*^9, 
   3.546064581783915*^9, 3.546091120290308*^9, 3.546325597118884*^9, 
   3.548247325494254*^9, 3.548404545438622*^9, 3.548481246310692*^9, 
   3.5485114241981297`*^9, 3.5485258065345984`*^9, 3.548567869353307*^9, 
   3.548571053207201*^9, 3.548575006401718*^9, 3.548591584361376*^9, 
   3.5486620907823353`*^9, 3.54870011444199*^9, 3.548756248177075*^9, 
   3.5489112401912317`*^9, 3.548930605376878*^9, 3.548960794074801*^9, 
   3.549002176944577*^9, 3.5490208598725033`*^9, 3.549043536512082*^9, 
   3.5490470245192842`*^9, 3.5490862705106993`*^9, 3.549096266852648*^9, 
   3.5492603016049843`*^9, 3.549272919565577*^9, 3.54930506996852*^9, 
   3.5493052875313187`*^9, 3.549305796711336*^9, 3.5493588761222258`*^9, 
   3.549433144098858*^9, 3.549462309285215*^9, 3.549540242412098*^9, 
   3.550921577687418*^9, 3.55099071020926*^9, 3.550996417225634*^9, 
   3.5509965859568033`*^9, 3.5553471776197033`*^9, 3.557392091483955*^9, 
   3.55740314420424*^9, 3.5574664562084427`*^9, 3.5575793726268272`*^9, 
   3.557635725743404*^9, 3.558441133899104*^9, 3.5585498821271563`*^9, 
   3.5600077345675707`*^9, 3.560044347871458*^9, 3.560044407036089*^9, 
   3.560185492255164*^9, 3.560186279170837*^9, 3.560186352691461*^9, 
   3.560186502572713*^9, 3.560222871858387*^9, 3.560256416708683*^9, 
   3.560268923635501*^9, 3.560269926508913*^9, 3.5602714116143227`*^9, 
   3.5605162466876173`*^9, 3.560521594525012*^9, 3.5605342836296577`*^9, 
   3.560535146294075*^9, 3.560842311401558*^9, 3.56084443066749*^9, 
   3.5611768022940063`*^9, 3.5612108410076733`*^9, 3.5612691401492968`*^9, 
   3.5612755907529182`*^9, 3.5612769348178167`*^9, 3.5613027975447273`*^9, 
   3.561305360178049*^9, 3.5613085304253902`*^9, 3.561308779352385*^9, {
   3.561360305625979*^9, 3.5613600601693287`*^9}, 3.728115017980349*^9, 
   3.7312348719894543`*^9},
 CellLabel->
  "During evaluation of \
In[69]:=",ExpressionUUID->"2388c70d-f351-4ce9-a9e0-92d76e4009ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefCovD", "[", 
  RowBox[{
   RowBox[{"WeylCD", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], ",", 
   RowBox[{"SymbolOfCovD", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<;\>\"", ",", "\"\<\!\(\*OverscriptBox[\(\[Del]\), \(^\)]\)\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511372745219904*^9, 3.51137281818397*^9}, {
  3.525067382475627*^9, 3.525067382988529*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"ccd4854f-0f3f-416e-b3fa-d2688f16028d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"covariant derivative \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"WeylCD", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "covariant derivative ", 
   $CellContext`WeylCD[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511372824432391*^9, 3.511458467306402*^9, 3.511503131659778*^9, 
   3.5115036859012203`*^9, 3.511503774745172*^9, 3.511504753175602*^9, 
   3.511507872702899*^9, 3.51159171912885*^9, 3.511595261704545*^9, 
   3.511630875286797*^9, 3.511631589422942*^9, 3.51172184057448*^9, 
   3.5212740670717707`*^9, 3.5212764608482122`*^9, 3.521277304928879*^9, 
   3.521277491891608*^9, 3.5212789145109863`*^9, 3.5213644745452747`*^9, 
   3.521366296034788*^9, 3.52137035108801*^9, 3.52144067807843*^9, 
   3.5214409185920763`*^9, 3.5214559020203743`*^9, 3.521458278749529*^9, 
   3.52150697008504*^9, 3.521520506844789*^9, 3.5215205997526693`*^9, 
   3.521523013562222*^9, 3.5215390596023607`*^9, 3.521785481254184*^9, 
   3.521797358242695*^9, 3.521803976455079*^9, 3.521883297108618*^9, 
   3.521940095192581*^9, 3.521971086727148*^9, 3.521971416698821*^9, 
   3.521971475515781*^9, 3.521971565836211*^9, 3.521972105267126*^9, 
   3.521973954080649*^9, 3.5220291012971697`*^9, 3.52439391339289*^9, 
   3.524396315434721*^9, 3.524977865158239*^9, 3.52499721752765*^9, 
   3.5250673838391323`*^9, 3.525070795536731*^9, 3.525072068956806*^9, 
   3.5250732281117268`*^9, 3.52508102194886*^9, 3.525187136487834*^9, 
   3.52524024532145*^9, 3.525243898060547*^9, 3.5253975256326103`*^9, 
   3.525398673594264*^9, 3.525493461916256*^9, 3.5256608655689907`*^9, 
   3.525661909737591*^9, 3.52566297847476*^9, 3.525673275750485*^9, 
   3.545738866945883*^9, 3.5459911257367973`*^9, 3.545991466519477*^9, 
   3.546000117229546*^9, 3.546021353012501*^9, 3.5460576130955763`*^9, 
   3.5460645818265953`*^9, 3.546091120344801*^9, 3.546325597146331*^9, 
   3.548247325540812*^9, 3.548404545497607*^9, 3.548481246320137*^9, 
   3.5485114242486343`*^9, 3.548525806556974*^9, 3.5485678693632183`*^9, 
   3.548571053273077*^9, 3.548575006408902*^9, 3.548591584386175*^9, 
   3.548662090799382*^9, 3.548700114476807*^9, 3.548756248201859*^9, 
   3.5489112402080793`*^9, 3.548930605406829*^9, 3.548960794084825*^9, 
   3.5490021769650593`*^9, 3.5490208599053793`*^9, 3.549043536521904*^9, 
   3.5490470245253143`*^9, 3.549086270537175*^9, 3.549096266879177*^9, 
   3.549260301635168*^9, 3.5492729196153717`*^9, 3.54930506997854*^9, 
   3.549305287555624*^9, 3.5493057967423077`*^9, 3.549358876142459*^9, 
   3.549433144131282*^9, 3.549462309307829*^9, 3.549540242420924*^9, 
   3.550921577737842*^9, 3.550990710235627*^9, 3.550996417252121*^9, 
   3.550996585988475*^9, 3.555347177714806*^9, 3.557392091499423*^9, 
   3.557403144243578*^9, 3.5574664562952557`*^9, 3.5575793726354303`*^9, 
   3.557635725752599*^9, 3.5584411339111*^9, 3.558549882135675*^9, 
   3.560007734583109*^9, 3.560044347909429*^9, 3.560044407062067*^9, 
   3.560185492270194*^9, 3.560186279182591*^9, 3.56018635272499*^9, 
   3.560186502610135*^9, 3.560222871886924*^9, 3.560256416724264*^9, 
   3.560268923650198*^9, 3.5602699265323563`*^9, 3.560271411626391*^9, 
   3.5605162467208548`*^9, 3.560521594536414*^9, 3.560534283640053*^9, 
   3.560535146314293*^9, 3.560842311422802*^9, 3.560844430692507*^9, 
   3.561176802324542*^9, 3.561210841028163*^9, 3.561269140181982*^9, 
   3.561275590800467*^9, 3.561276934832711*^9, 3.561302797596232*^9, 
   3.561305360196147*^9, 3.561308530458346*^9, 3.561308779400592*^9, {
   3.5613603057271013`*^9, 3.5613600601965227`*^9}, 3.72811501799533*^9, 
   3.7312348720151873`*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"0c66481a-b7ad-4907-b953-5d7a7806311b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionWeylCD", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionWeylCD[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511372824432391*^9, 3.511458467306402*^9, 3.511503131659778*^9, 
   3.5115036859012203`*^9, 3.511503774745172*^9, 3.511504753175602*^9, 
   3.511507872702899*^9, 3.51159171912885*^9, 3.511595261704545*^9, 
   3.511630875286797*^9, 3.511631589422942*^9, 3.51172184057448*^9, 
   3.5212740670717707`*^9, 3.5212764608482122`*^9, 3.521277304928879*^9, 
   3.521277491891608*^9, 3.5212789145109863`*^9, 3.5213644745452747`*^9, 
   3.521366296034788*^9, 3.52137035108801*^9, 3.52144067807843*^9, 
   3.5214409185920763`*^9, 3.5214559020203743`*^9, 3.521458278749529*^9, 
   3.52150697008504*^9, 3.521520506844789*^9, 3.5215205997526693`*^9, 
   3.521523013562222*^9, 3.5215390596023607`*^9, 3.521785481254184*^9, 
   3.521797358242695*^9, 3.521803976455079*^9, 3.521883297108618*^9, 
   3.521940095192581*^9, 3.521971086727148*^9, 3.521971416698821*^9, 
   3.521971475515781*^9, 3.521971565836211*^9, 3.521972105267126*^9, 
   3.521973954080649*^9, 3.5220291012971697`*^9, 3.52439391339289*^9, 
   3.524396315434721*^9, 3.524977865158239*^9, 3.52499721752765*^9, 
   3.5250673838391323`*^9, 3.525070795536731*^9, 3.525072068956806*^9, 
   3.5250732281117268`*^9, 3.52508102194886*^9, 3.525187136487834*^9, 
   3.52524024532145*^9, 3.525243898060547*^9, 3.5253975256326103`*^9, 
   3.525398673594264*^9, 3.525493461916256*^9, 3.5256608655689907`*^9, 
   3.525661909737591*^9, 3.52566297847476*^9, 3.525673275750485*^9, 
   3.545738866945883*^9, 3.5459911257367973`*^9, 3.545991466519477*^9, 
   3.546000117229546*^9, 3.546021353012501*^9, 3.5460576130955763`*^9, 
   3.5460645818265953`*^9, 3.546091120344801*^9, 3.546325597146331*^9, 
   3.548247325540812*^9, 3.548404545497607*^9, 3.548481246320137*^9, 
   3.5485114242486343`*^9, 3.548525806556974*^9, 3.5485678693632183`*^9, 
   3.548571053273077*^9, 3.548575006408902*^9, 3.548591584386175*^9, 
   3.548662090799382*^9, 3.548700114476807*^9, 3.548756248201859*^9, 
   3.5489112402080793`*^9, 3.548930605406829*^9, 3.548960794084825*^9, 
   3.5490021769650593`*^9, 3.5490208599053793`*^9, 3.549043536521904*^9, 
   3.5490470245253143`*^9, 3.549086270537175*^9, 3.549096266879177*^9, 
   3.549260301635168*^9, 3.5492729196153717`*^9, 3.54930506997854*^9, 
   3.549305287555624*^9, 3.5493057967423077`*^9, 3.549358876142459*^9, 
   3.549433144131282*^9, 3.549462309307829*^9, 3.549540242420924*^9, 
   3.550921577737842*^9, 3.550990710235627*^9, 3.550996417252121*^9, 
   3.550996585988475*^9, 3.555347177714806*^9, 3.557392091499423*^9, 
   3.557403144243578*^9, 3.5574664562952557`*^9, 3.5575793726354303`*^9, 
   3.557635725752599*^9, 3.5584411339111*^9, 3.558549882135675*^9, 
   3.560007734583109*^9, 3.560044347909429*^9, 3.560044407062067*^9, 
   3.560185492270194*^9, 3.560186279182591*^9, 3.56018635272499*^9, 
   3.560186502610135*^9, 3.560222871886924*^9, 3.560256416724264*^9, 
   3.560268923650198*^9, 3.5602699265323563`*^9, 3.560271411626391*^9, 
   3.5605162467208548`*^9, 3.560521594536414*^9, 3.560534283640053*^9, 
   3.560535146314293*^9, 3.560842311422802*^9, 3.560844430692507*^9, 
   3.561176802324542*^9, 3.561210841028163*^9, 3.561269140181982*^9, 
   3.561275590800467*^9, 3.561276934832711*^9, 3.561302797596232*^9, 
   3.561305360196147*^9, 3.561308530458346*^9, 3.561308779400592*^9, {
   3.5613603057271013`*^9, 3.5613600601965227`*^9}, 3.72811501799533*^9, 
   3.731234872015992*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"6a20486d-0925-4afd-bffd-a003fe75fa1f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelWeylCD", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelWeylCD[$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511372824432391*^9, 3.511458467306402*^9, 3.511503131659778*^9, 
   3.5115036859012203`*^9, 3.511503774745172*^9, 3.511504753175602*^9, 
   3.511507872702899*^9, 3.51159171912885*^9, 3.511595261704545*^9, 
   3.511630875286797*^9, 3.511631589422942*^9, 3.51172184057448*^9, 
   3.5212740670717707`*^9, 3.5212764608482122`*^9, 3.521277304928879*^9, 
   3.521277491891608*^9, 3.5212789145109863`*^9, 3.5213644745452747`*^9, 
   3.521366296034788*^9, 3.52137035108801*^9, 3.52144067807843*^9, 
   3.5214409185920763`*^9, 3.5214559020203743`*^9, 3.521458278749529*^9, 
   3.52150697008504*^9, 3.521520506844789*^9, 3.5215205997526693`*^9, 
   3.521523013562222*^9, 3.5215390596023607`*^9, 3.521785481254184*^9, 
   3.521797358242695*^9, 3.521803976455079*^9, 3.521883297108618*^9, 
   3.521940095192581*^9, 3.521971086727148*^9, 3.521971416698821*^9, 
   3.521971475515781*^9, 3.521971565836211*^9, 3.521972105267126*^9, 
   3.521973954080649*^9, 3.5220291012971697`*^9, 3.52439391339289*^9, 
   3.524396315434721*^9, 3.524977865158239*^9, 3.52499721752765*^9, 
   3.5250673838391323`*^9, 3.525070795536731*^9, 3.525072068956806*^9, 
   3.5250732281117268`*^9, 3.52508102194886*^9, 3.525187136487834*^9, 
   3.52524024532145*^9, 3.525243898060547*^9, 3.5253975256326103`*^9, 
   3.525398673594264*^9, 3.525493461916256*^9, 3.5256608655689907`*^9, 
   3.525661909737591*^9, 3.52566297847476*^9, 3.525673275750485*^9, 
   3.545738866945883*^9, 3.5459911257367973`*^9, 3.545991466519477*^9, 
   3.546000117229546*^9, 3.546021353012501*^9, 3.5460576130955763`*^9, 
   3.5460645818265953`*^9, 3.546091120344801*^9, 3.546325597146331*^9, 
   3.548247325540812*^9, 3.548404545497607*^9, 3.548481246320137*^9, 
   3.5485114242486343`*^9, 3.548525806556974*^9, 3.5485678693632183`*^9, 
   3.548571053273077*^9, 3.548575006408902*^9, 3.548591584386175*^9, 
   3.548662090799382*^9, 3.548700114476807*^9, 3.548756248201859*^9, 
   3.5489112402080793`*^9, 3.548930605406829*^9, 3.548960794084825*^9, 
   3.5490021769650593`*^9, 3.5490208599053793`*^9, 3.549043536521904*^9, 
   3.5490470245253143`*^9, 3.549086270537175*^9, 3.549096266879177*^9, 
   3.549260301635168*^9, 3.5492729196153717`*^9, 3.54930506997854*^9, 
   3.549305287555624*^9, 3.5493057967423077`*^9, 3.549358876142459*^9, 
   3.549433144131282*^9, 3.549462309307829*^9, 3.549540242420924*^9, 
   3.550921577737842*^9, 3.550990710235627*^9, 3.550996417252121*^9, 
   3.550996585988475*^9, 3.555347177714806*^9, 3.557392091499423*^9, 
   3.557403144243578*^9, 3.5574664562952557`*^9, 3.5575793726354303`*^9, 
   3.557635725752599*^9, 3.5584411339111*^9, 3.558549882135675*^9, 
   3.560007734583109*^9, 3.560044347909429*^9, 3.560044407062067*^9, 
   3.560185492270194*^9, 3.560186279182591*^9, 3.56018635272499*^9, 
   3.560186502610135*^9, 3.560222871886924*^9, 3.560256416724264*^9, 
   3.560268923650198*^9, 3.5602699265323563`*^9, 3.560271411626391*^9, 
   3.5605162467208548`*^9, 3.560521594536414*^9, 3.560534283640053*^9, 
   3.560535146314293*^9, 3.560842311422802*^9, 3.560844430692507*^9, 
   3.561176802324542*^9, 3.561210841028163*^9, 3.561269140181982*^9, 
   3.561275590800467*^9, 3.561276934832711*^9, 3.561302797596232*^9, 
   3.561305360196147*^9, 3.561308530458346*^9, 3.561308779400592*^9, {
   3.5613603057271013`*^9, 3.5613600601965227`*^9}, 3.72811501799533*^9, 
   3.73123487201693*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"2d0db28f-fb83-4660-af05-cbcd8f216024"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Riemann tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"RiemannWeylCD", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Antisymmetric only in the first pair.\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Riemann tensor ", 
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]], ". ", 
   "Antisymmetric only in the first pair."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511372824432391*^9, 3.511458467306402*^9, 3.511503131659778*^9, 
   3.5115036859012203`*^9, 3.511503774745172*^9, 3.511504753175602*^9, 
   3.511507872702899*^9, 3.51159171912885*^9, 3.511595261704545*^9, 
   3.511630875286797*^9, 3.511631589422942*^9, 3.51172184057448*^9, 
   3.5212740670717707`*^9, 3.5212764608482122`*^9, 3.521277304928879*^9, 
   3.521277491891608*^9, 3.5212789145109863`*^9, 3.5213644745452747`*^9, 
   3.521366296034788*^9, 3.52137035108801*^9, 3.52144067807843*^9, 
   3.5214409185920763`*^9, 3.5214559020203743`*^9, 3.521458278749529*^9, 
   3.52150697008504*^9, 3.521520506844789*^9, 3.5215205997526693`*^9, 
   3.521523013562222*^9, 3.5215390596023607`*^9, 3.521785481254184*^9, 
   3.521797358242695*^9, 3.521803976455079*^9, 3.521883297108618*^9, 
   3.521940095192581*^9, 3.521971086727148*^9, 3.521971416698821*^9, 
   3.521971475515781*^9, 3.521971565836211*^9, 3.521972105267126*^9, 
   3.521973954080649*^9, 3.5220291012971697`*^9, 3.52439391339289*^9, 
   3.524396315434721*^9, 3.524977865158239*^9, 3.52499721752765*^9, 
   3.5250673838391323`*^9, 3.525070795536731*^9, 3.525072068956806*^9, 
   3.5250732281117268`*^9, 3.52508102194886*^9, 3.525187136487834*^9, 
   3.52524024532145*^9, 3.525243898060547*^9, 3.5253975256326103`*^9, 
   3.525398673594264*^9, 3.525493461916256*^9, 3.5256608655689907`*^9, 
   3.525661909737591*^9, 3.52566297847476*^9, 3.525673275750485*^9, 
   3.545738866945883*^9, 3.5459911257367973`*^9, 3.545991466519477*^9, 
   3.546000117229546*^9, 3.546021353012501*^9, 3.5460576130955763`*^9, 
   3.5460645818265953`*^9, 3.546091120344801*^9, 3.546325597146331*^9, 
   3.548247325540812*^9, 3.548404545497607*^9, 3.548481246320137*^9, 
   3.5485114242486343`*^9, 3.548525806556974*^9, 3.5485678693632183`*^9, 
   3.548571053273077*^9, 3.548575006408902*^9, 3.548591584386175*^9, 
   3.548662090799382*^9, 3.548700114476807*^9, 3.548756248201859*^9, 
   3.5489112402080793`*^9, 3.548930605406829*^9, 3.548960794084825*^9, 
   3.5490021769650593`*^9, 3.5490208599053793`*^9, 3.549043536521904*^9, 
   3.5490470245253143`*^9, 3.549086270537175*^9, 3.549096266879177*^9, 
   3.549260301635168*^9, 3.5492729196153717`*^9, 3.54930506997854*^9, 
   3.549305287555624*^9, 3.5493057967423077`*^9, 3.549358876142459*^9, 
   3.549433144131282*^9, 3.549462309307829*^9, 3.549540242420924*^9, 
   3.550921577737842*^9, 3.550990710235627*^9, 3.550996417252121*^9, 
   3.550996585988475*^9, 3.555347177714806*^9, 3.557392091499423*^9, 
   3.557403144243578*^9, 3.5574664562952557`*^9, 3.5575793726354303`*^9, 
   3.557635725752599*^9, 3.5584411339111*^9, 3.558549882135675*^9, 
   3.560007734583109*^9, 3.560044347909429*^9, 3.560044407062067*^9, 
   3.560185492270194*^9, 3.560186279182591*^9, 3.56018635272499*^9, 
   3.560186502610135*^9, 3.560222871886924*^9, 3.560256416724264*^9, 
   3.560268923650198*^9, 3.5602699265323563`*^9, 3.560271411626391*^9, 
   3.5605162467208548`*^9, 3.560521594536414*^9, 3.560534283640053*^9, 
   3.560535146314293*^9, 3.560842311422802*^9, 3.560844430692507*^9, 
   3.561176802324542*^9, 3.561210841028163*^9, 3.561269140181982*^9, 
   3.561275590800467*^9, 3.561276934832711*^9, 3.561302797596232*^9, 
   3.561305360196147*^9, 3.561308530458346*^9, 3.561308779400592*^9, {
   3.5613603057271013`*^9, 3.5613600601965227`*^9}, 3.72811501799533*^9, 
   3.731234872017894*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"0e7382ff-f627-4b3b-adfe-afad8deaae88"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"non-symmetric Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciWeylCD", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "non-symmetric Ricci tensor ", 
   $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511372824432391*^9, 3.511458467306402*^9, 3.511503131659778*^9, 
   3.5115036859012203`*^9, 3.511503774745172*^9, 3.511504753175602*^9, 
   3.511507872702899*^9, 3.51159171912885*^9, 3.511595261704545*^9, 
   3.511630875286797*^9, 3.511631589422942*^9, 3.51172184057448*^9, 
   3.5212740670717707`*^9, 3.5212764608482122`*^9, 3.521277304928879*^9, 
   3.521277491891608*^9, 3.5212789145109863`*^9, 3.5213644745452747`*^9, 
   3.521366296034788*^9, 3.52137035108801*^9, 3.52144067807843*^9, 
   3.5214409185920763`*^9, 3.5214559020203743`*^9, 3.521458278749529*^9, 
   3.52150697008504*^9, 3.521520506844789*^9, 3.5215205997526693`*^9, 
   3.521523013562222*^9, 3.5215390596023607`*^9, 3.521785481254184*^9, 
   3.521797358242695*^9, 3.521803976455079*^9, 3.521883297108618*^9, 
   3.521940095192581*^9, 3.521971086727148*^9, 3.521971416698821*^9, 
   3.521971475515781*^9, 3.521971565836211*^9, 3.521972105267126*^9, 
   3.521973954080649*^9, 3.5220291012971697`*^9, 3.52439391339289*^9, 
   3.524396315434721*^9, 3.524977865158239*^9, 3.52499721752765*^9, 
   3.5250673838391323`*^9, 3.525070795536731*^9, 3.525072068956806*^9, 
   3.5250732281117268`*^9, 3.52508102194886*^9, 3.525187136487834*^9, 
   3.52524024532145*^9, 3.525243898060547*^9, 3.5253975256326103`*^9, 
   3.525398673594264*^9, 3.525493461916256*^9, 3.5256608655689907`*^9, 
   3.525661909737591*^9, 3.52566297847476*^9, 3.525673275750485*^9, 
   3.545738866945883*^9, 3.5459911257367973`*^9, 3.545991466519477*^9, 
   3.546000117229546*^9, 3.546021353012501*^9, 3.5460576130955763`*^9, 
   3.5460645818265953`*^9, 3.546091120344801*^9, 3.546325597146331*^9, 
   3.548247325540812*^9, 3.548404545497607*^9, 3.548481246320137*^9, 
   3.5485114242486343`*^9, 3.548525806556974*^9, 3.5485678693632183`*^9, 
   3.548571053273077*^9, 3.548575006408902*^9, 3.548591584386175*^9, 
   3.548662090799382*^9, 3.548700114476807*^9, 3.548756248201859*^9, 
   3.5489112402080793`*^9, 3.548930605406829*^9, 3.548960794084825*^9, 
   3.5490021769650593`*^9, 3.5490208599053793`*^9, 3.549043536521904*^9, 
   3.5490470245253143`*^9, 3.549086270537175*^9, 3.549096266879177*^9, 
   3.549260301635168*^9, 3.5492729196153717`*^9, 3.54930506997854*^9, 
   3.549305287555624*^9, 3.5493057967423077`*^9, 3.549358876142459*^9, 
   3.549433144131282*^9, 3.549462309307829*^9, 3.549540242420924*^9, 
   3.550921577737842*^9, 3.550990710235627*^9, 3.550996417252121*^9, 
   3.550996585988475*^9, 3.555347177714806*^9, 3.557392091499423*^9, 
   3.557403144243578*^9, 3.5574664562952557`*^9, 3.5575793726354303`*^9, 
   3.557635725752599*^9, 3.5584411339111*^9, 3.558549882135675*^9, 
   3.560007734583109*^9, 3.560044347909429*^9, 3.560044407062067*^9, 
   3.560185492270194*^9, 3.560186279182591*^9, 3.56018635272499*^9, 
   3.560186502610135*^9, 3.560222871886924*^9, 3.560256416724264*^9, 
   3.560268923650198*^9, 3.5602699265323563`*^9, 3.560271411626391*^9, 
   3.5605162467208548`*^9, 3.560521594536414*^9, 3.560534283640053*^9, 
   3.560535146314293*^9, 3.560842311422802*^9, 3.560844430692507*^9, 
   3.561176802324542*^9, 3.561210841028163*^9, 3.561269140181982*^9, 
   3.561275590800467*^9, 3.561276934832711*^9, 3.561302797596232*^9, 
   3.561305360196147*^9, 3.561308530458346*^9, 3.561308779400592*^9, {
   3.5613603057271013`*^9, 3.5613600601965227`*^9}, 3.72811501799533*^9, 
   3.7312348720188313`*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"8c7ef1f9-cb29-4702-b429-920bb552f783"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Riemann automatically replaced \
by Ricci.\"\>"], "Print",
 CellChangeTimes->{
  3.511372824432391*^9, 3.511458467306402*^9, 3.511503131659778*^9, 
   3.5115036859012203`*^9, 3.511503774745172*^9, 3.511504753175602*^9, 
   3.511507872702899*^9, 3.51159171912885*^9, 3.511595261704545*^9, 
   3.511630875286797*^9, 3.511631589422942*^9, 3.51172184057448*^9, 
   3.5212740670717707`*^9, 3.5212764608482122`*^9, 3.521277304928879*^9, 
   3.521277491891608*^9, 3.5212789145109863`*^9, 3.5213644745452747`*^9, 
   3.521366296034788*^9, 3.52137035108801*^9, 3.52144067807843*^9, 
   3.5214409185920763`*^9, 3.5214559020203743`*^9, 3.521458278749529*^9, 
   3.52150697008504*^9, 3.521520506844789*^9, 3.5215205997526693`*^9, 
   3.521523013562222*^9, 3.5215390596023607`*^9, 3.521785481254184*^9, 
   3.521797358242695*^9, 3.521803976455079*^9, 3.521883297108618*^9, 
   3.521940095192581*^9, 3.521971086727148*^9, 3.521971416698821*^9, 
   3.521971475515781*^9, 3.521971565836211*^9, 3.521972105267126*^9, 
   3.521973954080649*^9, 3.5220291012971697`*^9, 3.52439391339289*^9, 
   3.524396315434721*^9, 3.524977865158239*^9, 3.52499721752765*^9, 
   3.5250673838391323`*^9, 3.525070795536731*^9, 3.525072068956806*^9, 
   3.5250732281117268`*^9, 3.52508102194886*^9, 3.525187136487834*^9, 
   3.52524024532145*^9, 3.525243898060547*^9, 3.5253975256326103`*^9, 
   3.525398673594264*^9, 3.525493461916256*^9, 3.5256608655689907`*^9, 
   3.525661909737591*^9, 3.52566297847476*^9, 3.525673275750485*^9, 
   3.545738866945883*^9, 3.5459911257367973`*^9, 3.545991466519477*^9, 
   3.546000117229546*^9, 3.546021353012501*^9, 3.5460576130955763`*^9, 
   3.5460645818265953`*^9, 3.546091120344801*^9, 3.546325597146331*^9, 
   3.548247325540812*^9, 3.548404545497607*^9, 3.548481246320137*^9, 
   3.5485114242486343`*^9, 3.548525806556974*^9, 3.5485678693632183`*^9, 
   3.548571053273077*^9, 3.548575006408902*^9, 3.548591584386175*^9, 
   3.548662090799382*^9, 3.548700114476807*^9, 3.548756248201859*^9, 
   3.5489112402080793`*^9, 3.548930605406829*^9, 3.548960794084825*^9, 
   3.5490021769650593`*^9, 3.5490208599053793`*^9, 3.549043536521904*^9, 
   3.5490470245253143`*^9, 3.549086270537175*^9, 3.549096266879177*^9, 
   3.549260301635168*^9, 3.5492729196153717`*^9, 3.54930506997854*^9, 
   3.549305287555624*^9, 3.5493057967423077`*^9, 3.549358876142459*^9, 
   3.549433144131282*^9, 3.549462309307829*^9, 3.549540242420924*^9, 
   3.550921577737842*^9, 3.550990710235627*^9, 3.550996417252121*^9, 
   3.550996585988475*^9, 3.555347177714806*^9, 3.557392091499423*^9, 
   3.557403144243578*^9, 3.5574664562952557`*^9, 3.5575793726354303`*^9, 
   3.557635725752599*^9, 3.5584411339111*^9, 3.558549882135675*^9, 
   3.560007734583109*^9, 3.560044347909429*^9, 3.560044407062067*^9, 
   3.560185492270194*^9, 3.560186279182591*^9, 3.56018635272499*^9, 
   3.560186502610135*^9, 3.560222871886924*^9, 3.560256416724264*^9, 
   3.560268923650198*^9, 3.5602699265323563`*^9, 3.560271411626391*^9, 
   3.5605162467208548`*^9, 3.560521594536414*^9, 3.560534283640053*^9, 
   3.560535146314293*^9, 3.560842311422802*^9, 3.560844430692507*^9, 
   3.561176802324542*^9, 3.561210841028163*^9, 3.561269140181982*^9, 
   3.561275590800467*^9, 3.561276934832711*^9, 3.561302797596232*^9, 
   3.561305360196147*^9, 3.561308530458346*^9, 3.561308779400592*^9, {
   3.5613603057271013`*^9, 3.5613600601965227`*^9}, 3.72811501799533*^9, 
   3.731234872019474*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"af1c2272-281b-4a75-bdfd-8a2ce14d0081"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WeylCDUnphysicalg", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"WeylCD", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
    RowBox[{"Unphysicalg", "[", 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{"\[ScriptF]", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], 
    RowBox[{"Unphysicalg", "[", 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.511372839362686*^9, 3.511372952286923*^9}, {
  3.525067387098559*^9, 3.525067399236668*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"342b47e7-dfde-4ede-b316-1e8921621bba"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5113729073560534`*^9, 3.5113729536113167`*^9, 3.511458468865942*^9, 
   3.511503131747616*^9, 3.511503685911043*^9, 3.511503774838427*^9, 
   3.511504753224489*^9, 3.51150787441502*^9, 3.511591719141177*^9, 
   3.511595261862215*^9, 3.51163087530958*^9, 3.511631589463756*^9, 
   3.511721841514835*^9, 3.521274068137697*^9, 3.521276461863041*^9, 
   3.521277305027873*^9, 3.521277491905179*^9, 3.521278914546682*^9, 
   3.521364475807477*^9, 3.5213662972688427`*^9, 3.521370351120179*^9, 
   3.521440678147881*^9, 3.52144091881434*^9, 3.5214559020448017`*^9, 
   3.5214582816075783`*^9, 3.521506970098592*^9, 3.521520507004383*^9, 
   3.521520600804003*^9, 3.5215230135978193`*^9, 3.5215390596406918`*^9, 
   3.521785481269849*^9, 3.521797358278316*^9, 3.521803976483238*^9, 
   3.52188329714819*^9, 3.521940095259327*^9, 3.521971086764018*^9, 
   3.521971416737924*^9, 3.5219714755506687`*^9, 3.5219715658899307`*^9, 
   3.5219721052939653`*^9, 3.521973954106875*^9, 3.522029101350689*^9, 
   3.524393913487393*^9, 3.524396315476604*^9, 3.5249778652152*^9, 
   3.5249972175460443`*^9, 3.525067399898238*^9, 3.525070795672432*^9, 
   3.525072068998322*^9, 3.525073228169558*^9, 3.525081021964613*^9, 
   3.525187136531934*^9, 3.525240245346259*^9, 3.525243898164013*^9, 
   3.525397525689818*^9, 3.5253986736243057`*^9, 3.5254934619513197`*^9, 
   3.5256608656060953`*^9, 3.52566190979703*^9, 3.525662978505929*^9, 
   3.52567327577771*^9, 3.545738866981126*^9, 3.5459911257602253`*^9, 
   3.545991466564618*^9, 3.546000117274313*^9, 3.546021353039833*^9, 
   3.546057613121961*^9, 3.546064581936429*^9, 3.546091120386054*^9, 
   3.546325597224828*^9, 3.54824732636344*^9, 3.548404545543087*^9, 
   3.548481246370026*^9, 3.548511424285091*^9, 3.548525806598278*^9, 
   3.5485678694232817`*^9, 3.54857105333307*^9, 3.548575006463656*^9, 
   3.548591584409419*^9, 3.5486620908558064`*^9, 3.548700114545206*^9, 
   3.548756248225559*^9, 3.548911240220799*^9, 3.548930605471644*^9, 
   3.548960794112891*^9, 3.549002177022196*^9, 3.549020859966014*^9, 
   3.549043536593713*^9, 3.549047024573024*^9, 3.5490862706035748`*^9, 
   3.549096266906633*^9, 3.549260301696064*^9, 3.549272919657977*^9, 
   3.549305070024836*^9, 3.549305287608735*^9, 3.549305796777492*^9, 
   3.549358876221293*^9, 3.549433144161248*^9, 3.5494623093508263`*^9, 
   3.549540242484267*^9, 3.550921577795349*^9, 3.550990710279665*^9, 
   3.550996417281294*^9, 3.550996586174802*^9, 3.5553471777782373`*^9, 
   3.5573920915619507`*^9, 3.557403144312715*^9, 3.557466456357749*^9, 
   3.557579372690778*^9, 3.557635725810851*^9, 3.5584411339626207`*^9, 
   3.558549882165765*^9, 3.5600077346533003`*^9, 3.560044347973012*^9, 
   3.560044407125188*^9, 3.560185492330297*^9, 3.560186279245276*^9, 
   3.5601863527760477`*^9, 3.5601865026847067`*^9, 3.560222871943184*^9, 
   3.560256416792395*^9, 3.5602689237036257`*^9, 3.560269926572919*^9, 
   3.56027141169438*^9, 3.560516246759776*^9, 3.560521594573317*^9, 
   3.560534283677905*^9, 3.560535146342045*^9, 3.560842311459519*^9, 
   3.5608444307952414`*^9, 3.5611768024236917`*^9, 3.561210841078137*^9, 
   3.561269140297906*^9, 3.5612755908625917`*^9, 3.561276934892147*^9, 
   3.5613027976497107`*^9, 3.561305360238823*^9, 3.561308530527133*^9, 
   3.561308779430587*^9, {3.561360305872514*^9, 3.5613600602328787`*^9}, 
   3.7281150180331287`*^9, 3.731234872045455*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"63bfe2a2-807a-4681-a5de-bf7615fb3dd2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Relation between the Weyl and the  unphysical connection", \
"Subsubsection",
 CellChangeTimes->{{3.511505316679933*^9, 3.511505325969694*^9}, {
  3.511723539437931*^9, 3.511723553319767*^9}}],

Cell["\<\
We follow the standard procedure to compute the difference between the \
unphysical connection and the Weyl connection\
\>", "Text",
 CellChangeTimes->{{3.5117218867315617`*^9, 3.5117218962207212`*^9}, {
  3.511723504184431*^9, 3.511723520922832*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "WeylCD", ",", "CDg"}], "]"}], "&"}], "/@", 
  "WeylCDUnphysicalg"}]], "Input",
 CellChangeTimes->{{3.511373094519207*^9, 3.5113731333238773`*^9}, {
  3.511721866574151*^9, 3.511721869382832*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"955bc56f-bb21-4bb2-9ecd-f690549777a2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"ChristoffelCDgWeylCD", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Alpha], -$CellContext`\
\[Beta], -$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511373134520858*^9, 3.5114584696878433`*^9, 3.511503131761509*^9, 
   3.5115036859217176`*^9, 3.511503774887342*^9, 3.5115047532790337`*^9, 
   3.511507878676386*^9, 3.511591719155615*^9, 3.511595261940061*^9, 
   3.511630875327692*^9, 3.511631589481078*^9, 3.511721869772038*^9, 
   3.5212740753055964`*^9, 3.521276467378008*^9, 3.521277305079886*^9, 
   3.521277491914918*^9, 3.5212789146059647`*^9, 3.521366046358883*^9, 
   3.5213663023229313`*^9, 3.521370351140894*^9, 3.521440678210124*^9, 
   3.521440918878605*^9, 3.5214559020629253`*^9, 3.521458294567803*^9, 
   3.521506970112445*^9, 3.521520507067849*^9, 3.5215206030575933`*^9, 
   3.5215230136184607`*^9, 3.521539059667039*^9, 3.521785481354653*^9, 
   3.521797358300679*^9, 3.5218039765026207`*^9, 3.521883297171111*^9, 
   3.521940095325327*^9, 3.521971086778552*^9, 3.5219714167577477`*^9, 
   3.5219714755978203`*^9, 3.52197156591765*^9, 3.521972105316087*^9, 
   3.521973954123102*^9, 3.522029101373515*^9, 3.524393913535667*^9, 
   3.524396315516814*^9, 3.5249778652445*^9, 3.5249972175911922`*^9, 
   3.5250674055941896`*^9, 3.525070795707431*^9, 3.5250720690205507`*^9, 
   3.525073228200485*^9, 3.525081022017914*^9, 3.525187136561507*^9, 
   3.525240245365464*^9, 3.5252438981928577`*^9, 3.5253975257243433`*^9, 
   3.52539867363778*^9, 3.5254934619720507`*^9, 3.5256608656303577`*^9, 
   3.5256619098236923`*^9, 3.525662978522393*^9, 3.525673275796193*^9, 
   3.545738866996541*^9, 3.545991125778654*^9, 3.545991466589175*^9, 
   3.546000117321129*^9, 3.546021353053843*^9, 3.5460576131394463`*^9, 
   3.546064581962452*^9, 3.5460911204070272`*^9, 3.546325597248028*^9, 
   3.54824732644837*^9, 3.548404545560705*^9, 3.548481246402631*^9, 
   3.54851142432128*^9, 3.5485258066221113`*^9, 3.548567869455625*^9, 
   3.5485710533681993`*^9, 3.548575006510377*^9, 3.5485915844283113`*^9, 
   3.5486620908795652`*^9, 3.548700114581544*^9, 3.548756248241509*^9, 
   3.54891124024772*^9, 3.5489306055073566`*^9, 3.54896079413717*^9, 
   3.549002177054892*^9, 3.5490208599993477`*^9, 3.54904353662396*^9, 
   3.5490470246021633`*^9, 3.5490862706376143`*^9, 3.549096266940173*^9, 
   3.549260301729843*^9, 3.549272919695874*^9, 3.549305070049798*^9, 
   3.549305287641626*^9, 3.549305796799686*^9, 3.549358876244212*^9, 
   3.549433144191444*^9, 3.549462309375258*^9, 3.549540242513761*^9, 
   3.550921577820068*^9, 3.55099071031319*^9, 3.550996417315938*^9, 
   3.550996586237137*^9, 3.555347177813046*^9, 3.557392091604061*^9, 
   3.557403144384139*^9, 3.557466456391222*^9, 3.557579372719757*^9, 
   3.557635725843522*^9, 3.5584411339957027`*^9, 3.5585498821853113`*^9, 
   3.56000773468557*^9, 3.560044348014439*^9, 3.560044407153927*^9, 
   3.560185492356861*^9, 3.560186279274934*^9, 3.560186352812768*^9, 
   3.5601865027180977`*^9, 3.560222871972754*^9, 3.560256416828426*^9, 
   3.560268923737083*^9, 3.5602699265992537`*^9, 3.560271411723074*^9, 
   3.560516246793179*^9, 3.560521594601912*^9, 3.560534283705896*^9, 
   3.560535146362652*^9, 3.5608423114902763`*^9, 3.56084443084521*^9, 
   3.5611768024556217`*^9, 3.561210841117675*^9, 3.561269140413*^9, 
   3.561275590880548*^9, 3.561276934909096*^9, 3.5613027976711807`*^9, 
   3.5613053603132267`*^9, 3.561308530551958*^9, 3.5613087794686747`*^9, {
   3.561360305911944*^9, 3.561360060268818*^9}, 3.7281150180496073`*^9, 
   3.731234872077752*^9},
 CellLabel->
  "During evaluation of \
In[72]:=",ExpressionUUID->"b18b5008-f901-4f49-a127-3d8fb1882674"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
     
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.511373114258422*^9, 3.5113731346477823`*^9}, 
   3.511458469853849*^9, 3.511503131763528*^9, 3.5115036859238367`*^9, 
   3.51150377488949*^9, 3.511504753282597*^9, 3.511507878724859*^9, 
   3.511591719157688*^9, 3.51159526195813*^9, 3.5116308753296413`*^9, 
   3.511631589490301*^9, 3.5117218698935537`*^9, 3.5212740753625193`*^9, 
   3.521276467438375*^9, 3.521277305106262*^9, 3.521277491920065*^9, 
   3.5212789146087503`*^9, 3.5213660464089127`*^9, 3.521366302370805*^9, 
   3.521370351142668*^9, 3.521440678213355*^9, 3.52144091888221*^9, 
   3.521455902065689*^9, 3.521458294597232*^9, 3.521506970115378*^9, 
   3.521520507071033*^9, 3.5215206030844517`*^9, 3.5215230136203423`*^9, 
   3.521539059669364*^9, 3.521785481398102*^9, 3.521797358302356*^9, 
   3.521803976504959*^9, 3.521883297183057*^9, 3.5219400954026117`*^9, 
   3.52197108678022*^9, 3.5219714167599573`*^9, 3.521971475610468*^9, 
   3.521971565919901*^9, 3.521972105318062*^9, 3.52197395412597*^9, 
   3.522029101376685*^9, 3.52439391356143*^9, 3.5243963155209923`*^9, 
   3.524977865247929*^9, 3.524997217602387*^9, 3.5250674057417517`*^9, 
   3.525070795709675*^9, 3.525072069039441*^9, 3.525073228219284*^9, 
   3.525081022021237*^9, 3.5251871365652122`*^9, 3.525240245367338*^9, 
   3.5252438981972017`*^9, 3.525397525766486*^9, 3.5253986736408777`*^9, 
   3.525493461974556*^9, 3.5256608656358347`*^9, 3.525661909859173*^9, 
   3.525662978536775*^9, 3.5256732757991457`*^9, 3.545738866999805*^9, 
   3.545991125782982*^9, 3.5459914665971403`*^9, 3.5460001173252573`*^9, 
   3.54602135305838*^9, 3.54605761317528*^9, 3.546064581966365*^9, 
   3.546091120410961*^9, 3.5463255972537746`*^9, 3.548247326452341*^9, 
   3.548404545564045*^9, 3.548481246404932*^9, 3.548511424324432*^9, 
   3.548525806627513*^9, 3.548567869458317*^9, 3.548571053390155*^9, 
   3.548575006539456*^9, 3.5485915844314632`*^9, 3.548662090882725*^9, 
   3.5487001145873013`*^9, 3.5487562482448483`*^9, 3.5489112402540216`*^9, 
   3.548930605510223*^9, 3.548960794139606*^9, 3.549002177057034*^9, 
   3.549020860002684*^9, 3.5490435366282988`*^9, 3.549047024605722*^9, 
   3.549086270639913*^9, 3.549096266943665*^9, 3.549260301733302*^9, 
   3.5492729196992073`*^9, 3.5493050700630217`*^9, 3.54930528765827*^9, 
   3.549305796816231*^9, 3.549358876247574*^9, 3.549433144194614*^9, 
   3.549462309377748*^9, 3.549540242516185*^9, 3.5509215778239317`*^9, 
   3.5509907103186626`*^9, 3.550996417319695*^9, 3.550996586244824*^9, 
   3.555347177823291*^9, 3.557392091608407*^9, 3.557403144386548*^9, 
   3.55746645640699*^9, 3.557579372723157*^9, 3.5576357258659143`*^9, 
   3.558441134000073*^9, 3.558549882188003*^9, 3.560007734689826*^9, 
   3.560044348021968*^9, 3.56004440715834*^9, 3.560185492361293*^9, 
   3.560186279279703*^9, 3.5601863528174477`*^9, 3.560186502722845*^9, 
   3.5602228719765053`*^9, 3.5602564168324537`*^9, 3.560268923742198*^9, 
   3.5602699266042137`*^9, 3.560271411738008*^9, 3.560516246796276*^9, 
   3.560521594608954*^9, 3.560534283711193*^9, 3.560535146365488*^9, 
   3.560842311504423*^9, 3.560844430873247*^9, 3.5611768024598503`*^9, 
   3.561210841122388*^9, 3.561269140416967*^9, 3.561275590886202*^9, 
   3.561276934914382*^9, 3.561302797676626*^9, 3.561305360318302*^9, 
   3.561308530556901*^9, 3.5613087794738607`*^9, {3.561360305917951*^9, 
   3.5613600602734118`*^9}, 3.728115018062039*^9, 3.731234872100667*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"39cd2dfb-5398-447a-bf57-3f9a9ee05732"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"expr1", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511341182688305*^9, 3.511341206886155*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"a698ff02-f428-46eb-b60a-ac617b221fc6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ReplaceIndex", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], "\[Rule]", 
         RowBox[{"-", "\[Beta]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], "\[Rule]", 
         RowBox[{"-", "\[Gamma]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Gamma]"}], "\[Rule]", 
         RowBox[{"-", "\[Alpha]"}]}]}], "}"}]}], "]"}], "&"}], "/@", 
   "expr1"}]}]], "Input",
 CellChangeTimes->{{3.511341209205172*^9, 3.511341263405363*^9}, {
  3.525067409371325*^9, 3.525067418477683*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"c85dfc2c-f22d-4000-9631-e651684b9847"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
     
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Gamma]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Beta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.5113412361577797`*^9, 3.511341264009027*^9}, 
   3.511341981398973*^9, 3.511373169638467*^9, 3.511458471242148*^9, 
   3.51150313178087*^9, 3.511503685974999*^9, 3.511503774939105*^9, 
   3.51150475336058*^9, 3.5115078803379383`*^9, 3.5115917192038183`*^9, 
   3.511595262110055*^9, 3.511630875355946*^9, 3.511631589512764*^9, 
   3.5117218726252127`*^9, 3.5212740767495604`*^9, 3.521276467630157*^9, 
   3.521277305158498*^9, 3.521277492009563*^9, 3.521278914677329*^9, 
   3.521366046632228*^9, 3.5213663074375067`*^9, 3.521370351248855*^9, 
   3.521440678284252*^9, 3.521440918966186*^9, 3.521455902091421*^9, 
   3.5214582976348267`*^9, 3.521506970176237*^9, 3.521520507184725*^9, 
   3.521520603213128*^9, 3.5215230136478558`*^9, 3.521539059700254*^9, 
   3.52178548149235*^9, 3.521797358332712*^9, 3.521803976531828*^9, 
   3.521883297206497*^9, 3.5219400955435057`*^9, 3.5219710868012447`*^9, 
   3.521971416788576*^9, 3.521971475633328*^9, 3.5219715660460863`*^9, 
   3.521972105342836*^9, 3.521973954164312*^9, 3.522029101431679*^9, 
   3.524393913608549*^9, 3.524396315570509*^9, 3.524977865283052*^9, 
   3.524997217643794*^9, 3.52506741924096*^9, 3.525067474213943*^9, 
   3.52507079574559*^9, 3.5250720690775948`*^9, 3.5250732282498627`*^9, 
   3.525081022076281*^9, 3.52518713662958*^9, 3.525240245394527*^9, 
   3.525243898226416*^9, 3.5253975258891497`*^9, 3.5253986736586123`*^9, 
   3.525493462012863*^9, 3.5256608657453613`*^9, 3.525661909890843*^9, 
   3.525662978556261*^9, 3.5256732758205023`*^9, 3.545738867021603*^9, 
   3.545991125808544*^9, 3.54599146662957*^9, 3.5460001173951674`*^9, 
   3.5460213531901712`*^9, 3.54605761322966*^9, 3.546064581999048*^9, 
   3.5460911204767733`*^9, 3.546325597357019*^9, 3.5482473267192583`*^9, 
   3.548404545593898*^9, 3.548481246445829*^9, 3.5485114244519176`*^9, 
   3.548525806676695*^9, 3.548567869530922*^9, 3.548571053437975*^9, 
   3.548575006572795*^9, 3.5485915844819717`*^9, 3.5486620909869328`*^9, 
   3.5487001146431417`*^9, 3.548756248292157*^9, 3.548911240292292*^9, 
   3.548930605559341*^9, 3.54896079417682*^9, 3.5490021770874443`*^9, 
   3.549020860055077*^9, 3.549043536692848*^9, 3.549047024635652*^9, 
   3.549086270793839*^9, 3.549096266991829*^9, 3.549260301801427*^9, 
   3.5492729197367163`*^9, 3.549305070091811*^9, 3.54930528773286*^9, 
   3.549305796904429*^9, 3.549358876304825*^9, 3.549433144224307*^9, 
   3.549462309506752*^9, 3.549540242607213*^9, 3.550921577859315*^9, 
   3.5509907103693523`*^9, 3.550996417360903*^9, 3.550996586344327*^9, 
   3.555347177895824*^9, 3.557392091665947*^9, 3.5574031444398737`*^9, 
   3.557466456532031*^9, 3.557579372782035*^9, 3.557635725903408*^9, 
   3.558441134041669*^9, 3.558549882219081*^9, 3.5600077347333508`*^9, 
   3.560044348078753*^9, 3.560044407223629*^9, 3.560185492398489*^9, 
   3.560186279317305*^9, 3.560186352861759*^9, 3.560186502769783*^9, 
   3.560222872016868*^9, 3.5602564168844852`*^9, 3.560268923784213*^9, 
   3.5602699266410913`*^9, 3.560271411775798*^9, 3.56051624683849*^9, 
   3.560521594705636*^9, 3.5605342837623043`*^9, 3.560535146445504*^9, 
   3.560842311545175*^9, 3.5608444309641047`*^9, 3.5611768025190973`*^9, 
   3.561210841217793*^9, 3.561269140470846*^9, 3.561275590931377*^9, 
   3.5612769350613728`*^9, 3.5613027977405376`*^9, 3.561305360392096*^9, 
   3.561308530629431*^9, 3.561308779840404*^9, {3.561360305976091*^9, 
   3.5613600603211718`*^9}, 3.728115018085153*^9, 3.731234872138253*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"34741651-71e2-486f-b812-0916d0439860"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ReplaceIndex", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], "\[Rule]", 
         RowBox[{"-", "\[Beta]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], "\[Rule]", 
         RowBox[{"-", "\[Gamma]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "\[Gamma]"}], "\[Rule]", 
         RowBox[{"-", "\[Alpha]"}]}]}], "}"}]}], "]"}], "&"}], "/@", 
   "expr2"}]}]], "Input",
 CellChangeTimes->{{3.511341268526355*^9, 3.5113412711811533`*^9}, {
  3.525067425554543*^9, 3.525067433142992*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"7c7309be-25b6-4921-bfa5-36f4d4cb8557"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511341272108281*^9, 3.511341981915153*^9, 3.511373170179985*^9, 
   3.511458471734634*^9, 3.51150313179317*^9, 3.5115036859843483`*^9, 
   3.51150377499577*^9, 3.511504753396883*^9, 3.511507880946402*^9, 
   3.511591719216214*^9, 3.511595262162033*^9, 3.511630875378211*^9, 
   3.511631589531358*^9, 3.5117218731275063`*^9, 3.5212740773071833`*^9, 
   3.521276467722095*^9, 3.521277305215238*^9, 3.521277492064399*^9, 
   3.5212789146929893`*^9, 3.521366046715019*^9, 3.521366307985251*^9, 
   3.521370351270746*^9, 3.521440678359774*^9, 3.521440919034849*^9, 
   3.52145590212149*^9, 3.5214583014262123`*^9, 3.521506970242179*^9, 
   3.521520507248375*^9, 3.52152060322899*^9, 3.521523013671451*^9, 
   3.5215390597244997`*^9, 3.521785481565353*^9, 3.521797358355682*^9, 
   3.521803976564885*^9, 3.521883297227933*^9, 3.521940095738159*^9, 
   3.521971086818227*^9, 3.5219714168132687`*^9, 3.521971475654334*^9, 
   3.521971566067514*^9, 3.521972105363721*^9, 3.521973954184667*^9, 
   3.522029101449524*^9, 3.524393913650324*^9, 3.524396315602928*^9, 
   3.5249778653152227`*^9, 3.524997217683847*^9, 3.525067433801738*^9, 
   3.525067474794526*^9, 3.525070795780816*^9, 3.525072069099433*^9, 
   3.5250732282757607`*^9, 3.525081022126623*^9, 3.5251871366673317`*^9, 
   3.525240245415946*^9, 3.525243898250987*^9, 3.5253975259283533`*^9, 
   3.5253986736731367`*^9, 3.525493462060236*^9, 3.5256608657683277`*^9, 
   3.525661909919203*^9, 3.525662978571896*^9, 3.525673275834526*^9, 
   3.54573886705107*^9, 3.5459911259136667`*^9, 3.545991466671892*^9, 
   3.5460001174361877`*^9, 3.546021353250626*^9, 3.546057613292008*^9, 
   3.5460645820648518`*^9, 3.5460911205795403`*^9, 3.5463255974546337`*^9, 
   3.548247326789282*^9, 3.5484045456120863`*^9, 3.548481246479816*^9, 
   3.548511424483645*^9, 3.548525806703444*^9, 3.548567869560236*^9, 
   3.548571053461238*^9, 3.548575006597397*^9, 3.548591584529297*^9, 
   3.548662091018806*^9, 3.5487001146719093`*^9, 3.548756248387822*^9, 
   3.5489112403275223`*^9, 3.5489306055904284`*^9, 3.548960794204772*^9, 
   3.549002177110671*^9, 3.54902086010043*^9, 3.549043536734571*^9, 
   3.5490470246714773`*^9, 3.5490862708298283`*^9, 3.54909626702402*^9, 
   3.5492603018292007`*^9, 3.549272919759981*^9, 3.549305070116128*^9, 
   3.549305287768499*^9, 3.5493057969287367`*^9, 3.549358876339211*^9, 
   3.549433144249175*^9, 3.54946230953344*^9, 3.5495402426434803`*^9, 
   3.550921577907639*^9, 3.550990710412565*^9, 3.55099641739279*^9, 
   3.550996586379939*^9, 3.555347177933043*^9, 3.5573920917086983`*^9, 
   3.557403144482338*^9, 3.557466456563656*^9, 3.55757937280573*^9, 
   3.5576357259454813`*^9, 3.558441134077415*^9, 3.558549882243519*^9, 
   3.5600077347669163`*^9, 3.56004434809794*^9, 3.5600444072593603`*^9, 
   3.5601854924280233`*^9, 3.5601862793467493`*^9, 3.560186352896963*^9, 
   3.560186502808901*^9, 3.560222872047821*^9, 3.560256416923835*^9, 
   3.5602689238185263`*^9, 3.560269926669695*^9, 3.560271411809013*^9, 
   3.560516246855467*^9, 3.560521594734419*^9, 3.560534283793704*^9, 
   3.560535146476351*^9, 3.560842311575965*^9, 3.5608444309975348`*^9, 
   3.561176802552293*^9, 3.561210841360079*^9, 3.5612691404920607`*^9, 
   3.561275590970601*^9, 3.5612769350789337`*^9, 3.561302797766158*^9, 
   3.56130536043155*^9, 3.561308530697912*^9, 3.5613087798567753`*^9, {
   3.561360306012245*^9, 3.5613600603662653`*^9}, 3.728115018101407*^9, 
   3.7312348721655407`*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"55e891d8-3607-4b38-8bb3-8ce01ea8f7ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"First", "@", "expr1"}], "+", 
   RowBox[{"First", "@", "expr2"}], "-", 
   RowBox[{"First", "@", "expr3"}]}], "==", 
  RowBox[{
   RowBox[{"Last", "@", "expr1"}], "+", 
   RowBox[{"Last", "@", "expr2"}], "-", 
   RowBox[{"Last", "@", "expr3"}]}]}]], "Input",
 CellChangeTimes->{{3.511341300110064*^9, 3.511341318976223*^9}, {
  3.511373230615823*^9, 3.5113732512781897`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"cf32313f-a3d2-41e7-a054-b1f1039a6ffc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"\[Del]", ",", 
            OverscriptBox["\[Del]", "^"]}], "]"}], 
          StyleBox[GridBox[{
             {"\[Delta]", " ", " "},
             {" ", "\[Gamma]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
     
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341319998344*^9, 3.511341982568362*^9, 3.511373173053813*^9, 
   3.511373252672085*^9, 3.511458472253561*^9, 3.511503131846993*^9, 
   3.5115036860002203`*^9, 3.511503775010825*^9, 3.5115047534368773`*^9, 
   3.511507881808209*^9, 3.511591719240117*^9, 3.511595262212134*^9, 
   3.511630875407257*^9, 3.511631589560667*^9, 3.51172187359494*^9, 
   3.5212740779364758`*^9, 3.521276467878129*^9, 3.521277305417487*^9, 
   3.52127749212442*^9, 3.521278914775642*^9, 3.5213660468601017`*^9, 
   3.521366308556213*^9, 3.5213703513015213`*^9, 3.521440678435376*^9, 
   3.521440919131024*^9, 3.521455902151005*^9, 3.521458303218034*^9, 
   3.5215069703109207`*^9, 3.5215205073177958`*^9, 3.521520603300577*^9, 
   3.521523013701481*^9, 3.521539059756935*^9, 3.5217854816615973`*^9, 
   3.5217973583852587`*^9, 3.521803976589438*^9, 3.521883297256906*^9, 
   3.521940095825316*^9, 3.521971086841859*^9, 3.521971416837679*^9, 
   3.521971475680024*^9, 3.52197156609726*^9, 3.521972105391341*^9, 
   3.521973954208794*^9, 3.5220291015093946`*^9, 3.524393913666465*^9, 
   3.524396315669992*^9, 3.524977865353263*^9, 3.524997217727783*^9, 
   3.525067435173587*^9, 3.525067475131855*^9, 3.525070795818781*^9, 
   3.525072069126872*^9, 3.525073228309849*^9, 3.525081022188239*^9, 
   3.525187136713066*^9, 3.52524024545162*^9, 3.525243898279896*^9, 
   3.525397526011162*^9, 3.525398673696788*^9, 3.525493462096869*^9, 
   3.525660865806901*^9, 3.5256619099511642`*^9, 3.525662978595199*^9, 
   3.525673275901862*^9, 3.545738867075301*^9, 3.545991126017831*^9, 
   3.545991466758136*^9, 3.546000117472628*^9, 3.546021353296459*^9, 
   3.546057613365108*^9, 3.546064582168373*^9, 3.546091120643367*^9, 
   3.546325597553266*^9, 3.548247326817625*^9, 3.548404545669311*^9, 
   3.54848124651845*^9, 3.548511424592247*^9, 3.548525806734671*^9, 
   3.54856786960441*^9, 3.548571053506765*^9, 3.548575006638229*^9, 
   3.548591584620968*^9, 3.5486620910500174`*^9, 3.548700114711431*^9, 
   3.5487562484426823`*^9, 3.5489112403819227`*^9, 3.548930605656864*^9, 
   3.548960794243475*^9, 3.5490021771434727`*^9, 3.549020860152152*^9, 
   3.549043536786689*^9, 3.5490470247005453`*^9, 3.549086270890709*^9, 
   3.5490962670754128`*^9, 3.54926030187269*^9, 3.54927291980724*^9, 
   3.549305070144801*^9, 3.549305287798358*^9, 3.549305796955681*^9, 
   3.549358876413355*^9, 3.549433144300148*^9, 3.5494623095687313`*^9, 
   3.549540242692779*^9, 3.550921577970841*^9, 3.5509907104636917`*^9, 
   3.550996417445799*^9, 3.550996586422028*^9, 3.555347177977768*^9, 
   3.557392091759487*^9, 3.557403144530016*^9, 3.557466456601232*^9, 
   3.5575793728412724`*^9, 3.55763572599061*^9, 3.5584411341193132`*^9, 
   3.558549882276271*^9, 3.56000773481616*^9, 3.560044348139817*^9, 
   3.560044407302382*^9, 3.560185492465419*^9, 3.5601862793843184`*^9, 
   3.5601863529390697`*^9, 3.560186502849531*^9, 3.5602228720945587`*^9, 
   3.56025641697631*^9, 3.560268923861052*^9, 3.560269926706415*^9, 
   3.5602714118479757`*^9, 3.560516246906514*^9, 3.560521594776297*^9, 
   3.56053428382688*^9, 3.560535146496113*^9, 3.560842311623109*^9, 
   3.560844431038987*^9, 3.561176802611869*^9, 3.561210841563487*^9, 
   3.5612691405829144`*^9, 3.561275591105008*^9, 3.561276935121304*^9, 
   3.561302797826223*^9, 3.561305360462214*^9, 3.5613085307325163`*^9, 
   3.5613087799088497`*^9, {3.561360306068508*^9, 3.561360060416953*^9}, 
   3.728115018127129*^9, 3.73123487220018*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"aa613a76-3c35-42cd-b196-ddf445702917"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511341321708908*^9, 3.511341324535602*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"0905bc44-4f62-4b4b-8d0e-424a02409f3b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"\[CapitalGamma]", "[", 
         RowBox[{"\[Del]", ",", 
          OverscriptBox["\[Del]", "^"]}], "]"}], 
        StyleBox[GridBox[{
           {"\[Delta]", " ", " "},
           {" ", "\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Gamma]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511341325117337*^9, 3.511341983179254*^9, 3.511373179323992*^9, 
   3.511373254143285*^9, 3.5114584729549913`*^9, 3.51150313189338*^9, 
   3.511503686034223*^9, 3.511503775045021*^9, 3.511504753513242*^9, 
   3.5115078824492073`*^9, 3.511591719277111*^9, 3.511595262293171*^9, 
   3.511630875454362*^9, 3.511631589600142*^9, 3.5117218741524353`*^9, 
   3.52127407872274*^9, 3.521276468058272*^9, 3.521277305695723*^9, 
   3.5212774921811438`*^9, 3.521278914838876*^9, 3.521366047030891*^9, 
   3.5213663094693613`*^9, 3.521370351347219*^9, 3.5214406785349216`*^9, 
   3.521440919175078*^9, 3.521455902194952*^9, 3.52145830431141*^9, 
   3.521506970375181*^9, 3.521520507409058*^9, 3.521520603396469*^9, 
   3.521523013748402*^9, 3.521539059808305*^9, 3.521785481745338*^9, 
   3.521797358478129*^9, 3.521803976634479*^9, 3.5218832973127003`*^9, 
   3.521940095937614*^9, 3.521971086925687*^9, 3.5219714168793783`*^9, 
   3.521971475797042*^9, 3.521971566140154*^9, 3.521972105432129*^9, 
   3.521973954247788*^9, 3.522029101579459*^9, 3.5243939137012873`*^9, 
   3.524396315740291*^9, 3.52497786540267*^9, 3.524997217806439*^9, 
   3.52506743613083*^9, 3.5250674756423283`*^9, 3.525070795872641*^9, 
   3.5250720691708927`*^9, 3.525073228361685*^9, 3.525081022274777*^9, 
   3.525187136758305*^9, 3.525240245492764*^9, 3.525243898324596*^9, 
   3.5253975260885468`*^9, 3.525398673736417*^9, 3.525493462142068*^9, 
   3.5256608658525257`*^9, 3.5256619100075083`*^9, 3.525662978640642*^9, 
   3.5256732759869204`*^9, 3.545738867128313*^9, 3.545991126223804*^9, 
   3.545991466923229*^9, 3.546000117548583*^9, 3.546021353373761*^9, 
   3.54605761350863*^9, 3.546064582248116*^9, 3.546091120732942*^9, 
   3.546325597632707*^9, 3.5482473269319363`*^9, 3.54840454574588*^9, 
   3.548481246572884*^9, 3.5485114246546373`*^9, 3.54852580679387*^9, 
   3.548567869666524*^9, 3.548571053568037*^9, 3.54857500668786*^9, 
   3.54859158469637*^9, 3.54866209109552*^9, 3.548700114782832*^9, 
   3.548756248513783*^9, 3.548911240444017*^9, 3.5489306057098637`*^9, 
   3.5489607943018*^9, 3.549002177198927*^9, 3.549020860253758*^9, 
   3.549043536846538*^9, 3.5490470247447844`*^9, 3.5490862709531183`*^9, 
   3.5490962672360697`*^9, 3.54926030190987*^9, 3.549272919893552*^9, 
   3.549305070200714*^9, 3.549305287851056*^9, 3.549305797009882*^9, 
   3.549358876493328*^9, 3.5494331443349*^9, 3.549462309616486*^9, 
   3.5495402427470493`*^9, 3.550921578100903*^9, 3.5509907105163403`*^9, 
   3.5509964175090523`*^9, 3.550996586465715*^9, 3.5553471780473146`*^9, 
   3.557392091834526*^9, 3.5574031445973454`*^9, 3.557466456653038*^9, 
   3.5575793728894453`*^9, 3.5576357260480347`*^9, 3.558441134171184*^9, 
   3.558549882323935*^9, 3.56000773488448*^9, 3.5600443482115707`*^9, 
   3.560044407401926*^9, 3.560185492528768*^9, 3.560186279446959*^9, 
   3.5601863530067043`*^9, 3.560186502919363*^9, 3.56022287215971*^9, 
   3.560256417032444*^9, 3.5602689239288*^9, 3.560269926768622*^9, 
   3.560271411912355*^9, 3.560516246979369*^9, 3.56052159484807*^9, 
   3.560534283877882*^9, 3.560535146531479*^9, 3.560842311689046*^9, 
   3.560844431113381*^9, 3.561176802668195*^9, 3.5612108417329893`*^9, 
   3.561269140656191*^9, 3.5612755911807823`*^9, 3.561276935180542*^9, 
   3.561302797904612*^9, 3.561305360526259*^9, 3.561308530791305*^9, 
   3.5613087800060463`*^9, {3.561360306138073*^9, 3.5613600604888277`*^9}, 
   3.728115018166265*^9, 3.731234872241865*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"00f4ec77-5dde-461d-acd0-29a8fbaee74a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"-", "\[Gamma]"}], "\[Rule]", "\[Gamma]"}]}]], "Input",
 CellChangeTimes->{{3.511373271045282*^9, 3.511373276008848*^9}, {
  3.525067439089117*^9, 3.525067441028172*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"6368bea8-af55-472e-b86c-0239a6715552"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"\[CapitalGamma]", "[", 
         RowBox[{"\[Del]", ",", 
          OverscriptBox["\[Del]", "^"]}], "]"}], 
        StyleBox[GridBox[{
           {"\[Gamma]", " ", " "},
           {" ", "\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Gamma]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Gamma]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.51137327669103*^9, 3.511458473794793*^9, 3.511503131906863*^9, 
   3.511503686042602*^9, 3.511503775053733*^9, 3.511504753555841*^9, 
   3.5115078831893597`*^9, 3.511591719324954*^9, 3.511595262347958*^9, 
   3.511630875474061*^9, 3.5116315896207047`*^9, 3.511721874683402*^9, 
   3.5212740797953043`*^9, 3.5212764683188467`*^9, 3.5212773057939787`*^9, 
   3.5212774922776957`*^9, 3.521278914912393*^9, 3.521366047268177*^9, 
   3.521366310208865*^9, 3.521370351371806*^9, 3.521440678595109*^9, 
   3.5214409191863317`*^9, 3.521455902218404*^9, 3.5214583054071198`*^9, 
   3.521506970451332*^9, 3.5215205074243927`*^9, 3.521520603447888*^9, 
   3.52152301377175*^9, 3.521539059833064*^9, 3.521785481832376*^9, 
   3.5217973585005207`*^9, 3.521803976664309*^9, 3.521883297337146*^9, 
   3.521940096010096*^9, 3.521971086944392*^9, 3.521971416891992*^9, 
   3.5219714758344088`*^9, 3.521971566163493*^9, 3.5219721054625883`*^9, 
   3.521973954265333*^9, 3.522029101640994*^9, 3.524393913710897*^9, 
   3.524396315776968*^9, 3.5249778654363947`*^9, 3.524997217857703*^9, 
   3.5250674418981037`*^9, 3.525067475930382*^9, 3.5250707959095097`*^9, 
   3.525072069198352*^9, 3.525073228390891*^9, 3.525081022287511*^9, 
   3.525187136782938*^9, 3.525240245518749*^9, 3.525243898350498*^9, 
   3.525397526131974*^9, 3.525398673750634*^9, 3.525493462159746*^9, 
   3.52566086588657*^9, 3.5256619100412827`*^9, 3.525662978654284*^9, 
   3.525673276038918*^9, 3.545738867168748*^9, 3.545991126237492*^9, 
   3.545991467084907*^9, 3.5460001175917177`*^9, 3.5460213534391317`*^9, 
   3.5460576135555573`*^9, 3.546064582307131*^9, 3.5460911207856083`*^9, 
   3.546325597718052*^9, 3.548247327184354*^9, 3.548404545783896*^9, 
   3.548481246602242*^9, 3.548511424696032*^9, 3.548525806816745*^9, 
   3.5485678696988773`*^9, 3.548571053599269*^9, 3.5485750067170763`*^9, 
   3.54859158474471*^9, 3.548662091137628*^9, 3.548700114815383*^9, 
   3.548756248554483*^9, 3.548911240484672*^9, 3.5489306057436438`*^9, 
   3.5489607943472767`*^9, 3.5490021772335863`*^9, 3.549020860311002*^9, 
   3.5490435369233522`*^9, 3.5490470247750063`*^9, 3.549086270988493*^9, 
   3.5490962672710238`*^9, 3.5492603019449787`*^9, 3.549272919942889*^9, 
   3.54930507022646*^9, 3.549305287873337*^9, 3.549305797038684*^9, 
   3.5493588765322723`*^9, 3.549433144363934*^9, 3.549462309644693*^9, 
   3.549540242784306*^9, 3.5509215781322002`*^9, 3.5509907105590277`*^9, 
   3.550996417579376*^9, 3.550996586481791*^9, 3.55534717808244*^9, 
   3.55739209187827*^9, 3.557403144638905*^9, 3.557466456684716*^9, 
   3.5575793729154882`*^9, 3.5576357260784883`*^9, 3.558441134203698*^9, 
   3.558549882350485*^9, 3.5600077349024887`*^9, 3.560044348248757*^9, 
   3.5600444074464083`*^9, 3.5601854925575533`*^9, 3.560186279475753*^9, 
   3.560186353039497*^9, 3.560186502954463*^9, 3.560222872189959*^9, 
   3.5602564170684233`*^9, 3.560268923962803*^9, 3.56026992679675*^9, 
   3.5602714119429893`*^9, 3.560516247018076*^9, 3.560521594883152*^9, 
   3.560534283910232*^9, 3.560535146561364*^9, 3.560842311719791*^9, 
   3.560844431141851*^9, 3.5611768027010527`*^9, 3.561210841771221*^9, 
   3.561269140695629*^9, 3.5612755912181253`*^9, 3.561276935228097*^9, 
   3.5613027979536858`*^9, 3.561305360583054*^9, 3.561308530880294*^9, 
   3.561308780056831*^9, {3.5613603061822577`*^9, 3.561360060531558*^9}, 
   3.728115018185042*^9, 3.73123487226919*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"e9de062b-78f2-4059-9dcf-12ad9f7e94e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"%", ",", "\[InvisibleSpace]", 
       RowBox[{"Union", "@", 
        RowBox[{"Cases", "[", 
         RowBox[{"%", ",", "_ChristoffelCDgWeylCD", ",", "Infinity"}], 
         "]"}]}]}], "]"}], "//", "Flatten"}], "//", "First"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.511373281185265*^9, 3.5113733247230253`*^9}, {
  3.511373426463863*^9, 3.511373457028388*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"0feb7fdf-85f7-465e-bc7e-379c9db53b47"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "^"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " ", " "},
          {" ", "\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Gamma]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Gamma]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511373325338661*^9, {3.511373448278071*^9, 3.511373458714267*^9}, {
   3.511373513439313*^9, 3.5113735190651484`*^9}, 3.511373567406624*^9, {
   3.511373609593649*^9, 3.511373632055029*^9}, {3.51137371976398*^9, 
   3.511373730462039*^9}, {3.511373877043775*^9, 3.5113739049435577`*^9}, 
   3.511373958280038*^9, 3.511374003934005*^9, 3.51145847454913*^9, 
   3.511503131946331*^9, 3.5115036860896*^9, 3.511503775064084*^9, 
   3.511504753590897*^9, 3.511507883886849*^9, 3.5115917193698397`*^9, 
   3.5115952623937273`*^9, 3.511630875575158*^9, 3.511631589639721*^9, 
   3.5117218751640587`*^9, 3.5212740805309563`*^9, 3.5212764684815693`*^9, 
   3.521277305868807*^9, 3.5212774923337603`*^9, 3.5212789149795513`*^9, 
   3.521366047422818*^9, 3.52136631092635*^9, 3.521370351400618*^9, 
   3.521440678704302*^9, 3.521440919199482*^9, 3.5214559022541103`*^9, 
   3.5214583064020653`*^9, 3.521506970518634*^9, 3.521520507442073*^9, 
   3.521520603530574*^9, 3.521523013794014*^9, 3.521539059858374*^9, 
   3.521785481851481*^9, 3.521797358524322*^9, 3.521803976685864*^9, 
   3.5218832973626633`*^9, 3.52194009608672*^9, 3.521971086964198*^9, 
   3.5219714169154053`*^9, 3.52197147585546*^9, 3.521971566208851*^9, 
   3.52197210548983*^9, 3.521973954289775*^9, 3.522029101692317*^9, 
   3.524393913722046*^9, 3.524396315832782*^9, 3.5249778654894657`*^9, 
   3.524997217896035*^9, {3.525067454313401*^9, 3.525067476657278*^9}, 
   3.525070795942321*^9, 3.525072069223151*^9, 3.525073228416503*^9, 
   3.525081022302269*^9, 3.525187136810947*^9, 3.5252402455418463`*^9, 
   3.525243898377652*^9, 3.525397526160727*^9, 3.525398673766591*^9, 
   3.5254934621912317`*^9, 3.525660865911832*^9, 3.5256619100791607`*^9, 
   3.525662978671286*^9, 3.525673276088809*^9, 3.5457388672041693`*^9, 
   3.5459911262920427`*^9, 3.5459914674273643`*^9, 3.5460001176335573`*^9, 
   3.546021353487467*^9, 3.546057613600733*^9, 3.5460645823557663`*^9, 
   3.546091120835246*^9, 3.54632559776514*^9, 3.5482473274598417`*^9, 
   3.548404545819849*^9, 3.5484812466359663`*^9, 3.548511424734289*^9, 
   3.5485258068416767`*^9, 3.548567869737296*^9, 3.5485710536269207`*^9, 
   3.548575006739987*^9, 3.548591584780353*^9, 3.548662091177251*^9, 
   3.548700114849349*^9, 3.5487562485892878`*^9, 3.5489112405167913`*^9, 
   3.5489306057928047`*^9, 3.548960794373735*^9, 3.54900217725975*^9, 
   3.5490208603633957`*^9, 3.549043536982148*^9, 3.549047024798349*^9, 
   3.549086271028335*^9, 3.5490962673127737`*^9, 3.549260301974778*^9, 
   3.549272920025284*^9, 3.5493050702551727`*^9, 3.549305287900827*^9, 
   3.549305797064682*^9, 3.549358876570056*^9, 3.549433144405325*^9, 
   3.549462309660643*^9, 3.549540242826125*^9, 3.5509215781531677`*^9, 
   3.5509907105956793`*^9, 3.550996417613577*^9, 3.550996586500103*^9, 
   3.555347178117806*^9, 3.557392091922594*^9, 3.557403144680092*^9, 
   3.557466456711138*^9, 3.557579372944517*^9, 3.5576357261139107`*^9, 
   3.5584411342366133`*^9, 3.55854988237707*^9, 3.560007734939374*^9, 
   3.560044348285795*^9, 3.5600444075169287`*^9, 3.560185492586575*^9, 
   3.5601862795049143`*^9, 3.560186353075395*^9, 3.560186502989889*^9, 
   3.5602228722238703`*^9, 3.560256417105205*^9, 3.560268923999036*^9, 
   3.560269926825032*^9, 3.560271411973732*^9, 3.5605162470560827`*^9, 
   3.560521594918051*^9, 3.5605342839494534`*^9, 3.5605351465841837`*^9, 
   3.5608423117513657`*^9, 3.560844431229464*^9, 3.561176802737862*^9, 
   3.561210841808792*^9, 3.561269140725588*^9, 3.561275591261675*^9, 
   3.561276935248884*^9, 3.561302798015489*^9, 3.561305360622171*^9, 
   3.56130853092799*^9, 3.5613087801025133`*^9, {3.561360306214933*^9, 
   3.5613600605870247`*^9}, 3.72811501820306*^9, 3.7312348722983627`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"65d4d6f9-052b-4f42-a8b7-34dd938a0abd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{"%", "/.", 
   RowBox[{
    RowBox[{"\[ScriptF]", "[", 
     RowBox[{"-", "\[Alpha]_"}], "]"}], "->", 
    RowBox[{
     RowBox[{"deltaM", "[", 
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], ",", "\[Rho]"}], "]"}], 
     RowBox[{"\[ScriptF]", "[", 
      RowBox[{"-", "\[Rho]"}], "]"}]}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.511373395411243*^9, 3.51137340924362*^9}, {
   3.5113734646445007`*^9, 3.511373523378162*^9}, {3.511373561089822*^9, 
   3.51137356523839*^9}, {3.511373614765586*^9, 3.5113737044990377`*^9}, {
   3.511373738815905*^9, 3.5113737396359453`*^9}, {3.511373898429861*^9, 
   3.51137390124914*^9}, 3.511373952699072*^9, {3.511507441737423*^9, 
   3.5115074456568527`*^9}, {3.511507509195889*^9, 3.511507544367063*^9}, {
   3.511508002484311*^9, 3.511508033809602*^9}, {3.525067457421274*^9, 
   3.525067479614684*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"6204d2a6-4462-49f7-8a1b-67872d6c2e9c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "^"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " ", " "},
          {" ", "\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Gamma]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"deltaM", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`deltaM[-$CellContext`\[Alpha], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Rho]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Rho]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Gamma]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"deltaM", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`deltaM[-$CellContext`\[Beta], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Rho]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Rho]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.511373507972513*^9, 3.511373524028742*^9}, 
   3.5113735680868464`*^9, 3.511373616820066*^9, {3.51137370519571*^9, 
   3.511373740295607*^9}, {3.511373882084126*^9, 3.511373908851894*^9}, 
   3.511373965961965*^9, 3.511374007444433*^9, 3.511458477629775*^9, 
   3.511503132024296*^9, 3.511503686106215*^9, 3.511503775116418*^9, 
   3.511504753604991*^9, 3.511507446966838*^9, 3.511507545345991*^9, {
   3.51150803677115*^9, 3.511508042663862*^9}, 3.511591719412273*^9, 
   3.5115952624358673`*^9, 3.511630875597534*^9, 3.5116315896581507`*^9, 
   3.5117218756412497`*^9, 3.521274081228114*^9, 3.521276468746992*^9, 
   3.521277306001319*^9, 3.521277492387048*^9, 3.5212789149975357`*^9, 
   3.521366047662434*^9, 3.521366311702888*^9, 3.5213703514252367`*^9, 
   3.52144067876822*^9, 3.521440919263685*^9, 3.521455902283608*^9, 
   3.521458307557187*^9, 3.5215069706187887`*^9, 3.5215205074594297`*^9, 
   3.521520603587652*^9, 3.521523013817103*^9, 3.521539059894618*^9, 
   3.521785481869322*^9, 3.521797358548176*^9, 3.5218039767093077`*^9, 
   3.5218832973894873`*^9, 3.52194009616591*^9, 3.521971086987096*^9, 
   3.5219714169371758`*^9, 3.521971475875559*^9, 3.521971566231062*^9, 
   3.52197210551472*^9, 3.52197395431644*^9, 3.522029101736189*^9, 
   3.524393913762493*^9, 3.524396315891*^9, 3.5249778655180073`*^9, 
   3.5249972179360237`*^9, {3.5250674651216288`*^9, 3.5250674802601643`*^9}, 
   3.525070795978897*^9, 3.52507206924855*^9, 3.525073228443331*^9, 
   3.525081022316523*^9, 3.5251871368360653`*^9, 3.525240245565041*^9, 
   3.525243898440596*^9, 3.525397526205476*^9, 3.525398673781756*^9, 
   3.525493462214754*^9, 3.525660865937886*^9, 3.525661910105749*^9, 
   3.525662978687125*^9, 3.525673276134417*^9, 3.545738867239477*^9, 
   3.5459911263652763`*^9, 3.545991467534781*^9, 3.54600011767731*^9, 
   3.546021353605117*^9, 3.546057613664536*^9, 3.5460645823861713`*^9, 
   3.546091120859889*^9, 3.546325597824744*^9, 3.548247327571846*^9, 
   3.5484045458651743`*^9, 3.548481246673245*^9, 3.548511424772668*^9, 
   3.548525806866078*^9, 3.548567869777916*^9, 3.548571053663046*^9, 
   3.5485750067673407`*^9, 3.548591584826351*^9, 3.5486620912108393`*^9, 
   3.548700114888954*^9, 3.548756248629588*^9, 3.548911240556745*^9, 
   3.548930605828292*^9, 3.548960794401935*^9, 3.549002177286645*^9, 
   3.5490208604111557`*^9, 3.549043537017384*^9, 3.549047024825183*^9, 
   3.549086271063799*^9, 3.549096267350456*^9, 3.5492603020129128`*^9, 
   3.5492729200594463`*^9, 3.5493050702886057`*^9, 3.549305287938476*^9, 
   3.549305797090435*^9, 3.54935887661331*^9, 3.549433144437587*^9, 
   3.549462309691588*^9, 3.549540242866797*^9, 3.550921578175292*^9, 
   3.550990710640201*^9, 3.5509964176340733`*^9, 3.5509965865170937`*^9, 
   3.555347178157544*^9, 3.557392091958856*^9, 3.557403144718347*^9, 
   3.557466456737851*^9, 3.557579372978586*^9, 3.557635726147389*^9, 
   3.5584411342727003`*^9, 3.558549882405138*^9, 3.5600077349751797`*^9, 
   3.560044348326523*^9, 3.560044407604165*^9, 3.560185492616763*^9, 
   3.560186279534109*^9, 3.560186353109013*^9, 3.560186503029718*^9, 
   3.560222872256921*^9, 3.5602564171476107`*^9, 3.5602689240337477`*^9, 
   3.560269926854094*^9, 3.560271412004903*^9, 3.5605162470938787`*^9, 
   3.560521594948434*^9, 3.560534283979121*^9, 3.5605351466266117`*^9, 
   3.5608423117852373`*^9, 3.5608444312723*^9, 3.561176802793112*^9, 
   3.5612108418460283`*^9, 3.5612691407501163`*^9, 3.561275591357329*^9, 
   3.56127693528414*^9, 3.561302798076263*^9, 3.561305360670597*^9, 
   3.561308530971924*^9, 3.5613087801762867`*^9, {3.561360306261733*^9, 
   3.561360060625421*^9}, 3.728115018221053*^9, 3.731234872328207*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"e555470d-d9b2-4a1f-9db4-c4fbc3b6c7c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{"%", "/.", 
   RowBox[{
    RowBox[{"\[ScriptF]", "[", "\[Alpha]_Symbol", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"Unphysicalg", "[", 
      RowBox[{"\[Alpha]", ",", "\[Rho]"}], "]"}], 
     RowBox[{"\[ScriptF]", "[", 
      RowBox[{"-", "\[Rho]"}], "]"}]}]}]}], ")"}]], "Input",
 CellChangeTimes->{{3.5115080523693666`*^9, 3.511508070906921*^9}, {
  3.5250674843959846`*^9, 3.52506749162288*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"a2feac5e-f934-4fe2-85f0-9249a9931b4f"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "^"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " ", " "},
          {" ", "\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Gamma]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"deltaM", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`deltaM[-$CellContext`\[Alpha], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Rho]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Rho]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Gamma]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"deltaM", 
         StyleBox[GridBox[{
            {" ", "\[Rho]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`deltaM[-$CellContext`\[Beta], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Rho]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Rho]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[Gamma]", "\[Rho]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[Gamma], $CellContext`\[Rho]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Rho]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Rho]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511508073384056*^9, 3.51159171945485*^9, 3.5115952624798717`*^9, 
   3.51163087562601*^9, 3.511631589683489*^9, 3.511721876152747*^9, 
   3.5212740818963203`*^9, 3.521276468928742*^9, 3.521277306081888*^9, 
   3.5212774923991423`*^9, 3.521278915069496*^9, 3.5213660478971863`*^9, 
   3.5213663127731123`*^9, 3.5213703514497337`*^9, 3.521440678843295*^9, 
   3.5214409193325*^9, 3.521455902306242*^9, 3.521458310358141*^9, 
   3.521506970673834*^9, 3.521520507477427*^9, 3.521520603607382*^9, 
   3.521523013840514*^9, 3.521539059920745*^9, 3.5217854818877983`*^9, 
   3.521797358571432*^9, 3.52180397673146*^9, 3.521883297412354*^9, 
   3.521940096307107*^9, 3.521971087007822*^9, 3.521971416958727*^9, 
   3.5219714758954144`*^9, 3.521971566265894*^9, 3.521972105539044*^9, 
   3.521973954341091*^9, 3.522029101759132*^9, 3.524393913772873*^9, 
   3.5243963159293118`*^9, 3.5249778655499887`*^9, 3.524997217985642*^9, 
   3.525067492309671*^9, 3.525070796030813*^9, 3.525072069278016*^9, 
   3.5250732284551077`*^9, 3.525081022376412*^9, 3.525187136881686*^9, 
   3.525240245663913*^9, 3.525243898467104*^9, 3.5253975262426367`*^9, 
   3.5253986737980957`*^9, 3.52549346224406*^9, 3.5256608659547787`*^9, 
   3.525661910133491*^9, 3.5256629787031813`*^9, 3.525673276271744*^9, 
   3.545738867260932*^9, 3.5459911263808002`*^9, 3.545991467560416*^9, 
   3.54600011773205*^9, 3.5460213536550283`*^9, 3.5460576136867867`*^9, 
   3.5460645824469*^9, 3.546091120885303*^9, 3.5463255978471813`*^9, 
   3.548247327636492*^9, 3.548404545891943*^9, 3.548481246715592*^9, 
   3.548511424817099*^9, 3.548525806893887*^9, 3.5485678698707533`*^9, 
   3.5485710536870613`*^9, 3.5485750067907267`*^9, 3.548591584874037*^9, 
   3.5486620912494507`*^9, 3.5487001149213037`*^9, 3.54875624864861*^9, 
   3.548911240597785*^9, 3.548930605858508*^9, 3.548960794432144*^9, 
   3.549002177324224*^9, 3.549020860442835*^9, 3.549043537049671*^9, 
   3.549047024850299*^9, 3.5490862710974407`*^9, 3.549096267377281*^9, 
   3.5492603020456457`*^9, 3.549272920156955*^9, 3.549305070325103*^9, 
   3.549305287947878*^9, 3.549305797113493*^9, 3.5493588766601887`*^9, 
   3.5494331444633493`*^9, 3.549462309727425*^9, 3.5495402429052153`*^9, 
   3.550921578199972*^9, 3.550990710683734*^9, 3.550996417655245*^9, 
   3.5509965865520773`*^9, 3.5553471781936293`*^9, 3.5573920919959517`*^9, 
   3.5574031447571583`*^9, 3.557466456775258*^9, 3.5575793730052137`*^9, 
   3.557635726185802*^9, 3.5584411343063803`*^9, 3.558549882435192*^9, 
   3.5600077350119057`*^9, 3.560044348368678*^9, 3.560044407676097*^9, 
   3.560185492647032*^9, 3.560186279564063*^9, 3.560186353147812*^9, 
   3.5601865030699167`*^9, 3.560222872290887*^9, 3.560256417187036*^9, 
   3.560268924068407*^9, 3.5602699268830147`*^9, 3.5602714120360327`*^9, 
   3.560516247112661*^9, 3.560521594964566*^9, 3.560534284013554*^9, 
   3.560535146655727*^9, 3.5608423118202744`*^9, 3.560844431302706*^9, 
   3.561176802843665*^9, 3.561210841886023*^9, 3.561269140775488*^9, 
   3.561275591413291*^9, 3.561276935346396*^9, 3.561302798130436*^9, 
   3.5613053606999893`*^9, 3.561308531011387*^9, 3.561308780244596*^9, {
   3.561360306297578*^9, 3.561360060663554*^9}, 3.7281150182400103`*^9, 
   3.7312348723575077`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"0d2164bd-c49d-4195-acce-27ff164e9e11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{"\[ScriptF]", "[", 
      RowBox[{"-", "\[Rho]"}], "]"}]}], "]"}], "&"}], "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5113737502117*^9, 3.5113737644025717`*^9}, {
  3.511507587220482*^9, 3.5115075943271227`*^9}, {3.5115080797083673`*^9, 
  3.511508083848485*^9}, {3.525067494618445*^9, 3.525067495589243*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"a364e3e6-cacd-4624-bb8a-2ebbad0989e2"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "^"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " ", " "},
          {" ", "\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Gamma]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"deltaM", 
           StyleBox[GridBox[{
              {" ", "\[Rho]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`deltaM[-$CellContext`\[Alpha], $CellContext`\[Rho]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Gamma]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"deltaM", 
           StyleBox[GridBox[{
              {" ", "\[Rho]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`deltaM[-$CellContext`\[Beta], $CellContext`\[Rho]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Gamma]", "\[Rho]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Gamma], $CellContext`\[Rho]],
       Editable->False]}]}], ")"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Rho]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Rho]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511373765215519*^9, 3.51137401641461*^9, 3.511458479896081*^9, 
   3.511503132119519*^9, 3.511503686124669*^9, 3.511503775134614*^9, 
   3.5115047536785316`*^9, 3.511507595048273*^9, 3.51150808486905*^9, 
   3.511591719494432*^9, 3.511595262523888*^9, 3.511630875648768*^9, 
   3.5116315897019377`*^9, 3.5117218766848993`*^9, 3.521274082543935*^9, 
   3.52127646918147*^9, 3.521277306169396*^9, 3.5212774924105053`*^9, 
   3.521278915138373*^9, 3.521366047978381*^9, 3.5213663133794537`*^9, 
   3.521370351486661*^9, 3.521440678856007*^9, 3.521440919403651*^9, 
   3.521455902349719*^9, 3.521458312328299*^9, 3.521506970734848*^9, 
   3.52152050753621*^9, 3.5215206036255074`*^9, 3.521523013862563*^9, 
   3.521539059944955*^9, 3.521785481964306*^9, 3.521797358595212*^9, 
   3.5218039767517*^9, 3.521883297434329*^9, 3.521940096370072*^9, 
   3.521971087024844*^9, 3.521971416982568*^9, 3.5219714759143972`*^9, 
   3.521971566287916*^9, 3.52197210556314*^9, 3.521973954363092*^9, 
   3.522029101777849*^9, 3.524393913782753*^9, 3.524396315964807*^9, 
   3.524977865579153*^9, 3.524997218027204*^9, 3.5250674962690372`*^9, 
   3.525070796064596*^9, 3.525072069304173*^9, 3.5250732284651413`*^9, 
   3.525081022425289*^9, 3.5251871369162188`*^9, 3.525240245698967*^9, 
   3.525243898493524*^9, 3.5253975262715197`*^9, 3.525398673814582*^9, 
   3.525493462270166*^9, 3.525660865968452*^9, 3.5256619101695623`*^9, 
   3.5256629787182207`*^9, 3.525673276321707*^9, 3.545738867276465*^9, 
   3.545991126394848*^9, 3.545991467580141*^9, 3.5460001177792883`*^9, 
   3.5460213537135973`*^9, 3.546057613708108*^9, 3.5460645825114803`*^9, 
   3.546091120909905*^9, 3.5463255978666077`*^9, 3.548247327658476*^9, 
   3.548404545908429*^9, 3.548481246748632*^9, 3.548511424837014*^9, 
   3.548525806925437*^9, 3.548567869919842*^9, 3.548571053713326*^9, 
   3.548575006821011*^9, 3.548591584905376*^9, 3.548662091289747*^9, 
   3.548700114949946*^9, 3.5487562486647243`*^9, 3.5489112406286488`*^9, 
   3.548930605899417*^9, 3.548960794457223*^9, 3.549002177373605*^9, 
   3.54902086046525*^9, 3.5490435370854053`*^9, 3.549047024872397*^9, 
   3.549086271133936*^9, 3.5490962673958406`*^9, 3.549260302083881*^9, 
   3.5492729201917562`*^9, 3.549305070351561*^9, 3.5493052879692*^9, 
   3.549305797135445*^9, 3.549358876680265*^9, 3.549433144497505*^9, 
   3.54946230975525*^9, 3.549540242918923*^9, 3.550921578237709*^9, 
   3.5509907107512608`*^9, 3.550996417674282*^9, 3.550996586570826*^9, 
   3.555347178231442*^9, 3.557392092039648*^9, 3.557403144803863*^9, 
   3.557466456798272*^9, 3.5575793730324097`*^9, 3.557635726226948*^9, 
   3.558441134339348*^9, 3.558549882463204*^9, 3.560007735045787*^9, 
   3.560044348405961*^9, 3.560044407739561*^9, 3.560185492678732*^9, 
   3.560186279593741*^9, 3.560186353183695*^9, 3.560186503105752*^9, 
   3.560222872322823*^9, 3.560256417228297*^9, 3.5602689241028833`*^9, 
   3.5602699269118547`*^9, 3.560271412066964*^9, 3.560516247128405*^9, 
   3.5605215949786177`*^9, 3.560534284048808*^9, 3.560535146683734*^9, 
   3.5608423118516397`*^9, 3.560844431342607*^9, 3.561176802924644*^9, 
   3.561210841902561*^9, 3.561269140817546*^9, 3.561275591483386*^9, 
   3.561276935384882*^9, 3.5613027981756144`*^9, 3.56130536079196*^9, 
   3.5613085310487223`*^9, 3.561308780288006*^9, {3.561360306331716*^9, 
   3.561360060779508*^9}, 3.7281150182577543`*^9, 3.7312348723855467`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"49c28b1a-b6f5-4307-b27b-ed07c6b37922"]
}, Open  ]],

Cell["We remove the \"temporary delta\"", "Text",
 CellChangeTimes->{{3.511373780989873*^9, 3.511373786830516*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"deltaM", "\[Rule]", "delta"}]}]], "Input",
 CellChangeTimes->{{3.511373771255979*^9, 3.511373777337138*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"c63fe636-fb17-4830-be12-cd646ffd3dba"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "^"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " ", " "},
          {" ", "\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Rho]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Rho]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Gamma]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Gamma]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Rho]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Rho]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Gamma]", "\[Rho]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Gamma], $CellContext`\[Rho]],
       Editable->False]}]}], ")"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Rho]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Rho]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5113737779903393`*^9, 3.5113740191843967`*^9, 3.511458482134141*^9, 
   3.51150313216014*^9, 3.511503686133572*^9, 3.511503775181391*^9, 
   3.511504753687949*^9, 3.511507598016643*^9, 3.511508086974554*^9, 
   3.5115917195377607`*^9, 3.5115952625655603`*^9, 3.5116308756776123`*^9, 
   3.511631589719404*^9, 3.511721878149465*^9, 3.521274083897944*^9, 
   3.52127646933214*^9, 3.521277306251816*^9, 3.521277492421576*^9, 
   3.5212789152268143`*^9, 3.5213660482086887`*^9, 3.521366314574353*^9, 
   3.521370351511808*^9, 3.521440678867928*^9, 3.521440919483221*^9, 
   3.52145590239354*^9, 3.5214583150863123`*^9, 3.521506970802223*^9, 
   3.52152050755313*^9, 3.521520603643135*^9, 3.521523013885244*^9, 
   3.5215390599697037`*^9, 3.5217854819819317`*^9, 3.521797358618609*^9, 
   3.5218039767718067`*^9, 3.52188329745466*^9, 3.521940096450371*^9, 
   3.521971087042473*^9, 3.5219714170070477`*^9, 3.521971475939095*^9, 
   3.521971566306602*^9, 3.521972105586369*^9, 3.521973954400743*^9, 
   3.5220291017966967`*^9, 3.524393913793598*^9, 3.524396316002599*^9, 
   3.52497786561169*^9, 3.5249972180740423`*^9, 3.525067498034028*^9, 
   3.525070796097643*^9, 3.5250720693328667`*^9, 3.525073228491116*^9, 
   3.525081022479065*^9, 3.525187136942864*^9, 3.525240245721664*^9, 
   3.525243898518084*^9, 3.5253975262990437`*^9, 3.525398673830875*^9, 
   3.525493462291396*^9, 3.525660865982174*^9, 3.525661910198134*^9, 
   3.525662978734828*^9, 3.5256732763388977`*^9, 3.545738867290317*^9, 
   3.545991126450037*^9, 3.545991467647058*^9, 3.546000117826116*^9, 
   3.546021353817689*^9, 3.546057613727972*^9, 3.5460645825323753`*^9, 
   3.54609112095957*^9, 3.5463255978868723`*^9, 3.548247327672244*^9, 
   3.548404546009861*^9, 3.548481246786963*^9, 3.548511424855892*^9, 
   3.5485258069485273`*^9, 3.54856786995807*^9, 3.5485710537397738`*^9, 
   3.5485750068489943`*^9, 3.548591584924807*^9, 3.5486620913415937`*^9, 
   3.5487001149797373`*^9, 3.548756248681419*^9, 3.5489112406436462`*^9, 
   3.548930605942347*^9, 3.5489607945056667`*^9, 3.5490021774020767`*^9, 
   3.549020860504582*^9, 3.5490435371222267`*^9, 3.5490470249057493`*^9, 
   3.549086271163377*^9, 3.54909626749407*^9, 3.549260302121181*^9, 
   3.5492729202108717`*^9, 3.549305070385083*^9, 3.549305287992464*^9, 
   3.549305797169794*^9, 3.5493588766993113`*^9, 3.549433144523068*^9, 
   3.54946230978478*^9, 3.549540242931814*^9, 3.55092157827151*^9, 
   3.550990710795385*^9, 3.550996417710569*^9, 3.5509965865890503`*^9, 
   3.555347178269279*^9, 3.557392092075267*^9, 3.557403144838883*^9, 
   3.55746645683285*^9, 3.5575793730678873`*^9, 3.55763572626408*^9, 
   3.558441134372526*^9, 3.5585498824920807`*^9, 3.560007735080906*^9, 
   3.560044348444344*^9, 3.560044407805932*^9, 3.560185492709783*^9, 
   3.560186279623044*^9, 3.5601863532192097`*^9, 3.560186503141891*^9, 
   3.560222872354828*^9, 3.560256417266234*^9, 3.560268924137066*^9, 
   3.56026992694038*^9, 3.560271412097733*^9, 3.5605162471449614`*^9, 
   3.560521594991591*^9, 3.560534284082374*^9, 3.5605351467119627`*^9, 
   3.5608423118868504`*^9, 3.560844431380422*^9, 3.5611768029765987`*^9, 
   3.561210841939679*^9, 3.561269140841782*^9, 3.56127559150031*^9, 
   3.561276935436406*^9, 3.561302798235227*^9, 3.561305360839437*^9, 
   3.561308531087047*^9, 3.561308780333853*^9, {3.561360306378497*^9, 
   3.561360060817787*^9}, 3.7281150182774057`*^9, 3.731234872413866*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"367df128-d56c-43cf-8ffb-32b2e1b48c0c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "UnphysicalgSquare"}]}]], "Input",
 CellChangeTimes->{{3.5113743401630173`*^9, 3.511374359071653*^9}, 
   3.511507898766653*^9, {3.511508092394496*^9, 3.5115081207116337`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"2daf59c6-342b-4fc3-932d-75d232cf9ffb"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"\[CapitalGamma]", "[", 
        RowBox[{"\[Del]", ",", 
         OverscriptBox["\[Del]", "^"]}], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " ", " "},
          {" ", "\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Gamma]", "\[Rho]"},
            {"\[Alpha]", "\[Beta]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
$CellContext`\[Gamma], $CellContext`\[Rho]],
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Rho]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Rho]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.5113743594375763`*^9, 3.51137438322036*^9}, 
   3.511458487267089*^9, 3.511503132221652*^9, 3.5115036862379723`*^9, 
   3.511503775247444*^9, 3.511504753745878*^9, 3.511507889396071*^9, 
   3.5115080932631607`*^9, 3.5115081237875433`*^9, 3.5115917195972652`*^9, 
   3.511595262620099*^9, 3.5116308757079887`*^9, 3.511631589746196*^9, 
   3.511721878673688*^9, 3.521274084603806*^9, 3.52127646950987*^9, 
   3.521277306307226*^9, 3.5212774924879704`*^9, 3.5212789153025417`*^9, 
   3.5213660483480577`*^9, 3.521366315234136*^9, 3.521370351535447*^9, 
   3.521440678932228*^9, 3.521440919771697*^9, 3.521455902429179*^9, 
   3.521458317030962*^9, 3.5215069708840218`*^9, 3.521520507580371*^9, 
   3.5215206037298594`*^9, 3.5215230139151897`*^9, 3.5215390600026417`*^9, 
   3.521785482009564*^9, 3.5217973586640253`*^9, 3.5218039768153467`*^9, 
   3.521883297483368*^9, 3.5219400965474167`*^9, 3.521971087066926*^9, 
   3.5219714170393457`*^9, 3.521971475966238*^9, 3.521971566336747*^9, 
   3.521972105614498*^9, 3.52197395443279*^9, 3.5220291018477182`*^9, 
   3.524393913857394*^9, 3.524396316049466*^9, 3.5249778656491547`*^9, 
   3.5249972181253157`*^9, 3.525067499112089*^9, 3.52507079612901*^9, 
   3.525072069366989*^9, 3.525073228516877*^9, 3.525081022541827*^9, 
   3.5251871369837093`*^9, 3.525240245750226*^9, 3.52524389855059*^9, 
   3.525397526365635*^9, 3.5253986738579407`*^9, 3.525493462321168*^9, 
   3.5256608660194407`*^9, 3.525661910240172*^9, 3.5256629787616034`*^9, 
   3.5256732763645163`*^9, 3.545738867321031*^9, 3.545991126525097*^9, 
   3.5459914677099323`*^9, 3.546000118382743*^9, 3.546021353914152*^9, 
   3.546057613786075*^9, 3.546064582590312*^9, 3.546091121004895*^9, 
   3.546325597947275*^9, 3.5482473277325172`*^9, 3.548404546064939*^9, 
   3.548481246834072*^9, 3.548511424894595*^9, 3.548525806981819*^9, 
   3.548567869997658*^9, 3.548571053764801*^9, 3.548575006885206*^9, 
   3.548591584969488*^9, 3.548662091393018*^9, 3.548700115032748*^9, 
   3.5487562487260523`*^9, 3.548911240684717*^9, 3.5489306059864483`*^9, 
   3.548960794543738*^9, 3.549002177426963*^9, 3.549020860564355*^9, 
   3.54904353718014*^9, 3.549047024930902*^9, 3.549086271215157*^9, 
   3.5490962675801067`*^9, 3.549260302163549*^9, 3.549272920239987*^9, 
   3.5493050704240103`*^9, 3.549305288030846*^9, 3.5493057972036533`*^9, 
   3.549358876728488*^9, 3.54943314456221*^9, 3.5494623098279743`*^9, 
   3.5495402429647512`*^9, 3.5509215783217154`*^9, 3.5509907109026823`*^9, 
   3.5509964177473803`*^9, 3.550996586640543*^9, 3.55534717832063*^9, 
   3.557392092112425*^9, 3.557403144879257*^9, 3.5574664568678837`*^9, 
   3.557579373103063*^9, 3.5576357262901382`*^9, 3.5584411344111834`*^9, 
   3.5585498825424643`*^9, 3.56000773512818*^9, 3.5600443484994183`*^9, 
   3.5600444078569603`*^9, 3.5601854928365307`*^9, 3.560186279668133*^9, 
   3.560186353268515*^9, 3.560186503181769*^9, 3.560222872399289*^9, 
   3.5602564173172092`*^9, 3.560268924187007*^9, 3.560269926984536*^9, 
   3.560271412144288*^9, 3.560516247187739*^9, 3.560521595023099*^9, 
   3.5605342841269484`*^9, 3.560535146731731*^9, 3.560842311922318*^9, 
   3.560844431417431*^9, 3.5611768030143137`*^9, 3.5612108419813137`*^9, 
   3.561269140883346*^9, 3.5612755915579967`*^9, 3.561276935476079*^9, 
   3.561302798283985*^9, 3.5613053608831873`*^9, 3.561308531130149*^9, 
   3.561308780389892*^9, {3.5613603064422293`*^9, 3.561360060865118*^9}, 
   3.728115018300392*^9, 3.731234872441988*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"d9f19a13-4558-4d77-b141-2f1271f3f999"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExpandChristoffelCDgWeylCD", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5113743959797688`*^9, 3.511374397396575*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"409dbd08-8a06-4088-bb59-dbacda7af720"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Relation between the Weyl curvature and the unphysical curvature\
\>", "Subsubsection",
 CellChangeTimes->{{3.511342150428656*^9, 3.5113421518845654`*^9}, {
  3.51150679894519*^9, 3.5115068088407288`*^9}, {3.511723561785453*^9, 
  3.5117235689547863`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannWeylCD", "[", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], ",", 
    RowBox[{"-", "\[Beta]"}], ",", 
    RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], "\[Equal]", 
  RowBox[{"ChangeCurvature", "[", 
   RowBox[{
    RowBox[{"RiemannWeylCD", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], ",", "WeylCD", ",",
     "CDg"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.511342167496276*^9, 3.5113422101251297`*^9}, {
  3.511505382025766*^9, 3.511505419417234*^9}, {3.525067507581271*^9, 
  3.525067523519224*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"f35d037b-4945-4201-bab0-915100955702"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511342211264769*^9, 3.511505421498747*^9, 3.511508151583805*^9, 
   3.5115917196530724`*^9, 3.511595262689899*^9, 3.511630875737211*^9, 
   3.51163158977346*^9, 3.511723573403166*^9, 3.521274218768729*^9, 
   3.5212764771725616`*^9, 3.521277306376258*^9, 3.521277492506865*^9, 
   3.521278915328012*^9, 3.521366057087677*^9, 3.521366331559362*^9, 
   3.5213703516290913`*^9, 3.521440679123748*^9, 3.5214409198445997`*^9, 
   3.521455902461781*^9, 3.521458334076353*^9, 3.5215069709634438`*^9, 
   3.521520507606493*^9, 3.5215206039045267`*^9, 3.521523013955621*^9, 
   3.5215390600333433`*^9, 3.5217854821369267`*^9, 3.5217973586948957`*^9, 
   3.521803976844194*^9, 3.52188329751081*^9, 3.521940096651514*^9, 
   3.521971087108406*^9, 3.521971417068101*^9, 3.521971476040667*^9, 
   3.521971566398561*^9, 3.521972105641226*^9, 3.5219739544641438`*^9, 
   3.52202910192282*^9, 3.524393913879521*^9, 3.524396316107953*^9, 
   3.524977865689452*^9, 3.524997218183959*^9, 3.5250675242896433`*^9, 
   3.525070796165515*^9, 3.525072069397396*^9, 3.525073228554639*^9, 
   3.5250810226067667`*^9, 3.525187137057877*^9, 3.525240245779634*^9, 
   3.525243898750126*^9, 3.525397526427512*^9, 3.525398673937804*^9, 
   3.525493462355318*^9, 3.5256608660921803`*^9, 3.525661910280161*^9, 
   3.525662978848432*^9, 3.5256732763908377`*^9, 3.545738867354184*^9, 
   3.5459911265899897`*^9, 3.545991467830803*^9, 3.546000118940893*^9, 
   3.5460213541563272`*^9, 3.546057613851245*^9, 3.546064582652399*^9, 
   3.546091121185523*^9, 3.5463255980549107`*^9, 3.5482473278223677`*^9, 
   3.5484045461150312`*^9, 3.548481246888055*^9, 3.5485114249495792`*^9, 
   3.548525807016293*^9, 3.548567870059359*^9, 3.548571053818185*^9, 
   3.548575006918065*^9, 3.54859158503507*^9, 3.548662091502015*^9, 
   3.548700115074533*^9, 3.548756248785667*^9, 3.548911240746818*^9, 
   3.5489306060253077`*^9, 3.548960794599042*^9, 3.549002177458178*^9, 
   3.549020860626989*^9, 3.549043537225246*^9, 3.5490470249722958`*^9, 
   3.549086271251691*^9, 3.549096267870674*^9, 3.549260302260234*^9, 
   3.549272920287957*^9, 3.549305070469543*^9, 3.549305288073719*^9, 
   3.5493057972358503`*^9, 3.549358876778735*^9, 3.5494331445987663`*^9, 
   3.549462309965023*^9, 3.549540243042674*^9, 3.5509215783754873`*^9, 
   3.5509907110467863`*^9, 3.550996417801609*^9, 3.550996586783527*^9, 
   3.555347178367401*^9, 3.557392092160365*^9, 3.5574031449163713`*^9, 
   3.5574664569341288`*^9, 3.557579373138479*^9, 3.557635726347075*^9, 
   3.55844113452437*^9, 3.5585498826783533`*^9, 3.5600077351752787`*^9, 
   3.560044348550995*^9, 3.5600444079048033`*^9, 3.5601854928783484`*^9, 
   3.560186279707754*^9, 3.560186353313635*^9, 3.5601865032299223`*^9, 
   3.560222872443345*^9, 3.5602564173717737`*^9, 3.5602689242292023`*^9, 
   3.560269927025366*^9, 3.560271412185523*^9, 3.560516247282494*^9, 
   3.560521595071306*^9, 3.560534284172739*^9, 3.560535146768832*^9, 
   3.560842311967228*^9, 3.5608444314757013`*^9, 3.5611768030800257`*^9, 
   3.5612108420324697`*^9, 3.56126914095245*^9, 3.561275591625471*^9, 
   3.561276935575345*^9, 3.56130279837598*^9, 3.561305360953854*^9, 
   3.5613085312422113`*^9, 3.561308780460623*^9, {3.561360306493266*^9, 
   3.561360060939056*^9}, 3.7281150183251457`*^9, 3.7312348724835167`*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"6a99a81c-4ac2-44fd-a21d-14a2e06b07b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.5113422659894047`*^9, 3.51134227841238*^9}, {
  3.511505466532484*^9, 3.511505468323865*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"2046e786-4795-49f9-b8bd-bca239cc2732"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[Zeta]"},
            {"\[Alpha]", "\[CurlyEpsilon]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Delta], $CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Eta]"},
            {"\[Beta]", "\[Gamma]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\[Gamma], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Eta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Eta]"},
            {"\[Alpha]", "\[Gamma]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[Zeta]"},
            {"\[Beta]", "\[CurlyEpsilon]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Delta], $CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Eta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"S", 
          StyleBox[GridBox[{
             {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
             {"\[Beta]", "\[Gamma]", " ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\[Gamma], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
            {"\[Beta]", "\[Gamma]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\[Gamma], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[CurlyEpsilon]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"S", 
          StyleBox[GridBox[{
             {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
             {"\[Alpha]", "\[Gamma]", " ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`SUnphysical[-$CellContext`\[Alpha], \
-$CellContext`\[Gamma], $CellContext`\[Delta], $CellContext`\[CurlyEpsilon]]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
            {"\[Alpha]", "\[Gamma]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[CurlyEpsilon]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511342279290107*^9, 3.511505469327282*^9, 3.511508151654359*^9, 
   3.511591719713686*^9, 3.511595262790162*^9, 3.511630875770314*^9, 
   3.511631589798798*^9, 3.511723573549994*^9, 3.521274219724079*^9, 
   3.521276477397561*^9, 3.521277306708405*^9, 3.5212774925301456`*^9, 
   3.521278915362609*^9, 3.5213660572562*^9, 3.5213663328839903`*^9, 
   3.521370351665608*^9, 3.521440679208523*^9, 3.521440919997188*^9, 
   3.521455902499762*^9, 3.5214583352306128`*^9, 3.521506971048469*^9, 
   3.521520507683379*^9, 3.52152060398057*^9, 3.521523013988641*^9, 
   3.521539060068164*^9, 3.521785482322703*^9, 3.521797358729164*^9, 
   3.5218039768714533`*^9, 3.521883297554592*^9, 3.521940096743793*^9, 
   3.521971087135447*^9, 3.521971417100216*^9, 3.521971476067225*^9, 
   3.521971566429824*^9, 3.5219721056718483`*^9, 3.521973954496484*^9, 
   3.52202910198208*^9, 3.524393913929978*^9, 3.524396316165226*^9, 
   3.5249778657299747`*^9, 3.5249972182323627`*^9, 3.525067525365922*^9, 
   3.525070796212244*^9, 3.5250720694298983`*^9, 3.525073228595456*^9, 
   3.5250810226789923`*^9, 3.525187137095174*^9, 3.525240245811861*^9, 
   3.525243898781616*^9, 3.525397526468701*^9, 3.525398673965437*^9, 
   3.525493462398188*^9, 3.525660866136692*^9, 3.525661910320108*^9, 
   3.525662978875236*^9, 3.5256732764997787`*^9, 3.545738867393938*^9, 
   3.5459911267408*^9, 3.545991467911211*^9, 3.546000119123919*^9, 
   3.546021354208506*^9, 3.546057613925188*^9, 3.5460645827186747`*^9, 
   3.546091121284656*^9, 3.546325598123912*^9, 3.548247327975913*^9, 
   3.548404546180098*^9, 3.54848124693305*^9, 3.548511425007525*^9, 
   3.548525807136013*^9, 3.548567870104973*^9, 3.548571053856781*^9, 
   3.548575006967854*^9, 3.54859158508392*^9, 3.5486620915569763`*^9, 
   3.548700115123495*^9, 3.548756248844555*^9, 3.548911240798188*^9, 
   3.5489306060875683`*^9, 3.5489607946371613`*^9, 3.549002177496191*^9, 
   3.549020860689679*^9, 3.5490435372767467`*^9, 3.549047025017872*^9, 
   3.549086271297949*^9, 3.549096268000453*^9, 3.54926030229743*^9, 
   3.549272920343005*^9, 3.549305070510235*^9, 3.549305288105967*^9, 
   3.549305797287972*^9, 3.5493588768141603`*^9, 3.54943314463529*^9, 
   3.5494623100066423`*^9, 3.549540243087935*^9, 3.550921578437529*^9, 
   3.550990711108375*^9, 3.55099641786959*^9, 3.550996586844816*^9, 
   3.5553471784172907`*^9, 3.5573920922184973`*^9, 3.5574031449626617`*^9, 
   3.557466456969265*^9, 3.557579373181694*^9, 3.557635726397306*^9, 
   3.558441134571745*^9, 3.558549882717153*^9, 3.560007735229927*^9, 
   3.560044348602839*^9, 3.5600444079528713`*^9, 3.5601854929222193`*^9, 
   3.560186279752438*^9, 3.560186353377892*^9, 3.560186503285611*^9, 
   3.5602228724961443`*^9, 3.5602564174303417`*^9, 3.560268924277484*^9, 
   3.560269927067765*^9, 3.560271412230254*^9, 3.560516247341465*^9, 
   3.5605215951246643`*^9, 3.560534284218149*^9, 3.560535146798209*^9, 
   3.560842312062374*^9, 3.560844431518853*^9, 3.561176803137191*^9, 
   3.561210842085269*^9, 3.56126914101976*^9, 3.561275591674139*^9, 
   3.5612769356307163`*^9, 3.561302798443025*^9, 3.561305361002379*^9, 
   3.561308531294633*^9, 3.56130878051398*^9, {3.561360306546721*^9, 
   3.561360060992187*^9}, 3.728115018351859*^9, 3.731234872533699*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"17b3df8b-c61c-4212-9482-373c9afc8d64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.511505572545923*^9, 3.511505578666795*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"c86f7914-5784-421a-bcd1-5dbefa933a52"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[CurlyEpsilon]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[CurlyEpsilon]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[Zeta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
        
        Editable->False]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Eta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Eta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Eta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Eta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Eta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Eta]],
     Editable->False]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[CurlyEpsilon]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[CurlyEpsilon]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[Zeta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
        
        Editable->False]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Eta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Eta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Eta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Eta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Eta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Eta]],
     Editable->False]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[CurlyEpsilon]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
     Editable->False]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[CurlyEpsilon]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.51150557931925*^9, 3.511508151739582*^9, 3.511591719771296*^9, 
   3.511595262867938*^9, 3.511630875812744*^9, 3.511631589839514*^9, 
   3.5117235736666183`*^9, 3.521274220420452*^9, 3.5212764774575357`*^9, 
   3.521277306850984*^9, 3.521277492621591*^9, 3.5212789154379997`*^9, 
   3.521366057352867*^9, 3.521366340164836*^9, 3.5213703517238617`*^9, 
   3.521440679363056*^9, 3.52144092010382*^9, 3.521455902555338*^9, 
   3.521458337341761*^9, 3.5215069712502193`*^9, 3.521520507947197*^9, 
   3.521520604072817*^9, 3.5215230140518513`*^9, 3.5215390601439447`*^9, 
   3.521785482437418*^9, 3.52179735878858*^9, 3.521803976920529*^9, 
   3.5218832976111307`*^9, 3.521940096894486*^9, 3.521971087189234*^9, 
   3.521971417151951*^9, 3.521971476130415*^9, 3.521971566481802*^9, 
   3.521972105723731*^9, 3.521973954538684*^9, 3.522029102092246*^9, 
   3.524393913999548*^9, 3.524396316250455*^9, 3.524977865780808*^9, 
   3.5249972183160152`*^9, 3.525067525959816*^9, 3.525070796283663*^9, 
   3.525072069503718*^9, 3.5250732286573877`*^9, 3.5250810227957077`*^9, 
   3.5251871371654663`*^9, 3.525240245924958*^9, 3.525243898834888*^9, 
   3.525397526533152*^9, 3.5253986740401297`*^9, 3.5254934624597683`*^9, 
   3.525660866200698*^9, 3.525661910465727*^9, 3.525662978975404*^9, 
   3.525673276615252*^9, 3.545738867474361*^9, 3.545991126854484*^9, 
   3.545991469288302*^9, 3.546000119639072*^9, 3.546021354310356*^9, 
   3.5460576140231333`*^9, 3.546064582867182*^9, 3.546091121492259*^9, 
   3.5463255982817097`*^9, 3.5482473281612043`*^9, 3.54840454628757*^9, 
   3.54848124700455*^9, 3.548511425114657*^9, 3.548525807210307*^9, 
   3.5485678701773167`*^9, 3.548571053910479*^9, 3.5485750070224257`*^9, 
   3.548591585155242*^9, 3.548662091678281*^9, 3.548700115204067*^9, 
   3.5487562489520063`*^9, 3.5489112408728333`*^9, 3.548930606152996*^9, 
   3.548960794703355*^9, 3.549002177574019*^9, 3.549020860807465*^9, 
   3.549043537350273*^9, 3.5490470250768414`*^9, 3.5490862713516493`*^9, 
   3.5490962681232023`*^9, 3.549260302382389*^9, 3.549272920446262*^9, 
   3.549305070573575*^9, 3.549305288164322*^9, 3.549305797339171*^9, 
   3.549358876906501*^9, 3.549433144697504*^9, 3.549462310083791*^9, 
   3.549540243163302*^9, 3.550921578540851*^9, 3.5509907112143097`*^9, 
   3.550996417955617*^9, 3.55099658693023*^9, 3.555347178497388*^9, 
   3.5573920923075657`*^9, 3.5574031450355263`*^9, 3.557466457026243*^9, 
   3.557579373231325*^9, 3.5576357264583797`*^9, 3.558441134649962*^9, 
   3.5585498827919273`*^9, 3.560007735330555*^9, 3.560044348687015*^9, 
   3.560044408012607*^9, 3.560185492995263*^9, 3.560186279850312*^9, 
   3.560186353455834*^9, 3.560186503419754*^9, 3.560222872594605*^9, 
   3.560256417536248*^9, 3.5602689243546352`*^9, 3.560269927139412*^9, 
   3.560271412306972*^9, 3.560516247443911*^9, 3.5605215952057533`*^9, 
   3.560534284282497*^9, 3.5605351468553133`*^9, 3.560842312160667*^9, 
   3.560844431596861*^9, 3.561176803226637*^9, 3.561210842148548*^9, 
   3.561269141127812*^9, 3.561275591822216*^9, 3.5612769356971273`*^9, 
   3.561302798660087*^9, 3.561305361108966*^9, 3.561308531503166*^9, 
   3.561308780645158*^9, {3.561360306628825*^9, 3.561360061097721*^9}, 
   3.728115018408341*^9, 3.731234872592279*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"436194f2-0929-4dd9-9066-3ad0b627526c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511342290226898*^9, 3.511342298254085*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"3c35b429-6866-4f3a-bfff-290fb98d6654"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][$CellContext`\[Delta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Delta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511342298698504*^9, 3.51150558431172*^9, 3.511508151843248*^9, 
   3.511591719889558*^9, 3.511595262964384*^9, 3.511630875904955*^9, 
   3.511631589907688*^9, 3.511723573734613*^9, 3.5212742210784473`*^9, 
   3.52127647759833*^9, 3.521277306998253*^9, 3.521277492732896*^9, 
   3.5212789157270603`*^9, 3.5213660575512123`*^9, 3.521366341184188*^9, 
   3.5213703518670683`*^9, 3.521440679524934*^9, 3.521440920220119*^9, 
   3.521455902656897*^9, 3.521458339199686*^9, 3.521506971399519*^9, 
   3.521520508093932*^9, 3.521520604234796*^9, 3.52152301414292*^9, 
   3.52153906023798*^9, 3.521785482631751*^9, 3.521797358879133*^9, 
   3.521803977005275*^9, 3.521883297696904*^9, 3.521940097076499*^9, 
   3.521971087273575*^9, 3.521971417223971*^9, 3.5219714762163467`*^9, 
   3.5219715665668373`*^9, 3.521972105827674*^9, 3.521973954616295*^9, 
   3.522029102243226*^9, 3.524393914120482*^9, 3.524396316366591*^9, 
   3.524977865868661*^9, 3.5249972184157057`*^9, 3.5250675266350183`*^9, 
   3.525070796377371*^9, 3.525072069572359*^9, 3.5250732287537813`*^9, 
   3.525081022949162*^9, 3.5251871372603292`*^9, 3.52524024601366*^9, 
   3.525243898939961*^9, 3.525397526623958*^9, 3.525398674124627*^9, 
   3.525493462562557*^9, 3.5256608663091173`*^9, 3.525661910574074*^9, 
   3.525662979072936*^9, 3.525673276749879*^9, 3.545738867597934*^9, 
   3.545991126993729*^9, 3.5459914696052523`*^9, 3.5460001199096613`*^9, 
   3.546021354472687*^9, 3.546057614176263*^9, 3.5460645831029673`*^9, 
   3.546091121691399*^9, 3.5463255984675293`*^9, 3.548247328337109*^9, 
   3.548404546422213*^9, 3.548481247160478*^9, 3.548511425265209*^9, 
   3.548525807314336*^9, 3.548567870286178*^9, 3.548571054020008*^9, 
   3.548575007122759*^9, 3.548591585301917*^9, 3.54866209182917*^9, 
   3.548700115316345*^9, 3.5487562490874853`*^9, 3.548911241016597*^9, 
   3.5489306062693768`*^9, 3.548960794803475*^9, 3.549002177708611*^9, 
   3.549020860964219*^9, 3.5490435374595737`*^9, 3.549047025168622*^9, 
   3.549086271466189*^9, 3.54909626826492*^9, 3.549260302503463*^9, 
   3.549272920595355*^9, 3.549305070690771*^9, 3.5493052882580967`*^9, 
   3.549305797436184*^9, 3.5493588770413227`*^9, 3.549433144797079*^9, 
   3.549462310194714*^9, 3.549540243255473*^9, 3.5509215786916943`*^9, 
   3.550990711422163*^9, 3.550996418109406*^9, 3.5509965870624743`*^9, 
   3.555347178640317*^9, 3.557392092475692*^9, 3.5574031451386223`*^9, 
   3.5574664571546793`*^9, 3.557579373332754*^9, 3.557635726565979*^9, 
   3.558441134813175*^9, 3.5585498828924294`*^9, 3.560007735488152*^9, 
   3.560044348817741*^9, 3.560044408243024*^9, 3.5601854931371107`*^9, 
   3.5601862799897738`*^9, 3.560186353598948*^9, 3.560186503564732*^9, 
   3.5602228727496643`*^9, 3.560256417682475*^9, 3.5602689244972982`*^9, 
   3.560269927265462*^9, 3.560271412432379*^9, 3.560516247591178*^9, 
   3.560521595341177*^9, 3.560534284390234*^9, 3.560535146936947*^9, 
   3.56084231231752*^9, 3.56084443184262*^9, 3.5611768033889093`*^9, 
   3.561210842296151*^9, 3.561269141391183*^9, 3.561275592102107*^9, 
   3.561276935844542*^9, 3.5613027988901873`*^9, 3.561305361615279*^9, 
   3.561308531806535*^9, 3.5613087808034887`*^9, {3.561360306774954*^9, 
   3.561360061250441*^9}, 3.7281150185169373`*^9, 3.731234872693437*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"ffb1f43c-7851-4a20-bf0b-84a2f0cd65cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContractMetric", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511342314187271*^9, 3.511342318112204*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"4018d5d3-e295-4e7f-9505-c09dfb9c481e"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][$CellContext`\[Delta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Delta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511342318725507*^9, 3.511505589172497*^9, 3.5115081519060383`*^9, 
   3.511591719959962*^9, 3.5115952630265083`*^9, 3.5116308759440737`*^9, 
   3.511631589945822*^9, 3.5117235738958263`*^9, 3.5212742217271767`*^9, 
   3.521276477861964*^9, 3.521277307095221*^9, 3.521277492858189*^9, 
   3.521278915815094*^9, 3.521366057749996*^9, 3.5213663419623117`*^9, 
   3.5213703519037*^9, 3.521440679597868*^9, 3.5214409203612757`*^9, 
   3.5214559026910048`*^9, 3.521458341120747*^9, 3.521506971464188*^9, 
   3.521520508188491*^9, 3.5215206043637133`*^9, 3.521523014176792*^9, 
   3.521539060284927*^9, 3.521785482720529*^9, 3.52179735891862*^9, 
   3.521803977047968*^9, 3.5218832977334633`*^9, 3.521940097185872*^9, 
   3.5219710873085423`*^9, 3.5219714172555943`*^9, 3.521971476273885*^9, 
   3.521971566596483*^9, 3.521972105866569*^9, 3.521973954660595*^9, 
   3.52202910237891*^9, 3.524393914176544*^9, 3.524396316433857*^9, 
   3.524977865905715*^9, 3.524997218466799*^9, 3.525067527494027*^9, 
   3.525070796418584*^9, 3.525072069606153*^9, 3.5250732287902718`*^9, 
   3.525081023083149*^9, 3.525187137301437*^9, 3.525240246071759*^9, 
   3.5252438989727707`*^9, 3.525397526709333*^9, 3.525398674156399*^9, 
   3.525493462604598*^9, 3.525660866368143*^9, 3.525661910614059*^9, 
   3.52566297910623*^9, 3.525673276833905*^9, 3.545738867648549*^9, 
   3.545991127071213*^9, 3.545991469675085*^9, 3.546000121154806*^9, 
   3.546021354536961*^9, 3.546057614256094*^9, 3.546064583177062*^9, 
   3.546091121768794*^9, 3.546325598557604*^9, 3.5482473284319468`*^9, 
   3.548404546547399*^9, 3.548481247227316*^9, 3.548511425386199*^9, 
   3.548525807362097*^9, 3.548567870334717*^9, 3.548571054059227*^9, 
   3.548575007162531*^9, 3.5485915853801613`*^9, 3.548662091980685*^9, 
   3.548700115370077*^9, 3.548756249202114*^9, 3.548911241071007*^9, 
   3.548930606317745*^9, 3.5489607948490143`*^9, 3.5490021777435226`*^9, 
   3.549020861083252*^9, 3.549043537508511*^9, 3.549047025200726*^9, 
   3.549086271517915*^9, 3.549096268350547*^9, 3.549260302554469*^9, 
   3.549272920706725*^9, 3.549305070737082*^9, 3.549305288289463*^9, 
   3.549305797477161*^9, 3.549358877109063*^9, 3.549433144840045*^9, 
   3.549462310245253*^9, 3.5495402433075447`*^9, 3.550921578802664*^9, 
   3.550990711487042*^9, 3.550996418172114*^9, 3.5509965871896477`*^9, 
   3.555347178755405*^9, 3.5573920926046352`*^9, 3.5574031452345448`*^9, 
   3.557466457195673*^9, 3.5575793733812323`*^9, 3.557635726616686*^9, 
   3.5584411350195723`*^9, 3.558549882945292*^9, 3.560007735549572*^9, 
   3.560044348958728*^9, 3.560044408289422*^9, 3.560185493179331*^9, 
   3.560186280054984*^9, 3.560186353644207*^9, 3.560186503764289*^9, 
   3.560222872808712*^9, 3.560256417839342*^9, 3.560268924544957*^9, 
   3.5602699274465523`*^9, 3.560271412481846*^9, 3.560516247661566*^9, 
   3.560521595428233*^9, 3.560534284504841*^9, 3.560535146972686*^9, 
   3.560842312376273*^9, 3.560844431891698*^9, 3.561176803456842*^9, 
   3.561210842357232*^9, 3.561269141452766*^9, 3.561275592199421*^9, 
   3.56127693590501*^9, 3.561302798945858*^9, 3.5613053617013817`*^9, 
   3.561308531854348*^9, 3.5613087808677397`*^9, {3.561360306891226*^9, 
   3.561360061380334*^9}, 3.728115018562236*^9, 3.731234872778419*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"43ca90bd-9d43-468a-a3ec-5ff4dd73a0ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511342327538601*^9, 3.511342329050097*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"913e9a04-3534-414c-84b3-ebf02f80d54d"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][$CellContext`\[Delta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Delta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.51134232979919*^9, 3.51150559090975*^9, 3.511508152014681*^9, 
   3.5115917200847473`*^9, 3.5115952631312733`*^9, 3.511630876014799*^9, 
   3.511631590007968*^9, 3.5117235740731573`*^9, 3.521274222545064*^9, 
   3.521276478158525*^9, 3.521277307210017*^9, 3.521277492974146*^9, 
   3.521278916014921*^9, 3.5213660580237217`*^9, 3.521366342760306*^9, 
   3.5213703519786587`*^9, 3.52144067972057*^9, 3.521440920515917*^9, 
   3.5214559027643347`*^9, 3.521458343448276*^9, 3.521506971610517*^9, 
   3.521520508328175*^9, 3.521520604507861*^9, 3.521523014246607*^9, 
   3.521539060358992*^9, 3.521785482868524*^9, 3.521797359048361*^9, 
   3.521803977114427*^9, 3.521883297817449*^9, 3.521940097407013*^9, 
   3.521971087373927*^9, 3.521971417327154*^9, 3.521971476335751*^9, 
   3.521971566690257*^9, 3.5219721059360332`*^9, 3.52197395472139*^9, 
   3.5220291025273743`*^9, 3.524393914281597*^9, 3.524396316582176*^9, 
   3.52497786595887*^9, 3.5249972185661163`*^9, 3.5250675282904*^9, 
   3.525070796471836*^9, 3.525072069671023*^9, 3.525073228882266*^9, 
   3.525081023224373*^9, 3.525187137373946*^9, 3.525240246147011*^9, 
   3.525243899038971*^9, 3.525397526775186*^9, 3.525398674223998*^9, 
   3.525493462701521*^9, 3.525660866512719*^9, 3.525661910675259*^9, 
   3.525662979168747*^9, 3.5256732769667387`*^9, 3.5457388677491903`*^9, 
   3.54599112720755*^9, 3.545991469805875*^9, 3.54600012139359*^9, 
   3.546021354665222*^9, 3.546057614370556*^9, 3.546064583320963*^9, 
   3.5460911219314404`*^9, 3.546325598675193*^9, 3.548247328531785*^9, 
   3.548404546656375*^9, 3.548481247319107*^9, 3.548511425501547*^9, 
   3.548525807444957*^9, 3.548567870418433*^9, 3.548571054132328*^9, 
   3.5485750072352657`*^9, 3.548591585602496*^9, 3.548662092104772*^9, 
   3.548700115498876*^9, 3.5487562493088493`*^9, 3.5489112411586514`*^9, 
   3.548930606465163*^9, 3.548960794953842*^9, 3.549002177833984*^9, 
   3.5490208612080097`*^9, 3.549043537612647*^9, 3.5490470252696953`*^9, 
   3.5490862716544943`*^9, 3.549096268473207*^9, 3.549260302635746*^9, 
   3.549272920843355*^9, 3.5493050708152647`*^9, 3.5493052883650208`*^9, 
   3.5493057975396557`*^9, 3.5493588772757387`*^9, 3.549433144904765*^9, 
   3.5494623103588123`*^9, 3.549540243402129*^9, 3.550921578931946*^9, 
   3.550990711614546*^9, 3.5509964182963667`*^9, 3.55099658728618*^9, 
   3.5553471788695993`*^9, 3.5573920927345257`*^9, 3.557403145315247*^9, 
   3.557466457266225*^9, 3.557579373458902*^9, 3.557635726699123*^9, 
   3.558441135514258*^9, 3.558549883028071*^9, 3.5600077357337837`*^9, 
   3.560044349071906*^9, 3.560044408397232*^9, 3.560185493282933*^9, 
   3.5601862801856728`*^9, 3.5601863538533278`*^9, 3.5601865038735523`*^9, 
   3.560222872930128*^9, 3.560256417967455*^9, 3.5602689246523447`*^9, 
   3.560269927536601*^9, 3.560271412585833*^9, 3.56051624778209*^9, 
   3.560521595521902*^9, 3.560534284587254*^9, 3.560535147042626*^9, 
   3.560842312497691*^9, 3.5608444320043583`*^9, 3.561176803579953*^9, 
   3.561210842475079*^9, 3.561269141564864*^9, 3.5612755924613256`*^9, 
   3.561276936001062*^9, 3.561302799106341*^9, 3.5613053618812943`*^9, 
   3.561308531988743*^9, 3.561308780998261*^9, {3.561360307006029*^9, 
   3.561360061507681*^9}, 3.728115018635911*^9, 3.731234872867944*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"37af77fa-d03a-4187-854a-1422e553f346"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannWeylToRiemannUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511342386609405*^9, 3.511342407333634*^9}, {
  3.51134246596839*^9, 3.5113424757452097`*^9}, {3.511505662075178*^9, 
  3.5115056700023746`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"5087bea7-a23a-4028-a8ba-0370bc67d4db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RiemannWeylToRiemannUnphys", "/.", 
  RowBox[{"\[Delta]", "\[Rule]", "\[Beta]"}]}]], "Input",
 CellChangeTimes->{{3.5113424139505796`*^9, 3.5113424177204857`*^9}, {
  3.5113424823421087`*^9, 3.51134248593017*^9}, {3.511505677866733*^9, 
  3.511505681235313*^9}, {3.525067530807774*^9, 3.525067532938085*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"af18ce3b-72e2-4a20-9336-7f7d59ed49cd"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{"3", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][$CellContext`\[Beta]]],
     Editable->False]}], "-", 
   RowBox[{"4", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Beta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511342418429199*^9, 3.511342486582222*^9, 3.5115056835190477`*^9, 
   3.511508152113999*^9, 3.5115917201832952`*^9, 3.5115952631864233`*^9, 
   3.5116308760470743`*^9, 3.511631590151106*^9, 3.511723574236764*^9, 
   3.5212742238515797`*^9, 3.521276478553939*^9, 3.521277307280439*^9, 
   3.521277493045588*^9, 3.521278916190276*^9, 3.521366058291032*^9, 
   3.521366344226596*^9, 3.521370352014082*^9, 3.521440679790853*^9, 
   3.521440920757081*^9, 3.521455902810418*^9, 3.521458347867825*^9, 
   3.521506971681562*^9, 3.521520508405575*^9, 3.521520604575931*^9, 
   3.521523014279387*^9, 3.52153906047937*^9, 3.521785482947393*^9, 
   3.521797359097632*^9, 3.521803977143269*^9, 3.5218832978500357`*^9, 
   3.521940097615868*^9, 3.521971087413814*^9, 3.5219714173696404`*^9, 
   3.521971476384069*^9, 3.52197156675707*^9, 3.5219721059714603`*^9, 
   3.52197395475706*^9, 3.522029102604849*^9, 3.52439391433606*^9, 
   3.52439631663131*^9, 3.524977865994424*^9, 3.524997218679137*^9, 
   3.525067533428935*^9, 3.525070796512846*^9, 3.525072069749886*^9, 
   3.525073228942573*^9, 3.525081023291744*^9, 3.525187137406456*^9, 
   3.525240246178793*^9, 3.525243899150238*^9, 3.525397526838339*^9, 
   3.525398674257373*^9, 3.525493462753149*^9, 3.5256608666420183`*^9, 
   3.525661910718566*^9, 3.5256629791958313`*^9, 3.525673277027527*^9, 
   3.545738867798007*^9, 3.545991127287607*^9, 3.5459914698842382`*^9, 
   3.546000121596826*^9, 3.5460213547237787`*^9, 3.546057614462632*^9, 
   3.546064583472032*^9, 3.546091122039898*^9, 3.546325598771154*^9, 
   3.5482473287279463`*^9, 3.5484045467942877`*^9, 3.5484812474705563`*^9, 
   3.548511425575225*^9, 3.5485258075441837`*^9, 3.548567870514085*^9, 
   3.548571054167097*^9, 3.5485750072802143`*^9, 3.548591585657021*^9, 
   3.548662092154764*^9, 3.548700115543996*^9, 3.548756249366087*^9, 
   3.548911241255562*^9, 3.548930606517621*^9, 3.548960794995089*^9, 
   3.549002177870823*^9, 3.549020861260255*^9, 3.549043537660266*^9, 
   3.549047025331653*^9, 3.549086271707066*^9, 3.549096268561221*^9, 
   3.5492603027278976`*^9, 3.549272920928433*^9, 3.549305070873775*^9, 
   3.549305288402667*^9, 3.549305797618621*^9, 3.54935887735111*^9, 
   3.549433144966613*^9, 3.549462310398662*^9, 3.549540243548273*^9, 
   3.550921578985696*^9, 3.5509907116732483`*^9, 3.550996418402589*^9, 
   3.550996587345397*^9, 3.555347178923736*^9, 3.557392092797368*^9, 
   3.5574031453561497`*^9, 3.557466457355702*^9, 3.557579373498702*^9, 
   3.557635726741583*^9, 3.558441135675009*^9, 3.558549883075824*^9, 
   3.560007735787949*^9, 3.560044349130324*^9, 3.560044408447503*^9, 
   3.560185493426297*^9, 3.560186280514884*^9, 3.560186353902391*^9, 
   3.560186503923369*^9, 3.5602228730264883`*^9, 3.56025641802494*^9, 
   3.560268924845831*^9, 3.560269927580378*^9, 3.560271412726912*^9, 
   3.5605162478818293`*^9, 3.56052159575556*^9, 3.560534284687624*^9, 
   3.560535147112137*^9, 3.5608423125515003`*^9, 3.5608444320435543`*^9, 
   3.56117680363558*^9, 3.561210842531651*^9, 3.5612691416204653`*^9, 
   3.561275592543418*^9, 3.5612769361157293`*^9, 3.561302799233306*^9, 
   3.561305362015983*^9, 3.561308532051012*^9, 3.561308781058662*^9, {
   3.561360307069223*^9, 3.561360061571843*^9}, 3.728115018665738*^9, 
   3.7312348728959637`*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"ba6a7072-4aab-41bd-8b46-52ace4d8093c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellLabel->"In[94]:=",ExpressionUUID->"74b069dc-e927-489f-87a5-8707171be7ce"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
    Editable->False], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{"3", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Beta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511342430190309*^9, 3.5113424874059143`*^9, 3.511505685896819*^9, 
   3.5115081521616297`*^9, 3.511591720254612*^9, 3.51159526326402*^9, 
   3.5116308760814943`*^9, 3.511631590177876*^9, 3.511723574385762*^9, 
   3.521274224729245*^9, 3.521276478839677*^9, 3.521277307377461*^9, 
   3.521277493123659*^9, 3.521278916360386*^9, 3.5213660584622993`*^9, 
   3.521366344896989*^9, 3.521370352057019*^9, 3.521440679871399*^9, 
   3.521440920839498*^9, 3.5214559028471613`*^9, 3.521458352206977*^9, 
   3.5215069717432756`*^9, 3.5215205084890413`*^9, 3.521520604659038*^9, 
   3.521523014317461*^9, 3.5215390605184717`*^9, 3.521785483053493*^9, 
   3.5217973591367893`*^9, 3.521803977177105*^9, 3.5218832978905973`*^9, 
   3.5219400976968613`*^9, 3.5219710874396667`*^9, 3.5219714174065313`*^9, 
   3.5219714764220943`*^9, 3.52197156678089*^9, 3.521972106013026*^9, 
   3.521973954790873*^9, 3.522029102681717*^9, 3.524393914401656*^9, 
   3.52439631669114*^9, 3.524977866040196*^9, 3.524997218737022*^9, 
   3.525067534247931*^9, 3.525070796561809*^9, 3.525072069776825*^9, 
   3.525073228983982*^9, 3.525081023366605*^9, 3.5251871374932404`*^9, 
   3.525240246226452*^9, 3.5252438991976748`*^9, 3.52539752687584*^9, 
   3.525398674290543*^9, 3.5254934628027563`*^9, 3.525660866688738*^9, 
   3.5256619107689257`*^9, 3.525662979228034*^9, 3.525673277109889*^9, 
   3.54573886785674*^9, 3.545991127365512*^9, 3.5459914699678087`*^9, 
   3.546000121680995*^9, 3.5460213547691793`*^9, 3.546057614543722*^9, 
   3.546064583565936*^9, 3.546091122113633*^9, 3.546325598872806*^9, 
   3.548247328827218*^9, 3.5484045468328238`*^9, 3.548481247519218*^9, 
   3.548511425635144*^9, 3.5485258075838327`*^9, 3.5485678705693483`*^9, 
   3.5485710542174892`*^9, 3.548575007325357*^9, 3.5485915857269487`*^9, 
   3.548662092220686*^9, 3.5487001156054173`*^9, 3.54875624942974*^9, 
   3.54891124128377*^9, 3.548930606563717*^9, 3.548960795039632*^9, 
   3.549002177919842*^9, 3.549020861326754*^9, 3.549043537705435*^9, 
   3.549047025373308*^9, 3.549086271755617*^9, 3.5490962686298103`*^9, 
   3.5492603027776937`*^9, 3.549272921003132*^9, 3.5493050709248753`*^9, 
   3.549305288448348*^9, 3.549305797658431*^9, 3.549358877403569*^9, 
   3.549433145017145*^9, 3.549462310439672*^9, 3.549540243596303*^9, 
   3.550921579048613*^9, 3.5509907117457533`*^9, 3.550996418465485*^9, 
   3.550996587430971*^9, 3.555347178999724*^9, 3.5573920928588552`*^9, 
   3.557403145405263*^9, 3.557466457421365*^9, 3.5575793735491943`*^9, 
   3.557635726825015*^9, 3.558441135731515*^9, 3.5585498831234007`*^9, 
   3.560007735847143*^9, 3.560044349191395*^9, 3.5600444085054607`*^9, 
   3.560185493478201*^9, 3.560186280609044*^9, 3.560186353958713*^9, 
   3.560186503981082*^9, 3.560222873082418*^9, 3.56025641808654*^9, 
   3.560268924902968*^9, 3.560269927631651*^9, 3.560271412780141*^9, 
   3.560516247952902*^9, 3.560521595789638*^9, 3.5605342847428083`*^9, 
   3.5605351471359987`*^9, 3.5608423126073112`*^9, 3.5608444321109657`*^9, 
   3.561176803681459*^9, 3.561210842593644*^9, 3.561269141680979*^9, 
   3.561275592613955*^9, 3.5612769361815023`*^9, 3.5613027993122053`*^9, 
   3.5613053620653954`*^9, 3.561308532113484*^9, 3.561308781150317*^9, {
   3.561360307125708*^9, 3.561360061646441*^9}, 3.7281150186994133`*^9, 
   3.731234872925475*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"ada8487b-d8a9-4df1-a25e-b721fd6c721e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciWeylToRicciUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511342446968039*^9, 3.5113424596781273`*^9}, {
  3.5115056927788897`*^9, 3.511505701137369*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"7d048cea-dc89-4236-b40c-29aabf4bab85"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RicciWeylToRicciUnphys", "/.", 
  RowBox[{
   RowBox[{"-", "\[Alpha]"}], "\[Rule]", "\[Gamma]"}]}]], "Input",
 CellChangeTimes->{{3.511505898401965*^9, 3.511505910266*^9}, {
  3.5250675368239393`*^9, 3.525067538672079*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"3a6a7890-a014-4909-bc18-ad36adcfe052"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " "},
          {" ", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciWeylCD[$CellContext`\[Gamma], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", "\[Del]", "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDg[],
    Editable->False], "-", 
   RowBox[{"8", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{"4", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Beta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`\[ScriptF][$CellContext`\[Gamma]]],
    Editable->False], "-", 
   RowBox[{"3", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[$CellContext`\[Gamma]][
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.5115059107543497`*^9, 3.511508152266872*^9, 3.5115917203024273`*^9, 
   3.5115952633223963`*^9, 3.511630876109137*^9, 3.511631590200379*^9, 
   3.511723574574168*^9, 3.5212742284243298`*^9, 3.521276479165406*^9, 
   3.5212773075388803`*^9, 3.52127749318718*^9, 3.5212789165819607`*^9, 
   3.521366058657351*^9, 3.521366346291676*^9, 3.521370352111464*^9, 
   3.521440679976933*^9, 3.5214409209405327`*^9, 3.5214559028744097`*^9, 
   3.5214591998683167`*^9, 3.5215069717608957`*^9, 3.521520508550499*^9, 
   3.521520604730302*^9, 3.521523014360138*^9, 3.521539060647078*^9, 
   3.52178548307515*^9, 3.521797359167863*^9, 3.5218039772139273`*^9, 
   3.521883297971018*^9, 3.521940097784317*^9, 3.521971087461628*^9, 
   3.5219714174778337`*^9, 3.5219714764522743`*^9, 3.5219715668074903`*^9, 
   3.5219721061285973`*^9, 3.521973954820623*^9, 3.522029102777652*^9, 
   3.524393914526163*^9, 3.524396316732369*^9, 3.5249778660754128`*^9, 
   3.524997218787856*^9, 3.525067539202097*^9, 3.525070796665938*^9, 
   3.525072069852057*^9, 3.5250732290162373`*^9, 3.525081023432578*^9, 
   3.525187137571239*^9, 3.525240246297018*^9, 3.5252438992269*^9, 
   3.525397526898288*^9, 3.525398674317338*^9, 3.5254934628382063`*^9, 
   3.525660866725169*^9, 3.525661910819234*^9, 3.5256629792484303`*^9, 
   3.525673277156807*^9, 3.545738868040206*^9, 3.545991127437502*^9, 
   3.5459914700308657`*^9, 3.546000121769463*^9, 3.546021354839067*^9, 
   3.546057614571644*^9, 3.546064583728303*^9, 3.54609112221644*^9, 
   3.546325598905116*^9, 3.548247328916368*^9, 3.548404546931183*^9, 
   3.548481247567814*^9, 3.54851142566154*^9, 3.548525807599472*^9, 
   3.548567870610128*^9, 3.5485710543396587`*^9, 3.5485750073610153`*^9, 
   3.548591585767816*^9, 3.5486620922442837`*^9, 3.548700115676854*^9, 
   3.548756249472786*^9, 3.5489112413221817`*^9, 3.548930606602811*^9, 
   3.548960795132029*^9, 3.549002177980603*^9, 3.549020861385798*^9, 
   3.549043537743998*^9, 3.549047025404235*^9, 3.549086271792829*^9, 
   3.5490962687329893`*^9, 3.549260302811038*^9, 3.549272921099538*^9, 
   3.5493050709642897`*^9, 3.549305288490123*^9, 3.549305797812749*^9, 
   3.549358877474637*^9, 3.549433145048265*^9, 3.549462310473119*^9, 
   3.549540243637478*^9, 3.550921579092349*^9, 3.550990711796813*^9, 
   3.550996418547673*^9, 3.5509965874775887`*^9, 3.555347179046131*^9, 
   3.5573920929066277`*^9, 3.557403145538102*^9, 3.5574664575195503`*^9, 
   3.5575793736154947`*^9, 3.5576357268651114`*^9, 3.5584411357769003`*^9, 
   3.558549883206541*^9, 3.560007735889827*^9, 3.560044349239521*^9, 
   3.56004440852656*^9, 3.560185493518052*^9, 3.56018628065441*^9, 
   3.56018635400425*^9, 3.560186504023396*^9, 3.560222873122686*^9, 
   3.560256418113639*^9, 3.560268924944809*^9, 3.560269927667325*^9, 
   3.560271412818265*^9, 3.5605162479761667`*^9, 3.560521595867846*^9, 
   3.560534284780917*^9, 3.5605351471636257`*^9, 3.560842312647238*^9, 
   3.560844432148543*^9, 3.5611768037082443`*^9, 3.561210842657963*^9, 
   3.561269141725625*^9, 3.5612755926609783`*^9, 3.561276936205002*^9, 
   3.561302799390112*^9, 3.5613053621358356`*^9, 3.561308532182581*^9, 
   3.5613087812120323`*^9, {3.561360307174614*^9, 3.561360061714623*^9}, 
   3.728115018721959*^9, 3.731234872950535*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"293c8b12-d533-4215-9f45-47f854ef6952"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511505912604266*^9, 3.511505918472703*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"ce6de810-2372-4773-89d1-66f533c31a86"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {"\[Gamma]", " "},
          {" ", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciWeylCD[$CellContext`\[Gamma], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", "\[Del]", "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDg[],
    Editable->False], "-", 
   RowBox[{"6", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{"6", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][$CellContext`\[Beta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511505919254121*^9, 3.511508152319195*^9, 3.511591720348157*^9, 
   3.5115952633734922`*^9, 3.511630876134364*^9, 3.511631590225031*^9, 
   3.511723574697695*^9, 3.521274229401703*^9, 3.521276479447075*^9, 
   3.521277307592619*^9, 3.521277493255279*^9, 3.521278916645638*^9, 
   3.521366058906395*^9, 3.521366346889236*^9, 3.521370352140725*^9, 
   3.52144068005037*^9, 3.52144092101635*^9, 3.5214559029004507`*^9, 
   3.521459201616706*^9, 3.521506971820303*^9, 3.521520508572003*^9, 
   3.5215206047911386`*^9, 3.521523014386898*^9, 3.521539060686368*^9, 
   3.5217854830956917`*^9, 3.5217973591910343`*^9, 3.521803977233225*^9, 
   3.521883298025682*^9, 3.5219400978484793`*^9, 3.5219710874825773`*^9, 
   3.521971417504109*^9, 3.521971476477675*^9, 3.521971566827224*^9, 
   3.5219721061531067`*^9, 3.521973954849208*^9, 3.522029102842348*^9, 
   3.5243939145853558`*^9, 3.5243963167767982`*^9, 3.524977866111341*^9, 
   3.524997218840652*^9, 3.5250675400159903`*^9, 3.5250707967046824`*^9, 
   3.5250720698882217`*^9, 3.525073229044832*^9, 3.525081023493978*^9, 
   3.525187137608664*^9, 3.5252402463229923`*^9, 3.525243899254114*^9, 
   3.525397526926796*^9, 3.525398674336567*^9, 3.5254934628597727`*^9, 
   3.525660866765626*^9, 3.525661910856443*^9, 3.525662979263194*^9, 
   3.525673277238628*^9, 3.545738868090476*^9, 3.545991127503716*^9, 
   3.545991470098922*^9, 3.546000121855111*^9, 3.5460213548813057`*^9, 
   3.546057614620337*^9, 3.546064583807951*^9, 3.546091122297583*^9, 
   3.5463255989545507`*^9, 3.548247328994872*^9, 3.5484045469807587`*^9, 
   3.548481247601304*^9, 3.548511425684417*^9, 3.548525807628211*^9, 
   3.548567870635809*^9, 3.548571054374421*^9, 3.5485750074010983`*^9, 
   3.5485915857905273`*^9, 3.548662092279422*^9, 3.5487001157170486`*^9, 
   3.548756249508181*^9, 3.548911241347287*^9, 3.548930606629463*^9, 
   3.548960795157318*^9, 3.549002178002939*^9, 3.549020861453268*^9, 
   3.549043537770569*^9, 3.549047025431939*^9, 3.5490862718254137`*^9, 
   3.549096268785532*^9, 3.549260302840822*^9, 3.549272921142683*^9, 
   3.5493050710484343`*^9, 3.5493052886109533`*^9, 3.54930579785073*^9, 
   3.549358877517324*^9, 3.549433145070228*^9, 3.549462310565153*^9, 
   3.549540243665073*^9, 3.5509215791287937`*^9, 3.550990711840667*^9, 
   3.5509964185904512`*^9, 3.550996587518998*^9, 3.555347179090653*^9, 
   3.557392092947159*^9, 3.557403145575863*^9, 3.5574664575409727`*^9, 
   3.557579373637582*^9, 3.557635726901511*^9, 3.558441135813048*^9, 
   3.558549883230167*^9, 3.560007735923314*^9, 3.560044349285968*^9, 
   3.560044408563335*^9, 3.560185493561661*^9, 3.560186280690057*^9, 
   3.560186354046508*^9, 3.56018650406137*^9, 3.5602228731532297`*^9, 
   3.560256418151729*^9, 3.560268924987776*^9, 3.5602699277005243`*^9, 
   3.560271412860301*^9, 3.5605162480070343`*^9, 3.560521595916485*^9, 
   3.560534284808957*^9, 3.56053514718969*^9, 3.5608423126773777`*^9, 
   3.560844432182188*^9, 3.561176803740534*^9, 3.561210842696477*^9, 
   3.561269141758522*^9, 3.561275592702497*^9, 3.561276936241014*^9, 
   3.561302799463607*^9, 3.561305362204777*^9, 3.561308532231756*^9, 
   3.5613087812607107`*^9, {3.5613603072109413`*^9, 3.561360061752158*^9}, 
   3.7281150187445087`*^9, 3.731234872969121*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"05234a8c-aafa-4ed4-ae8e-0fbc6470444c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciScalarWeylToRicciScalarUnphysical", "=", "%"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.511505924454493*^9, 3.5115059391367607`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"05e3f44e-a220-468e-ae0c-4a642f8b8784"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["The Schouten tensor", "Subsection",
 CellChangeTimes->{{3.511343558819148*^9, 3.5113435628355637`*^9}, {
  3.511507191721735*^9, 3.5115071941592407`*^9}, {3.521440680296597*^9, 
  3.521440681092011*^9}},ExpressionUUID->"1806f347-2566-4baa-9f48-\
9c7b42af9c3b"],

Cell[CellGroupData[{

Cell["Unphysical Schouten tensor ", "Subsubsection",
 CellChangeTimes->{{3.5115047410423527`*^9, 3.511504748545993*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"LUnphysg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], ",", "M4", ",", 
   RowBox[{"Symmetric", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "}"}], "]"}], ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<L\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511343749992772*^9, 3.511343787297348*^9}, {
  3.525067553053203*^9, 3.525067560462058*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"3a60c0c1-43d5-4732-8f48-40cfab7a4d09"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"LUnphysg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ",
    ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511343787714554*^9, 3.511458671757406*^9, 3.511503132892663*^9, 
   3.51150368687938*^9, 3.511503790804393*^9, 3.5115047654352217`*^9, 
   3.511508167922886*^9, 3.511591720423068*^9, 3.51159526740889*^9, 
   3.511630876180966*^9, 3.511631590268684*^9, 3.511723587313024*^9, 
   3.5212743540507097`*^9, 3.5212764977692537`*^9, 3.521277307666456*^9, 
   3.521277493370098*^9, 3.521278922147202*^9, 3.521366089357666*^9, 
   3.521366355806054*^9, 3.521370369619392*^9, 3.521440684221779*^9, 
   3.521440921178835*^9, 3.521455904999793*^9, 3.5214592111442623`*^9, 
   3.5215069727630453`*^9, 3.521520607446651*^9, 3.5215230144304028`*^9, 
   3.52153906146486*^9, 3.5217854831840267`*^9, 3.521797359481451*^9, 
   3.521803990072063*^9, 3.52188330019046*^9, 3.521940290636936*^9, 
   3.521971088906021*^9, 3.521971429753252*^9, 3.5219714799145603`*^9, 
   3.521971568544277*^9, 3.521972111335384*^9, 3.5219739575546913`*^9, 
   3.5220291029017353`*^9, 3.524393957036972*^9, 3.524396319133732*^9, 
   3.52497786620529*^9, 3.5249972189301987`*^9, 3.525067561476284*^9, 
   3.5250707967465477`*^9, 3.525072071488042*^9, 3.525073229107223*^9, 
   3.525081023573138*^9, 3.525187137675783*^9, 3.525240246849835*^9, 
   3.5252438993343077`*^9, 3.525397529851985*^9, 3.525398674559546*^9, 
   3.525493462984006*^9, 3.525660866833804*^9, 3.525661910890109*^9, 
   3.5256629793860617`*^9, 3.525673277292962*^9, 3.545738868207767*^9, 
   3.545991127781324*^9, 3.545991470311005*^9, 3.546000122054887*^9, 
   3.546021355029427*^9, 3.546057614677658*^9, 3.546064583917849*^9, 
   3.546091122438274*^9, 3.546325599005884*^9, 3.5482473290514927`*^9, 
   3.5484045482646217`*^9, 3.548481247663727*^9, 3.5485114258154173`*^9, 
   3.548525807665867*^9, 3.5485678707709217`*^9, 3.548571054444563*^9, 
   3.5485750075234423`*^9, 3.548591585853168*^9, 3.548662092337228*^9, 
   3.548700115769413*^9, 3.548756249668367*^9, 3.5489112414170637`*^9, 
   3.548930606689519*^9, 3.548960795212605*^9, 3.5490021780497637`*^9, 
   3.549020861510592*^9, 3.54904353782133*^9, 3.5490470255329323`*^9, 
   3.5490862718748617`*^9, 3.549096268898451*^9, 3.549260302885713*^9, 
   3.5492729212316513`*^9, 3.549305071155011*^9, 3.549305288666883*^9, 
   3.5493057978994713`*^9, 3.549358877568163*^9, 3.549433145182144*^9, 
   3.549462310604869*^9, 3.549540243706724*^9, 3.550921579196581*^9, 
   3.550990711915677*^9, 3.550996418725587*^9, 3.550996587542349*^9, 
   3.5553471884151917`*^9, 3.557392093017119*^9, 3.5574031456548443`*^9, 
   3.557466457597353*^9, 3.557579373673078*^9, 3.557635726952327*^9, 
   3.5584411358855743`*^9, 3.558549883272928*^9, 3.560007735985491*^9, 
   3.560044349358737*^9, 3.56004440870197*^9, 3.560185493634042*^9, 
   3.5601862807653837`*^9, 3.560186354127385*^9, 3.560186504142967*^9, 
   3.5602228732131567`*^9, 3.560256418225766*^9, 3.560268925095842*^9, 
   3.560269927723731*^9, 3.560271412923603*^9, 3.5605162480698147`*^9, 
   3.5605215959581413`*^9, 3.560534284859274*^9, 3.56053514728528*^9, 
   3.560842312711205*^9, 3.560844432341269*^9, 3.561176803800506*^9, 
   3.561210842741064*^9, 3.561269141816921*^9, 3.561275592803648*^9, 
   3.561276936301443*^9, 3.561302799570346*^9, 3.561305362354247*^9, 
   3.561308532279904*^9, 3.56130878128927*^9, {3.561360307283073*^9, 
   3.561360061832296*^9}, 3.728115018763197*^9, 3.731234872990838*^9},
 CellLabel->
  "During evaluation of \
In[99]:=",ExpressionUUID->"8bd797c8-d7e1-49a7-9b90-c46feecdf5b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LUnphysg", "[", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], ",", 
    RowBox[{"-", "\[Beta]"}]}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"RicciCDg", "[", 
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], ",", 
       RowBox[{"-", "\[Beta]"}]}], "]"}], "-", 
     RowBox[{
      RowBox[{"1", "/", "6"}], " ", 
      RowBox[{"RicciScalarCDg", "[", "]"}], 
      RowBox[{"Unphysicalg", "[", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", 
        RowBox[{"-", "\[Beta]"}]}], "]"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5113437987974243`*^9, 3.511343887244753*^9}, {
  3.5113440729727163`*^9, 3.511344080080106*^9}, {3.511344116663764*^9, 
  3.511344149218918*^9}, {3.511344186493038*^9, 3.511344187254987*^9}, {
  3.525067563619128*^9, 3.5250675746884193`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"96c1d011-1c0e-440b-839e-ad8a25d6437a"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"R", "[", "\[Del]", "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511343887779567*^9, 3.511344080715205*^9, {3.511344161973784*^9, 
   3.511344187974133*^9}, 3.5114586730777483`*^9, 3.511503132902712*^9, 
   3.5115036869524727`*^9, 3.511503791718721*^9, 3.511504765488185*^9, 
   3.511508168087164*^9, 3.511591720468104*^9, 3.511595268479947*^9, 
   3.5116308761986933`*^9, 3.5116315902865057`*^9, 3.511723587386095*^9, 
   3.521274354892797*^9, 3.521276497953968*^9, 3.521277307679378*^9, 
   3.521277493426797*^9, 3.521278922295436*^9, 3.521366089431862*^9, 
   3.521366356952607*^9, 3.521370369704286*^9, 3.521440684343009*^9, 
   3.521440921246788*^9, 3.521455905081793*^9, 3.5214592125753393`*^9, 
   3.5215069728221397`*^9, 3.521520607532317*^9, 3.521523014453796*^9, 
   3.521539061543889*^9, 3.521785483196396*^9, 3.52179735954723*^9, 
   3.52180399016216*^9, 3.521883300285879*^9, 3.521940290765477*^9, 
   3.52197108900039*^9, 3.5219714298464212`*^9, 3.521971480000803*^9, 
   3.521971568627056*^9, 3.5219721114239473`*^9, 3.5219739576387367`*^9, 
   3.52202910291926*^9, 3.5243939571486807`*^9, 3.524396319222382*^9, 
   3.52497786623347*^9, 3.524997218942457*^9, 3.5250675754638653`*^9, 
   3.5250707967777967`*^9, 3.525072071577804*^9, 3.5250732291322203`*^9, 
   3.525081023627111*^9, 3.525187137699257*^9, 3.52524024690352*^9, 
   3.525243899356797*^9, 3.525397529894114*^9, 3.5253986745854177`*^9, 
   3.5254934630194693`*^9, 3.52566086686176*^9, 3.5256619109234858`*^9, 
   3.525662979404798*^9, 3.5256732773424683`*^9, 3.545738868276412*^9, 
   3.54599112788208*^9, 3.545991470378042*^9, 3.546000122143375*^9, 
   3.5460213550727873`*^9, 3.546057614719454*^9, 3.546064584018484*^9, 
   3.546091122518581*^9, 3.546325599050933*^9, 3.548247329116522*^9, 
   3.5484045482963657`*^9, 3.54848124767225*^9, 3.548511425848477*^9, 
   3.548525807674444*^9, 3.548567870779182*^9, 3.5485710544867287`*^9, 
   3.548575007530822*^9, 3.5485915858677387`*^9, 3.5486620923519697`*^9, 
   3.5487001157973127`*^9, 3.548756249691599*^9, 3.5489112414451313`*^9, 
   3.5489306066972017`*^9, 3.5489607953001423`*^9, 3.549002178062964*^9, 
   3.54902086154811*^9, 3.5490435378481417`*^9, 3.5490470255397253`*^9, 
   3.549086271882663*^9, 3.5490962689383707`*^9, 3.5492603028972807`*^9, 
   3.549272921248105*^9, 3.549305071178884*^9, 3.549305288696238*^9, 
   3.549305797907131*^9, 3.549358877587208*^9, 3.5494331452082977`*^9, 
   3.549462310612542*^9, 3.549540243714774*^9, 3.550921579212083*^9, 
   3.550990711929894*^9, 3.5509964187615633`*^9, 3.550996587557437*^9, 
   3.555347188478693*^9, 3.557392093032216*^9, 3.557403145689185*^9, 
   3.557466457624473*^9, 3.557579373682682*^9, 3.557635726982917*^9, 
   3.558441135898156*^9, 3.558549883282194*^9, 3.56000773600045*^9, 
   3.56004434939734*^9, 3.5600444087141037`*^9, 3.5601854936692142`*^9, 
   3.560186280778055*^9, 3.560186354142837*^9, 3.560186504158082*^9, 
   3.560222873241125*^9, 3.56025641824086*^9, 3.5602689251085663`*^9, 
   3.560269927738859*^9, 3.560271412936407*^9, 3.560516248083653*^9, 
   3.560521595972231*^9, 3.560534284885614*^9, 3.5605351472924223`*^9, 
   3.560842312728574*^9, 3.560844432353944*^9, 3.561176803818089*^9, 
   3.561210842780086*^9, 3.561269141848877*^9, 3.561275592819056*^9, 
   3.561276936315693*^9, 3.561302799590711*^9, 3.561305362378993*^9, 
   3.5613085323175583`*^9, 3.561308781305108*^9, {3.5613603073603573`*^9, 
   3.5613600618474293`*^9}, 3.728115018778532*^9, 3.731234873006937*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"d608e507-da28-4e2e-92b1-33df8c29c45d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5113439041362143`*^9, 3.511343917507077*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"4e2542a1-6891-46be-b932-fceb4b6c3c76"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"SchoutenUnphys", ",", 
       RowBox[{"RicciCDg", "[", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], ",", 
         RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "//", "Flatten"}], "//", 
    "First"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511343922048277*^9, 3.511343944707582*^9}, {
  3.525067579989017*^9, 3.525067581993483*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"3406c14b-0a89-47df-8db7-af663b5527d3"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"12", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511343945356288*^9, 3.511344082334971*^9, {3.5113441636414948`*^9, 
   3.511344189648982*^9}, 3.511458693466894*^9, 3.511503132917831*^9, 
   3.511503688904509*^9, 3.511503792678525*^9, 3.5115047655033827`*^9, 
   3.511508168179461*^9, 3.511591720482114*^9, 3.511595269885995*^9, 
   3.5116308762296267`*^9, 3.511631590306754*^9, 3.5117235874248133`*^9, 
   3.5212743562389593`*^9, 3.521276497981138*^9, 3.521277307740404*^9, 
   3.521277493487164*^9, 3.521278922374957*^9, 3.521366089452978*^9, 
   3.5213663589319344`*^9, 3.5213703697308073`*^9, 3.5214406844447393`*^9, 
   3.521440921332045*^9, 3.521455905092145*^9, 3.5214592160046177`*^9, 
   3.521506972894073*^9, 3.5215206076412487`*^9, 3.5215230144769163`*^9, 
   3.521539061573002*^9, 3.521785483267935*^9, 3.521797359573708*^9, 
   3.521803990186288*^9, 3.521883300308651*^9, 3.521940290833096*^9, 
   3.521971089019709*^9, 3.521971429855597*^9, 3.5219714800212517`*^9, 
   3.521971568649787*^9, 3.52197211144907*^9, 3.521973957662662*^9, 
   3.5220291029518833`*^9, 3.524393957189971*^9, 3.5243963193344307`*^9, 
   3.524977866264756*^9, 3.524997218957922*^9, 3.5250675826990013`*^9, 
   3.525070796813151*^9, 3.52507207160781*^9, 3.525073229158145*^9, 
   3.525081023642765*^9, 3.5251871377224216`*^9, 3.5252402469373493`*^9, 
   3.525243899462558*^9, 3.525397529927829*^9, 3.525398674639209*^9, 
   3.5254934630534573`*^9, 3.525660866896634*^9, 3.525661910970099*^9, 
   3.52566297943565*^9, 3.525673277361174*^9, 3.545738868341948*^9, 
   3.5459911279515*^9, 3.545991470446679*^9, 3.54600012232856*^9, 
   3.546021355097048*^9, 3.546057614743701*^9, 3.546064584172573*^9, 
   3.5460911226321373`*^9, 3.546325599075769*^9, 3.5482473291517267`*^9, 
   3.548404548344079*^9, 3.548481247707119*^9, 3.548511425955411*^9, 
   3.548525807701404*^9, 3.548567870792056*^9, 3.548571054585578*^9, 
   3.548575007557143*^9, 3.5485915859066668`*^9, 3.548662092372779*^9, 
   3.5487001158333797`*^9, 3.5487562497152357`*^9, 3.5489112414612713`*^9, 
   3.548930606727343*^9, 3.548960795339913*^9, 3.549002178083753*^9, 
   3.549020861628129*^9, 3.549043537881233*^9, 3.549047025567477*^9, 
   3.549086271918233*^9, 3.549096269016118*^9, 3.5492603029276657`*^9, 
   3.549272921285757*^9, 3.549305071247878*^9, 3.5493052887223873`*^9, 
   3.549305797932172*^9, 3.549358877707108*^9, 3.5494331452683496`*^9, 
   3.5494623106387243`*^9, 3.549540243744864*^9, 3.550921579252043*^9, 
   3.550990711950382*^9, 3.550996418782987*^9, 3.550996587601791*^9, 
   3.5553471884984217`*^9, 3.557392093055295*^9, 3.557403145731554*^9, 
   3.557466457656152*^9, 3.5575793737096777`*^9, 3.557635727016884*^9, 
   3.558441135937236*^9, 3.558549883309454*^9, 3.560007736041307*^9, 
   3.5600443494438972`*^9, 3.560044408753161*^9, 3.5601854937127647`*^9, 
   3.560186280817834*^9, 3.56018635418252*^9, 3.560186504198761*^9, 
   3.560222873275426*^9, 3.56025641828231*^9, 3.560268925129072*^9, 
   3.560269927773548*^9, 3.560271412972567*^9, 3.560516248103662*^9, 
   3.560521596016629*^9, 3.560534284917996*^9, 3.56053514731701*^9, 
   3.560842312765909*^9, 3.560844432376495*^9, 3.561176803859371*^9, 
   3.5612108428309793`*^9, 3.5612691418894377`*^9, 3.5612755929279203`*^9, 
   3.561276936399733*^9, 3.561302799637423*^9, 3.561305362441427*^9, 
   3.561308532410281*^9, 3.561308781361814*^9, {3.561360307417508*^9, 
   3.561360061871418*^9}, 3.728115018800109*^9, 3.731234873034711*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"d6958943-dba8-43df-8cd1-3fd3db399057"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciCDgToSchouten", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511343946902718*^9, 3.511343956944878*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"0a88284a-04a1-454e-8539-742ae3e8b887"],

Cell["\<\
The decomposition of the Riemann tensor into irreducible parts adopts a \
simpler form if one writes it in terms of the Schouten tensor\
\>", "Text",
 CellChangeTimes->{{3.511631201160297*^9, 3.511631235124948*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannCDg", "[", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], ",", 
    RowBox[{"-", "\[Beta]"}], ",", 
    RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"RiemannCDg", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}], "//", 
    "RiemannToWeyl"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5113428020516872`*^9, 3.5113428555043697`*^9}, {
  3.5113433653335037`*^9, 3.5113433744659033`*^9}, {3.5250675870856047`*^9, 
  3.52506760174964*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"af175a8d-c1e2-4beb-9c0b-a6ee2e31e414"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDg[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "6"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", "\[Del]", "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "6"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", "\[Del]", "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.511342812925826*^9, 3.511342856648383*^9}, 
   3.511343375623288*^9, 3.5113434090788317`*^9, {3.51134360020334*^9, 
   3.511343605907981*^9}, 3.511343682125355*^9, 3.511343717028955*^9, 
   3.511343983441457*^9, 3.511344085376726*^9, {3.511344167493157*^9, 
   3.5113441928241796`*^9}, 3.511459086574017*^9, 3.511503133042493*^9, 
   3.5115036906327457`*^9, 3.511503793558573*^9, 3.511504765617413*^9, 
   3.511508168263307*^9, 3.511591720536126*^9, 3.51159527282685*^9, 
   3.511630877241294*^9, 3.511631590332386*^9, 3.511723587481049*^9, 
   3.5212743611109877`*^9, 3.5212764980686617`*^9, 3.52127730776991*^9, 
   3.521277493599202*^9, 3.521278922466384*^9, 3.521366089530341*^9, 
   3.521366363570759*^9, 3.5213703697498293`*^9, 3.521440684512711*^9, 
   3.521440921414606*^9, 3.521455905123343*^9, 3.521459220486973*^9, 
   3.521506973024926*^9, 3.521520607711916*^9, 3.5215230145069532`*^9, 
   3.5215390616077957`*^9, 3.521785483300579*^9, 3.521797359607204*^9, 
   3.5218039902172337`*^9, 3.5218833003389587`*^9, 3.5219402909092073`*^9, 
   3.521971089049902*^9, 3.5219714298863792`*^9, 3.521971480046195*^9, 
   3.521971568674107*^9, 3.521972111479645*^9, 3.521973957687413*^9, 
   3.522029103034478*^9, 3.5243939572346277`*^9, 3.524396319353043*^9, 
   3.524977866302538*^9, 3.524997219010501*^9, 3.5250676025215054`*^9, 
   3.525070796853044*^9, 3.5250720716477013`*^9, 3.5250732291937838`*^9, 
   3.525081023704605*^9, 3.5251871377579603`*^9, 3.525240246977984*^9, 
   3.525243899497589*^9, 3.525397529962372*^9, 3.525398674677967*^9, 
   3.525493463100601*^9, 3.525660866941889*^9, 3.525661911005437*^9, 
   3.525662979541902*^9, 3.525673277390565*^9, 3.545738868410389*^9, 
   3.545991128019474*^9, 3.545991470555595*^9, 3.546000122520267*^9, 
   3.546021355175322*^9, 3.546057614805642*^9, 3.546064584283964*^9, 
   3.54609112270087*^9, 3.546325599153617*^9, 3.5482473292288094`*^9, 
   3.54840454845577*^9, 3.548481247786714*^9, 3.5485114260018272`*^9, 
   3.548525807817759*^9, 3.548567870834354*^9, 3.548571054619564*^9, 
   3.548575007597576*^9, 3.548591585970298*^9, 3.548662092425727*^9, 
   3.548700115907494*^9, 3.5487562497709208`*^9, 3.5489112415143747`*^9, 
   3.548930606776602*^9, 3.548960795430004*^9, 3.549002178120224*^9, 
   3.549020861678753*^9, 3.549043537944901*^9, 3.549047025594758*^9, 
   3.5490862719585533`*^9, 3.549096269112381*^9, 3.5492603029758587`*^9, 
   3.5492729213210783`*^9, 3.549305071282102*^9, 3.54930528883552*^9, 
   3.549305797973247*^9, 3.549358877742062*^9, 3.5494331453234653`*^9, 
   3.549462310673827*^9, 3.549540243789463*^9, 3.550921579302055*^9, 
   3.550990712007506*^9, 3.550996418833634*^9, 3.55099658764954*^9, 
   3.555347188552096*^9, 3.5573920931163073`*^9, 3.557403145777817*^9, 
   3.557466457697875*^9, 3.557579373747946*^9, 3.557635727067458*^9, 
   3.558441135980462*^9, 3.558549883343195*^9, 3.560007736093445*^9, 
   3.560044349499805*^9, 3.560044408799811*^9, 3.5601854937791777`*^9, 
   3.560186280861636*^9, 3.5601863542260647`*^9, 3.560186504226719*^9, 
   3.56022287332666*^9, 3.560256418335022*^9, 3.560268925176235*^9, 
   3.5602699278115253`*^9, 3.5602714130132017`*^9, 3.560516248156341*^9, 
   3.560521596074317*^9, 3.560534285016511*^9, 3.560535147353242*^9, 
   3.560842312812687*^9, 3.560844432429379*^9, 3.561176803947027*^9, 
   3.561210842883848*^9, 3.5612691419397287`*^9, 3.561275592988637*^9, 
   3.5612769364671993`*^9, 3.561302799736628*^9, 3.5613053624890347`*^9, 
   3.561308532460084*^9, 3.561308781415567*^9, {3.561360307487198*^9, 
   3.5613600619517593`*^9}, 3.7281150188310347`*^9, 3.731234873066771*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"78696565-5e3a-46bc-97f7-b0914cd7bc5d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "RicciCDgToSchouten"}]}]], "Input",
 CellChangeTimes->{{3.511343985099064*^9, 3.511343995775998*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"a169a77e-dc33-4a29-a255-fefb05122108"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "6"]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", "\[Del]", "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "6"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", "\[Del]", "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
        
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False]}]}], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5113439963813353`*^9, 3.511344086303844*^9, {3.511344168057103*^9, 
   3.5113441934288473`*^9}, 3.511459087787265*^9, 3.511503133163368*^9, 
   3.5115036915158033`*^9, 3.5115037942488527`*^9, 3.511504765743042*^9, 
   3.511508168384907*^9, 3.511591720565387*^9, 3.5115952733574877`*^9, 
   3.5116308772793903`*^9, 3.511631590363461*^9, 3.511723587547613*^9, 
   3.5212743621297407`*^9, 3.5212764981644573`*^9, 3.521277307804749*^9, 
   3.521277493665998*^9, 3.5212789225581913`*^9, 3.521366089604432*^9, 
   3.521366365051105*^9, 3.521370369787856*^9, 3.521440684580451*^9, 
   3.521440921506701*^9, 3.521455905150055*^9, 3.5214592217380238`*^9, 
   3.521506973106428*^9, 3.521520607787264*^9, 3.521523014542758*^9, 
   3.521539061658187*^9, 3.521785483337285*^9, 3.521797359639567*^9, 
   3.521803990247641*^9, 3.52188330037274*^9, 3.5219402909857473`*^9, 
   3.521971089083969*^9, 3.521971429916597*^9, 3.521971480074491*^9, 
   3.52197156870257*^9, 3.521972111512025*^9, 3.5219739577149076`*^9, 
   3.5220291030964746`*^9, 3.524393957279805*^9, 3.5243963193901653`*^9, 
   3.52497786634192*^9, 3.524997219039*^9, 3.525067603840859*^9, 
   3.525070796897398*^9, 3.525072071682007*^9, 3.525073229235022*^9, 
   3.525081023734528*^9, 3.525187137799252*^9, 3.525240247013721*^9, 
   3.5252438995448627`*^9, 3.525397529998012*^9, 3.525398674717593*^9, 
   3.525493463144616*^9, 3.5256608669879103`*^9, 3.525661911044471*^9, 
   3.52566297957251*^9, 3.5256732774633923`*^9, 3.545738868493761*^9, 
   3.545991128103718*^9, 3.545991470678339*^9, 3.546000122617359*^9, 
   3.546021355232728*^9, 3.546057614864725*^9, 3.546064584359775*^9, 
   3.546091122792386*^9, 3.5463255992549353`*^9, 3.54824732930206*^9, 
   3.548404548506713*^9, 3.548481247834877*^9, 3.54851142605707*^9, 
   3.548525807854968*^9, 3.5485678709249496`*^9, 3.54857105465854*^9, 
   3.548575007638435*^9, 3.548591586027516*^9, 3.5486620924961777`*^9, 
   3.5487001159539547`*^9, 3.548756249824081*^9, 3.54891124155269*^9, 
   3.548930606838058*^9, 3.54896079547484*^9, 3.549002178159738*^9, 
   3.549020861715488*^9, 3.549043537999894*^9, 3.549047025620113*^9, 
   3.549086271995914*^9, 3.5490962691953773`*^9, 3.549260303036785*^9, 
   3.549272921358324*^9, 3.5493050713221083`*^9, 3.54930528886185*^9, 
   3.549305798006858*^9, 3.54935887777952*^9, 3.549433145372121*^9, 
   3.549462310719887*^9, 3.549540243841934*^9, 3.550921579380603*^9, 
   3.550990712082549*^9, 3.550996418888228*^9, 3.5509965876974573`*^9, 
   3.555347188591846*^9, 3.557392093174266*^9, 3.557403145834988*^9, 
   3.557466457749086*^9, 3.557579373790256*^9, 3.557635727113399*^9, 
   3.558441136030025*^9, 3.5585498833882523`*^9, 3.560007736151194*^9, 
   3.560044349553994*^9, 3.560044408872302*^9, 3.560185493823111*^9, 
   3.5601862809117727`*^9, 3.560186354275578*^9, 3.560186504270484*^9, 
   3.5602228733819017`*^9, 3.5602564183967667`*^9, 3.56026892522541*^9, 
   3.56026992785571*^9, 3.560271413059394*^9, 3.560516248222455*^9, 
   3.5605215961217422`*^9, 3.560534285061099*^9, 3.560535147384429*^9, 
   3.560842312867317*^9, 3.560844432486775*^9, 3.5611768039994497`*^9, 
   3.561210842940319*^9, 3.5612691419987497`*^9, 3.561275593092218*^9, 
   3.561276936523015*^9, 3.561302799788681*^9, 3.5613053625384808`*^9, 
   3.561308532507821*^9, 3.5613087814682293`*^9, {3.561360307548194*^9, 
   3.5613600620105047`*^9}, 3.728115018859644*^9, 3.731234873095175*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"65fc63f8-b86b-41f4-a8a0-921098c0c3b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511343998662364*^9, 3.511344002335998*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"5053e8ca-f59d-4b0f-b799-95f469085290"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511344002895103*^9, 3.511344087854458*^9, {3.511344169305488*^9, 
   3.511344194086358*^9}, 3.511459088945973*^9, 3.511503133330098*^9, 
   3.5115036926020184`*^9, 3.511503794760137*^9, 3.511504765889449*^9, 
   3.5115081685338573`*^9, 3.511591720606963*^9, 3.511595274198987*^9, 
   3.51163087732472*^9, 3.5116315904041348`*^9, 3.511723587644943*^9, 
   3.521274365616168*^9, 3.521276498298805*^9, 3.521277307909369*^9, 
   3.5212774937548113`*^9, 3.521278922675366*^9, 3.521366089704112*^9, 
   3.521366365752789*^9, 3.5213703698374434`*^9, 3.521440684682722*^9, 
   3.521440921580175*^9, 3.5214559051932983`*^9, 3.5214592228262*^9, 
   3.5215069732294703`*^9, 3.521520607873755*^9, 3.5215230146040497`*^9, 
   3.521539061708626*^9, 3.521785483448634*^9, 3.5217973596882563`*^9, 
   3.5218039902907667`*^9, 3.521883300420599*^9, 3.521940291092355*^9, 
   3.521971089124539*^9, 3.521971429960778*^9, 3.521971480116959*^9, 
   3.521971568750071*^9, 3.521972111555341*^9, 3.521973957760551*^9, 
   3.522029103170416*^9, 3.5243939574148893`*^9, 3.524396319462031*^9, 
   3.524977866391591*^9, 3.52499721908109*^9, 3.525067605352351*^9, 
   3.525070797044478*^9, 3.52507207173253*^9, 3.525073229285428*^9, 
   3.525081023777142*^9, 3.525187137845788*^9, 3.525240247058674*^9, 
   3.525243899602931*^9, 3.525397530047249*^9, 3.52539867477052*^9, 
   3.525493463199375*^9, 3.5256608670258703`*^9, 3.525661911100397*^9, 
   3.525662979617152*^9, 3.525673277541111*^9, 3.54573886859273*^9, 
   3.545991128257894*^9, 3.545991470823823*^9, 3.5460001227263613`*^9, 
   3.546021355325832*^9, 3.546057614952169*^9, 3.546064584451768*^9, 
   3.546091122899169*^9, 3.546325599346805*^9, 3.548247329356194*^9, 
   3.548404548591978*^9, 3.548481247895639*^9, 3.548511426126234*^9, 
   3.5485258078920193`*^9, 3.548567870980586*^9, 3.54857105471213*^9, 
   3.548575007699986*^9, 3.548591586144099*^9, 3.5486620925532837`*^9, 
   3.548700116013769*^9, 3.548756249890011*^9, 3.5489112416150513`*^9, 
   3.548930606894136*^9, 3.5489607955578527`*^9, 3.549002178209477*^9, 
   3.5490208617685003`*^9, 3.549043538037896*^9, 3.549047025673192*^9, 
   3.5490862720543337`*^9, 3.5490962692599783`*^9, 3.549260303090591*^9, 
   3.54927292149892*^9, 3.549305071371326*^9, 3.54930528890838*^9, 
   3.549305798041081*^9, 3.549358877835341*^9, 3.549433145410945*^9, 
   3.549462310770507*^9, 3.549540243895526*^9, 3.550921579444783*^9, 
   3.550990712166678*^9, 3.550996418979611*^9, 3.550996587780532*^9, 
   3.555347188684771*^9, 3.5573920932505903`*^9, 3.55740314589704*^9, 
   3.557466457801773*^9, 3.5575793738467617`*^9, 3.557635727172131*^9, 
   3.5584411361094503`*^9, 3.558549883446192*^9, 3.560007736224298*^9, 
   3.560044349630512*^9, 3.560044408948347*^9, 3.560185493890587*^9, 
   3.56018628098411*^9, 3.560186354347432*^9, 3.560186504326231*^9, 
   3.560222873453457*^9, 3.5602564184730597`*^9, 3.5602689253007927`*^9, 
   3.560269927921536*^9, 3.560271413128587*^9, 3.560516248282099*^9, 
   3.5605215962006187`*^9, 3.560534285118642*^9, 3.560535147418763*^9, 
   3.560842312939888*^9, 3.5608444325588923`*^9, 3.561176804073482*^9, 
   3.5612108430202723`*^9, 3.561269142074894*^9, 3.561275593157228*^9, 
   3.561276936626142*^9, 3.561302799877037*^9, 3.561305362602058*^9, 
   3.5613085325928717`*^9, 3.5613087815614777`*^9, {3.5613603076288843`*^9, 
   3.561360062096277*^9}, 3.7281150189047823`*^9, 3.731234873142436*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"8d345d7b-17d7-42c2-9493-2912fcef614e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannUnphysToSchoutenUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511595037282629*^9, 3.511595060730157*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"9d39fcf2-e79b-4472-af46-c72aa9ee1876"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Covariant divergence of the Unphysical Weyl tensor in terms of the unphysical \
Schouten tensor\
\>", "Subsubsection",
 CellChangeTimes->{{3.5115971527165537`*^9, 3.5115971672999077`*^9}, {
  3.511633746461308*^9, 3.511633755630081*^9}}],

Cell["We note now the second Bianchi identity", "Text",
 CellChangeTimes->{{3.5115960460572233`*^9, 3.511596054552969*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0", "==", 
  RowBox[{"ToCanonical", "@", 
   RowBox[{"Antisymmetrize", "[", 
    RowBox[{
     RowBox[{"3", 
      RowBox[{
       RowBox[{"CDg", "[", 
        RowBox[{"-", "\[Eta]"}], "]"}], "@", 
       RowBox[{"RiemannCDg", "[", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], ",", 
         RowBox[{"-", "\[Beta]"}], ",", 
         RowBox[{"-", "\[Gamma]"}], ",", "\[Delta]"}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[Eta]"}], ",", 
       RowBox[{"-", "\[Alpha]"}], ",", 
       RowBox[{"-", "\[Beta]"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.511595104680884*^9, 3.511595147839978*^9}, {
  3.511595319838853*^9, 3.511595320798264*^9}, {3.525067612543063*^9, 
  3.525067667777565*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"e3591b24-0d8a-4b60-bfef-540efc43a7ba"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Beta]", "\[Eta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`RiemannCDg[-$CellContext`\[Beta], -$CellContext`\[Eta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Eta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Eta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Eta]][
     $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.5115951370624847`*^9, 3.511595148662156*^9}, 
   3.511595321196969*^9, 3.511595356396831*^9, 3.511595752741426*^9, 
   3.5115960658596153`*^9, 3.511630876269165*^9, 3.51163113861272*^9, 
   3.511631590437416*^9, 3.511723608397962*^9, 3.5212743748855257`*^9, 
   3.521276510255089*^9, 3.5212773080012693`*^9, 3.5212774938453217`*^9, 
   3.521278922776906*^9, 3.521366115324047*^9, 3.5213663750423527`*^9, 
   3.5213703698859243`*^9, 3.52144068477914*^9, 3.5214409216966143`*^9, 
   3.5214559052377872`*^9, 3.5214592432055273`*^9, 3.521506974082273*^9, 
   3.5215206079238873`*^9, 3.521523014651843*^9, 3.521539061784281*^9, 
   3.52178548349975*^9, 3.521797359737659*^9, 3.521803990338111*^9, 
   3.521883302423476*^9, 3.52194029405365*^9, 3.5219710891656237`*^9, 
   3.5219714300044117`*^9, 3.521971480162876*^9, 3.52197156879887*^9, 
   3.521972111599284*^9, 3.521973957807458*^9, 3.5220291032647867`*^9, 
   3.5243939656351843`*^9, 3.524396319534356*^9, 3.524977866449634*^9, 
   3.524997219123199*^9, 3.525067668539332*^9, 3.52507079709691*^9, 
   3.525072071785713*^9, 3.5250732293216133`*^9, 3.525081023842502*^9, 
   3.525187137916099*^9, 3.525240247120925*^9, 3.52524389966746*^9, 
   3.525397530092314*^9, 3.525398674823748*^9, 3.5254934632544003`*^9, 
   3.525660867097609*^9, 3.5256619111550083`*^9, 3.525662979659863*^9, 
   3.525673277632421*^9, 3.545738868683939*^9, 3.545991128363261*^9, 
   3.545991470948009*^9, 3.546000122807138*^9, 3.546021355385147*^9, 
   3.546057615037301*^9, 3.546064584531726*^9, 3.546091124209949*^9, 
   3.546325599576118*^9, 3.548247329460957*^9, 3.548404548682499*^9, 
   3.54848124799815*^9, 3.548511426271781*^9, 3.548525807952326*^9, 
   3.548567871039797*^9, 3.548571054787863*^9, 3.548575007787119*^9, 
   3.548591586221397*^9, 3.5486620926346073`*^9, 3.5487001160700808`*^9, 
   3.548756250024151*^9, 3.548911241677058*^9, 3.548930606954265*^9, 
   3.5489607956283417`*^9, 3.5490021782493563`*^9, 3.549020861875792*^9, 
   3.5490435380929537`*^9, 3.549047025734021*^9, 3.549086272114463*^9, 
   3.549096269371386*^9, 3.549260303162489*^9, 3.5492729215748158`*^9, 
   3.5493050714437647`*^9, 3.549305288967046*^9, 3.5493057981578007`*^9, 
   3.549358877915958*^9, 3.549433145477745*^9, 3.549462310808383*^9, 
   3.54954024395667*^9, 3.550921579529278*^9, 3.550990712253883*^9, 
   3.550996419066915*^9, 3.550996587943301*^9, 3.5553471887423697`*^9, 
   3.5573920956415854`*^9, 3.557403145959182*^9, 3.5574664578637457`*^9, 
   3.557579373902088*^9, 3.557635727226898*^9, 3.558441136184422*^9, 
   3.558549883485549*^9, 3.560007736298059*^9, 3.56004434970979*^9, 
   3.560044409080515*^9, 3.560185493961193*^9, 3.560186281059888*^9, 
   3.560186354421983*^9, 3.560186504401898*^9, 3.560222873551424*^9, 
   3.5602564185495243`*^9, 3.5602689253793488`*^9, 3.560269927990376*^9, 
   3.5602714131850767`*^9, 3.560516248355596*^9, 3.5605215962871523`*^9, 
   3.5605342851723757`*^9, 3.560535147470158*^9, 3.560842313011918*^9, 
   3.560844432640861*^9, 3.5611768041470127`*^9, 3.561210843106739*^9, 
   3.56126914215082*^9, 3.561275593247278*^9, 3.561276936704297*^9, 
   3.561302800018765*^9, 3.5613053627141438`*^9, 3.5613085326713552`*^9, 
   3.5613087817001257`*^9, {3.561360307689906*^9, 3.56136006218095*^9}, 
   3.7281150189511747`*^9, 3.731234873190279*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"d0e40e01-aa8a-4d14-b761-209dbd527b6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "RiemannUnphysToSchoutenUnphys"}]}]], "Input",
 CellChangeTimes->{{3.511595370575672*^9, 3.5115953769928713`*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"dea88655-c9b3-48f2-aef8-ac6b0d45ecf5"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Eta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Eta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Eta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Eta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Eta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Eta], $CellContext`\[Delta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Beta]", "\[Eta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`WeylCDg[-$CellContext`\[Beta], -$CellContext`\[Eta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Eta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Eta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Eta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Eta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Eta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Eta], $CellContext`\[Delta]]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Eta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Eta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Eta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511595378040389*^9, 3.511595755412901*^9, 3.511596066980727*^9, 
   3.5116308763081503`*^9, 3.511631139455051*^9, 3.511631590482212*^9, 
   3.5117236085176153`*^9, 3.521274375847415*^9, 3.521276510439995*^9, 
   3.5212773081079693`*^9, 3.521277493936572*^9, 3.5212789228934517`*^9, 
   3.521366115492445*^9, 3.5213663760376863`*^9, 3.52137036992584*^9, 
   3.521440684844242*^9, 3.521440921881488*^9, 3.521455905297758*^9, 
   3.521459245700961*^9, 3.52150697419098*^9, 3.521520608016964*^9, 
   3.521523014705826*^9, 3.521539061836487*^9, 3.5217854836172733`*^9, 
   3.521797359806028*^9, 3.521803990367354*^9, 3.521883302526846*^9, 
   3.521940294187299*^9, 3.5219710892020817`*^9, 3.5219714300567703`*^9, 
   3.521971480288351*^9, 3.52197156892801*^9, 3.5219721116381083`*^9, 
   3.521973957848208*^9, 3.5220291033531*^9, 3.52439396574109*^9, 
   3.524396319606781*^9, 3.524977866503559*^9, 3.524997219208014*^9, 
   3.5250676735833607`*^9, 3.525070797161335*^9, 3.525072071842767*^9, 
   3.525073229379778*^9, 3.525081023921571*^9, 3.525187137967754*^9, 
   3.525240247158751*^9, 3.525243899724111*^9, 3.525397530137455*^9, 
   3.525398674880941*^9, 3.5254934633034697`*^9, 3.5256608671633253`*^9, 
   3.525661911191876*^9, 3.525662979704193*^9, 3.525673277708105*^9, 
   3.5457388687849703`*^9, 3.5459911285426207`*^9, 3.5459914710564003`*^9, 
   3.5460001232332277`*^9, 3.546021355485375*^9, 3.546057615138948*^9, 
   3.546064584630042*^9, 3.546091124305602*^9, 3.546325599684108*^9, 
   3.5482473295665903`*^9, 3.5484045487812433`*^9, 3.548481248068081*^9, 
   3.548511426345475*^9, 3.548525808010713*^9, 3.548567871103696*^9, 
   3.548571054841627*^9, 3.548575007839134*^9, 3.548591586332209*^9, 
   3.548662092733232*^9, 3.548700116136817*^9, 3.5487562500912*^9, 
   3.5489112417448893`*^9, 3.5489306070243483`*^9, 3.548960795696177*^9, 
   3.549002178313899*^9, 3.5490208619722147`*^9, 3.5490435381516657`*^9, 
   3.5490470257869463`*^9, 3.549086272175831*^9, 3.549096269493799*^9, 
   3.54926030323241*^9, 3.549272921680684*^9, 3.549305071501067*^9, 
   3.549305289019196*^9, 3.5493057982081957`*^9, 3.5493588779900007`*^9, 
   3.549433145543969*^9, 3.549462310871779*^9, 3.549540244026452*^9, 
   3.55092157962703*^9, 3.5509907123571997`*^9, 3.550996419168839*^9, 
   3.550996588020438*^9, 3.555347188816718*^9, 3.557392095807123*^9, 
   3.557403146024472*^9, 3.5574664579323187`*^9, 3.5575793739593287`*^9, 
   3.557635727275413*^9, 3.5584411362425117`*^9, 3.558549883534708*^9, 
   3.560007736372967*^9, 3.5600443497881813`*^9, 3.560044409159226*^9, 
   3.560185494032508*^9, 3.560186281135573*^9, 3.5601863544962463`*^9, 
   3.560186504477371*^9, 3.560222873626055*^9, 3.5602564186398687`*^9, 
   3.5602689254394093`*^9, 3.560269928047632*^9, 3.560271413257119*^9, 
   3.560516248453248*^9, 3.560521596374268*^9, 3.560534285244001*^9, 
   3.560535147522849*^9, 3.560842313117593*^9, 3.560844432716489*^9, 
   3.561176804235694*^9, 3.561210843195253*^9, 3.561269142226515*^9, 
   3.561275593373918*^9, 3.561276936764679*^9, 3.5613028001362886`*^9, 
   3.5613053627999773`*^9, 3.5613085327504807`*^9, 3.5613087817944517`*^9, {
   3.5613603077871*^9, 3.561360062272614*^9}, 3.7281150189996367`*^9, 
   3.7312348732321663`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"85a24f40-db66-4d5c-b9d6-5b536664cf35"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511595759978372*^9, 3.511595762845833*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"2469fea5-6259-460a-85a3-2dfb48f70f29"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {"\[Delta]", " "},
            {" ", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[$CellContext`\[Delta], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Delta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Delta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Beta]", "\[Eta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`WeylCDg[-$CellContext`\[Beta], -$CellContext`\[Eta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {"\[Delta]", " "},
            {" ", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[$CellContext`\[Delta], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Delta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[$CellContext`\[Delta], -$CellContext`\[Eta]]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Eta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Eta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Eta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5115957635415277`*^9, 3.511596068297699*^9, 3.511630876343533*^9, 
   3.5116311405507803`*^9, 3.511631590547883*^9, 3.511723608598406*^9, 
   3.521274376621209*^9, 3.5212765106045933`*^9, 3.521277308216598*^9, 
   3.521277494070318*^9, 3.521278923050892*^9, 3.521366115647586*^9, 
   3.52136637737297*^9, 3.521370370005844*^9, 3.521440684996684*^9, 
   3.521440922024246*^9, 3.521455905361309*^9, 3.521459247196015*^9, 
   3.521506974337914*^9, 3.521520608125801*^9, 3.5215230147867403`*^9, 
   3.5215390619189873`*^9, 3.521785483738098*^9, 3.5217973598760223`*^9, 
   3.5218039904519787`*^9, 3.521883302604773*^9, 3.521940294363635*^9, 
   3.521971089276381*^9, 3.5219714301201677`*^9, 3.521971480347301*^9, 
   3.5219715689881353`*^9, 3.5219721117156973`*^9, 3.5219739579105053`*^9, 
   3.522029103462059*^9, 3.524393965847437*^9, 3.524396319801836*^9, 
   3.5249778665897903`*^9, 3.524997219341016*^9, 3.5250676746451387`*^9, 
   3.525070797252553*^9, 3.525072071927652*^9, 3.525073229462204*^9, 
   3.525081024068555*^9, 3.525187138056774*^9, 3.525240247234912*^9, 
   3.5252438997837563`*^9, 3.52539753020735*^9, 3.525398674964817*^9, 
   3.525493463399338*^9, 3.5256608672528963`*^9, 3.525661911275906*^9, 
   3.525662979774137*^9, 3.525673277848115*^9, 3.54573886892764*^9, 
   3.545991128705241*^9, 3.545991471213695*^9, 3.546000123502124*^9, 
   3.546021355612645*^9, 3.5460576152607927`*^9, 3.54606458475704*^9, 
   3.5460911244949713`*^9, 3.546325599855721*^9, 3.5482473296737127`*^9, 
   3.5484045489173822`*^9, 3.548481248171528*^9, 3.548511426479282*^9, 
   3.548525808094553*^9, 3.548567871193578*^9, 3.548571054909217*^9, 
   3.5485750079109898`*^9, 3.548591586468464*^9, 3.5486620928739147`*^9, 
   3.5487001162386913`*^9, 3.5487562502127733`*^9, 3.5489112418464518`*^9, 
   3.548930607113394*^9, 3.548960795789966*^9, 3.5490021784043083`*^9, 
   3.5490208621045713`*^9, 3.549043538240225*^9, 3.549047025873185*^9, 
   3.549086272279847*^9, 3.549096269627932*^9, 3.549260303309811*^9, 
   3.549272921802073*^9, 3.549305071586426*^9, 3.549305289105769*^9, 
   3.5493057982932787`*^9, 3.5493588781250267`*^9, 3.5494331456329823`*^9, 
   3.549462310958311*^9, 3.549540244119103*^9, 3.550921579754531*^9, 
   3.550990712476328*^9, 3.550996419306055*^9, 3.5509965881403093`*^9, 
   3.5553471889339237`*^9, 3.557392095980885*^9, 3.557403146121118*^9, 
   3.557466458005046*^9, 3.557579374049036*^9, 3.5576357273681383`*^9, 
   3.558441136363637*^9, 3.558549883632515*^9, 3.560007736508988*^9, 
   3.5600443498936357`*^9, 3.5600444092984*^9, 3.560185494153158*^9, 
   3.5601862812561817`*^9, 3.5601863546168747`*^9, 3.5601865046191483`*^9, 
   3.56022287375977*^9, 3.560256418761866*^9, 3.5602689255678368`*^9, 
   3.560269928162593*^9, 3.560271413375567*^9, 3.5605162485757847`*^9, 
   3.560521596494285*^9, 3.560534285320962*^9, 3.5605351476008463`*^9, 
   3.560842313239929*^9, 3.560844432840087*^9, 3.5611768043605022`*^9, 
   3.5612108433295937`*^9, 3.561269142363956*^9, 3.5612755934814987`*^9, 
   3.561276936896985*^9, 3.561302800267625*^9, 3.5613053629500628`*^9, 
   3.561308533008027*^9, 3.561308781970435*^9, {3.561360307939543*^9, 
   3.561360062414975*^9}, 3.72811501908237*^9, 3.7312348733066883`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"ea9b8d29-d6ca-496e-8d8b-8a3fdeef32ce"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"AntisCovDivWeylUnphysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5115960901926403`*^9, 3.511596113667742*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"8d8e583a-49ae-4fce-a92f-6e3040a005b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"\[Delta]", "\[Rule]", "\[Eta]"}]}]], "Input",
 CellChangeTimes->{{3.511595648723132*^9, 3.511595651886621*^9}, {
  3.5115957859858847`*^9, 3.511595789862574*^9}, {3.5250676773911123`*^9, 
  3.525067679585229*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"2fa8f516-a961-447e-b305-05733c7ac517"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{"3", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Eta]]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{"3", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Eta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Eta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Eta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Eta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Eta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511595655108551*^9, 3.511595790654359*^9, 3.51159611670144*^9, 
   3.5116308763751*^9, 3.5116311425908337`*^9, 3.5116315905767517`*^9, 
   3.51172360867561*^9, 3.521274382543334*^9, 3.521276510826181*^9, 
   3.521277308352775*^9, 3.5212774941345587`*^9, 3.521278923135785*^9, 
   3.52136611580161*^9, 3.521366380178224*^9, 3.521370370039727*^9, 
   3.521440685075186*^9, 3.521440922118976*^9, 3.5214559054264936`*^9, 
   3.521459249667341*^9, 3.5215069744381742`*^9, 3.521520608195839*^9, 
   3.521523014821422*^9, 3.521539061953782*^9, 3.52178548383429*^9, 
   3.521797359909358*^9, 3.5218039904816513`*^9, 3.52188330264117*^9, 
   3.5219402944541903`*^9, 3.5219710893046227`*^9, 3.5219714301908484`*^9, 
   3.521971480376099*^9, 3.521971569017901*^9, 3.5219721117488937`*^9, 
   3.521973957962915*^9, 3.522029103541505*^9, 3.5243939659042673`*^9, 
   3.524396319844849*^9, 3.52497786662676*^9, 3.524997219408527*^9, 
   3.525067680324649*^9, 3.5250707972921*^9, 3.525072071961746*^9, 
   3.5250732295036087`*^9, 3.525081024140395*^9, 3.525187138114625*^9, 
   3.525240247266943*^9, 3.525243899862474*^9, 3.525397530253695*^9, 
   3.5253986749967823`*^9, 3.525493463445423*^9, 3.525660867296039*^9, 
   3.5256619113170633`*^9, 3.5256629797983313`*^9, 3.525673277911953*^9, 
   3.54573886918995*^9, 3.545991128869948*^9, 3.545991471478401*^9, 
   3.546000123592351*^9, 3.54602135568517*^9, 3.546057615340541*^9, 
   3.54606458490593*^9, 3.546091124589229*^9, 3.546325599963661*^9, 
   3.5482473297688723`*^9, 3.548404548977997*^9, 3.5484812482220507`*^9, 
   3.548511426538299*^9, 3.548525808134412*^9, 3.548567871234703*^9, 
   3.548571054979549*^9, 3.548575007945188*^9, 3.548591586582193*^9, 
   3.548662092933075*^9, 3.548700116285242*^9, 3.548756250272646*^9, 
   3.548911241889083*^9, 3.5489306071558104`*^9, 3.5489607958511543`*^9, 
   3.5490021784597273`*^9, 3.549020862176832*^9, 3.549043538287005*^9, 
   3.549047025912991*^9, 3.549086272329486*^9, 3.549096269720519*^9, 
   3.549260303357807*^9, 3.549272921913769*^9, 3.549305071637969*^9, 
   3.549305289134907*^9, 3.549305798324203*^9, 3.549358878278475*^9, 
   3.5494331456936827`*^9, 3.549462311010212*^9, 3.5495402441722116`*^9, 
   3.550921579828574*^9, 3.550990712537179*^9, 3.550996419372333*^9, 
   3.550996588238728*^9, 3.555347188981305*^9, 3.5573920960617533`*^9, 
   3.557403146175791*^9, 3.557466458061523*^9, 3.557579374089141*^9, 
   3.557635727417829*^9, 3.558441136413971*^9, 3.558549883678596*^9, 
   3.560007736562112*^9, 3.560044349948526*^9, 3.5600444094206333`*^9, 
   3.5601854941997004`*^9, 3.560186281302785*^9, 3.560186354680369*^9, 
   3.5601865046719637`*^9, 3.560222873812458*^9, 3.560256418830413*^9, 
   3.560268925619893*^9, 3.560269928207519*^9, 3.560271413423134*^9, 
   3.5605162486385803`*^9, 3.560521596549527*^9, 3.560534285413549*^9, 
   3.5605351476618843`*^9, 3.5608423132949333`*^9, 3.5608444329241333`*^9, 
   3.561176804418622*^9, 3.561210843402658*^9, 3.56126914251687*^9, 
   3.561275593557547*^9, 3.561276936957814*^9, 3.561302800342086*^9, 
   3.561305363014493*^9, 3.5613085330562077`*^9, 3.561308782024316*^9, {
   3.561360308004225*^9, 3.561360062491593*^9}, 3.728115019114716*^9, 
   3.731234873339929*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"be3c6e91-9434-4060-aeb2-3eb5a84626f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511595796766274*^9, 3.511595802957651*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"72385fcd-aded-4e51-abce-02200915fa82"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Eta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Eta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Eta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511595803309803*^9, 3.5115961180056267`*^9, 3.511630876414741*^9, 
   3.511631143318687*^9, 3.511631590617483*^9, 3.5117236087711563`*^9, 
   3.521274383557132*^9, 3.5212765110653143`*^9, 3.5212773084489202`*^9, 
   3.521277494225853*^9, 3.521278923267538*^9, 3.5213661160184298`*^9, 
   3.521366381400745*^9, 3.5213703701041813`*^9, 3.52144068518156*^9, 
   3.52144092229414*^9, 3.521455905473119*^9, 3.521459250727515*^9, 
   3.5215069745357027`*^9, 3.521520608297472*^9, 3.521523014871347*^9, 
   3.521539062016323*^9, 3.5217854839504747`*^9, 3.52179735996107*^9, 
   3.521803990527115*^9, 3.521883302689686*^9, 3.52194029456649*^9, 
   3.521971089349601*^9, 3.5219714302414217`*^9, 3.5219714804196167`*^9, 
   3.521971569063778*^9, 3.5219721117962303`*^9, 3.521973958011487*^9, 
   3.522029103622328*^9, 3.5243939659772787`*^9, 3.52439631992592*^9, 
   3.524977866680952*^9, 3.524997219479957*^9, 3.5250676828423023`*^9, 
   3.5250707973462257`*^9, 3.5250720720130997`*^9, 3.5250732295676937`*^9, 
   3.525081024234079*^9, 3.525187138165942*^9, 3.5252402473159647`*^9, 
   3.525243899947896*^9, 3.525397530305706*^9, 3.525398675057991*^9, 
   3.5254934635040417`*^9, 3.525660867354377*^9, 3.5256619113744373`*^9, 
   3.525662979843329*^9, 3.5256732780055237`*^9, 3.545738869321331*^9, 
   3.54599112898442*^9, 3.5459914716166697`*^9, 3.546000123664666*^9, 
   3.54602135577426*^9, 3.546057615407596*^9, 3.546064585112651*^9, 
   3.546091124698316*^9, 3.5463256000626717`*^9, 3.548247329880403*^9, 
   3.548404549083531*^9, 3.548481248283462*^9, 3.5485114266265783`*^9, 
   3.54852580819096*^9, 3.54856787129631*^9, 3.548571055033448*^9, 
   3.548575008000717*^9, 3.5485915866636133`*^9, 3.548662093023636*^9, 
   3.5487001163318787`*^9, 3.548756250354311*^9, 3.54891124195854*^9, 
   3.5489306072174664`*^9, 3.548960795904105*^9, 3.549002178513764*^9, 
   3.5490208622681417`*^9, 3.549043538346056*^9, 3.549047026023435*^9, 
   3.549086272392886*^9, 3.549096269788159*^9, 3.549260303422814*^9, 
   3.549272921988367*^9, 3.549305071691196*^9, 3.5493052891874857`*^9, 
   3.549305798374408*^9, 3.549358878347725*^9, 3.5494331457479963`*^9, 
   3.549462311078076*^9, 3.549540244234295*^9, 3.5509215799360313`*^9, 
   3.550990712622678*^9, 3.550996419449448*^9, 3.55099658832367*^9, 
   3.555347189057827*^9, 3.557392096161748*^9, 3.55740314623999*^9, 
   3.5574664581194677`*^9, 3.557579374145172*^9, 3.55763572747679*^9, 
   3.558441136490267*^9, 3.558549883735279*^9, 3.560007736640511*^9, 
   3.560044350030724*^9, 3.5600444094977293`*^9, 3.5601854942723017`*^9, 
   3.560186281380445*^9, 3.560186354756439*^9, 3.560186504750392*^9, 
   3.560222873894081*^9, 3.560256418911594*^9, 3.560268925696039*^9, 
   3.560269928279262*^9, 3.560271413496807*^9, 3.560516248720964*^9, 
   3.5605215966311617`*^9, 3.560534285469997*^9, 3.560535147700769*^9, 
   3.5608423133711433`*^9, 3.560844432997148*^9, 3.5611768044970007`*^9, 
   3.5612108434884987`*^9, 3.561269142584016*^9, 3.5612755936290607`*^9, 
   3.561276937060318*^9, 3.5613028004552193`*^9, 3.5613053630834513`*^9, 
   3.5613085331692877`*^9, 3.561308782123207*^9, {3.561360308094002*^9, 
   3.5613600625746727`*^9}, 3.728115019161628*^9, 3.7312348733795767`*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"b8ca1ed4-42e6-4918-9b56-3d0cc13ff911"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"%", ",", 
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Eta]"}], "]"}], "@", 
     RowBox[{"WeylCDg", "[", 
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], ",", 
       RowBox[{"-", "\[Beta]"}], ",", 
       RowBox[{"-", "\[Gamma]"}], ",", "\[Eta]"}], "]"}]}]}], "]"}], "//", 
  "Flatten"}]], "Input",
 CellChangeTimes->{{3.5115961421698437`*^9, 3.511596166478375*^9}, {
  3.525067685246769*^9, 3.5250676941160793`*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"858551c3-c7c4-4a34-88ca-9e03c9a5acf6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Eta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Eta]][
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Eta]]],
    Editable->False], "\[Rule]", 
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {"\[Eta]", " "},
              {" ", "\[Eta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {"\[Eta]", " "},
              {" ", "\[Eta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", "\[Eta]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Eta]][
       $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", "\[Eta]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Eta]][
       $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Eta]]],
      Editable->False]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.511596167019257*^9, 3.511630876453783*^9, 3.51163114427115*^9, 
   3.511631590642617*^9, 3.511723608850822*^9, 3.521274387113249*^9, 
   3.521276511340597*^9, 3.5212773085167027`*^9, 3.5212774942949543`*^9, 
   3.521278923413368*^9, 3.521366116093204*^9, 3.521366383240849*^9, 
   3.521370370132915*^9, 3.521440685244302*^9, 3.521440922387186*^9, 
   3.521455905497898*^9, 3.5214592517466297`*^9, 3.521506974598198*^9, 
   3.521520608355399*^9, 3.5215230148994703`*^9, 3.521539062041546*^9, 
   3.521785484030875*^9, 3.5217973599959793`*^9, 3.521803990550811*^9, 
   3.52188330271553*^9, 3.521940294648567*^9, 3.5219710893721027`*^9, 
   3.521971430268814*^9, 3.5219714804438972`*^9, 3.521971569106862*^9, 
   3.521972111822468*^9, 3.521973958044327*^9, 3.522029103664996*^9, 
   3.524393966016816*^9, 3.524396319972056*^9, 3.524977866714979*^9, 
   3.524997219532542*^9, 3.525067694924838*^9, 3.5250707973854218`*^9, 
   3.525072072038525*^9, 3.5250732296010857`*^9, 3.525081024297666*^9, 
   3.52518713820345*^9, 3.525240247343376*^9, 3.5252439002149343`*^9, 
   3.525397530329588*^9, 3.525398675090972*^9, 3.525493463539921*^9, 
   3.525660867388948*^9, 3.525661911440463*^9, 3.5256629798665123`*^9, 
   3.5256732780572977`*^9, 3.5457388693456497`*^9, 3.5459911291458693`*^9, 
   3.545991471720475*^9, 3.546000123732959*^9, 3.546021355831842*^9, 
   3.546057615453043*^9, 3.5460645851642523`*^9, 3.54609112476303*^9, 
   3.546325600173904*^9, 3.548247329944538*^9, 3.548404549127124*^9, 
   3.5484812483211308`*^9, 3.548511426680016*^9, 3.5485258082198772`*^9, 
   3.5485678713303623`*^9, 3.548571055062998*^9, 3.5485750080336857`*^9, 
   3.5485915867017517`*^9, 3.548662093046215*^9, 3.5487001163708687`*^9, 
   3.5487562504014683`*^9, 3.548911242003674*^9, 3.548930607256888*^9, 
   3.548960795934111*^9, 3.54900217854325*^9, 3.5490208623071823`*^9, 
   3.549043538379181*^9, 3.549047026051084*^9, 3.549086272434905*^9, 
   3.549096269843821*^9, 3.549260303463334*^9, 3.54927292201536*^9, 
   3.549305071719221*^9, 3.549305289223442*^9, 3.549305798409727*^9, 
   3.5493588783902807`*^9, 3.549433145791703*^9, 3.549462311108461*^9, 
   3.5495402442795057`*^9, 3.5509215800290117`*^9, 3.550990712667158*^9, 
   3.550996419496976*^9, 3.550996588373789*^9, 3.555347189094694*^9, 
   3.557392096238408*^9, 3.557403146278036*^9, 3.557466458168507*^9, 
   3.557579374186263*^9, 3.557635727513804*^9, 3.558441136525639*^9, 
   3.558549883766542*^9, 3.560007736681176*^9, 3.560044350074477*^9, 
   3.560044409537951*^9, 3.5601854943132*^9, 3.5601862814205313`*^9, 
   3.560186354795603*^9, 3.560186504791607*^9, 3.560222873934071*^9, 
   3.560256418952881*^9, 3.560268925731711*^9, 3.560269928371447*^9, 
   3.560271413533338*^9, 3.5605162487607927`*^9, 3.560521596687395*^9, 
   3.56053428550456*^9, 3.5605351477252903`*^9, 3.5608423134064837`*^9, 
   3.560844433032632*^9, 3.561176804534216*^9, 3.561210843528957*^9, 
   3.561269142627487*^9, 3.561275593653047*^9, 3.561276937156823*^9, 
   3.561302801957445*^9, 3.561305363133259*^9, 3.5613085332172403`*^9, 
   3.561308782171205*^9, {3.5613603081574306`*^9, 3.561360062617113*^9}, 
   3.72811501918229*^9, 3.731234873402914*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"8e128647-c7bd-4d4e-9ba0-34a71838c5c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.511596171476488*^9, 3.511596174732579*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"23e305a0-d9af-4636-b7ba-ce19854dc626"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Eta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Eta]][
    $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Eta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Eta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511596175436618*^9, 3.511630876476123*^9, 3.511631146761207*^9, 
   3.5116315906625566`*^9, 3.5117236089255943`*^9, 3.52127438819622*^9, 
   3.521276511566513*^9, 3.521277308582819*^9, 3.521277494347991*^9, 
   3.521278923498002*^9, 3.521366116232563*^9, 3.521366384571392*^9, 
   3.521370370160078*^9, 3.5214406853129263`*^9, 3.521440922457684*^9, 
   3.521455905538866*^9, 3.521459252617672*^9, 3.521506974627389*^9, 
   3.521520608416832*^9, 3.5215230149305696`*^9, 3.52153906206802*^9, 
   3.521785484115602*^9, 3.5217973600282717`*^9, 3.521803990573472*^9, 
   3.521883302739347*^9, 3.521940294721367*^9, 3.521971089391918*^9, 
   3.521971430292701*^9, 3.521971480565941*^9, 3.521971569128838*^9, 
   3.521972111845739*^9, 3.521973958065299*^9, 3.522029103740088*^9, 
   3.524393966028777*^9, 3.524396320013826*^9, 3.5249778667440243`*^9, 
   3.5249972195758657`*^9, 3.525067696100123*^9, 3.525070797423874*^9, 
   3.525072072063504*^9, 3.525073229633854*^9, 3.5250810243599787`*^9, 
   3.525187138226615*^9, 3.525240247372093*^9, 3.5252439005205717`*^9, 
   3.525397530351287*^9, 3.525398675122323*^9, 3.525493463574379*^9, 
   3.5256608674215593`*^9, 3.5256619114752398`*^9, 3.525662979884467*^9, 
   3.525673278113379*^9, 3.545738869367733*^9, 3.545991129311673*^9, 
   3.545991471813336*^9, 3.5460001237637873`*^9, 3.546021355887491*^9, 
   3.546057615504074*^9, 3.546064585262012*^9, 3.546091124848168*^9, 
   3.546325600239252*^9, 3.548247330031329*^9, 3.548404549210133*^9, 
   3.548481248361712*^9, 3.548511426723321*^9, 3.548525808246804*^9, 
   3.54856787136308*^9, 3.548571055089697*^9, 3.548575008061056*^9, 
   3.548591586740924*^9, 3.548662093087628*^9, 3.5487001164016037`*^9, 
   3.548756250429603*^9, 3.5489112420464783`*^9, 3.548930607295723*^9, 
   3.548960795964036*^9, 3.549002178569581*^9, 3.5490208623525467`*^9, 
   3.54904353841665*^9, 3.5490470260857143`*^9, 3.54908627247333*^9, 
   3.54909626990891*^9, 3.549260303498108*^9, 3.5492729220702333`*^9, 
   3.549305071765821*^9, 3.549305289248846*^9, 3.549305798434627*^9, 
   3.549358878432314*^9, 3.549433145833609*^9, 3.549462311136835*^9, 
   3.5495402443181458`*^9, 3.5509215801021557`*^9, 3.550990712689498*^9, 
   3.550996419546854*^9, 3.550996588423101*^9, 3.5553471891289988`*^9, 
   3.557392096304206*^9, 3.557403146313655*^9, 3.557466458205615*^9, 
   3.55757937421553*^9, 3.5576357275459623`*^9, 3.558441136563686*^9, 
   3.558549883812583*^9, 3.5600077367403383`*^9, 3.560044350117816*^9, 
   3.560044409577525*^9, 3.560185494345434*^9, 3.560186281459936*^9, 
   3.560186354833014*^9, 3.560186504861704*^9, 3.560222873971417*^9, 
   3.560256418996832*^9, 3.560268925768566*^9, 3.560269928402491*^9, 
   3.56027141356713*^9, 3.560516248800334*^9, 3.560521596734477*^9, 
   3.5605342855232553`*^9, 3.560535147757079*^9, 3.560842313443084*^9, 
   3.560844433075759*^9, 3.561176804587179*^9, 3.5612108435724792`*^9, 
   3.56126914266825*^9, 3.561275593691802*^9, 3.5612769372134037`*^9, 
   3.561302802090858*^9, 3.561305363162333*^9, 3.561308533303246*^9, 
   3.561308782244557*^9, {3.561360308238141*^9, 3.561360062656885*^9}, 
   3.728115019204282*^9, 3.731234873429502*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"58c9b4bd-31c0-415a-a1e5-1a68c0971802"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovDivWeylUnphysical", "=", "%"}]], "Input",
 CellChangeTimes->{{3.511596342044998*^9, 3.511596342731309*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"5dd69be0-9936-456a-8820-842e9e171bef"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Eta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Eta]][
    $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Eta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Eta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511596344294883*^9, 3.511630876497271*^9, 3.511631147618701*^9, 
   3.511631590680634*^9, 3.511723608992486*^9, 3.521274389229224*^9, 
   3.5212765116627274`*^9, 3.5212773086494102`*^9, 3.5212774944603157`*^9, 
   3.521278923587246*^9, 3.521366116358539*^9, 3.521366385632513*^9, 
   3.521370370183782*^9, 3.521440685421514*^9, 3.521440922473534*^9, 
   3.52145590556032*^9, 3.5214592534351807`*^9, 3.521506974647458*^9, 
   3.521520608472622*^9, 3.521523014955062*^9, 3.521539062096675*^9, 
   3.521785484220767*^9, 3.521797360057625*^9, 3.521803990596937*^9, 
   3.521883302762023*^9, 3.521940294808713*^9, 3.5219710894115458`*^9, 
   3.5219714303175*^9, 3.5219714805857487`*^9, 3.521971569150936*^9, 
   3.5219721118688183`*^9, 3.521973958085395*^9, 3.522029103784854*^9, 
   3.52439396604215*^9, 3.524396320058996*^9, 3.524977866773974*^9, 
   3.524997219627269*^9, 3.52506769755731*^9, 3.5250707974588013`*^9, 
   3.525072072097103*^9, 3.525073229664235*^9, 3.52508102441945*^9, 
   3.525187138257194*^9, 3.525240247404399*^9, 3.525243900643735*^9, 
   3.5253975303725843`*^9, 3.5253986751536407`*^9, 3.5254934636087437`*^9, 
   3.525660867460845*^9, 3.525661911507881*^9, 3.525662979900477*^9, 
   3.525673278167169*^9, 3.545738869389697*^9, 3.545991129454859*^9, 
   3.5459914718777313`*^9, 3.546000123789587*^9, 3.546021355908738*^9, 
   3.546057615534876*^9, 3.5460645853149567`*^9, 3.546091124879684*^9, 
   3.5463256002907248`*^9, 3.548247330194757*^9, 3.548404549249538*^9, 
   3.548481248377058*^9, 3.548511426775546*^9, 3.548525808273127*^9, 
   3.5485678713989277`*^9, 3.548571055122567*^9, 3.548575008086379*^9, 
   3.54859158677734*^9, 3.5486620931267557`*^9, 3.548700116433323*^9, 
   3.548756250451733*^9, 3.548911242085516*^9, 3.548930607335869*^9, 
   3.548960796010898*^9, 3.5490021785971746`*^9, 3.549020862400745*^9, 
   3.5490435384583817`*^9, 3.549047026120636*^9, 3.549086272510326*^9, 
   3.549096269946102*^9, 3.549260303534882*^9, 3.549272922114756*^9, 
   3.549305071794837*^9, 3.5493052892739897`*^9, 3.549305798459158*^9, 
   3.54935887847796*^9, 3.549433145873995*^9, 3.549462311165989*^9, 
   3.549540244356351*^9, 3.550921580202766*^9, 3.5509907127186403`*^9, 
   3.550996419597666*^9, 3.550996588465913*^9, 3.555347189174595*^9, 
   3.557392096362862*^9, 3.55740314634531*^9, 3.5574664582327633`*^9, 
   3.557579374243384*^9, 3.557635727585038*^9, 3.558441136610037*^9, 
   3.558549883840996*^9, 3.560007736799912*^9, 3.560044350158579*^9, 
   3.560044409617443*^9, 3.56018549438437*^9, 3.560186281563445*^9, 
   3.560186354870532*^9, 3.5601865049019613`*^9, 3.560222874009152*^9, 
   3.560256419038752*^9, 3.560268925805455*^9, 3.560269928433588*^9, 
   3.560271413600649*^9, 3.5605162488379917`*^9, 3.560521596780121*^9, 
   3.56053428555422*^9, 3.560535147782229*^9, 3.560842313480097*^9, 
   3.560844433138966*^9, 3.56117680462418*^9, 3.561210843616509*^9, 
   3.561269142709169*^9, 3.5612755937528353`*^9, 3.561276937232587*^9, 
   3.561302802137163*^9, 3.561305363191613*^9, 3.561308533359427*^9, 
   3.561308782265904*^9, {3.5613603082963867`*^9, 3.561360062707532*^9}, 
   3.728115019224207*^9, 3.731234873458688*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"5738335d-e703-4742-9715-9f534e2d55cf"]
}, Open  ]],

Cell["\<\
The trace of this equation yields a relation involving the covariand \
divergence of the Schouten tensor\
\>", "Text",
 CellChangeTimes->{{3.5117236221297493`*^9, 3.51172364629315*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"-", "\[Beta]"}], "\[Rule]", "\[Gamma]"}]}]], "Input",
 CellChangeTimes->{{3.511595819710454*^9, 3.511595832576689*^9}, {
  3.5250677016231127`*^9, 3.525067703915112*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"cd0528c3-4148-4b9a-a096-ccc385dbba70"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Gamma]", " "},
             {" ", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Gamma], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{"4", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Eta]", " "},
             {" ", "\[Eta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[$CellContext`\[Gamma]][
      $CellContext`LUnphysg[$CellContext`\[Eta], -$CellContext`\[Eta]]],
     Editable->False]}], "+", 
   RowBox[{"4", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Eta]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Eta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Gamma]", "\[Eta]"},
             {" ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Eta]][
      $CellContext`LUnphysg[$CellContext`\[Gamma], $CellContext`\[Eta]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.511595825208675*^9, 3.511595838563897*^9}, 
   3.5115963466368093`*^9, 3.51163087651735*^9, 3.511631148552567*^9, 
   3.511631590701447*^9, 3.511723609063702*^9, 3.521274394007381*^9, 
   3.521276511922217*^9, 3.521277308731132*^9, 3.521277494520947*^9, 
   3.521278923681878*^9, 3.521366116573772*^9, 3.521366387895096*^9, 
   3.5213703702106867`*^9, 3.52144068543417*^9, 3.521440922541315*^9, 
   3.5214559055825644`*^9, 3.521459256917512*^9, 3.521506974665004*^9, 
   3.521520608490487*^9, 3.52152301497917*^9, 3.52153906212337*^9, 
   3.521785484341939*^9, 3.521797360082315*^9, 3.521803990618965*^9, 
   3.5218833027974663`*^9, 3.5219402948746243`*^9, 3.521971089431634*^9, 
   3.5219714303385067`*^9, 3.521971480609058*^9, 3.521971569171638*^9, 
   3.521972111889045*^9, 3.521973958105174*^9, 3.522029103845571*^9, 
   3.5243939660528316`*^9, 3.5243963200981283`*^9, 3.524977866803442*^9, 
   3.5249972196711693`*^9, 3.52506770457887*^9, 3.5250707974922733`*^9, 
   3.525072072121398*^9, 3.525073229689583*^9, 3.525081024470155*^9, 
   3.525187138285089*^9, 3.525240247427313*^9, 3.525243900750247*^9, 
   3.525397530400835*^9, 3.525398675182983*^9, 3.525493463642743*^9, 
   3.525660867491775*^9, 3.525661911539448*^9, 3.525662979915845*^9, 
   3.525673278200884*^9, 3.5457388694446774`*^9, 3.545991129522197*^9, 
   3.545991471952125*^9, 3.546000123848052*^9, 3.5460213559278517`*^9, 
   3.546057615586948*^9, 3.546064585375979*^9, 3.546091124903747*^9, 
   3.546325600397357*^9, 3.54824733027085*^9, 3.548404549341077*^9, 
   3.5484812484212103`*^9, 3.548511426805656*^9, 3.5485258083008223`*^9, 
   3.548567871431123*^9, 3.54857105516173*^9, 3.5485750081297073`*^9, 
   3.5485915868264503`*^9, 3.548662093167306*^9, 3.5487001164612293`*^9, 
   3.548756250472096*^9, 3.5489112421633167`*^9, 3.548930607381095*^9, 
   3.5489607960384274`*^9, 3.549002178622777*^9, 3.549020862436824*^9, 
   3.549043538489421*^9, 3.549047026159848*^9, 3.549086272545127*^9, 
   3.549096270003346*^9, 3.549260303573607*^9, 3.549272922153882*^9, 
   3.549305071821979*^9, 3.5493052892979527`*^9, 3.549305798496673*^9, 
   3.549358878502266*^9, 3.549433145907119*^9, 3.549462311193226*^9, 
   3.5495402443939953`*^9, 3.550921580398489*^9, 3.550990712759625*^9, 
   3.5509964196390553`*^9, 3.550996588503606*^9, 3.5553471892071753`*^9, 
   3.557392096389408*^9, 3.5574031464047747`*^9, 3.557466458270562*^9, 
   3.55757937427057*^9, 3.557635727621208*^9, 3.558441136646112*^9, 
   3.558549883872504*^9, 3.560007736913229*^9, 3.560044350200499*^9, 
   3.560044409656375*^9, 3.560185494415001*^9, 3.560186281607279*^9, 
   3.560186354906764*^9, 3.560186504940572*^9, 3.5602228740431356`*^9, 
   3.560256419100445*^9, 3.5602689258407307`*^9, 3.560269928463059*^9, 
   3.5602714136324587`*^9, 3.560516248883515*^9, 3.5605215967991543`*^9, 
   3.560534285600354*^9, 3.5605351478044443`*^9, 3.56084231351466*^9, 
   3.560844433177154*^9, 3.56117680468268*^9, 3.561210843693944*^9, 
   3.561269142747326*^9, 3.561275593771389*^9, 3.561276937266685*^9, 
   3.5613028021623297`*^9, 3.5613053632203703`*^9, 3.5613085334633713`*^9, 
   3.561308782307431*^9, {3.561360308372504*^9, 3.5613600627560062`*^9}, 
   3.728115019242985*^9, 3.731234873596558*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"382fe033-fd7b-4580-97ea-ced26c826a6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5115956626552763`*^9, 3.51159566855821*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"1d21486a-3fd1-40c8-87c1-e21cdeda1429"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Gamma]", " "},
             {" ", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Gamma], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{"4", " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", "\[Gamma]"},
             {"\[Alpha]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Gamma]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511595668863433*^9, 3.511595840241907*^9, 3.511596347984931*^9, 
   3.511630876546503*^9, 3.5116311494136677`*^9, 3.511631590726808*^9, 
   3.511723609132394*^9, 3.521274395027974*^9, 3.521276512026038*^9, 
   3.5212773087968683`*^9, 3.521277494584311*^9, 3.521278923754114*^9, 
   3.521366116703682*^9, 3.521366388879554*^9, 3.521370370240744*^9, 
   3.521440685502056*^9, 3.521440922604117*^9, 3.521455905607823*^9, 
   3.5214592583069487`*^9, 3.521506974732037*^9, 3.521520608609417*^9, 
   3.5215230150190477`*^9, 3.521539062151435*^9, 3.5217854844170637`*^9, 
   3.5217973601104717`*^9, 3.5218039906605453`*^9, 3.521883302823942*^9, 
   3.521940294953927*^9, 3.521971089450122*^9, 3.5219714303807487`*^9, 
   3.521971480642201*^9, 3.5219715691985483`*^9, 3.521972111913903*^9, 
   3.521973958122263*^9, 3.522029103918173*^9, 3.52439396606962*^9, 
   3.524396320138299*^9, 3.524977866837759*^9, 3.524997219716648*^9, 
   3.5250677058261423`*^9, 3.5250707975276947`*^9, 3.525072072151627*^9, 
   3.525073229720181*^9, 3.525081024524279*^9, 3.525187138316984*^9, 
   3.525240247454533*^9, 3.525243900799439*^9, 3.525397530418442*^9, 
   3.52539867521989*^9, 3.525493463677864*^9, 3.525660867526433*^9, 
   3.525661911577457*^9, 3.525662979938869*^9, 3.52567327826232*^9, 
   3.54573886954102*^9, 3.545991129675926*^9, 3.545991472016881*^9, 
   3.546000123912682*^9, 3.546021355971526*^9, 3.546057615647337*^9, 
   3.5460645854039927`*^9, 3.546091124982108*^9, 3.546325600424604*^9, 
   3.548247330371668*^9, 3.548404549405761*^9, 3.548481248463964*^9, 
   3.548511427009592*^9, 3.548525808320636*^9, 3.548567871455768*^9, 
   3.548571055197941*^9, 3.548575008164811*^9, 3.548591586877296*^9, 
   3.5486620932028837`*^9, 3.5487001164971457`*^9, 3.548756250523921*^9, 
   3.548911242208149*^9, 3.548930607422146*^9, 3.5489607960716476`*^9, 
   3.549002178656694*^9, 3.549020862482151*^9, 3.549043538522533*^9, 
   3.549047026199555*^9, 3.549086272590755*^9, 3.549096270044074*^9, 
   3.549260303607683*^9, 3.549272922186748*^9, 3.549305071851542*^9, 
   3.549305289331908*^9, 3.5493057985306177`*^9, 3.549358878615539*^9, 
   3.54943314593032*^9, 3.5494623112221193`*^9, 3.549540244426405*^9, 
   3.550921580481875*^9, 3.550990712816115*^9, 3.5509964197894278`*^9, 
   3.550996588552699*^9, 3.555347189239118*^9, 3.5573920964417553`*^9, 
   3.557403146457869*^9, 3.5574664583062353`*^9, 3.557579374291613*^9, 
   3.557635727660426*^9, 3.558441136688519*^9, 3.558549883905813*^9, 
   3.560007737000057*^9, 3.560044350247401*^9, 3.560044409732196*^9, 
   3.5601854944545813`*^9, 3.5601862816508427`*^9, 3.5601863549416924`*^9, 
   3.560186504980031*^9, 3.56022287408103*^9, 3.560256419198319*^9, 
   3.560268925884388*^9, 3.560269928499949*^9, 3.560271413671957*^9, 
   3.560516248937364*^9, 3.560521596828205*^9, 3.5605342856340513`*^9, 
   3.560535147824658*^9, 3.560842313551684*^9, 3.560844433226849*^9, 
   3.561176804716399*^9, 3.561210843742354*^9, 3.5612691427939672`*^9, 
   3.561275593878709*^9, 3.561276937314165*^9, 3.561302802218898*^9, 
   3.5613053632702703`*^9, 3.5613085335090322`*^9, 3.561308782395186*^9, {
   3.561360308416794*^9, 3.5613600627999887`*^9}, 3.728115019263179*^9, 
   3.731234873618904*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"edf70555-ef06-4bca-a272-3c0710219e58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Gamma]"}], "]"}], "@", 
      RowBox[{"LUnphysg", "[", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", "\[Gamma]"}], "]"}]}]}], "]"}], "//", 
   "Flatten"}], "//", "First"}]], "Input",
 CellChangeTimes->{{3.511595950125821*^9, 3.511596030518433*^9}, {
  3.525067708395089*^9, 3.52506771346603*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"dd04a04f-1505-4a23-82da-dbeaaa291125"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {" ", "\[Gamma]"},
           {"\[Alpha]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Gamma]][
    $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Gamma]]],
   Editable->False], "\[Rule]", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {"\[Gamma]", " "},
           {" ", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`LUnphysg[$CellContext`\[Gamma], -$CellContext`\[Gamma]]],
   Editable->False]}]], "Output",
 CellChangeTimes->{
  3.511596031120247*^9, 3.5115963515759974`*^9, 3.5116308765688677`*^9, 
   3.5116311508855963`*^9, 3.51163159074413*^9, 3.5117236091969423`*^9, 
   3.521274397096094*^9, 3.521276512232079*^9, 3.5212773088506727`*^9, 
   3.521277494633115*^9, 3.521278923837759*^9, 3.521366116910844*^9, 
   3.52136638952024*^9, 3.521370370263834*^9, 3.521440685576479*^9, 
   3.521440922663258*^9, 3.521455905626525*^9, 3.521459259185253*^9, 
   3.521506974797041*^9, 3.521520608655137*^9, 3.521523015041998*^9, 
   3.521539062173868*^9, 3.521785484437667*^9, 3.521797360130537*^9, 
   3.521803990681385*^9, 3.521883302856194*^9, 3.521940295017226*^9, 
   3.521971089467017*^9, 3.521971430402441*^9, 3.521971480659708*^9, 
   3.5219715692208548`*^9, 3.521972111944665*^9, 3.521973958141087*^9, 
   3.522029103980015*^9, 3.524393966077826*^9, 3.524396320147537*^9, 
   3.524977866865345*^9, 3.524997219764559*^9, 3.5250677143993683`*^9, 
   3.5250707975575323`*^9, 3.525072072196187*^9, 3.525073229760685*^9, 
   3.525081024603643*^9, 3.525187138338209*^9, 3.525240247475753*^9, 
   3.525243900838038*^9, 3.525397530436288*^9, 3.525398675247911*^9, 
   3.5254934637043133`*^9, 3.525660867553857*^9, 3.525661911607554*^9, 
   3.5256629799514723`*^9, 3.525673278301271*^9, 3.545738869585354*^9, 
   3.54599112975272*^9, 3.545991472029139*^9, 3.5460001239693813`*^9, 
   3.5460213560422*^9, 3.546057615687181*^9, 3.5460645854195833`*^9, 
   3.546091125071754*^9, 3.5463256004401207`*^9, 3.5482473304377317`*^9, 
   3.5484045494384623`*^9, 3.5484812484895906`*^9, 3.548511427040028*^9, 
   3.548525808340242*^9, 3.548567871489903*^9, 3.5485710552246237`*^9, 
   3.548575008194319*^9, 3.548591586890109*^9, 3.548662093265469*^9, 
   3.5487001165220346`*^9, 3.548756250581151*^9, 3.548911242236402*^9, 
   3.548930607455777*^9, 3.54896079609306*^9, 3.549002178677005*^9, 
   3.549020862526998*^9, 3.549043538531437*^9, 3.5490470262222433`*^9, 
   3.549086272615842*^9, 3.549096270081544*^9, 3.549260303636492*^9, 
   3.549272922272241*^9, 3.5493050718723516`*^9, 3.549305289363048*^9, 
   3.549305798552899*^9, 3.5493588786614237`*^9, 3.5494331459581423`*^9, 
   3.549462311246871*^9, 3.5495402444511003`*^9, 3.550921580520327*^9, 
   3.550990712864676*^9, 3.55099641980826*^9, 3.550996588597664*^9, 
   3.555347189268702*^9, 3.557392096486025*^9, 3.557403146484129*^9, 
   3.5574664583623877`*^9, 3.5575793743133717`*^9, 3.557635727693202*^9, 
   3.558441136719636*^9, 3.558549883930212*^9, 3.560007737240219*^9, 
   3.560044350284153*^9, 3.560044409764575*^9, 3.5601854944895573`*^9, 
   3.560186281683172*^9, 3.56018635497294*^9, 3.560186505014738*^9, 
   3.560222874094112*^9, 3.5602564193094807`*^9, 3.560268925916993*^9, 
   3.560269928526314*^9, 3.560271413683913*^9, 3.560516248989503*^9, 
   3.56052159684341*^9, 3.5605342856631002`*^9, 3.560535147850305*^9, 
   3.560842313577389*^9, 3.560844433253549*^9, 3.5611768047719584`*^9, 
   3.561210843779546*^9, 3.561269142847292*^9, 3.5612755939232063`*^9, 
   3.561276937367584*^9, 3.5613028022398443`*^9, 3.561305363351831*^9, 
   3.561308533549841*^9, 3.561308782438068*^9, {3.561360308448936*^9, 
   3.5613600628767433`*^9}, 3.728115019277643*^9, 3.731234873639477*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"78d9292e-ea1a-4487-bd21-488fbf3df2f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", "%"}]], "Input",
 CellChangeTimes->{{3.511596032632407*^9, 3.511596033916459*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"e159284b-b43d-4b4b-9fe9-9b23c6345cd1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {" ", "\[Gamma]"},
           {"\[Alpha]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Gamma]][
    $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Gamma]]],
   Editable->False], "\[Equal]", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {"\[Gamma]", " "},
           {" ", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`LUnphysg[$CellContext`\[Gamma], -$CellContext`\[Gamma]]],
   Editable->False]}]], "Output",
 CellChangeTimes->{
  3.51159603444147*^9, 3.511596352440254*^9, 3.511630876573152*^9, 
   3.511631151961648*^9, 3.511631590748464*^9, 3.511723609258356*^9, 
   3.5212744015804377`*^9, 3.5212765123056087`*^9, 3.521277308860962*^9, 
   3.521277494708623*^9, 3.52127892384665*^9, 3.521366116975429*^9, 
   3.521366390116693*^9, 3.521370370268778*^9, 3.5214406855856657`*^9, 
   3.521440922672515*^9, 3.52145590563148*^9, 3.521459259866171*^9, 
   3.521506974861435*^9, 3.521520608664819*^9, 3.521523015046657*^9, 
   3.5215390621785603`*^9, 3.5217854844467773`*^9, 3.521797360135062*^9, 
   3.521803990685543*^9, 3.521883302860794*^9, 3.521940295082877*^9, 
   3.521971089471492*^9, 3.5219714304069633`*^9, 3.521971480677081*^9, 
   3.521971569224852*^9, 3.5219721119495983`*^9, 3.521973958145453*^9, 
   3.522029104027252*^9, 3.524393966110425*^9, 3.524396320156179*^9, 
   3.524977866869996*^9, 3.524997219773891*^9, 3.525067715708858*^9, 
   3.525070797562739*^9, 3.525072072223761*^9, 3.5250732297860823`*^9, 
   3.5250810246153*^9, 3.525187138361929*^9, 3.525240247481121*^9, 
   3.52524390084275*^9, 3.525397530452971*^9, 3.525398675277224*^9, 
   3.525493463733656*^9, 3.525660867580258*^9, 3.525661911612801*^9, 
   3.525662979964954*^9, 3.52567327830951*^9, 3.5457388696025476`*^9, 
   3.54599113004988*^9, 3.5459914720424547`*^9, 3.5460001239881773`*^9, 
   3.546021356056377*^9, 3.546057615740938*^9, 3.546064585525807*^9, 
   3.546091125370843*^9, 3.546325600454598*^9, 3.548247330454185*^9, 
   3.5484045494537077`*^9, 3.548481248516429*^9, 3.548511427096322*^9, 
   3.548525808347288*^9, 3.548567871496423*^9, 3.548571055258808*^9, 
   3.548575008215908*^9, 3.548591586901905*^9, 3.548662093305438*^9, 
   3.54870011655055*^9, 3.548756250597577*^9, 3.548911242243032*^9, 
   3.548930607466628*^9, 3.548960796101713*^9, 3.5490021786988993`*^9, 
   3.5490208625712967`*^9, 3.549043538538715*^9, 3.549047026230056*^9, 
   3.549086272645585*^9, 3.549096270107664*^9, 3.549260303669396*^9, 
   3.5492729223172617`*^9, 3.5493050718919783`*^9, 3.549305289371985*^9, 
   3.54930579856275*^9, 3.549358878676352*^9, 3.5494331459655457`*^9, 
   3.5494623112552443`*^9, 3.54954024447932*^9, 3.550921580579691*^9, 
   3.5509907128818083`*^9, 3.550996419824789*^9, 3.550996588612013*^9, 
   3.555347189279648*^9, 3.5573920965316143`*^9, 3.557403146511395*^9, 
   3.557466458387259*^9, 3.557579374320298*^9, 3.557635727700225*^9, 
   3.558441136730906*^9, 3.5585498839377613`*^9, 3.560007737280583*^9, 
   3.560044350320364*^9, 3.560044409775835*^9, 3.560185494514057*^9, 
   3.560186281694744*^9, 3.560186354984874*^9, 3.560186505026113*^9, 
   3.560222874106337*^9, 3.560256419348845*^9, 3.5602689259284763`*^9, 
   3.56026992853808*^9, 3.560271413695532*^9, 3.560516249020505*^9, 
   3.560521596855847*^9, 3.5605342856738586`*^9, 3.560535147856861*^9, 
   3.5608423135898323`*^9, 3.560844433294973*^9, 3.561176804787611*^9, 
   3.5612108437922897`*^9, 3.561269142875125*^9, 3.561275593936737*^9, 
   3.5612769373809557`*^9, 3.561302802261438*^9, 3.56130536337738*^9, 
   3.5613085335662203`*^9, 3.56130878245185*^9, {3.561360308499298*^9, 
   3.561360062896309*^9}, 3.728115019293118*^9, 3.731234873657439*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"b42c0d8e-2a0a-4ad1-a26d-ec42c547fe37"]
}, Open  ]],

Cell["We declare this as an automatic rule", "Text",
 CellChangeTimes->{{3.511723654446142*^9, 3.511723661567276*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AutomaticRules", "[", 
  RowBox[{"LUnphysg", ",", 
   RowBox[{"ApplyRule", "@", "%"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51159603788848*^9, 3.511596038787693*^9}, {
  3.5115963542350283`*^9, 3.511596376004305*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"cc8ac4ea-d9f0-4408-947e-f3c7a02449bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"   Rules \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], 
   "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", 
   "\[InvisibleSpace]", "LUnphysg", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm["   Rules ", 
   Shallow[{1, 2, 3, 4}], 
   " have been declared as UpValues for ", $CellContext`LUnphysg, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.51163115512096*^9, 3.511631590765088*^9, 3.5117236093174963`*^9, 
   3.5212744094166527`*^9, 3.521276512466668*^9, 3.521277308914414*^9, 
   3.52127749477116*^9, 3.521278923920534*^9, 3.521366117072653*^9, 
   3.52136639153402*^9, 3.521370370287737*^9, 3.5214406856523848`*^9, 
   3.521440922698859*^9, 3.5214559056493883`*^9, 3.5214592627016087`*^9, 
   3.521506974936925*^9, 3.521520608712488*^9, 3.521523015064953*^9, 
   3.5215390622127*^9, 3.521785484513455*^9, 3.5217973601555843`*^9, 
   3.5218039907076387`*^9, 3.521883302879044*^9, 3.521940295212899*^9, 
   3.521971089485766*^9, 3.521971430426737*^9, 3.521971480700912*^9, 
   3.5219715692426987`*^9, 3.521972111966735*^9, 3.521973958176828*^9, 
   3.522029104090281*^9, 3.524393966124982*^9, 3.524396320171301*^9, 
   3.5249778668960247`*^9, 3.524997219817237*^9, 3.525067717573124*^9, 
   3.525070797593397*^9, 3.525072072251204*^9, 3.5250732298116426`*^9, 
   3.525081024669158*^9, 3.525187138394044*^9, 3.525240247500733*^9, 
   3.525243900881339*^9, 3.525397530470379*^9, 3.525398675306364*^9, 
   3.525493463763361*^9, 3.5256608676079903`*^9, 3.525661911640935*^9, 
   3.525662979979144*^9, 3.5256732783523397`*^9, 3.545738869623549*^9, 
   3.545991130121365*^9, 3.54599147223708*^9, 3.546000124042967*^9, 
   3.5460213561035013`*^9, 3.546057615805635*^9, 3.546064585580299*^9, 
   3.546091125550316*^9, 3.54632560047829*^9, 3.548247330480295*^9, 
   3.548404549492221*^9, 3.5484812485517406`*^9, 3.548511427144011*^9, 
   3.548525808365617*^9, 3.5485678715198812`*^9, 3.548571055287612*^9, 
   3.548575008248891*^9, 3.5485915869382772`*^9, 3.5486620934403057`*^9, 
   3.548700116576823*^9, 3.548756250636499*^9, 3.548911242267386*^9, 
   3.548930607496422*^9, 3.548960796123083*^9, 3.549002178727396*^9, 
   3.5490208625934343`*^9, 3.549043538564107*^9, 3.549047026256818*^9, 
   3.549086272670142*^9, 3.549096270168994*^9, 3.549260303707657*^9, 
   3.549272922359819*^9, 3.549305071920562*^9, 3.549305289401546*^9, 
   3.54930579859407*^9, 3.549358878712922*^9, 3.549433145988937*^9, 
   3.5494623112796297`*^9, 3.549540244502701*^9, 3.550921580620832*^9, 
   3.550990712957623*^9, 3.550996419853407*^9, 3.550996588648828*^9, 
   3.555347189310657*^9, 3.5573920965879803`*^9, 3.557403146542783*^9, 
   3.557466458414736*^9, 3.557579374340146*^9, 3.557635727725752*^9, 
   3.558441136764029*^9, 3.5585498839564323`*^9, 3.560007737321106*^9, 
   3.560044350358677*^9, 3.560044409809794*^9, 3.560185494549436*^9, 
   3.560186281733276*^9, 3.5601863550186043`*^9, 3.560186505061043*^9, 
   3.560222874134142*^9, 3.5602564193820553`*^9, 3.560268925968164*^9, 
   3.5602699285695963`*^9, 3.5602714137261887`*^9, 3.560516249056638*^9, 
   3.5605215968955727`*^9, 3.560534285698922*^9, 3.560535147875423*^9, 
   3.560842313616293*^9, 3.56084443337162*^9, 3.561176804819841*^9, 
   3.561210843828994*^9, 3.561269142906022*^9, 3.561275593973325*^9, 
   3.561276937415594*^9, 3.561302802310491*^9, 3.561305363424759*^9, 
   3.561308533608004*^9, 3.561308782491581*^9, {3.561360308540291*^9, 
   3.5613600629606247`*^9}, 3.7281150193090363`*^9, 3.731234873678392*^9},
 CellLabel->
  "During evaluation of \
In[121]:=",ExpressionUUID->"a6d27c35-3f1e-4d86-ba6c-9f2a8e85b2a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovDivWeylUnphysical", "=", 
  RowBox[{"ToCanonical", "/@", "CovDivWeylUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5115963896372623`*^9, 3.5115963982766933`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"62defd74-c940-4bda-acc6-77ddda4583e8"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Eta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Eta]][
    $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Eta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.5115963858413687`*^9, 3.5115964009844923`*^9}, 
   3.511630876595113*^9, 3.511631156585326*^9, 3.511631590789163*^9, 
   3.511723609372218*^9, 3.521274410223481*^9, 3.521276512741708*^9, 
   3.5212773089869137`*^9, 3.521277494836082*^9, 3.521278924022682*^9, 
   3.521366117185952*^9, 3.5213663928514147`*^9, 3.5213703703337097`*^9, 
   3.5214406857235537`*^9, 3.521440922777357*^9, 3.521455905677834*^9, 
   3.5214592640138607`*^9, 3.521506975046274*^9, 3.521520608782695*^9, 
   3.521523015093425*^9, 3.5215390622411737`*^9, 3.521785484594823*^9, 
   3.52179736019948*^9, 3.521803990738291*^9, 3.521883302908804*^9, 
   3.5219402952885637`*^9, 3.5219710895094843`*^9, 3.5219714304555387`*^9, 
   3.521971480735593*^9, 3.5219715692716217`*^9, 3.521972111993855*^9, 
   3.521973958204064*^9, 3.5220291041446257`*^9, 3.5243939661447163`*^9, 
   3.524396320204862*^9, 3.5249778669368963`*^9, 3.5249972198706503`*^9, 
   3.525067718972633*^9, 3.5250707976253757`*^9, 3.525072072286639*^9, 
   3.525073229846642*^9, 3.525081024727696*^9, 3.525187138426833*^9, 
   3.525240247533339*^9, 3.525243900967745*^9, 3.525397530498171*^9, 
   3.525398675348585*^9, 3.525493463800582*^9, 3.525660867660606*^9, 
   3.525661911682274*^9, 3.525662980001297*^9, 3.525673278411242*^9, 
   3.5457388696500196`*^9, 3.545991130211049*^9, 3.545991472420478*^9, 
   3.546000124121393*^9, 3.546021356156581*^9, 3.546057615872299*^9, 
   3.546064585666965*^9, 3.546091125672948*^9, 3.546325600536098*^9, 
   3.54824733056478*^9, 3.548404549548156*^9, 3.548481248586937*^9, 
   3.548511427202005*^9, 3.54852580839865*^9, 3.5485678715608387`*^9, 
   3.548571055323784*^9, 3.548575008285857*^9, 3.548591586965205*^9, 
   3.548662093518691*^9, 3.548700116618205*^9, 3.548756250672163*^9, 
   3.548911242323317*^9, 3.548930607541108*^9, 3.548960796157659*^9, 
   3.549002178766551*^9, 3.54902086262715*^9, 3.549043538611511*^9, 
   3.549047026290606*^9, 3.549086272721663*^9, 3.549096270240101*^9, 
   3.549260303750854*^9, 3.549272922423234*^9, 3.549305071964801*^9, 
   3.549305289451269*^9, 3.5493057986141863`*^9, 3.549358878751321*^9, 
   3.5494331460266733`*^9, 3.5494623113129883`*^9, 3.5495402445470247`*^9, 
   3.550921580679426*^9, 3.5509907130089197`*^9, 3.550996419916915*^9, 
   3.550996588702067*^9, 3.555347189354937*^9, 3.557392096651651*^9, 
   3.557403146580583*^9, 3.557466458451789*^9, 3.557579374376463*^9, 
   3.5576357277806673`*^9, 3.558441136810309*^9, 3.558549883994409*^9, 
   3.560007737369772*^9, 3.560044350442849*^9, 3.560044409857771*^9, 
   3.560185494598909*^9, 3.560186281846313*^9, 3.560186355053587*^9, 
   3.560186505099215*^9, 3.5602228741766367`*^9, 3.560256419429386*^9, 
   3.560268926014906*^9, 3.560269928602064*^9, 3.560271413769445*^9, 
   3.560516249122972*^9, 3.560521596950741*^9, 3.5605342857412148`*^9, 
   3.5605351479096003`*^9, 3.5608423136590977`*^9, 3.560844433414445*^9, 
   3.561176804869916*^9, 3.56121084388204*^9, 3.561269142951674*^9, 
   3.561275594027698*^9, 3.5612769374914217`*^9, 3.56130280238793*^9, 
   3.561305363478847*^9, 3.561308533652832*^9, 3.561308782563073*^9, {
   3.561360308597272*^9, 3.5613600630133133`*^9}, 3.728115019333194*^9, 
   3.731234873701779*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"d28cf67d-ac44-4a65-8ea0-6d4eede32d6f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Physical Schouten tensor", "Subsubsection",
 CellChangeTimes->{{3.511504781562496*^9, 3.511504788569666*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"LPhysg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], ",", "M4", ",", 
   RowBox[{"Symmetric", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "}"}], "]"}], ",", 
   RowBox[{
   "PrintAs", "\[Rule]", "\"\<\!\(\*OverscriptBox[\(L\), \(~\)]\)\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.511343749992772*^9, 3.511343787297348*^9}, {
  3.511461595100605*^9, 3.511461608104733*^9}, {3.521459323662383*^9, 
  3.521459336717534*^9}, {3.525067732494162*^9, 3.5250677389316673`*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"a19c76dc-86d1-480c-97ca-c1e9840dcd85"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"LPhysg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511343787714554*^9, 3.511458671757406*^9, 3.511461610020233*^9, 
   3.51150313493386*^9, 3.5115038070521812`*^9, 3.5115047671095953`*^9, 
   3.5115081759454107`*^9, 3.5115917208365726`*^9, 3.511596714842655*^9, 
   3.511630876613682*^9, 3.511631590809105*^9, 3.511723670435104*^9, 
   3.521274420482524*^9, 3.521276517449312*^9, 3.521277309046962*^9, 
   3.521277494846752*^9, 3.521278924085449*^9, 3.521366177046674*^9, 
   3.5213663997407017`*^9, 3.521370370356257*^9, 3.52144068579543*^9, 
   3.521440922793004*^9, 3.5214559057006207`*^9, 3.521459341823546*^9, 
   3.521506977006715*^9, 3.521520609183773*^9, 3.521523015114667*^9, 
   3.5215390622653503`*^9, 3.5217854846816597`*^9, 3.5217973602227488`*^9, 
   3.521803990760256*^9, 3.521883303798348*^9, 3.521940295458035*^9, 
   3.5219710895237713`*^9, 3.521971430474915*^9, 3.521971480753854*^9, 
   3.52197156929226*^9, 3.521972112012765*^9, 3.521973958222892*^9, 
   3.522029104195739*^9, 3.5243939679219713`*^9, 3.5243963202569427`*^9, 
   3.524977866968143*^9, 3.524997219914002*^9, 3.5250677400721903`*^9, 
   3.525070797690895*^9, 3.525072072314045*^9, 3.525073229869502*^9, 
   3.525081024782432*^9, 3.525187138449566*^9, 3.525240247556913*^9, 
   3.525243901195868*^9, 3.525397530517302*^9, 3.525398675381966*^9, 
   3.5254934638270597`*^9, 3.525660867689025*^9, 3.5256619117097263`*^9, 
   3.5256629800178833`*^9, 3.525673278457315*^9, 3.545738869699994*^9, 
   3.545991130284894*^9, 3.5459914724566402`*^9, 3.546000124138825*^9, 
   3.546021356175091*^9, 3.546057615926921*^9, 3.546064585769787*^9, 
   3.546091125725285*^9, 3.546325600587162*^9, 3.548247330580935*^9, 
   3.5484045495803623`*^9, 3.5484812486160183`*^9, 3.548511427237307*^9, 
   3.548525808411353*^9, 3.548567871592574*^9, 3.548571055351213*^9, 
   3.548575008310602*^9, 3.548591586979903*^9, 3.548662093547422*^9, 
   3.548700116647991*^9, 3.5487562507104473`*^9, 3.548911242352985*^9, 
   3.548930607569562*^9, 3.548960796179319*^9, 3.549002178790114*^9, 
   3.549020862693573*^9, 3.5490435386401453`*^9, 3.549047026316921*^9, 
   3.549086272750909*^9, 3.549096270292996*^9, 3.549260303785754*^9, 
   3.549272922463624*^9, 3.549305071977916*^9, 3.549305289488662*^9, 
   3.549305798634948*^9, 3.549358878806994*^9, 3.5494331460516367`*^9, 
   3.549462311334262*^9, 3.5495402445835648`*^9, 3.5509215807175407`*^9, 
   3.550990713046711*^9, 3.5509964199549932`*^9, 3.5509965887183733`*^9, 
   3.5553471893840857`*^9, 3.557392096706238*^9, 3.557403146605876*^9, 
   3.5574664584941673`*^9, 3.557579374398651*^9, 3.557635727789554*^9, 
   3.558441136851943*^9, 3.5585498840231533`*^9, 3.560007737402211*^9, 
   3.560044350493836*^9, 3.560044409890835*^9, 3.560185494686163*^9, 
   3.560186281886674*^9, 3.560186355086947*^9, 3.56018650516988*^9, 
   3.560222874225046*^9, 3.560256419461339*^9, 3.560268926046677*^9, 
   3.5602699286276617`*^9, 3.560271413797847*^9, 3.560516249160963*^9, 
   3.560521596978607*^9, 3.5605342857657423`*^9, 3.560535147929227*^9, 
   3.560842313685294*^9, 3.56084443344211*^9, 3.561176804935499*^9, 
   3.561210843919127*^9, 3.561269142982293*^9, 3.561275594108198*^9, 
   3.5612769375079*^9, 3.561302802432349*^9, 3.561305363504305*^9, 
   3.5613085336913757`*^9, 3.561308782601851*^9, {3.561360308630302*^9, 
   3.561360063043754*^9}, 3.728115019349523*^9, 3.731234873722136*^9},
 CellLabel->
  "During evaluation of \
In[123]:=",ExpressionUUID->"d91c4c2f-73a4-415b-a46d-8b08b6cb03fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LPhysg", "[", 
   RowBox[{
    RowBox[{"-", "\[Alpha]"}], ",", 
    RowBox[{"-", "\[Beta]"}]}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"RicciCDTildeg", "[", 
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], ",", 
       RowBox[{"-", "\[Beta]"}]}], "]"}], "-", 
     RowBox[{
      RowBox[{"1", "/", "6"}], " ", 
      RowBox[{"RicciScalarCDTildeg", "[", "]"}], 
      RowBox[{"Physicalg", "[", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", 
        RowBox[{"-", "\[Beta]"}]}], "]"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5113437987974243`*^9, 3.511343887244753*^9}, {
  3.5113440729727163`*^9, 3.511344080080106*^9}, {3.511344116663764*^9, 
  3.511344149218918*^9}, {3.511344186493038*^9, 3.511344187254987*^9}, {
  3.511461591084064*^9, 3.511461632436392*^9}, {3.525067742095646*^9, 
  3.525067754519376*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"7c910212-5027-48dd-bccd-4d9aa8676ffd"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "~"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"R", "[", 
           OverscriptBox["\[Del]", "~"], "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
      Editable->False], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["g", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDTildeg[],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511343887779567*^9, 3.511344080715205*^9, {3.511344161973784*^9, 
   3.511344187974133*^9}, 3.5114586730777483`*^9, 3.5114616356815*^9, 
   3.511503135113195*^9, 3.511503807656251*^9, 3.5115047671595097`*^9, 
   3.511508176080893*^9, 3.5115917208815536`*^9, 3.511596714914448*^9, 
   3.511630876633677*^9, 3.511631590826522*^9, 3.511723670541512*^9, 
   3.5212744217360487`*^9, 3.521276517636887*^9, 3.521277309103587*^9, 
   3.5212774948567457`*^9, 3.521278924184901*^9, 3.521366177154895*^9, 
   3.521366400392858*^9, 3.521370370383506*^9, 3.52144068581413*^9, 
   3.521440922810499*^9, 3.521455905719965*^9, 3.521459343297332*^9, 
   3.521506977069407*^9, 3.5215206092608*^9, 3.521523015134595*^9, 
   3.521539062289713*^9, 3.52178548476301*^9, 3.521797360245041*^9, 
   3.5218039907808733`*^9, 3.521883303874752*^9, 3.521940295519911*^9, 
   3.521971089538827*^9, 3.521971430495016*^9, 3.521971480784731*^9, 
   3.5219715693111067`*^9, 3.521972112031654*^9, 3.521973958240273*^9, 
   3.5220291042637367`*^9, 3.524393968037846*^9, 3.524396320317692*^9, 
   3.524977866998118*^9, 3.524997219969489*^9, 3.5250677554050303`*^9, 
   3.525070797722378*^9, 3.5250720723500547`*^9, 3.525073229892705*^9, 
   3.525081024828527*^9, 3.5251871384696627`*^9, 3.525240247563423*^9, 
   3.525243901625667*^9, 3.525397530535099*^9, 3.525398675413466*^9, 
   3.52549346386567*^9, 3.525660867724341*^9, 3.525661911740584*^9, 
   3.525662980032649*^9, 3.525673278506435*^9, 3.54573886971481*^9, 
   3.5459911303022738`*^9, 3.5459914724870663`*^9, 3.5460001241574717`*^9, 
   3.5460213561919727`*^9, 3.546057615943025*^9, 3.5460645862587557`*^9, 
   3.546091125749774*^9, 3.546325600611444*^9, 3.548247330596404*^9, 
   3.548404549678462*^9, 3.548481248626906*^9, 3.548511427339032*^9, 
   3.548525808419734*^9, 3.548567871603031*^9, 3.548571055364586*^9, 
   3.5485750083176413`*^9, 3.5485915870094633`*^9, 3.548662093580378*^9, 
   3.548700116656473*^9, 3.5487562507273207`*^9, 3.5489112423640347`*^9, 
   3.548930607598819*^9, 3.548960796187413*^9, 3.549002178799766*^9, 
   3.549020862750778*^9, 3.549043538652739*^9, 3.549047026324483*^9, 
   3.5490862727656612`*^9, 3.549096270395917*^9, 3.549260303798164*^9, 
   3.5492729225010643`*^9, 3.549305071986549*^9, 3.54930528951637*^9, 
   3.549305798642139*^9, 3.549358878885507*^9, 3.549433146085808*^9, 
   3.549462311343109*^9, 3.549540244591837*^9, 3.550921580733254*^9, 
   3.550990713084722*^9, 3.550996419993288*^9, 3.550996588732889*^9, 
   3.555347189396586*^9, 3.55739209679748*^9, 3.55740314671362*^9, 
   3.557466458517498*^9, 3.557579374407235*^9, 3.557635727798327*^9, 
   3.558441136945189*^9, 3.558549884082651*^9, 3.560007737417403*^9, 
   3.5600443505323267`*^9, 3.5600444099034023`*^9, 3.560185494712997*^9, 
   3.560186281936111*^9, 3.5601863551535463`*^9, 3.560186505182769*^9, 
   3.560222874252598*^9, 3.5602564194796057`*^9, 3.560268926148077*^9, 
   3.560269928640841*^9, 3.560271413810968*^9, 3.5605162492009573`*^9, 
   3.5605215970153227`*^9, 3.560534285872834*^9, 3.560535147940826*^9, 
   3.560842313701745*^9, 3.560844433457831*^9, 3.5611768049506197`*^9, 
   3.561210843975439*^9, 3.561269143016432*^9, 3.561275594125931*^9, 
   3.5612769375284433`*^9, 3.561302802475884*^9, 3.561305363531769*^9, 
   3.561308533729681*^9, 3.561308782713818*^9, {3.56136030866564*^9, 
   3.5613600630603857`*^9}, 3.7281150193673897`*^9, 3.731234873753374*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"a20caca9-8e87-4a7c-b6c5-e33d81f20eea"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenPhys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5114616627467012`*^9, 3.511461663658821*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"fa1a7363-813b-458e-9a10-2e954213fe74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"SchoutenPhys", ",", 
    RowBox[{"RicciCDTildeg", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.511461720243217*^9, 3.511461732694634*^9}, {
  3.511461778053605*^9, 3.511461809727141*^9}, {3.525067759136198*^9, 
  3.5250677613466883`*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"83117099-f6de-4449-8fef-7dfc76ed2089"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", "6"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"12", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["g", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", 
          OverscriptBox["\[Del]", "~"], "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDTildeg[],
        Editable->False]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5114618011458893`*^9, 3.511461810200142*^9}, 
   3.511503135209548*^9, 3.51150380980721*^9, 3.511504767273178*^9, 
   3.511508176180581*^9, 3.5115917209233828`*^9, 3.511596714928726*^9, 
   3.511630876658229*^9, 3.5116315909299297`*^9, 3.511723670614768*^9, 
   3.521274426979334*^9, 3.52127651771671*^9, 3.521277309206291*^9, 
   3.521277494946086*^9, 3.521278924273381*^9, 3.52136617717715*^9, 
   3.521366401380826*^9, 3.5213703704195538`*^9, 3.521440685884947*^9, 
   3.52144092282618*^9, 3.521455905756946*^9, 3.521459344986245*^9, 
   3.521506977140348*^9, 3.521520609371973*^9, 3.521523015157609*^9, 
   3.521539062320966*^9, 3.5217854847814093`*^9, 3.521797360278892*^9, 
   3.52180399080352*^9, 3.5218833038992853`*^9, 3.521940295598914*^9, 
   3.5219710895560503`*^9, 3.521971430517708*^9, 3.5219714808049297`*^9, 
   3.5219715693512363`*^9, 3.521972112053445*^9, 3.521973958259973*^9, 
   3.5220291042905083`*^9, 3.5243939681384068`*^9, 3.5243963203598146`*^9, 
   3.524977867007524*^9, 3.5249972199851522`*^9, 3.5250677619302053`*^9, 
   3.5250707977557*^9, 3.525072072443288*^9, 3.5250732299741907`*^9, 
   3.525081024879299*^9, 3.525187138482048*^9, 3.525240247588485*^9, 
   3.525243901854075*^9, 3.525397530557084*^9, 3.525398675468874*^9, 
   3.525493463909246*^9, 3.525660867758279*^9, 3.52566191177474*^9, 
   3.525662980049938*^9, 3.525673278525503*^9, 3.545738869738029*^9, 
   3.545991130454319*^9, 3.545991472551464*^9, 3.546000124187353*^9, 
   3.546021356217991*^9, 3.5460576159671907`*^9, 3.54606458645303*^9, 
   3.546091125817067*^9, 3.546325600669489*^9, 3.5482473306618958`*^9, 
   3.5484045497161007`*^9, 3.5484812486779137`*^9, 3.548511427386387*^9, 
   3.548525808432724*^9, 3.548567871615344*^9, 3.548571055404417*^9, 
   3.548575008328648*^9, 3.548591587090665*^9, 3.548662093639337*^9, 
   3.548700116669999*^9, 3.548756250755026*^9, 3.548911242377235*^9, 
   3.548930607704294*^9, 3.548960796225806*^9, 3.549002178813233*^9, 
   3.549020862791222*^9, 3.549043538665703*^9, 3.549047026335723*^9, 
   3.549086272778208*^9, 3.549096270471285*^9, 3.54926030383851*^9, 
   3.549272922544242*^9, 3.549305072000215*^9, 3.549305289577319*^9, 
   3.549305798654262*^9, 3.549358878926271*^9, 3.5494331461636953`*^9, 
   3.549462311358552*^9, 3.549540244623405*^9, 3.550921580755156*^9, 
   3.5509907131386127`*^9, 3.5509964200411*^9, 3.550996588753648*^9, 
   3.555347189418508*^9, 3.557392096863928*^9, 3.557403146747233*^9, 
   3.557466458556301*^9, 3.557579374420397*^9, 3.557635727812031*^9, 
   3.558441136965575*^9, 3.5585498841501617`*^9, 3.560007737459757*^9, 
   3.560044350579275*^9, 3.56004440992422*^9, 3.5601854948373013`*^9, 
   3.560186282043989*^9, 3.560186355174211*^9, 3.560186505202518*^9, 
   3.560222874288887*^9, 3.560256419521599*^9, 3.5602689261684523`*^9, 
   3.5602699286608963`*^9, 3.560271413830956*^9, 3.560516249243148*^9, 
   3.560521597043215*^9, 3.560534285926415*^9, 3.5605351479640217`*^9, 
   3.5608423137370443`*^9, 3.560844433481963*^9, 3.561176804988327*^9, 
   3.5612108440645237`*^9, 3.561269143083967*^9, 3.5612755941710377`*^9, 
   3.5612769375600967`*^9, 3.561302802525811*^9, 3.56130536360432*^9, 
   3.561308533776784*^9, 3.561308782736436*^9, {3.5613603087099953`*^9, 
   3.5613600630846643`*^9}, 3.728115019389353*^9, 3.73123487378088*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"71a3b538-d10f-4cbb-a8be-883188563ed5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.511461811414134*^9, 3.511461816496049*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"10eb0462-3433-4d24-8ad9-05d93bda1825"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "~"], "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"12", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["g", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDTildeg[],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511461817468153*^9, 3.511503135299333*^9, 3.511503810358746*^9, 
   3.511504767321043*^9, 3.511508176265627*^9, 3.511591720931686*^9, 
   3.511596714936636*^9, 3.5116308766791067`*^9, 3.511631590936975*^9, 
   3.5117236706648397`*^9, 3.5212744285389843`*^9, 3.521276517794094*^9, 
   3.5212773092787743`*^9, 3.5212774949973803`*^9, 3.521278924420322*^9, 
   3.5213661772338552`*^9, 3.521366401994578*^9, 3.521370370440875*^9, 
   3.521440685895234*^9, 3.521440922885685*^9, 3.521455905774866*^9, 
   3.521459345709949*^9, 3.521506977199257*^9, 3.521520609420662*^9, 
   3.521523015177146*^9, 3.521539062326953*^9, 3.521785484850896*^9, 
   3.52179736030048*^9, 3.521803990822958*^9, 3.521883303919169*^9, 
   3.521940295610368*^9, 3.521971089570737*^9, 3.521971430537407*^9, 
   3.521971480822608*^9, 3.521971569370419*^9, 3.5219721120718718`*^9, 
   3.52197395827742*^9, 3.522029104306065*^9, 3.5243939681481953`*^9, 
   3.5243963203678217`*^9, 3.524977867012807*^9, 3.524997219994864*^9, 
   3.525067762958817*^9, 3.525070797760784*^9, 3.525072072449334*^9, 
   3.5250732299813128`*^9, 3.525081024888133*^9, 3.5251871384892797`*^9, 
   3.525240247609693*^9, 3.5252439018649673`*^9, 3.52539753057397*^9, 
   3.525398675476016*^9, 3.525493463935381*^9, 3.5256608677958927`*^9, 
   3.525661911804841*^9, 3.525662980062158*^9, 3.525673278536399*^9, 
   3.5457388697517557`*^9, 3.545991130529697*^9, 3.545991472589126*^9, 
   3.546000124240254*^9, 3.546021356259323*^9, 3.546057616009362*^9, 
   3.546064586471301*^9, 3.546091125841572*^9, 3.5463256006967773`*^9, 
   3.5482473306764107`*^9, 3.548404549758123*^9, 3.5484812487060013`*^9, 
   3.5485114274068527`*^9, 3.548525808454379*^9, 3.548567871646419*^9, 
   3.548571055463477*^9, 3.548575008357997*^9, 3.5485915871041937`*^9, 
   3.548662093661714*^9, 3.54870011669902*^9, 3.54875625078793*^9, 
   3.5489112424032583`*^9, 3.548930607748103*^9, 3.548960796253117*^9, 
   3.549002178834978*^9, 3.549020862803833*^9, 3.549043538691551*^9, 
   3.5490470263615427`*^9, 3.5490862728051167`*^9, 3.5490962704985933`*^9, 
   3.549260303867915*^9, 3.549272922596115*^9, 3.549305072025799*^9, 
   3.549305289606099*^9, 3.549305798674695*^9, 3.5493588789390793`*^9, 
   3.5494331461989717`*^9, 3.549462311380159*^9, 3.549540244635693*^9, 
   3.5509215807980947`*^9, 3.55099071315304*^9, 3.550996420079488*^9, 
   3.5509965887872887`*^9, 3.555347189448225*^9, 3.557392096917129*^9, 
   3.5574031467572403`*^9, 3.557466458581484*^9, 3.557579374441951*^9, 
   3.557635727839905*^9, 3.558441136977696*^9, 3.558549884159884*^9, 
   3.560007737474245*^9, 3.560044350615061*^9, 3.560044409956991*^9, 
   3.56018549487761*^9, 3.560186282084745*^9, 3.560186355206315*^9, 
   3.560186505237056*^9, 3.560222874315199*^9, 3.560256419536338*^9, 
   3.560268926180949*^9, 3.560269928687838*^9, 3.560271413860588*^9, 
   3.560516249279808*^9, 3.560521597077725*^9, 3.560534285938615*^9, 
   3.560535147970849*^9, 3.560842313752151*^9, 3.560844433510003*^9, 
   3.5611768050061483`*^9, 3.561210844102168*^9, 3.561269143124056*^9, 
   3.561275594188498*^9, 3.561276937594508*^9, 3.561302802544764*^9, 
   3.561305363675687*^9, 3.561308533820367*^9, 3.56130878275047*^9, {
   3.561360308724408*^9, 3.5613600631163387`*^9}, 3.728115019405159*^9, 
   3.7312348738024178`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"05acb52f-fbb4-4c28-aa55-40ecfd353bd8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciCDTildegToSchoutenPhys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5114618465017147`*^9, 3.511461852078808*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"0ec889f9-fd10-4b03-a3f2-0e162c10ae08"]
}, Closed]],

Cell[CellGroupData[{

Cell["Weyl connection Schouten tensor", "Subsubsection",
 CellChangeTimes->{{3.511504781562496*^9, 3.511504788569666*^9}, {
  3.511504957945383*^9, 3.511504963889265*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"LWeylg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], ",", "M4", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", "\"\<\!\(\*OverscriptBox[\(L\), \(^\)]\)\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.511343749992772*^9, 3.511343787297348*^9}, {
  3.511461595100605*^9, 3.511461608104733*^9}, {3.511504970595398*^9, 
  3.511504980481002*^9}, {3.521459373430328*^9, 3.521459374476575*^9}, {
  3.525067771433916*^9, 3.525067774027995*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"dabcd0a8-7a82-4b70-9da8-4684ac37d767"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"LWeylg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ", 
   ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511343787714554*^9, 3.511458671757406*^9, 3.511461610020233*^9, 
   3.51150313493386*^9, 3.5115038070521812`*^9, 3.5115047671095953`*^9, 
   3.511504984344069*^9, 3.5115081847282543`*^9, 3.511591720971148*^9, 
   3.511596714975718*^9, 3.5116308767194147`*^9, 3.511631590956204*^9, 
   3.511723675518173*^9, 3.521274438971146*^9, 3.521276526974597*^9, 
   3.521277309363756*^9, 3.521277495013617*^9, 3.52127892448801*^9, 
   3.521366191651774*^9, 3.5213664553972187`*^9, 3.521370370488967*^9, 
   3.52144068596384*^9, 3.5214409229096613`*^9, 3.521455905795328*^9, 
   3.52145937529464*^9, 3.521506980946135*^9, 3.521520614087895*^9, 
   3.521523015200345*^9, 3.521539062335196*^9, 3.521785484867423*^9, 
   3.521797360322604*^9, 3.521803990845579*^9, 3.521883305058692*^9, 
   3.521940296804159*^9, 3.521971089586257*^9, 3.521971430559053*^9, 
   3.5219714808420887`*^9, 3.521971569392379*^9, 3.521972117694125*^9, 
   3.521973958296247*^9, 3.5220291043752537`*^9, 3.524393969668702*^9, 
   3.524396320380134*^9, 3.5249778670446577`*^9, 3.52499722003933*^9, 
   3.525067775095817*^9, 3.525070797793342*^9, 3.5250720725529757`*^9, 
   3.525073229992092*^9, 3.52508102489995*^9, 3.5251871385148907`*^9, 
   3.5252402476704283`*^9, 3.52524390191685*^9, 3.525397530595243*^9, 
   3.52539867548715*^9, 3.525493463967209*^9, 3.525660867861264*^9, 
   3.525661911836059*^9, 3.525662980077704*^9, 3.525673278580411*^9, 
   3.545738869808321*^9, 3.5459911305542727`*^9, 3.545991472650234*^9, 
   3.546000124330791*^9, 3.54602135629522*^9, 3.546057616032928*^9, 
   3.546064586496294*^9, 3.546091125869969*^9, 3.5463256007490253`*^9, 
   3.548247330747031*^9, 3.548404549819438*^9, 3.548481248719069*^9, 
   3.54851142753012*^9, 3.548525808467507*^9, 3.548567871658206*^9, 
   3.548571055548718*^9, 3.548575008368997*^9, 3.548591587126543*^9, 
   3.548662093697855*^9, 3.548700116711591*^9, 3.548756250819762*^9, 
   3.548911242453848*^9, 3.548930607844864*^9, 3.548960796264113*^9, 
   3.549002178847248*^9, 3.549020862839045*^9, 3.5490435387056017`*^9, 
   3.5490470264649067`*^9, 3.54908627281769*^9, 3.549096270578682*^9, 
   3.5492603039203863`*^9, 3.549272922638652*^9, 3.549305072130666*^9, 
   3.549305289639099*^9, 3.549305798695175*^9, 3.549358878978158*^9, 
   3.54943314621136*^9, 3.549462311393124*^9, 3.549540244666329*^9, 
   3.550921580893606*^9, 3.550990713198435*^9, 3.5509964201266727`*^9, 
   3.5509965888107643`*^9, 3.55534718950331*^9, 3.5573920969737864`*^9, 
   3.5574031467874193`*^9, 3.557466458640213*^9, 3.557579374458234*^9, 
   3.55763572785258*^9, 3.5584411370274973`*^9, 3.558549884213518*^9, 
   3.560007737494986*^9, 3.560044350663213*^9, 3.560044409975151*^9, 
   3.560185495007243*^9, 3.560186282135694*^9, 3.560186355228292*^9, 
   3.5601865052559023`*^9, 3.560222874346468*^9, 3.560256419583538*^9, 
   3.560268926219913*^9, 3.5602699287066307`*^9, 3.560271413879368*^9, 
   3.56051624932705*^9, 3.560521597098576*^9, 3.560534285973782*^9, 
   3.560535147982829*^9, 3.560842313772752*^9, 3.560844433546303*^9, 
   3.5611768050267553`*^9, 3.561210844147011*^9, 3.56126914316117*^9, 
   3.561275594235055*^9, 3.561276937620372*^9, 3.56130280260709*^9, 
   3.561305363742588*^9, 3.561308533853236*^9, 3.561308782799179*^9, {
   3.56136030876517*^9, 3.561360063137657*^9}, 3.7281150194245872`*^9, 
   3.731234873825575*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"ff1cc10c-3fad-4fb5-b89e-c930cf91cdf3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LWeylg", "[", 
   RowBox[{
    RowBox[{"-", "\[Beta]"}], ",", 
    RowBox[{"-", "\[Alpha]"}]}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"1", "/", "2"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Symmetrize", "[", 
      RowBox[{
       RowBox[{"RicciWeylCD", "[", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], ",", 
         RowBox[{"-", "\[Beta]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], ",", 
         RowBox[{"-", "\[Beta]"}]}], "}"}]}], "]"}], "-", 
     RowBox[{
      RowBox[{"1", "/", "2"}], 
      RowBox[{"Antisymmetrize", "[", 
       RowBox[{
        RowBox[{"RicciWeylCD", "[", 
         RowBox[{
          RowBox[{"-", "\[Alpha]"}], ",", 
          RowBox[{"-", "\[Beta]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "\[Alpha]"}], ",", 
          RowBox[{"-", "\[Beta]"}]}], "}"}]}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"1", "/", "6"}], "  ", 
      RowBox[{"RicciWeylCD", "[", 
       RowBox[{"\[Eta]", ",", 
        RowBox[{"-", "\[Eta]"}]}], "]"}], 
      RowBox[{"Unphysicalg", "[", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", 
        RowBox[{"-", "\[Beta]"}]}], "]"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5113437987974243`*^9, 3.511343887244753*^9}, {
  3.5113440729727163`*^9, 3.511344080080106*^9}, {3.511344116663764*^9, 
  3.511344149218918*^9}, {3.511344186493038*^9, 3.511344187254987*^9}, {
  3.511461591084064*^9, 3.511461632436392*^9}, {3.511504986251967*^9, 
  3.511505012289824*^9}, {3.511505119417883*^9, 3.511505148091419*^9}, {
  3.51150522362241*^9, 3.5115052271524153`*^9}, {3.511505995496958*^9, 
  3.5115059975980577`*^9}, {3.521520259925589*^9, 3.521520294983717*^9}, {
  3.5219721206515408`*^9, 3.521972123168305*^9}, {3.525067776889872*^9, 
  3.525067805946702*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"463eb608-7de7-4ea4-a83b-400ff3adb764"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"R", "[", 
               OverscriptBox["\[Del]", "^"], "]"}], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "^"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciWeylCD[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
         Editable->False]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "^"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
         Editable->False], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "^"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciWeylCD[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
         Editable->False]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "^"], "]"}], 
           StyleBox[GridBox[{
              {"\[Eta]", " "},
              {" ", "\[Eta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciWeylCD[$CellContext`\[Eta], -$CellContext`\[Eta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511343887779567*^9, 3.511344080715205*^9, {3.511344161973784*^9, 
   3.511344187974133*^9}, 3.5114586730777483`*^9, 3.5114616356815*^9, 
   3.511503135113195*^9, 3.511503807656251*^9, 3.5115047671595097`*^9, 
   3.511505149163267*^9, 3.5115052278703737`*^9, 3.511506035902874*^9, 
   3.511508184885653*^9, 3.511591721009367*^9, 3.511596714984889*^9, 
   3.511630876756371*^9, 3.511631590975141*^9, 3.511723675696101*^9, 
   3.521274439948053*^9, 3.521276527168601*^9, 3.521277309413475*^9, 
   3.521277495066423*^9, 3.5212789245148983`*^9, 3.521366191807816*^9, 
   3.5213664561704493`*^9, 3.521370370513236*^9, 3.521440686055344*^9, 
   3.521440922921365*^9, 3.521455905816371*^9, 3.5214593779532833`*^9, 
   3.5215203397026243`*^9, {3.521520615077477*^9, 3.521520620747879*^9}, 
   3.52152301523276*^9, 3.521539062360285*^9, 3.521785484945179*^9, 
   3.5217973603474007`*^9, 3.5218039908789387`*^9, 3.521883305151721*^9, 
   3.521940296944706*^9, 3.521971089620656*^9, 3.5219714305837793`*^9, 
   3.5219714808646*^9, 3.5219715694116697`*^9, 3.521972123966857*^9, 
   3.521973958316444*^9, 3.5220291043994904`*^9, 3.524393969759926*^9, 
   3.524396320392089*^9, 3.524977867074871*^9, 3.524997220055562*^9, 
   3.525067806697908*^9, 3.5250707978297787`*^9, 3.5250720725947523`*^9, 
   3.525073230020986*^9, 3.525081024951277*^9, 3.525187138547182*^9, 
   3.525240247695114*^9, 3.5252439019303837`*^9, 3.525397530617426*^9, 
   3.525398675517661*^9, 3.525493464003199*^9, 3.525660867896099*^9, 
   3.525661911871861*^9, 3.5256629800937653`*^9, 3.525673278634644*^9, 
   3.545738869866232*^9, 3.545991130574594*^9, 3.545991472694201*^9, 
   3.5460001243606586`*^9, 3.546021356346065*^9, 3.546057616079358*^9, 
   3.546064586553174*^9, 3.5460911259775953`*^9, 3.546325600778305*^9, 
   3.54824733076902*^9, 3.5484045498723288`*^9, 3.548481248748774*^9, 
   3.548511427558366*^9, 3.5485258084930077`*^9, 3.5485678716858187`*^9, 
   3.548571055574458*^9, 3.548575008473525*^9, 3.5485915871835613`*^9, 
   3.548662093728877*^9, 3.5487001167476587`*^9, 3.548756250859734*^9, 
   3.548911242482677*^9, 3.548930607875821*^9, 3.548960796288048*^9, 
   3.549002178871611*^9, 3.549020862877556*^9, 3.5490435387462273`*^9, 
   3.549047026518317*^9, 3.549086272851706*^9, 3.549096270638564*^9, 
   3.549260303949937*^9, 3.5492729226666727`*^9, 3.5493050721799583`*^9, 
   3.549305289692444*^9, 3.549305798718748*^9, 3.5493588790011263`*^9, 
   3.549433146237694*^9, 3.549462311424459*^9, 3.5495402447006283`*^9, 
   3.5509215809144583`*^9, 3.550990713250353*^9, 3.550996420175191*^9, 
   3.550996588846107*^9, 3.555347189535164*^9, 3.557392097070558*^9, 
   3.557403146818583*^9, 3.557466458670661*^9, 3.557579374483301*^9, 
   3.55763572788756*^9, 3.558441137066658*^9, 3.5585498842765427`*^9, 
   3.560007737533684*^9, 3.5600443507045*^9, 3.5600444100105257`*^9, 
   3.560185495055326*^9, 3.5601862822082663`*^9, 3.560186355264058*^9, 
   3.560186505292109*^9, 3.5602228743842583`*^9, 3.560256419624539*^9, 
   3.560268926257226*^9, 3.56026992873587*^9, 3.560271413941346*^9, 
   3.5605162493666973`*^9, 3.560521597142254*^9, 3.560534286005*^9, 
   3.560535148006892*^9, 3.560842313805214*^9, 3.560844433572464*^9, 
   3.561176805085577*^9, 3.5612108442082357`*^9, 3.561269143199847*^9, 
   3.56127559427293*^9, 3.561276937655715*^9, 3.561302802629098*^9, 
   3.561305363802045*^9, 3.561308533952038*^9, 3.561308782820445*^9, {
   3.561360308807419*^9, 3.561360063175151*^9}, 3.728115019446198*^9, 
   3.731234873850541*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"f6bc5a24-904a-43f2-aac9-434951b2b16b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenWeyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5114616627467012`*^9, 3.511461663658821*^9}, {
  3.5115051562967863`*^9, 3.5115051584049683`*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"24b3cc57-c9ab-45b1-b1c9-400d8f741699"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"SchoutenWeyl", ",", 
    RowBox[{"RicciWeylCD", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.511461720243217*^9, 3.511461732694634*^9}, {
  3.511461778053605*^9, 3.511461809727141*^9}, {3.51150523474273*^9, 
  3.5115052590778027`*^9}, {3.5250678102802277`*^9, 3.5250678120740013`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"5afaaa2e-2a2b-43ef-967f-37be95488a22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "^"], "]"}], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"24", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"9", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", 
             OverscriptBox["\[Del]", "^"], "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciWeylCD[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False]}], "+", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", 
             OverscriptBox["\[Del]", "^"], "]"}], 
            StyleBox[GridBox[{
               {"\[Eta]", " "},
               {" ", "\[Eta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciWeylCD[$CellContext`\[Eta], -$CellContext`\[Eta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5114618011458893`*^9, 3.511461810200142*^9}, 
   3.511503135209548*^9, 3.51150380980721*^9, 3.511504767273178*^9, 
   3.5115052599913054`*^9, 3.511506040585931*^9, 3.5115081849041986`*^9, 
   3.511591721051449*^9, 3.5115967150264187`*^9, 3.51163087678071*^9, 
   3.5116315909967937`*^9, 3.511723675786333*^9, 3.521274444919797*^9, 
   3.5212765272577543`*^9, 3.521277309489953*^9, 3.521277495174905*^9, 
   3.5212789245346003`*^9, 3.5213661918296337`*^9, 3.5213664575746813`*^9, 
   3.521370370542428*^9, 3.521440686113253*^9, 3.521440923038598*^9, 
   3.521455905919091*^9, 3.521459380186131*^9, 3.521506981257185*^9, 
   3.521520622015266*^9, 3.521523015260141*^9, 3.521539062386464*^9, 
   3.521785484970005*^9, 3.521797360373188*^9, 3.521803990902499*^9, 
   3.521883305177763*^9, 3.5219402970197906`*^9, 3.521971089640139*^9, 
   3.521971430659727*^9, 3.5219714809505043`*^9, 3.521971569435822*^9, 
   3.521972127137699*^9, 3.52197395833823*^9, 3.5220291045473137`*^9, 
   3.524393969864415*^9, 3.524396320424961*^9, 3.524977867108179*^9, 
   3.524997220072998*^9, 3.525067812630988*^9, 3.525070797875823*^9, 
   3.525072072623356*^9, 3.5250732300496902`*^9, 3.5250810250162907`*^9, 
   3.5251871386363907`*^9, 3.525240247809753*^9, 3.525243901945516*^9, 
   3.525397530641273*^9, 3.5253986755529947`*^9, 3.525493464044602*^9, 
   3.525660867928644*^9, 3.5256619119048557`*^9, 3.525662980111782*^9, 
   3.525673278683559*^9, 3.545738869942848*^9, 3.545991130652032*^9, 
   3.545991472755896*^9, 3.546000124432014*^9, 3.546021356378344*^9, 
   3.546057616137529*^9, 3.546064586626088*^9, 3.546091126055788*^9, 
   3.546325600835524*^9, 3.548247330849773*^9, 3.548404549934884*^9, 
   3.548481248789214*^9, 3.548511427597231*^9, 3.5485258085271673`*^9, 
   3.548567871747603*^9, 3.548571055601791*^9, 3.548575008601432*^9, 
   3.5485915872227*^9, 3.54866209379125*^9, 3.548700116779578*^9, 
   3.5487562509137707`*^9, 3.54891124255733*^9, 3.5489306079392557`*^9, 
   3.54896079631712*^9, 3.5490021788997593`*^9, 3.549020862946013*^9, 
   3.54904353878132*^9, 3.549047026553996*^9, 3.549086272895636*^9, 
   3.549096270693974*^9, 3.549260304004332*^9, 3.54927292272318*^9, 
   3.5493050722138767`*^9, 3.549305289724658*^9, 3.549305798748117*^9, 
   3.549358879047181*^9, 3.54943314625519*^9, 3.549462311515617*^9, 
   3.549540244754776*^9, 3.550921580966564*^9, 3.550990713300723*^9, 
   3.5509964202267847`*^9, 3.550996588870101*^9, 3.555347189573927*^9, 
   3.557392097140439*^9, 3.557403146858172*^9, 3.557466458708613*^9, 
   3.557579374510599*^9, 3.557635727921364*^9, 3.5584411371106653`*^9, 
   3.5585498844186707`*^9, 3.5600077375779343`*^9, 3.560044350756937*^9, 
   3.560044410051676*^9, 3.5601854951146*^9, 3.560186282294384*^9, 
   3.560186355304525*^9, 3.560186505334684*^9, 3.560222874426034*^9, 
   3.560256419668818*^9, 3.560268926298697*^9, 3.5602699287712307`*^9, 
   3.5602714139802723`*^9, 3.5605162494078407`*^9, 3.5605215972471523`*^9, 
   3.56053428603799*^9, 3.560535148040106*^9, 3.560842313843522*^9, 
   3.560844433597024*^9, 3.561176805133904*^9, 3.5612108442558203`*^9, 
   3.561269143253462*^9, 3.5612755943239927`*^9, 3.561276937682953*^9, 
   3.561302802663287*^9, 3.5613053638932133`*^9, 3.561308534013629*^9, 
   3.5613087828745117`*^9, {3.5613603088667173`*^9, 3.561360063282009*^9}, 
   3.728115019467704*^9, 3.731234873880536*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"1b844d17-bc07-4268-b73e-a914c82ccedd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.511461811414134*^9, 3.511461816496049*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"8008ee9e-f3ed-43a0-8234-880a124e36b3"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"24", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"9", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "^"], "]"}], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciWeylCD[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "^"], "]"}], 
           StyleBox[GridBox[{
              {"\[Eta]", " "},
              {" ", "\[Eta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciWeylCD[$CellContext`\[Eta], -$CellContext`\[Eta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511461817468153*^9, 3.511503135299333*^9, 3.511503810358746*^9, 
   3.511504767321043*^9, 3.511505262188177*^9, 3.5115060412030888`*^9, 
   3.5115081849461184`*^9, 3.511591721088397*^9, 3.511596715061709*^9, 
   3.511630876799601*^9, 3.5116315910146303`*^9, 3.51172367583489*^9, 
   3.521274445998198*^9, 3.52127652735439*^9, 3.521277309535614*^9, 
   3.521277495184134*^9, 3.521278924597056*^9, 3.521366191915844*^9, 
   3.521366458213793*^9, 3.521370370587413*^9, 3.5214406862373123`*^9, 
   3.521440923105137*^9, 3.521455905956067*^9, 3.5214593813642483`*^9, 
   3.521506981383648*^9, 3.521520622594301*^9, 3.521523015280984*^9, 
   3.521539062408794*^9, 3.521785485045494*^9, 3.5217973604072857`*^9, 
   3.521803990922545*^9, 3.521883305197562*^9, 3.52194029703343*^9, 
   3.5219710896554317`*^9, 3.5219714306841908`*^9, 3.521971480979012*^9, 
   3.5219715694551067`*^9, 3.521972128286984*^9, 3.521973958355753*^9, 
   3.522029104564597*^9, 3.524393969875737*^9, 3.5243963204333057`*^9, 
   3.524977867138386*^9, 3.524997220084138*^9, 3.525067813544249*^9, 
   3.525070797913927*^9, 3.525072072654043*^9, 3.5250732300813847`*^9, 
   3.5250810250275717`*^9, 3.5251871387634*^9, 3.525240247837277*^9, 
   3.5252439019889507`*^9, 3.5253975306585913`*^9, 3.525398675581787*^9, 
   3.5254934640794888`*^9, 3.525660867957168*^9, 3.525661911936337*^9, 
   3.525662980124967*^9, 3.525673278737194*^9, 3.545738869989259*^9, 
   3.54599113066759*^9, 3.545991472784234*^9, 3.5460001244590693`*^9, 
   3.546021356392592*^9, 3.546057616198197*^9, 3.54606458667735*^9, 
   3.5460911260835247`*^9, 3.546325600861259*^9, 3.548247330870845*^9, 
   3.548404549949966*^9, 3.548481248826263*^9, 3.548511427638196*^9, 
   3.548525808548601*^9, 3.5485678717765017`*^9, 3.5485710556253157`*^9, 
   3.548575008632197*^9, 3.548591587263733*^9, 3.5486620938196983`*^9, 
   3.5487001169094057`*^9, 3.5487562509339933`*^9, 3.548911242593528*^9, 
   3.548930607981475*^9, 3.54896079633991*^9, 3.54900217892664*^9, 
   3.549020862976838*^9, 3.549043538823702*^9, 3.549047026588174*^9, 
   3.54908627293089*^9, 3.5490962707246943`*^9, 3.5492603040351963`*^9, 
   3.54927292277361*^9, 3.5493050722229424`*^9, 3.5493052897350283`*^9, 
   3.549305798769286*^9, 3.549358879065195*^9, 3.54943314626501*^9, 
   3.5494623115398273`*^9, 3.5495402447634487`*^9, 3.550921581009899*^9, 
   3.55099071331595*^9, 3.550996420270105*^9, 3.550996588886774*^9, 
   3.555347189605048*^9, 3.557392097163823*^9, 3.5574031468840446`*^9, 
   3.5574664587340403`*^9, 3.557579374533855*^9, 3.557635727977457*^9, 
   3.558441137142561*^9, 3.5585498844470882`*^9, 3.560007737614213*^9, 
   3.560044350795635*^9, 3.560044410085396*^9, 3.560185495154738*^9, 
   3.560186282328714*^9, 3.5601863553374023`*^9, 3.560186505372066*^9, 
   3.560222874455608*^9, 3.560256419704391*^9, 3.5602689263318043`*^9, 
   3.5602699287985086`*^9, 3.560271414010943*^9, 3.560516249440216*^9, 
   3.560521597283949*^9, 3.5605342860476637`*^9, 3.5605351480627623`*^9, 
   3.5608423138742733`*^9, 3.560844433625773*^9, 3.5611768051519947`*^9, 
   3.56121084434448*^9, 3.561269143286257*^9, 3.5612755943808117`*^9, 
   3.56127693769727*^9, 3.5613028027070513`*^9, 3.56130536394153*^9, 
   3.561308534029621*^9, 3.561308782926285*^9, {3.561360308903688*^9, 
   3.561360063315639*^9}, 3.728115019483951*^9, 3.731234873903593*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"dfd2dc9d-2004-40d6-951a-a731b35f0bc9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciWeylToSchoutenWeyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5114618465017147`*^9, 3.511461852078808*^9}, {
  3.511505270181293*^9, 3.511505278618685*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"ff2898b4-874c-475b-a907-9494cf30dd52"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Relation between the Weyl Schouten tensor and the unphysical Schouten tensor\
\>", "Subsubsection",
 CellChangeTimes->{{3.511505811037424*^9, 3.5115058313499928`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["SchoutenWeyl"], "Input",
 CellLabel->
  "In[135]:=",ExpressionUUID->"fd3369b3-e757-4e0f-a3e8-5e3626a29dcd"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"R", "[", 
               OverscriptBox["\[Del]", "^"], "]"}], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "^"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciWeylCD[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
         Editable->False]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "^"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciWeylCD[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
         Editable->False], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "^"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciWeylCD[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
         Editable->False]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "^"], "]"}], 
           StyleBox[GridBox[{
              {"\[Eta]", " "},
              {" ", "\[Eta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciWeylCD[$CellContext`\[Eta], -$CellContext`\[Eta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5115058599353313`*^9, 3.511505958066588*^9, 3.511506045130928*^9, 
   3.5115081947020597`*^9, 3.511591721101283*^9, 3.5115967150729856`*^9, 
   3.5116308768085957`*^9, 3.511631591115107*^9, 3.511723681823345*^9, 
   3.5212744577186127`*^9, 3.521276540634037*^9, 3.521277309593566*^9, 
   3.52127749527219*^9, 3.521278924612569*^9, 3.521366208911901*^9, 
   3.5213664658410997`*^9, 3.521370370626058*^9, 3.5214406864240007`*^9, 
   3.521440923120366*^9, 3.521455905965763*^9, 3.521459390876162*^9, 
   3.5215069873577642`*^9, 3.521520639790743*^9, 3.5215230153056107`*^9, 
   3.521539062454124*^9, 3.521785485080657*^9, 3.521797360433401*^9, 
   3.521803990946272*^9, 3.52188330644631*^9, 3.521940319756083*^9, 
   3.521971089675777*^9, 3.5219714307162457`*^9, 3.521971480990511*^9, 
   3.521971569538452*^9, 3.521972134305984*^9, 3.521973958379133*^9, 
   3.522029104841037*^9, 3.524393970932007*^9, 3.524396320446724*^9, 
   3.52497786717797*^9, 3.5249972201310253`*^9, 3.525067822651862*^9, 
   3.525070797951404*^9, 3.525072072734717*^9, 3.525073230118868*^9, 
   3.5250810250453*^9, 3.525187138792511*^9, 3.525240247870758*^9, 
   3.525243902085243*^9, 3.525397530684667*^9, 3.525398675640316*^9, 
   3.5254934641124973`*^9, 3.525660867995716*^9, 3.525661911967636*^9, 
   3.5256629801413307`*^9, 3.525673278757223*^9, 3.545738870057308*^9, 
   3.5459911307458143`*^9, 3.545991472844288*^9, 3.546000124492635*^9, 
   3.546021356461234*^9, 3.546057616226821*^9, 3.546064586706579*^9, 
   3.5460911261694317`*^9, 3.5463256009784946`*^9, 3.5482473309424562`*^9, 
   3.548404549982456*^9, 3.548481248841555*^9, 3.548511427677971*^9, 
   3.548525808563059*^9, 3.548567871790881*^9, 3.54857105564001*^9, 
   3.5485750086483088`*^9, 3.548591587287023*^9, 3.5486620938885736`*^9, 
   3.548700116951927*^9, 3.5487562509841957`*^9, 3.54891124261541*^9, 
   3.54893060802125*^9, 3.548960796355397*^9, 3.549002178945673*^9, 
   3.5490208630670853`*^9, 3.5490435388693027`*^9, 3.5490470266031437`*^9, 
   3.549086273029312*^9, 3.549096270807878*^9, 3.549260304058379*^9, 
   3.549272922826126*^9, 3.5493050722518806`*^9, 3.5493052897753696`*^9, 
   3.549305798782814*^9, 3.549358879111163*^9, 3.549433146294011*^9, 
   3.5494623115608788`*^9, 3.549540244798449*^9, 3.550921582991496*^9, 
   3.550990713365593*^9, 3.550996420328187*^9, 3.550996588942667*^9, 
   3.555347189625739*^9, 3.557392097203538*^9, 3.557403146899034*^9, 
   3.557466458749806*^9, 3.55757937454974*^9, 3.5576357279928837`*^9, 
   3.558441137210472*^9, 3.558549884507794*^9, 3.560007737640983*^9, 
   3.560044350844109*^9, 3.560044410108938*^9, 3.560185495203115*^9, 
   3.560186282391508*^9, 3.560186355359316*^9, 3.560186505443096*^9, 
   3.560222874482016*^9, 3.5602564197315807`*^9, 3.560268926353078*^9, 
   3.560269928823058*^9, 3.560271414032486*^9, 3.560516249483074*^9, 
   3.560521597305439*^9, 3.5605342860625753`*^9, 3.5605351480760527`*^9, 
   3.560842313902135*^9, 3.560844433663275*^9, 3.561176805199336*^9, 
   3.5612108443917837`*^9, 3.5612691433138027`*^9, 3.561275594404213*^9, 
   3.561276937739502*^9, 3.561302802743981*^9, 3.561305363993409*^9, 
   3.561308534078072*^9, 3.561308782956402*^9, {3.561360308931964*^9, 
   3.561360063359231*^9}, 3.72811501950775*^9, 3.731234874090433*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"8a1f76d6-fd97-48f3-a5bc-e5cffec7e48c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "RicciWeylToRicciUnphys"}]}]], "Input",
 CellChangeTimes->{{3.511505862858837*^9, 3.511505885194212*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"9b80fdd9-32b4-4ea3-b212-cabfb582a0f4"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "6"]}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "^"], "]"}], 
           StyleBox[GridBox[{
              {"\[Eta]", " "},
              {" ", "\[Eta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciWeylCD[$CellContext`\[Eta], -$CellContext`\[Eta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"R", "[", "\[Del]", "]"}], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         
         Editable->False], "+", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Gamma]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Gamma]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Delta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
          Editable->False]}], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Gamma]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Gamma]][
           $CellContext`\[ScriptF][$CellContext`\[Gamma]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Delta]][
           $CellContext`\[ScriptF][$CellContext`\[Delta]]],
          Editable->False]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
         
         Editable->False], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         
         Editable->False], "+", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Zeta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Zeta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Zeta]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[CurlyEpsilon]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
           $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Zeta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Zeta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Zeta]][
           $CellContext`\[ScriptF][$CellContext`\[Zeta]]],
          Editable->False]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511505886386115*^9, 3.511505958698073*^9, 3.511506046554763*^9, 
   3.511508194780534*^9, 3.511591721151416*^9, 3.511596715116983*^9, 
   3.511630876839485*^9, 3.5116315911328983`*^9, 3.511723681995907*^9, 
   3.521274459544704*^9, 3.521276540798835*^9, 3.5212773096495867`*^9, 
   3.521277495337737*^9, 3.5212789246867113`*^9, 3.5213662089952717`*^9, 
   3.521366466942493*^9, 3.521370370665579*^9, 3.5214406866337757`*^9, 
   3.521440923208662*^9, 3.521455905991723*^9, 3.521459392070178*^9, 
   3.5215069874006977`*^9, 3.521520640625455*^9, 3.521523015349435*^9, 
   3.521539062500869*^9, 3.5217854851939*^9, 3.521797360479988*^9, 
   3.521803990980814*^9, 3.521883306503427*^9, 3.521940319958954*^9, 
   3.52197108971025*^9, 3.521971430757711*^9, 3.521971481033224*^9, 
   3.52197156958992*^9, 3.5219721343771544`*^9, 3.5219739584147253`*^9, 
   3.522029104948092*^9, 3.524393971029983*^9, 3.524396320498402*^9, 
   3.524977867252286*^9, 3.524997220207678*^9, 3.52506782335574*^9, 
   3.5250707979923553`*^9, 3.525072072781945*^9, 3.525073230155611*^9, 
   3.5250810251263113`*^9, 3.525187138842834*^9, 3.525240247926199*^9, 
   3.525243902129159*^9, 3.525397530721107*^9, 3.525398675686556*^9, 
   3.5254934641586723`*^9, 3.5256608680745077`*^9, 3.52566191201882*^9, 
   3.525662980173036*^9, 3.525673278809518*^9, 3.545738870136951*^9, 
   3.5459911308276052`*^9, 3.5459914728938503`*^9, 3.546000124577828*^9, 
   3.546021356515461*^9, 3.5460576163014317`*^9, 3.54606458678723*^9, 
   3.546091126243259*^9, 3.5463256010977373`*^9, 3.548247331036223*^9, 
   3.5484045500550537`*^9, 3.548481248890585*^9, 3.548511427747364*^9, 
   3.548525808599956*^9, 3.548567871834137*^9, 3.548571055669639*^9, 
   3.5485750086926823`*^9, 3.548591587352612*^9, 3.548662093962777*^9, 
   3.548700117001569*^9, 3.548756251057667*^9, 3.548911242670801*^9, 
   3.5489306080796947`*^9, 3.548960796393443*^9, 3.549002178987338*^9, 
   3.549020863137432*^9, 3.5490435389161863`*^9, 3.549047026664475*^9, 
   3.54908627308643*^9, 3.549096270898851*^9, 3.549260304103713*^9, 
   3.549272922900096*^9, 3.549305072288553*^9, 3.549305289826002*^9, 
   3.549305798809638*^9, 3.549358879198049*^9, 3.54943314633162*^9, 
   3.5494623116693153`*^9, 3.549540244841366*^9, 3.550921583162986*^9, 
   3.550990713435562*^9, 3.550996420413282*^9, 3.550996589009622*^9, 
   3.555347189676745*^9, 3.557392097299716*^9, 3.5574031469416533`*^9, 
   3.557466458787674*^9, 3.5575793745879993`*^9, 3.5576357280355988`*^9, 
   3.558441137272069*^9, 3.5585498845643167`*^9, 3.560007737711883*^9, 
   3.560044350910475*^9, 3.56004441015871*^9, 3.5601854952582703`*^9, 
   3.560186282440916*^9, 3.5601863554080963`*^9, 3.5601865055122757`*^9, 
   3.560222874547263*^9, 3.560256419810903*^9, 3.560268926401932*^9, 
   3.560269928878544*^9, 3.560271414078657*^9, 3.56051624959717*^9, 
   3.560521597356093*^9, 3.560534286123852*^9, 3.560535148100502*^9, 
   3.560842313967565*^9, 3.560844433717334*^9, 3.5611768052658033`*^9, 
   3.5612108444443483`*^9, 3.5612691433801317`*^9, 3.5612755944833307`*^9, 
   3.5612769377967167`*^9, 3.561302802804476*^9, 3.561305364062316*^9, 
   3.561308534135872*^9, 3.5613087830292997`*^9, {3.561360309001914*^9, 
   3.561360063484687*^9}, 3.7281150195477743`*^9, 3.731234874139785*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"82326510-c403-4ba8-925a-f7f8820fc88d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
  "ApplyRuleN", "@", "RicciScalarWeylToRicciScalarUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.511505949406007*^9, 3.511505955016933*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"240d0e7a-1569-4726-bdd2-42f3f50d3b02"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"R", "[", "\[Del]", "]"}], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         
         Editable->False], "+", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Gamma]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Gamma]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Delta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
          Editable->False]}], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Gamma]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Gamma]][
           $CellContext`\[ScriptF][$CellContext`\[Gamma]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Delta]][
           $CellContext`\[ScriptF][$CellContext`\[Delta]]],
          Editable->False]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
         
         Editable->False], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         
         Editable->False], "+", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Zeta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Zeta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Zeta]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[CurlyEpsilon]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
           $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Zeta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Zeta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Zeta]][
           $CellContext`\[ScriptF][$CellContext`\[Zeta]]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{"R", "[", "\[Del]", "]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciScalarCDg[],
         Editable->False], "-", 
        RowBox[{"6", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Eta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Eta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Eta]],
          Editable->False]}], "-", 
        RowBox[{"6", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Eta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Eta]][
           $CellContext`\[ScriptF][$CellContext`\[Eta]]],
          Editable->False]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5115059594512863`*^9, 3.511506047877591*^9, 3.511508194840469*^9, 
   3.5115917212072906`*^9, 3.511596715159856*^9, 3.5116308768682528`*^9, 
   3.5116315911587877`*^9, 3.511723682089974*^9, 3.521274460532751*^9, 
   3.521276540887471*^9, 3.521277309744919*^9, 3.521277495397904*^9, 
   3.521278924711409*^9, 3.521366209021998*^9, 3.521366471065497*^9, 
   3.5213703707095003`*^9, 3.521440686952155*^9, 3.5214409233097677`*^9, 
   3.521455906016114*^9, 3.5214593955701447`*^9, 3.5215069874249277`*^9, 
   3.521520642493462*^9, 3.52152301539707*^9, 3.5215390625466127`*^9, 
   3.521785485299365*^9, 3.521797360528866*^9, 3.5218039910150337`*^9, 
   3.521883306545549*^9, 3.521940319995302*^9, 3.521971089746318*^9, 
   3.5219714307968283`*^9, 3.5219714810593567`*^9, 3.5219715696306763`*^9, 
   3.521972134419189*^9, 3.521973958448007*^9, 3.522029105156138*^9, 
   3.524393971071521*^9, 3.524396320547173*^9, 3.52497786729838*^9, 
   3.524997220284274*^9, 3.5250678239911213`*^9, 3.525070798049819*^9, 
   3.525072072823592*^9, 3.52507323021436*^9, 3.525081025200405*^9, 
   3.525187138889386*^9, 3.525240247974921*^9, 3.525243902176539*^9, 
   3.525397530754745*^9, 3.525398675734322*^9, 3.525493464222353*^9, 
   3.5256608681180553`*^9, 3.525661912066216*^9, 3.525662980203188*^9, 
   3.525673278888225*^9, 3.5457388703089037`*^9, 3.545991131029717*^9, 
   3.545991472966131*^9, 3.546000124646832*^9, 3.5460213565987253`*^9, 
   3.546057616366761*^9, 3.5460645868505697`*^9, 3.546091126345778*^9, 
   3.5463256012100058`*^9, 3.548247331123754*^9, 3.54840455014111*^9, 
   3.548481248935286*^9, 3.548511427837008*^9, 3.548525808639017*^9, 
   3.548567871878798*^9, 3.548571055696272*^9, 3.5485750087250967`*^9, 
   3.548591587409431*^9, 3.548662094046187*^9, 3.5487001170673313`*^9, 
   3.5487562511444693`*^9, 3.54891124273072*^9, 3.548930608168086*^9, 
   3.548960796431596*^9, 3.549002179026054*^9, 3.549020863189138*^9, 
   3.5490435389778214`*^9, 3.5490470267147293`*^9, 3.549086273177808*^9, 
   3.549096271000942*^9, 3.549260304165131*^9, 3.549272923001339*^9, 
   3.549305072337817*^9, 3.549305289886517*^9, 3.549305798839862*^9, 
   3.549358879284878*^9, 3.549433146386373*^9, 3.549462311746893*^9, 
   3.549540244905697*^9, 3.550921583196529*^9, 3.550990713505711*^9, 
   3.550996420500662*^9, 3.550996589046315*^9, 3.5553471897228203`*^9, 
   3.557392097394555*^9, 3.557403146984283*^9, 3.55746645883222*^9, 
   3.5575793746262817`*^9, 3.55763572807845*^9, 3.5584411373306103`*^9, 
   3.558549884650086*^9, 3.560007737782515*^9, 3.5600443509724493`*^9, 
   3.560044410207658*^9, 3.560185495311906*^9, 3.560186282500495*^9, 
   3.560186355455921*^9, 3.560186505573691*^9, 3.560222874621313*^9, 
   3.560256419890149*^9, 3.56026892645083*^9, 3.5602699289310503`*^9, 
   3.5602714141250763`*^9, 3.560516249683221*^9, 3.560521597409143*^9, 
   3.5605342861743937`*^9, 3.5605351481284447`*^9, 3.5608423140406027`*^9, 
   3.560844433768569*^9, 3.561176805348216*^9, 3.561210844509285*^9, 
   3.5612691434501057`*^9, 3.5612755946680727`*^9, 3.5612769378679047`*^9, 
   3.561302802863243*^9, 3.5613053641212606`*^9, 3.561308534192918*^9, 
   3.5613087831042433`*^9, {3.561360309072864*^9, 3.56136006356487*^9}, 
   3.728115019601829*^9, 3.7312348741851377`*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"b7a60166-e7b7-414d-a39f-ea964c00ae3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "RicciCDgToSchouten"}]}]], "Input",
 CellChangeTimes->{{3.511506073063998*^9, 3.511506077952672*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"930cf42b-3554-4055-8beb-d761515750ff"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "12"}], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"L", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Alpha]", "\[Beta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
             Editable->False]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox[
              RowBox[{"R", "[", "\[Del]", "]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`RicciScalarCDg[],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Alpha]", "\[Beta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
             Editable->False]}]}], ")"}]}], "+", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"12", " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"L", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Beta]", "\[Alpha]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
             Editable->False]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox[
              RowBox[{"R", "[", "\[Del]", "]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`RicciScalarCDg[],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Beta]", "\[Alpha]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
             Editable->False]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Gamma]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Gamma]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Delta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
          Editable->False]}], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Gamma]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Gamma]][
           $CellContext`\[ScriptF][$CellContext`\[Gamma]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Delta]][
           $CellContext`\[ScriptF][$CellContext`\[Delta]]],
          Editable->False]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"12", " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"L", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Alpha]", "\[Beta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
             Editable->False]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox[
              RowBox[{"R", "[", "\[Del]", "]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`RicciScalarCDg[],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Alpha]", "\[Beta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
             Editable->False]}]}], ")"}]}], "+", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"12", " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"L", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Beta]", "\[Alpha]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
             Editable->False]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox[
              RowBox[{"R", "[", "\[Del]", "]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`RicciScalarCDg[],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Beta]", "\[Alpha]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
             Editable->False]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Zeta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Zeta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Zeta]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Alpha]][
           $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
          Editable->False]}], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Beta]][
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[CurlyEpsilon]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[CurlyEpsilon]][
           $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Zeta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Zeta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Zeta]][
           $CellContext`\[ScriptF][$CellContext`\[Zeta]]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{"R", "[", "\[Del]", "]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciScalarCDg[],
         Editable->False], "-", 
        RowBox[{"6", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Eta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Eta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Eta]],
          Editable->False]}], "-", 
        RowBox[{"6", " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{
            SubscriptBox["\[Del]", "\[Eta]"], GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Eta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}]}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`CDg[-$CellContext`\[Eta]][
           $CellContext`\[ScriptF][$CellContext`\[Eta]]],
          Editable->False]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.51150607900134*^9, 3.5115081949689083`*^9, 3.511591721271523*^9, 
   3.511596715205011*^9, 3.5116308769041157`*^9, 3.5116315912540903`*^9, 
   3.5117236821349*^9, 3.521274463496217*^9, 3.521276540992511*^9, 
   3.521277309824072*^9, 3.521277495508522*^9, 3.52127892479035*^9, 
   3.521366209136894*^9, 3.521366471703862*^9, 3.5213703707458963`*^9, 
   3.5214406870267677`*^9, 3.521440923331498*^9, 3.521455906051876*^9, 
   3.5214593978133583`*^9, 3.521506987523341*^9, 3.521520643221772*^9, 
   3.521523015444998*^9, 3.5215390625994062`*^9, 3.521785485431542*^9, 
   3.521797360580141*^9, 3.521803991058517*^9, 3.521883306590954*^9, 
   3.52194032010868*^9, 3.521971089791154*^9, 3.521971430861627*^9, 
   3.521971481099167*^9, 3.5219715696591883`*^9, 3.5219721344881573`*^9, 
   3.521973958491849*^9, 3.522029105262432*^9, 3.5243939711189337`*^9, 
   3.524396320600656*^9, 3.524977867345063*^9, 3.524997220333149*^9, 
   3.525067824803685*^9, 3.525070798099237*^9, 3.525072072856307*^9, 
   3.525073230265662*^9, 3.525081025265901*^9, 3.525187138937929*^9, 
   3.525240248027536*^9, 3.525243902231106*^9, 3.525397530792058*^9, 
   3.525398675780409*^9, 3.5254934642801123`*^9, 3.525660868177896*^9, 
   3.525661912115588*^9, 3.525662980236918*^9, 3.5256732789666348`*^9, 
   3.545738870606035*^9, 3.5459911311431847`*^9, 3.545991473021145*^9, 
   3.546000124743598*^9, 3.5460213566819057`*^9, 3.546057616440621*^9, 
   3.546064586938558*^9, 3.546091126548018*^9, 3.546325601307651*^9, 
   3.5482473312786827`*^9, 3.548404550226584*^9, 3.548481249002524*^9, 
   3.5485114279093037`*^9, 3.5485258087230253`*^9, 3.548567871943328*^9, 
   3.548571055743718*^9, 3.548575008771891*^9, 3.548591587477296*^9, 
   3.548662094113385*^9, 3.5487001171458483`*^9, 3.548756251229505*^9, 
   3.548911242794487*^9, 3.548930608262244*^9, 3.548960796484028*^9, 
   3.549002179078442*^9, 3.549020863270885*^9, 3.549043539048809*^9, 
   3.549047026767075*^9, 3.5490862732408*^9, 3.5490962710872717`*^9, 
   3.549260304238456*^9, 3.549272923097315*^9, 3.549305072398266*^9, 
   3.549305289931376*^9, 3.5493057988797417`*^9, 3.5493588793795*^9, 
   3.549433146441236*^9, 3.549462311802348*^9, 3.549540244972801*^9, 
   3.550921583250622*^9, 3.550990713591877*^9, 3.550996420606759*^9, 
   3.5509965891046553`*^9, 3.555347189785441*^9, 3.557392097559124*^9, 
   3.5574031483809643`*^9, 3.557466458888948*^9, 3.557579374679982*^9, 
   3.557635728148176*^9, 3.558441137382099*^9, 3.558549884732638*^9, 
   3.5600077378697357`*^9, 3.560044351040935*^9, 3.560044410260764*^9, 
   3.560185495367488*^9, 3.560186282564746*^9, 3.560186355507489*^9, 
   3.560186505639678*^9, 3.560222874704528*^9, 3.560256419982439*^9, 
   3.5602689265140247`*^9, 3.560269928988578*^9, 3.560271414184723*^9, 
   3.560516249780555*^9, 3.560521597480536*^9, 3.56053428623594*^9, 
   3.560535148168079*^9, 3.5608423141403513`*^9, 3.560844433837368*^9, 
   3.5611768054201*^9, 3.5612108445780563`*^9, 3.56126914352265*^9, 
   3.5612755947377033`*^9, 3.561276937932982*^9, 3.56130280294969*^9, 
   3.5613053641921177`*^9, 3.5613085342984953`*^9, 3.561308783184416*^9, {
   3.5613603091482*^9, 3.56136006367983*^9}, 3.72811501964572*^9, 
   3.731234874229493*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"17016df9-d537-47ca-a1ee-05bc3de8bac9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.51150608346314*^9, 3.5115060898719473`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"a5c5b14b-556c-4064-851e-ffab78fc2852"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511506090589704*^9, 3.511508195062378*^9, 3.5115917213428173`*^9, 
   3.511596715264881*^9, 3.5116308769413433`*^9, 3.511631591293888*^9, 
   3.511723682271953*^9, 3.521274464421607*^9, 3.5212765411740093`*^9, 
   3.52127730985737*^9, 3.521277495580619*^9, 3.521278924863782*^9, 
   3.52136620925776*^9, 3.521366472487029*^9, 3.521370370781494*^9, 
   3.5214406871059303`*^9, 3.521440923360156*^9, 3.521455906150985*^9, 
   3.521459400335259*^9, 3.521506987700407*^9, 3.5215206439742737`*^9, 
   3.52152301550147*^9, 3.521539062647521*^9, 3.521785485480166*^9, 
   3.521797360641839*^9, 3.5218039911034603`*^9, 3.521883306633637*^9, 
   3.5219403202903633`*^9, 3.5219710898299637`*^9, 3.521971430910935*^9, 
   3.521971481143221*^9, 3.5219715697009687`*^9, 3.5219721345734453`*^9, 
   3.521973958538516*^9, 3.522029105342112*^9, 3.524393971163329*^9, 
   3.524396320674773*^9, 3.524977867399849*^9, 3.524997220376851*^9, 
   3.525067825594636*^9, 3.525070798159295*^9, 3.525072072910924*^9, 
   3.525073230312573*^9, 3.5250810253159513`*^9, 3.525187138982614*^9, 
   3.525240248077573*^9, 3.5252439022917147`*^9, 3.525397530836375*^9, 
   3.525398675835697*^9, 3.525493464346504*^9, 3.525660868232258*^9, 
   3.5256619121766653`*^9, 3.5256629802708*^9, 3.525673279050708*^9, 
   3.545738870737097*^9, 3.545991131253437*^9, 3.545991473106443*^9, 
   3.546000124838969*^9, 3.546021356763517*^9, 3.546057616542354*^9, 
   3.546064587009396*^9, 3.5460911267069483`*^9, 3.5463256013703413`*^9, 
   3.5482473313858147`*^9, 3.548404550274651*^9, 3.548481249039916*^9, 
   3.548511427960545*^9, 3.5485258087864227`*^9, 3.548567871997472*^9, 
   3.548571055799633*^9, 3.5485750088271427`*^9, 3.548591587548308*^9, 
   3.548662094175812*^9, 3.5487001172095118`*^9, 3.5487562513099413`*^9, 
   3.548911242847617*^9, 3.548930608323897*^9, 3.548960796539177*^9, 
   3.549002179173935*^9, 3.549020863371418*^9, 3.5490435391045837`*^9, 
   3.54904702682132*^9, 3.549086273311693*^9, 3.5490962711878643`*^9, 
   3.549260304299821*^9, 3.5492729231784153`*^9, 3.549305072454236*^9, 
   3.5493052899861193`*^9, 3.549305798938777*^9, 3.5493588794438133`*^9, 
   3.5494331464813757`*^9, 3.5494623118540497`*^9, 3.5495402450394917`*^9, 
   3.550921583299323*^9, 3.550990713642766*^9, 3.550996420662619*^9, 
   3.5509965891800623`*^9, 3.555347189840597*^9, 3.557392097635619*^9, 
   3.5574031484912767`*^9, 3.557466458939878*^9, 3.5575793747416677`*^9, 
   3.55763572820968*^9, 3.5584411374544067`*^9, 3.558549884805068*^9, 
   3.560007737945264*^9, 3.5600443511189947`*^9, 3.560044410334259*^9, 
   3.560185495440864*^9, 3.560186282639629*^9, 3.560186355579281*^9, 
   3.560186505769861*^9, 3.560222874776452*^9, 3.560256420060809*^9, 
   3.560268926569262*^9, 3.560269929055235*^9, 3.5602714142543364`*^9, 
   3.5605162498555613`*^9, 3.5605215976018753`*^9, 3.560534286291439*^9, 
   3.5605351482147837`*^9, 3.5608423142114153`*^9, 3.560844433935368*^9, 
   3.561176805492391*^9, 3.5612108446349297`*^9, 3.561269143601886*^9, 
   3.561275594815748*^9, 3.5612769380085163`*^9, 3.561302803051569*^9, 
   3.561305364284487*^9, 3.561308534389948*^9, 3.561308783272048*^9, {
   3.5613603092276373`*^9, 3.561360063756412*^9}, 3.7281150196877737`*^9, 
   3.731234874268371*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"c3c9fb90-9dfd-44eb-9d77-adb0187a451e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenWeylToSchoutenUnphysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511506717428516*^9, 3.51150672579676*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"8b659ce1-8167-4c08-a450-347ad9db2fa9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"SchoutenWeylToSchoutenUnphysical", ",", 
    RowBox[{"LUnphysg", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.5212779458113832`*^9, 3.521278002957251*^9}, {
  3.525067831173992*^9, 3.5250678339920464`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"16f8efc2-272b-4d06-b081-feb94fe61516"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Beta]][
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
        Editable->False]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.521277943792615*^9, {3.5212779984639673`*^9, 3.521278010793132*^9}, 
   3.521278925039542*^9, 3.521366209516732*^9, 3.52136682849891*^9, 
   3.521370370909033*^9, 3.521440687509948*^9, 3.521440923683466*^9, 
   3.521455906270471*^9, 3.5214599273865747`*^9, 3.521506987999447*^9, 
   3.521520663401868*^9, 3.521523015530406*^9, 3.521539062687235*^9, 
   3.521785485560061*^9, 3.5217973607362022`*^9, 3.5218039911470327`*^9, 
   3.521883306659184*^9, 3.521940320488318*^9, 3.5219710898596277`*^9, 
   3.521971430939539*^9, 3.5219714811727037`*^9, 3.521971569731045*^9, 
   3.5219721346502037`*^9, 3.521973958601466*^9, 3.522029105457485*^9, 
   3.52439397123802*^9, 3.524396320725831*^9, 3.5249778674377604`*^9, 
   3.524997220436097*^9, 3.525067834520481*^9, 3.5250707982036753`*^9, 
   3.525072072938006*^9, 3.525073230344132*^9, 3.525081025376976*^9, 
   3.5251871390897503`*^9, 3.525240248108382*^9, 3.525243902351693*^9, 
   3.525397530868167*^9, 3.52539867587392*^9, 3.525493464380988*^9, 
   3.525660868270125*^9, 3.525661912218741*^9, 3.525662980291155*^9, 
   3.525673279109044*^9, 3.545738870846951*^9, 3.5459911313316174`*^9, 
   3.545991473164413*^9, 3.546000124914503*^9, 3.546021356896223*^9, 
   3.546057616597423*^9, 3.5460645870832043`*^9, 3.546091126867942*^9, 
   3.546325601487711*^9, 3.548247331456564*^9, 3.5484045503035192`*^9, 
   3.548481249080037*^9, 3.54851142802532*^9, 3.548525808819529*^9, 
   3.548567872037973*^9, 3.548571055845887*^9, 3.548575008863516*^9, 
   3.5485915876188393`*^9, 3.548662094251299*^9, 3.548700117281664*^9, 
   3.548756251354309*^9, 3.5489112428998632`*^9, 3.548930608378438*^9, 
   3.548960796577636*^9, 3.549002179217955*^9, 3.549020863425062*^9, 
   3.549043539143237*^9, 3.549047026887391*^9, 3.549086273376734*^9, 
   3.549096271277526*^9, 3.549260304343299*^9, 3.549272923318202*^9, 
   3.549305072486453*^9, 3.549305290022183*^9, 3.549305798968721*^9, 
   3.54935887949965*^9, 3.549433146513897*^9, 3.549462311904152*^9, 
   3.549540245079653*^9, 3.5509215833442087`*^9, 3.5509907137193203`*^9, 
   3.550996420783792*^9, 3.550996589276084*^9, 3.5553471898928022`*^9, 
   3.557392097704508*^9, 3.557403148534381*^9, 3.557466459032435*^9, 
   3.557579374787846*^9, 3.557635728254167*^9, 3.5584411374994373`*^9, 
   3.558549884862571*^9, 3.560007737993819*^9, 3.5600443511673603`*^9, 
   3.560044410392509*^9, 3.560185495502965*^9, 3.560186282718647*^9, 
   3.560186355623748*^9, 3.560186505850956*^9, 3.560222874827577*^9, 
   3.560256420110154*^9, 3.56026892661355*^9, 3.560269929091432*^9, 
   3.5602714142951603`*^9, 3.560516249920575*^9, 3.560521597643343*^9, 
   3.560534286332995*^9, 3.560535148263936*^9, 3.5608423142546473`*^9, 
   3.560844433986652*^9, 3.561176805538678*^9, 3.561210844818603*^9, 
   3.5612691437410383`*^9, 3.561275594905751*^9, 3.561276938065133*^9, 
   3.561302803486497*^9, 3.561305364388908*^9, 3.5613085345203457`*^9, 
   3.561308783337883*^9, {3.561360309277927*^9, 3.561360063802516*^9}, 
   3.728115019713608*^9, 3.7312348742962103`*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"7d66ee04-2e98-4be1-bdc0-6c70739d0d09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.521278005144258*^9, 3.5212780133946733`*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"32881e74-8271-4c17-b25d-f2fd5d83be06"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Gamma]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.521278008523706*^9, 3.5212780142955103`*^9}, 
   3.521278925111216*^9, 3.521366209626952*^9, 3.5213668293782253`*^9, 
   3.5213703709328938`*^9, 3.5214406875211067`*^9, 3.5214409237698097`*^9, 
   3.52145590629852*^9, 3.521459929886375*^9, 3.521506988080665*^9, 
   3.5215206647494297`*^9, 3.521523015556377*^9, 3.521539062711783*^9, 
   3.521785485576581*^9, 3.5217973607653723`*^9, 3.521803991171081*^9, 
   3.521883306681612*^9, 3.5219403206684628`*^9, 3.521971089876874*^9, 
   3.521971430961576*^9, 3.521971481195017*^9, 3.5219715697515707`*^9, 
   3.521972134714706*^9, 3.521973958638013*^9, 3.52202910553331*^9, 
   3.5243939712831306`*^9, 3.5243963207598457`*^9, 3.524977867470457*^9, 
   3.524997220480605*^9, 3.525067835330186*^9, 3.5250707982434673`*^9, 
   3.525072072970524*^9, 3.52507323037085*^9, 3.525081025426588*^9, 
   3.525187139113285*^9, 3.5252402481309*^9, 3.5252439023918858`*^9, 
   3.525397530911058*^9, 3.525398675906075*^9, 3.525493464413275*^9, 
   3.525660868297324*^9, 3.525661912247452*^9, 3.525662980344651*^9, 
   3.525673279155499*^9, 3.545738870865335*^9, 3.545991131492877*^9, 
   3.545991473200952*^9, 3.54600012494151*^9, 3.546021356938901*^9, 
   3.546057616660941*^9, 3.546064587105545*^9, 3.546091126932353*^9, 
   3.546325601510058*^9, 3.548247331521617*^9, 3.548404550344174*^9, 
   3.54848124910989*^9, 3.5485114280566397`*^9, 3.5485258088503933`*^9, 
   3.548567872077752*^9, 3.548571055873415*^9, 3.548575008896736*^9, 
   3.548591587637045*^9, 3.548662094277149*^9, 3.5487001173100758`*^9, 
   3.548756251371406*^9, 3.548911242932296*^9, 3.548930608413794*^9, 
   3.548960796607047*^9, 3.549002179241357*^9, 3.549020863445797*^9, 
   3.549043539176935*^9, 3.5490470269142923`*^9, 3.54908627342514*^9, 
   3.5490962713226624`*^9, 3.549260304386429*^9, 3.54927292341745*^9, 
   3.549305072512754*^9, 3.54930529003231*^9, 3.549305799008829*^9, 
   3.549358879541587*^9, 3.5494331465512047`*^9, 3.5494623119321003`*^9, 
   3.549540245116151*^9, 3.5509215833812227`*^9, 3.5509907137660713`*^9, 
   3.550996420825375*^9, 3.550996589290456*^9, 3.555347189924026*^9, 
   3.557392097755438*^9, 3.55740314856358*^9, 3.557466459060276*^9, 
   3.557579374814569*^9, 3.5576357282869377`*^9, 3.558441137536413*^9, 
   3.5585498848925667`*^9, 3.560007738031452*^9, 3.56004435120682*^9, 
   3.56004441042696*^9, 3.5601854955301237`*^9, 3.560186282756749*^9, 
   3.560186355657514*^9, 3.560186505887012*^9, 3.560222874875362*^9, 
   3.5602564201483173`*^9, 3.560268926647604*^9, 3.560269929123599*^9, 
   3.560271414325973*^9, 3.560516249954761*^9, 3.560521597661038*^9, 
   3.5605342863631277`*^9, 3.56053514828911*^9, 3.560842314286434*^9, 
   3.56084443401538*^9, 3.5611768055727987`*^9, 3.561210844858906*^9, 
   3.5612691437897167`*^9, 3.561275594958125*^9, 3.5612769381446133`*^9, 
   3.561302803579879*^9, 3.5613053644355164`*^9, 3.561308534567816*^9, 
   3.561308783381422*^9, {3.561360309317975*^9, 3.561360063856079*^9}, 
   3.728115019732745*^9, 3.7312348743194427`*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"cca40201-f4af-4cd5-9b97-f817e174a669"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.521278234656724*^9, 3.521278249587607*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"3087ed27-7f25-4a94-b513-bf95ef0f3359"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Gamma]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          InterpretationBox[
           StyleBox[GridBox[{
              {
               RowBox[{"\[CapitalGamma]", "[", 
                RowBox[{"\[Del]", ",", 
                 OverscriptBox["\[Del]", "^"]}], "]"}], 
               StyleBox[GridBox[{
                  {"\[Delta]", " ", " "},
                  {" ", "\[Beta]", "\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[Alpha]],
           Editable->False]}], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.521278250821679*^9, 3.5212789251533127`*^9, 3.521366209737204*^9, 
   3.521366830114214*^9, 3.521370370958929*^9, 3.521440687594301*^9, 
   3.521440923850108*^9, 3.5214559065205717`*^9, 3.521459935759801*^9, 
   3.5215069881636744`*^9, 3.521520669087016*^9, 3.521523015583373*^9, 
   3.5215390627376127`*^9, 3.521785485596363*^9, 3.521797360792326*^9, 
   3.5218039911952343`*^9, 3.521883306706162*^9, 3.521940320913563*^9, 
   3.521971089895997*^9, 3.52197143098694*^9, 3.5219714812153482`*^9, 
   3.521971569778719*^9, 3.521972134789056*^9, 3.521973958683906*^9, 
   3.522029105643417*^9, 3.524393971324308*^9, 3.524396320796042*^9, 
   3.524977867501203*^9, 3.5249972205261*^9, 3.525067836055187*^9, 
   3.52507079827995*^9, 3.525072072996036*^9, 3.5250732303985023`*^9, 
   3.525081025480156*^9, 3.52518713913962*^9, 3.525240248160927*^9, 
   3.5252439024064407`*^9, 3.525397530932876*^9, 3.52539867594236*^9, 
   3.525493464468462*^9, 3.525660868354537*^9, 3.525661912281128*^9, 
   3.5256629803630867`*^9, 3.525673279203978*^9, 3.54573887088728*^9, 
   3.5459911315789824`*^9, 3.545991473267411*^9, 3.5460001250072403`*^9, 
   3.546021356959577*^9, 3.546057616709279*^9, 3.546064587131939*^9, 
   3.546091127002948*^9, 3.546325601582444*^9, 3.54824733154948*^9, 
   3.548404550448649*^9, 3.548481249148841*^9, 3.548511428081766*^9, 
   3.548525808877872*^9, 3.548567872091013*^9, 3.5485710559029303`*^9, 
   3.548575008923462*^9, 3.548591587658497*^9, 3.5486620943389883`*^9, 
   3.5487001173494062`*^9, 3.548756251416457*^9, 3.548911242983719*^9, 
   3.5489306084582577`*^9, 3.548960796635723*^9, 3.549002179266988*^9, 
   3.549020863469853*^9, 3.549043539215126*^9, 3.549047026943479*^9, 
   3.5490862734654903`*^9, 3.549096271385536*^9, 3.549260304425658*^9, 
   3.549272923465312*^9, 3.549305072539815*^9, 3.549305290057691*^9, 
   3.549305799052279*^9, 3.549358879582178*^9, 3.5494331465803823`*^9, 
   3.549462311960842*^9, 3.549540245152645*^9, 3.5509215834143953`*^9, 
   3.550990713816058*^9, 3.550996420869019*^9, 3.550996589331402*^9, 
   3.555347189957741*^9, 3.5573920979903107`*^9, 3.5574031485969067`*^9, 
   3.5574664591057568`*^9, 3.557579374840479*^9, 3.557635728323586*^9, 
   3.558441137574312*^9, 3.558549884922409*^9, 3.560007738104533*^9, 
   3.560044351247671*^9, 3.560044410465147*^9, 3.5601854955716248`*^9, 
   3.56018628289121*^9, 3.560186355708679*^9, 3.5601865059274073`*^9, 
   3.5602228749194202`*^9, 3.560256420190826*^9, 3.560268926684808*^9, 
   3.560269929154929*^9, 3.5602714143598003`*^9, 3.5605162499768476`*^9, 
   3.560521597701765*^9, 3.560534286394436*^9, 3.560535148314439*^9, 
   3.560842314322456*^9, 3.560844434049176*^9, 3.561176805618712*^9, 
   3.5612108449020557`*^9, 3.561269143833502*^9, 3.5612755949816847`*^9, 
   3.561276938180461*^9, 3.561302803627141*^9, 3.561305364464388*^9, 
   3.5613085346116867`*^9, 3.561308783424889*^9, {3.561360309376258*^9, 
   3.561360063915546*^9}, 3.728115019754848*^9, 3.731234874477477*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"8ed791df-17f9-424a-9767-d09521c2f862"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.5212778711517353`*^9, 3.521277875529296*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"80d7b76d-bcc1-4967-914c-d2c16859337c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Gamma]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
                 {"\[Beta]", "\[Alpha]", " ", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\
\[Alpha], $CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.52127827067761*^9, 3.521278925177988*^9, 3.521366209805966*^9, 
   3.521366830754094*^9, 3.521370370983014*^9, 3.52144068766438*^9, 
   3.5214409239637747`*^9, 3.5214559065503597`*^9, 3.5214599407563047`*^9, 
   3.521506988244266*^9, 3.5215206698935347`*^9, 3.5215230156143436`*^9, 
   3.5215390627798777`*^9, 3.52178548568198*^9, 3.521797360830304*^9, 
   3.5218039912287807`*^9, 3.521883306735796*^9, 3.521940321115984*^9, 
   3.521971089919602*^9, 3.52197143101339*^9, 3.521971481261744*^9, 
   3.521971569830316*^9, 3.521972134841737*^9, 3.5219739587209387`*^9, 
   3.522029105673435*^9, 3.524393971376561*^9, 3.5243963208212967`*^9, 
   3.524977867529956*^9, 3.524997220586342*^9, 3.525067836795168*^9, 
   3.52507079832549*^9, 3.525072073029785*^9, 3.525073230433323*^9, 
   3.525081025534474*^9, 3.5251871391749477`*^9, 3.525240248285034*^9, 
   3.5252439024486*^9, 3.525397530965115*^9, 3.525398675978655*^9, 
   3.525493464513423*^9, 3.525660868383671*^9, 3.5256619123219423`*^9, 
   3.525662980385866*^9, 3.525673279295432*^9, 3.5457388709158363`*^9, 
   3.5459911316535273`*^9, 3.545991473356737*^9, 3.546000125075498*^9, 
   3.546021356987245*^9, 3.546057616785326*^9, 3.546064587198926*^9, 
   3.5460911271108103`*^9, 3.5463256016756153`*^9, 3.548247331577551*^9, 
   3.548404550588757*^9, 3.548481249188129*^9, 3.548511428196539*^9, 
   3.548525808910389*^9, 3.5485678721296577`*^9, 3.548571055926552*^9, 
   3.548575008966894*^9, 3.5485915876862917`*^9, 3.548662094395432*^9, 
   3.548700117412228*^9, 3.5487562514565897`*^9, 3.5489112430368834`*^9, 
   3.54893060851404*^9, 3.548960796668152*^9, 3.549002179300151*^9, 
   3.54902086350032*^9, 3.549043539257996*^9, 3.549047026983173*^9, 
   3.549086273506895*^9, 3.549096271451084*^9, 3.549260304476801*^9, 
   3.5492729235285254`*^9, 3.549305072576655*^9, 3.5493052900859203`*^9, 
   3.54930579908786*^9, 3.549358879632642*^9, 3.549433146612575*^9, 
   3.549462312005549*^9, 3.549540245196001*^9, 3.550921583456435*^9, 
   3.550990713865863*^9, 3.5509964209171133`*^9, 3.5509965893981*^9, 
   3.555347189998823*^9, 3.557392098075302*^9, 3.5574031486352797`*^9, 
   3.55746645915133*^9, 3.557579374883831*^9, 3.557635728363599*^9, 
   3.558441137632017*^9, 3.5585498849632673`*^9, 3.560007738154162*^9, 
   3.560044351292014*^9, 3.560044410510462*^9, 3.5601854956242237`*^9, 
   3.560186282931899*^9, 3.560186355746702*^9, 3.560186505971311*^9, 
   3.56022287496076*^9, 3.560256420241197*^9, 3.560268926728993*^9, 
   3.560269929193204*^9, 3.5602714144012823`*^9, 3.560516250005088*^9, 
   3.560521597750037*^9, 3.5605342864345627`*^9, 3.56053514834651*^9, 
   3.560842314366488*^9, 3.560844434088935*^9, 3.561176805664946*^9, 
   3.5612108449785643`*^9, 3.5612691439539633`*^9, 3.561275595023258*^9, 
   3.561276938224753*^9, 3.56130280368664*^9, 3.5613053645133533`*^9, 
   3.561308534666341*^9, 3.561308783490176*^9, {3.5613603094365873`*^9, 
   3.561360063962741*^9}, 3.728115019781101*^9, 3.731234874505698*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"281fc29c-b7b6-4682-84c8-c056f8b000ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521278277487193*^9, 3.521278286611147*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"f5b9898e-5e4c-4d2c-81e0-d58a8e2bc021"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5212782877431927`*^9, 3.521278925212329*^9, 3.521366209933235*^9, 
   3.521366831369664*^9, 3.521370371026428*^9, 3.5214406877655697`*^9, 
   3.521440924050394*^9, 3.521455906586437*^9, 3.52145994330696*^9, 
   3.521506988292789*^9, 3.52152067122276*^9, 3.52152301565877*^9, 
   3.5215390628189917`*^9, 3.521785485720724*^9, 3.521797360856448*^9, 
   3.521803991272953*^9, 3.521883306776781*^9, 3.5219403212229156`*^9, 
   3.521971089957971*^9, 3.5219714310455*^9, 3.5219714812864532`*^9, 
   3.521971569866*^9, 3.5219721349148083`*^9, 3.521973958757964*^9, 
   3.522029105785172*^9, 3.524393971438398*^9, 3.524396320870928*^9, 
   3.524977867573042*^9, 3.5249972206409607`*^9, 3.525067837563149*^9, 
   3.525070798380681*^9, 3.525072073070693*^9, 3.525073230481621*^9, 
   3.525081025640864*^9, 3.5251871392220783`*^9, 3.525240248310336*^9, 
   3.5252439024905376`*^9, 3.525397530999014*^9, 3.525398676050703*^9, 
   3.52549346455774*^9, 3.5256608684296417`*^9, 3.525661912365678*^9, 
   3.525662980418631*^9, 3.525673279360119*^9, 3.545738870952984*^9, 
   3.54599113178966*^9, 3.545991473416073*^9, 3.546000125158434*^9, 
   3.5460213570702133`*^9, 3.546057616855213*^9, 3.546064587282763*^9, 
   3.5460911272849283`*^9, 3.546325601769725*^9, 3.548247331615458*^9, 
   3.548404550643998*^9, 3.54848124924187*^9, 3.5485114282662888`*^9, 
   3.548525808948906*^9, 3.548567872177957*^9, 3.5485710559640636`*^9, 
   3.5485750089928017`*^9, 3.548591587740985*^9, 3.5486620944614897`*^9, 
   3.548700117469185*^9, 3.548756251520688*^9, 3.548911243089555*^9, 
   3.548930608563039*^9, 3.548960796716189*^9, 3.549002179339397*^9, 
   3.5490208635546494`*^9, 3.549043539313826*^9, 3.549047027053204*^9, 
   3.549086273554742*^9, 3.549096271503296*^9, 3.5492603045276327`*^9, 
   3.5492729235818768`*^9, 3.549305072635559*^9, 3.5493052901250153`*^9, 
   3.5493057991241703`*^9, 3.549358879726116*^9, 3.549433146652412*^9, 
   3.549462312051556*^9, 3.5495402452464657`*^9, 3.550921583518217*^9, 
   3.550990713903558*^9, 3.550996420954854*^9, 3.550996589469469*^9, 
   3.555347190055874*^9, 3.5573920981901608`*^9, 3.55740314866669*^9, 
   3.557466459197101*^9, 3.5575793749243813`*^9, 3.5576357284147043`*^9, 
   3.558441137687283*^9, 3.558549885015809*^9, 3.560007738214672*^9, 
   3.560044351351879*^9, 3.5600444105682497`*^9, 3.560185495710738*^9, 
   3.560186282988782*^9, 3.5601863558019047`*^9, 3.560186506026787*^9, 
   3.560222875015236*^9, 3.560256420333645*^9, 3.560268926784418*^9, 
   3.560269929243705*^9, 3.560271414453617*^9, 3.560516250041852*^9, 
   3.560521597813402*^9, 3.560534286484125*^9, 3.560535148390561*^9, 
   3.560842314421625*^9, 3.560844434140008*^9, 3.561176805729513*^9, 
   3.561210845047286*^9, 3.561269144018147*^9, 3.561275595117826*^9, 
   3.56127693829591*^9, 3.561302803745335*^9, 3.56130536458257*^9, 
   3.5613085347163486`*^9, 3.561308783555553*^9, {3.561360309501053*^9, 
   3.561360064026688*^9}, 3.728115019811584*^9, 3.731234874536347*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"f8f2c102-2101-4ff8-a909-7b78be90fb05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.521520807166448*^9, 3.52152081251513*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"a6c1f99e-3510-436c-9dc8-a20256cef309"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521520815656082*^9, 3.521520892521117*^9, 3.5215230157056227`*^9, 
   3.521539062847623*^9, 3.521785485764184*^9, 3.521797360898419*^9, 
   3.521803991307667*^9, 3.521883306814879*^9, 3.521940321420185*^9, 
   3.521971089987195*^9, 3.5219714310848846`*^9, 3.521971481324532*^9, 
   3.521971569905821*^9, 3.521972134989437*^9, 3.5219739588023243`*^9, 
   3.522029105949959*^9, 3.5243939714736433`*^9, 3.524396320928718*^9, 
   3.524977867619214*^9, 3.524997220717374*^9, 3.525067838311172*^9, 
   3.525070798430829*^9, 3.525072073110094*^9, 3.525073230533194*^9, 
   3.525081025728428*^9, 3.5251871392661877`*^9, 3.525240248353838*^9, 
   3.5252439025617313`*^9, 3.525397531033568*^9, 3.5253986761017942`*^9, 
   3.525493464606785*^9, 3.525660868479792*^9, 3.525661912420988*^9, 
   3.52566298045043*^9, 3.5256732794281807`*^9, 3.5457388710328693`*^9, 
   3.545991131871715*^9, 3.545991473470949*^9, 3.546000125246482*^9, 
   3.5460213571132097`*^9, 3.546057616912499*^9, 3.5460645874137*^9, 
   3.546091127378227*^9, 3.546325601872796*^9, 3.54824733168211*^9, 
   3.548404550686235*^9, 3.54848124927951*^9, 3.5485114283444223`*^9, 
   3.548525808980586*^9, 3.548567872231435*^9, 3.548571056006979*^9, 
   3.548575009038191*^9, 3.548591587783245*^9, 3.5486620946049747`*^9, 
   3.5487001175271063`*^9, 3.5487562515981092`*^9, 3.5489112431492567`*^9, 
   3.548930608619561*^9, 3.548960796767572*^9, 3.5490021793705597`*^9, 
   3.5490208636597767`*^9, 3.5490435393617773`*^9, 3.549047027095866*^9, 
   3.5490862736080112`*^9, 3.549096271561842*^9, 3.54926030461082*^9, 
   3.5492729236487637`*^9, 3.549305072679034*^9, 3.54930529017017*^9, 
   3.5493057991765413`*^9, 3.549358879805431*^9, 3.5494331466996927`*^9, 
   3.549462312099399*^9, 3.549540245296432*^9, 3.5509215835560427`*^9, 
   3.550990713960968*^9, 3.550996420998455*^9, 3.550996589537142*^9, 
   3.555347190098176*^9, 3.557392098285029*^9, 3.557403148717594*^9, 
   3.557466459246276*^9, 3.557579374976396*^9, 3.5576357284644938`*^9, 
   3.558441137746228*^9, 3.558549885066348*^9, 3.560007738282426*^9, 
   3.560044351415245*^9, 3.5600444106276207`*^9, 3.560185495773686*^9, 
   3.560186283048962*^9, 3.5601863558605003`*^9, 3.5601865060855083`*^9, 
   3.560222875077909*^9, 3.560256420402338*^9, 3.560268926829638*^9, 
   3.560269929303357*^9, 3.560271414495357*^9, 3.5605162501035833`*^9, 
   3.56052159787306*^9, 3.560534286535635*^9, 3.560535148441002*^9, 
   3.5608423144723377`*^9, 3.56084443419494*^9, 3.56117680579445*^9, 
   3.561210845150219*^9, 3.561269144086941*^9, 3.56127559520227*^9, 
   3.56127693834628*^9, 3.561302803829194*^9, 3.5613053646488733`*^9, 
   3.561308534782221*^9, 3.56130878361205*^9, {3.5613603095717497`*^9, 
   3.561360064110557*^9}, 3.728115019846428*^9, 3.7312348745675087`*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"e37a59e1-1d08-437d-8dec-8b33c3a4aac5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.52152081808221*^9, 3.521520827438652*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"9034d22e-02b0-4002-987a-c1570089aa7e"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5215208930721416`*^9, 3.5215230157410803`*^9, 3.521539062905545*^9, 
   3.521785485854865*^9, 3.521797360938573*^9, 3.521803991356038*^9, 
   3.521883306867956*^9, 3.521940321563877*^9, 3.521971090006628*^9, 
   3.521971431169292*^9, 3.521971481360684*^9, 3.5219715699287024`*^9, 
   3.521972135068218*^9, 3.521973958837584*^9, 3.522029106126753*^9, 
   3.524393971534278*^9, 3.5243963209811087`*^9, 3.524977867659882*^9, 
   3.524997220776869*^9, 3.5250678389906063`*^9, 3.525070798476479*^9, 
   3.525072073161553*^9, 3.525073230580014*^9, 3.52508102579557*^9, 
   3.525187139309475*^9, 3.5252402483854647`*^9, 3.525243902612227*^9, 
   3.5253975310710373`*^9, 3.525398676146434*^9, 3.525493464653949*^9, 
   3.525660868522504*^9, 3.525661912486093*^9, 3.5256629804811363`*^9, 
   3.525673279492538*^9, 3.545738871069778*^9, 3.545991132131393*^9, 
   3.545991473521739*^9, 3.5460001253277617`*^9, 3.5460213572164507`*^9, 
   3.546057616987013*^9, 3.5460645875102053`*^9, 3.546091127503459*^9, 
   3.546325601952607*^9, 3.548247331759605*^9, 3.5484045507192783`*^9, 
   3.548481249328739*^9, 3.548511428408655*^9, 3.5485258090197*^9, 
   3.548567872277789*^9, 3.5485710560490017`*^9, 3.5485750090847483`*^9, 
   3.548591587888626*^9, 3.548662094661049*^9, 3.548700117565012*^9, 
   3.548756251672072*^9, 3.548911243194832*^9, 3.548930608669118*^9, 
   3.5489607968116207`*^9, 3.5490021794071712`*^9, 3.5490208637410917`*^9, 
   3.549043539414212*^9, 3.549047027147334*^9, 3.54908627366033*^9, 
   3.549096271610417*^9, 3.5492603046637573`*^9, 3.549272923704753*^9, 
   3.5493050727167187`*^9, 3.5493052901978893`*^9, 3.549305799220665*^9, 
   3.549358879862588*^9, 3.549433146725721*^9, 3.549462312141572*^9, 
   3.549540245329234*^9, 3.55092158361524*^9, 3.550990714009063*^9, 
   3.550996421050349*^9, 3.5509965896022577`*^9, 3.5553471901484613`*^9, 
   3.557392098339098*^9, 3.557403148765678*^9, 3.55746645928513*^9, 
   3.5575793750214643`*^9, 3.557635728519867*^9, 3.5584411377991123`*^9, 
   3.558549885113658*^9, 3.560007738327876*^9, 3.560044351522456*^9, 
   3.560044410681102*^9, 3.5601854958361197`*^9, 3.5601862831038923`*^9, 
   3.560186355914137*^9, 3.560186506139843*^9, 3.5602228751285887`*^9, 
   3.560256420459765*^9, 3.560268926883141*^9, 3.560269929414319*^9, 
   3.5602714145453653`*^9, 3.560516250185618*^9, 3.560521597923888*^9, 
   3.560534286581151*^9, 3.5605351484881*^9, 3.560842314522863*^9, 
   3.56084443424343*^9, 3.5611768058479*^9, 3.561210845208239*^9, 
   3.561269144145053*^9, 3.561275595269067*^9, 3.561276938420438*^9, 
   3.561302803905004*^9, 3.5613053647113037`*^9, 3.5613085348649807`*^9, 
   3.561308783752474*^9, {3.561360309628914*^9, 3.5613600641665373`*^9}, 
   3.728115019874187*^9, 3.731234874593544*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"f694a3a4-c7bc-42b7-8c43-33d7755b8bf2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenUnphysicalToSchoutenWeyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5212780192302427`*^9, 3.521278029313528*^9}, {
  3.52127830380052*^9, 3.521278305337265*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"3e3c65c4-1598-4be3-a7a6-fbafdc11e20e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"SchoutenUnphysicalToSchoutenWeyl", ",", 
    RowBox[{
     RowBox[{"WeylCD", "[", 
      RowBox[{"-", "\[Beta]"}], "]"}], "@", 
     RowBox[{"\[ScriptF]", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}]}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.521460160584619*^9, 3.521460181617013*^9}, {
  3.521460327388865*^9, 3.5214603495754557`*^9}, {3.521520709384424*^9, 
  3.521520716060508*^9}, {3.525067843852646*^9, 3.525067846646759*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"355a4c4d-5db3-432d-9549-ee7e8f2f5f5e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5214603512360888`*^9, 3.521460406835772*^9, 3.521506988432726*^9, {
   3.5215207103858137`*^9, 3.521520716672716*^9}, 3.521520898135715*^9, 
   3.521523015767928*^9, 3.521539062937257*^9, 3.5217854858788424`*^9, 
   3.5217973610313396`*^9, 3.521803991383659*^9, 3.5218833068947973`*^9, 
   3.521940321758307*^9, 3.521971090028977*^9, 3.521971431200355*^9, 
   3.521971481390709*^9, 3.521971569955913*^9, 3.5219721351923227`*^9, 
   3.521973958866572*^9, 3.5220291062226553`*^9, 3.524393971624629*^9, 
   3.524396321032309*^9, 3.524977867696267*^9, 3.524997220847227*^9, 
   3.525067847175638*^9, 3.5250707985148497`*^9, 3.5250720731953497`*^9, 
   3.5250732306190357`*^9, 3.525081025860517*^9, 3.525187139443782*^9, 
   3.525240248440933*^9, 3.525243902827702*^9, 3.525397531106943*^9, 
   3.525398676238113*^9, 3.525493464698359*^9, 3.525660868558454*^9, 
   3.5256619125226107`*^9, 3.5256629805012712`*^9, 3.525673279547155*^9, 
   3.545738871096389*^9, 3.5459911322614927`*^9, 3.545991473580887*^9, 
   3.5460001253993177`*^9, 3.54602135729784*^9, 3.5460576170475883`*^9, 
   3.546064587573543*^9, 3.546091127672575*^9, 3.546325602076624*^9, 
   3.548247331858081*^9, 3.548404550747664*^9, 3.548481249368165*^9, 
   3.548511428448782*^9, 3.548525809087778*^9, 3.548567872312339*^9, 
   3.548571056085372*^9, 3.548575009173511*^9, 3.54859158798849*^9, 
   3.5486620947435102`*^9, 3.548700117628394*^9, 3.548756251724441*^9, 
   3.548911243250908*^9, 3.54893060871593*^9, 3.548960796854477*^9, 
   3.549002179450056*^9, 3.549020863839972*^9, 3.5490435394537163`*^9, 
   3.5490470271960077`*^9, 3.549086273702477*^9, 3.5490962717561903`*^9, 
   3.549260304766213*^9, 3.549272923786322*^9, 3.5493050727642517`*^9, 
   3.5493052902412977`*^9, 3.549305799261487*^9, 3.5493588799131203`*^9, 
   3.5494331467682047`*^9, 3.549462312166374*^9, 3.549540245375938*^9, 
   3.550921583690135*^9, 3.550990714108604*^9, 3.550996421130898*^9, 
   3.550996589686699*^9, 3.555347190200839*^9, 3.557392098441217*^9, 
   3.557403148813501*^9, 3.5574664593262157`*^9, 3.557579375070207*^9, 
   3.557635728559791*^9, 3.558441137844185*^9, 3.558549885156176*^9, 
   3.560007738378859*^9, 3.560044351595746*^9, 3.560044410780699*^9, 
   3.560185495885865*^9, 3.560186283129283*^9, 3.560186355996903*^9, 
   3.560186506324594*^9, 3.560222875204708*^9, 3.5602564205095863`*^9, 
   3.5602689269273767`*^9, 3.560269929453135*^9, 3.560271414586144*^9, 
   3.560516250235997*^9, 3.5605215980079727`*^9, 3.560534286623414*^9, 
   3.560535148523629*^9, 3.560842314567852*^9, 3.560844434285377*^9, 
   3.561176805891149*^9, 3.5612108452602997`*^9, 3.561269144200495*^9, 
   3.56127559534516*^9, 3.561276938477923*^9, 3.5613028039760923`*^9, 
   3.5613053647798634`*^9, 3.561308534923072*^9, 3.561308783814411*^9, {
   3.561360309692299*^9, 3.561360064233838*^9}, 3.7281150198981037`*^9, 
   3.73123487462575*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"caaa6553-fea6-4bf1-9fcb-a7c192c7c9d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.521460414914873*^9, 3.5214604199259653`*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"ab83f876-2995-4108-96c6-83992e1480c7"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Gamma]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.521460420876114*^9, 3.52150698844551*^9, 3.521520720730866*^9, 
   3.521520899134542*^9, 3.521523015791059*^9, 3.521539062961431*^9, 
   3.521785485953794*^9, 3.5217973610916348`*^9, 3.521803991405624*^9, 
   3.5218833069160843`*^9, 3.521940321927423*^9, 3.52197109004655*^9, 
   3.521971431222248*^9, 3.521971481413575*^9, 3.521971569978574*^9, 
   3.5219721352692842`*^9, 3.521973958886307*^9, 3.5220291064754763`*^9, 
   3.524393971668868*^9, 3.52439632106815*^9, 3.5249778677280684`*^9, 
   3.5249972208908587`*^9, 3.525067848032711*^9, 3.525070798551296*^9, 
   3.525072073225892*^9, 3.525073230646945*^9, 3.525081025911426*^9, 
   3.525187139459323*^9, 3.525240248463874*^9, 3.525243902870592*^9, 
   3.525397531128433*^9, 3.5253986762672367`*^9, 3.5254934647308273`*^9, 
   3.525660868591399*^9, 3.525661912550804*^9, 3.525662980516757*^9, 
   3.525673279592032*^9, 3.54573887120093*^9, 3.545991132340749*^9, 
   3.54599147361265*^9, 3.546000125421789*^9, 3.546021357340334*^9, 
   3.546057617116909*^9, 3.546064587642069*^9, 3.546091127752035*^9, 
   3.5463256021313457`*^9, 3.548247331927497*^9, 3.5484045507956963`*^9, 
   3.548481249396162*^9, 3.548511428482373*^9, 3.548525809111657*^9, 
   3.548567872347589*^9, 3.5485710561306467`*^9, 3.548575009197359*^9, 
   3.548591588024897*^9, 3.548662094784987*^9, 3.548700117643611*^9, 
   3.548756251759984*^9, 3.548911243294675*^9, 3.548930608783655*^9, 
   3.5489607968813553`*^9, 3.549002179474539*^9, 3.5490208638900423`*^9, 
   3.549043539486854*^9, 3.549047027223695*^9, 3.54908627373591*^9, 
   3.549096271772801*^9, 3.549260304808896*^9, 3.549272923819442*^9, 
   3.549305072788226*^9, 3.5493052902704887`*^9, 3.549305799294331*^9, 
   3.549358879931005*^9, 3.549433146795566*^9, 3.54946231218064*^9, 
   3.5495402454141617`*^9, 3.55092158374581*^9, 3.550990714144772*^9, 
   3.550996421194961*^9, 3.550996589703367*^9, 3.555347190232448*^9, 
   3.557392098490416*^9, 3.557403148849225*^9, 3.557466459352242*^9, 
   3.557579375097537*^9, 3.5576357285928917`*^9, 3.558441137861001*^9, 
   3.5585498851895103`*^9, 3.560007738416754*^9, 3.5600443516331472`*^9, 
   3.5600444108151484`*^9, 3.5601854959131517`*^9, 3.560186283164*^9, 
   3.560186356030661*^9, 3.560186506361986*^9, 3.5602228752629213`*^9, 
   3.560256420548305*^9, 3.560268926961465*^9, 3.5602699294814863`*^9, 
   3.5602714146169567`*^9, 3.560516250300808*^9, 3.560521598052717*^9, 
   3.5605342866547318`*^9, 3.560535148551828*^9, 3.560842314599696*^9, 
   3.560844434317128*^9, 3.561176805957408*^9, 3.5612108452984657`*^9, 
   3.561269144223896*^9, 3.561275595384932*^9, 3.561276938522757*^9, 
   3.561302804036042*^9, 3.5613053648077717`*^9, 3.561308534976326*^9, 
   3.561308783833411*^9, {3.561360309731578*^9, 3.5613600642715*^9}, 
   3.72811501991709*^9, 3.731234874650449*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"8700dcb9-6313-41e7-97db-a5eab42c7d29"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"WeylCD\[ScriptF]", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521460424969739*^9, 3.521460426776196*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"b8dc83e8-9ae4-4104-808f-7e7173afdad3"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Relation between the  unphysical Schouten tensor and the physical Schouten \
tensor\
\>", "Subsubsection",
 CellChangeTimes->{{3.511505811037424*^9, 3.5115058313499928`*^9}, {
  3.511508948481737*^9, 3.5115089576709414`*^9}, {3.521940423925365*^9, 
  3.52194042681704*^9}}],

Cell[CellGroupData[{

Cell[BoxData["SchoutenUnphys"], "Input",
 CellChangeTimes->{{3.511508963739748*^9, 3.5115090127552757`*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"13ee29fe-2860-447c-a249-41acf4322857"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"R", "[", "\[Del]", "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5115058599353313`*^9, 3.511505958066588*^9, 3.511506045130928*^9, 
   3.5115081947020597`*^9, {3.511508968059081*^9, 3.511509013392589*^9}, 
   3.511509139838832*^9, {3.5115095217420683`*^9, 3.5115095465089006`*^9}, 
   3.511591721481588*^9, 3.5115967153662577`*^9, 3.5116308769885607`*^9, 
   3.5116315913342857`*^9, 3.511723689414526*^9, 3.5212744801609373`*^9, 
   3.5212746653735456`*^9, 3.5212767847932453`*^9, 3.52127730998312*^9, 
   3.521277495741755*^9, 3.521278927895149*^9, 3.5213668555722437`*^9, 
   3.521370371190866*^9, 3.521440688106579*^9, 3.5214409246822357`*^9, 
   3.5214559071350193`*^9, 3.521461119936883*^9, 3.521507051735393*^9, 
   3.521520938799541*^9, 3.521523015813806*^9, 3.521539062985578*^9, 
   3.521785485985323*^9, 3.521797361176997*^9, 3.521803991413628*^9, 
   3.521883307658078*^9, 3.5219403412184*^9, 3.521971090064007*^9, 
   3.521971481423472*^9, 3.521971569999446*^9, 3.521972154103025*^9, 
   3.521973958897872*^9, 3.52202910655475*^9, 3.524393972042285*^9, 
   3.524396321078926*^9, 3.5249778677605963`*^9, 3.524997220985215*^9, 
   3.5250678546283092`*^9, 3.5250707985890923`*^9, 3.525072073320875*^9, 
   3.525073230671194*^9, 3.5250810259749203`*^9, 3.525187139493026*^9, 
   3.5252402485637093`*^9, 3.5252439030071297`*^9, 3.525397531158012*^9, 
   3.525398676298538*^9, 3.5254934647624063`*^9, 3.5256608686210623`*^9, 
   3.525661912584558*^9, 3.5256629805320263`*^9, 3.5256732796438837`*^9, 
   3.545738871264598*^9, 3.5459911323674583`*^9, 3.545991473707152*^9, 
   3.546000125485457*^9, 3.546021357658415*^9, 3.546057617177425*^9, 
   3.546064587674169*^9, 3.546091127775949*^9, 3.546325602263865*^9, 
   3.548247331999119*^9, 3.548404550823964*^9, 3.548481249434153*^9, 
   3.548511428560534*^9, 3.548525809140965*^9, 3.5485678723820047`*^9, 
   3.548571056170762*^9, 3.5485750093345222`*^9, 3.548591588053884*^9, 
   3.5486620948113117`*^9, 3.548700117726893*^9, 3.548756251780171*^9, 
   3.5489112433425303`*^9, 3.548930608840437*^9, 3.548960796893887*^9, 
   3.549002179546402*^9, 3.549020863955162*^9, 3.549043539520351*^9, 
   3.5490470272419024`*^9, 3.549086273769293*^9, 3.5490962717931547`*^9, 
   3.549260304858938*^9, 3.549272923891367*^9, 3.549305072824065*^9, 
   3.549305290288052*^9, 3.549305799360711*^9, 3.549358879969179*^9, 
   3.5494331468083*^9, 3.549462312219204*^9, 3.5495402454443483`*^9, 
   3.55092158380355*^9, 3.550990714166215*^9, 3.550996421249811*^9, 
   3.550996589725235*^9, 3.555347190251522*^9, 3.557392098527351*^9, 
   3.557403148884261*^9, 3.5574664593646173`*^9, 3.5575793751104794`*^9, 
   3.557635728608006*^9, 3.5584411380085773`*^9, 3.5585498852264633`*^9, 
   3.560007738441976*^9, 3.560044351655609*^9, 3.560044410835887*^9, 
   3.5601854959726267`*^9, 3.560186283252067*^9, 3.560186356069537*^9, 
   3.5601865064471617`*^9, 3.560222875301803*^9, 3.5602564205899687`*^9, 
   3.560268927001431*^9, 3.560269929501154*^9, 3.560271414636612*^9, 
   3.560516250412743*^9, 3.560521598074543*^9, 3.560534286688601*^9, 
   3.5605351485813837`*^9, 3.5608423146355658`*^9, 3.560844434371458*^9, 
   3.5611768059796247`*^9, 3.561210845323805*^9, 3.5612691442730513`*^9, 
   3.5612755954324503`*^9, 3.5612769385773497`*^9, 3.561302804069031*^9, 
   3.561305364874852*^9, 3.5613085350023327`*^9, 3.561308783859366*^9, {
   3.561360309753868*^9, 3.561360064325203*^9}, 3.728115019935033*^9, 
   3.7312348746770163`*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"2f1e6315-6521-4d20-b759-905fd82970de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "RicciUnphysToRicciPhys"}]}]], "Input",
 CellChangeTimes->{{3.511505862858837*^9, 3.511505885194212*^9}, {
  3.511509049177878*^9, 3.5115090777562304`*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"d85c25eb-2812-4961-92eb-b7ae649076f8"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"R", "[", 
           OverscriptBox["\[Del]", "~"], "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
      Editable->False], "-", 
     RowBox[{
      FractionBox["1", "6"], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Beta]"], 
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Beta]][
         $CellContext`CDg[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "-", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], 
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`CDg[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}], 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511505886386115*^9, 3.511505958698073*^9, 3.511506046554763*^9, 
   3.511508194780534*^9, 3.5115090791178513`*^9, 3.511509140514028*^9, {
   3.511509522587208*^9, 3.511509547096444*^9}, 3.5115917215314083`*^9, 
   3.511596715411313*^9, 3.511630877007875*^9, 3.511631591352055*^9, 
   3.511723689497526*^9, 3.521274573600662*^9, 3.521274666007367*^9, 
   3.5212767850135107`*^9, 3.521277310056065*^9, 3.521277495800106*^9, 
   3.521278928060306*^9, 3.521366856312377*^9, 3.521370371215489*^9, 
   3.521440688195559*^9, 3.521440924759166*^9, 3.521455907189591*^9, 
   3.521461122393876*^9, 3.521507051910499*^9, 3.521520938840941*^9, 
   3.521523015836639*^9, 3.5215390630083313`*^9, 3.5217854860742702`*^9, 
   3.521797361198289*^9, 3.521803991436405*^9, 3.521883307689192*^9, 
   3.521940341404461*^9, 3.521971090079953*^9, 3.5219714814442863`*^9, 
   3.521971570031621*^9, 3.5219721541655207`*^9, 3.521973958940845*^9, 
   3.522029106626852*^9, 3.524393972091123*^9, 3.5243963211192217`*^9, 
   3.524977867787056*^9, 3.5249972210360928`*^9, 3.52506785525527*^9, 
   3.52507079861981*^9, 3.525072073342579*^9, 3.525073230694586*^9, 
   3.52508102603041*^9, 3.525187139520813*^9, 3.525240248585134*^9, 
   3.525243903054729*^9, 3.525397531203888*^9, 3.52539867633178*^9, 
   3.525493464790288*^9, 3.5256608686527653`*^9, 3.5256619126159077`*^9, 
   3.525662980547453*^9, 3.5256732796671886`*^9, 3.545738871292165*^9, 
   3.545991132442165*^9, 3.545991473753683*^9, 3.546000125547257*^9, 
   3.546021358121941*^9, 3.546057617210474*^9, 3.546064587729862*^9, 
   3.546091127880355*^9, 3.546325602338861*^9, 3.548247332097052*^9, 
   3.548404550875259*^9, 3.54848124946728*^9, 3.5485114286105013`*^9, 
   3.548525809161543*^9, 3.548567872427291*^9, 3.548571056204113*^9, 
   3.548575009357552*^9, 3.548591588112977*^9, 3.548662094858584*^9, 
   3.548700117779451*^9, 3.5487562518144197`*^9, 3.548911243380073*^9, 
   3.5489306088852863`*^9, 3.548960796923086*^9, 3.5490021795843277`*^9, 
   3.549020864011546*^9, 3.549043539549926*^9, 3.549047027276993*^9, 
   3.549086273803097*^9, 3.549096271835762*^9, 3.5492603049033947`*^9, 
   3.54927292393528*^9, 3.549305072854927*^9, 3.549305290312553*^9, 
   3.549305799390629*^9, 3.549358880014266*^9, 3.549433146835618*^9, 
   3.5494623122642813`*^9, 3.549540245493774*^9, 3.5509215838448763`*^9, 
   3.550990714192554*^9, 3.5509964212979937`*^9, 3.550996589771184*^9, 
   3.55534719030027*^9, 3.557392098600305*^9, 3.5574031489210157`*^9, 
   3.5574664593899927`*^9, 3.557579375163003*^9, 3.557635728652175*^9, 
   3.558441138054946*^9, 3.5585498852551937`*^9, 3.560007738489696*^9, 
   3.560044351703534*^9, 3.560044410877039*^9, 3.560185496012532*^9, 
   3.56018628329662*^9, 3.5601863561060743`*^9, 3.5601865064944077`*^9, 
   3.560222875344294*^9, 3.5602564206335278`*^9, 3.5602689270399237`*^9, 
   3.560269929537943*^9, 3.560271414670884*^9, 3.560516250516828*^9, 
   3.560521598115308*^9, 3.560534286720806*^9, 3.5605351486230907`*^9, 
   3.56084231467232*^9, 3.560844434410483*^9, 3.561176806023757*^9, 
   3.561210845363035*^9, 3.561269144317531*^9, 3.561275595481333*^9, 
   3.5612769386187153`*^9, 3.5613028041491127`*^9, 3.561305364934361*^9, 
   3.5613085350520773`*^9, 3.561308783903264*^9, {3.5613603097953663`*^9, 
   3.5613600643799973`*^9}, 3.728115019954211*^9, 3.731234874702606*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"da1377d6-ac65-4e52-885d-c5bc854e17d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
  "ApplyRuleN", "@", "RicciScalarUnphysToRicciScalarPhys"}]}]], "Input",
 CellChangeTimes->{{3.511505949406007*^9, 3.511505955016933*^9}, {
  3.5115091355402117`*^9, 3.511509137947487*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"7f60aef9-dfac-4765-a9e4-2ba33079bd06"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"R", "[", 
           OverscriptBox["\[Del]", "~"], "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
      Editable->False], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Beta]"], 
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Beta]][
         $CellContext`CDg[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "-", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], 
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`CDg[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}], 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]], "-", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         InterpretationBox[
          StyleBox[
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "~"], "]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciScalarCDTildeg[],
          Editable->False], "-", 
         RowBox[{"6", " ", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox["\[Del]", "\[Delta]"], 
             SuperscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[-$CellContext`\[Delta]][
            $CellContext`CDg[$CellContext`\[Delta]][
             $CellContext`\[CapitalTheta][]]],
           Editable->False]}], "+", 
         RowBox[{"12", " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[-$CellContext`\[Delta]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Delta]][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}]}], ")"}]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5115059594512863`*^9, 3.511506047877591*^9, 3.511508194840469*^9, 
   3.511509141198325*^9, {3.511509523866503*^9, 3.511509547669935*^9}, 
   3.511591721589761*^9, 3.511596715456544*^9, 3.511630877036133*^9, 
   3.511631591375886*^9, 3.511723689538272*^9, 3.52127457459836*^9, 
   3.521274666552347*^9, 3.521276785109063*^9, 3.521277310134878*^9, 
   3.521277495903391*^9, 3.5212789281337337`*^9, 3.5213668569445267`*^9, 
   3.521370371241692*^9, 3.521440688265747*^9, 3.521440924869134*^9, 
   3.521455907226899*^9, 3.521461123524515*^9, 3.521507051982415*^9, 
   3.521520938864325*^9, 3.521523015863549*^9, 3.521539063037484*^9, 
   3.5217854861445417`*^9, 3.5217973612251663`*^9, 3.521803991461672*^9, 
   3.521883307717498*^9, 3.52194034152662*^9, 3.521971090101205*^9, 
   3.521971481478918*^9, 3.521971570056467*^9, 3.521972154202107*^9, 
   3.521973958968689*^9, 3.5220291067096577`*^9, 3.5243939721440067`*^9, 
   3.524396321161022*^9, 3.5249778678188868`*^9, 3.524997221084855*^9, 
   3.525067855799099*^9, 3.525070798651828*^9, 3.525072073364798*^9, 
   3.5250732307199306`*^9, 3.525081026084381*^9, 3.525187139551372*^9, 
   3.525240248612884*^9, 3.525243903098671*^9, 3.5253975312384663`*^9, 
   3.5253986763700037`*^9, 3.5254934648294783`*^9, 3.525660868686651*^9, 
   3.5256619126766853`*^9, 3.5256629805701513`*^9, 3.5256732796887417`*^9, 
   3.5457388713946733`*^9, 3.54599113260277*^9, 3.545991473798921*^9, 
   3.5460001256145897`*^9, 3.54602135822934*^9, 3.546057617240615*^9, 
   3.546064587758403*^9, 3.546091127950708*^9, 3.546325602425556*^9, 
   3.548247332173233*^9, 3.548404550925249*^9, 3.54848124950852*^9, 
   3.548511428681698*^9, 3.548525809198498*^9, 3.5485678724676723`*^9, 
   3.548571056246801*^9, 3.548575009391617*^9, 3.5485915882002077`*^9, 
   3.548662094904118*^9, 3.548700117819232*^9, 3.548756251859647*^9, 
   3.548911243413994*^9, 3.548930608946406*^9, 3.548960796949017*^9, 
   3.5490021796234493`*^9, 3.549020864071314*^9, 3.5490435395928593`*^9, 
   3.549047027293413*^9, 3.549086273843605*^9, 3.549096271881917*^9, 
   3.549260304979985*^9, 3.549272923975463*^9, 3.549305072887931*^9, 
   3.549305290338458*^9, 3.549305799427096*^9, 3.549358880067225*^9, 
   3.549433146859852*^9, 3.549462312297494*^9, 3.549540245540071*^9, 
   3.550921583893203*^9, 3.5509907142379503`*^9, 3.550996421397999*^9, 
   3.5509965898714943`*^9, 3.555347190339335*^9, 3.5573920986565313`*^9, 
   3.557403148971751*^9, 3.5574664594154663`*^9, 3.557579375193074*^9, 
   3.5576357286903963`*^9, 3.558441138096704*^9, 3.55854988528889*^9, 
   3.56000773853512*^9, 3.560044351743202*^9, 3.560044410913666*^9, 
   3.560185496062539*^9, 3.560186283338891*^9, 3.560186359626499*^9, 
   3.56018650653666*^9, 3.560222875390151*^9, 3.560256420709921*^9, 
   3.560268927079248*^9, 3.560269929569562*^9, 3.560271414704564*^9, 
   3.5605162506357193`*^9, 3.560521598160777*^9, 3.560534286762714*^9, 
   3.560535148649562*^9, 3.5608423147069407`*^9, 3.5608444344476633`*^9, 
   3.561176806065556*^9, 3.561210845402413*^9, 3.5612691443762913`*^9, 
   3.561275595576764*^9, 3.561276938667515*^9, 3.561302804212063*^9, 
   3.561305364984844*^9, 3.561308535116427*^9, 3.5613087839539537`*^9, {
   3.561360309834908*^9, 3.561360064433257*^9}, 3.7281150199768343`*^9, 
   3.731234874728506*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"0ecf4d1f-c385-4b37-a470-5619a21b2169"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "RicciCDTildegToSchoutenPhys"}]}]], "Input",
 CellChangeTimes->{{3.511506073063998*^9, 3.511506077952672*^9}, {
  3.5115091675330963`*^9, 3.511509199611333*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"d908296a-5611-44fa-ab1e-2a027d36960e"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"12", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              OverscriptBox["L", "~"], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              OverscriptBox["g", "~"], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Physicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "~"], "]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciScalarCDTildeg[],
          Editable->False]}]}], ")"}]}], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Beta]"], 
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Beta]][
         $CellContext`CDg[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "-", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], 
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`CDg[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]], "+", 
     FractionBox[
      RowBox[{"3", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}], 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]], "-", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         InterpretationBox[
          StyleBox[
           RowBox[{"R", "[", 
            OverscriptBox["\[Del]", "~"], "]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciScalarCDTildeg[],
          Editable->False], "-", 
         RowBox[{"6", " ", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox["\[Del]", "\[Delta]"], 
             SuperscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[-$CellContext`\[Delta]][
            $CellContext`CDg[$CellContext`\[Delta]][
             $CellContext`\[CapitalTheta][]]],
           Editable->False]}], "+", 
         RowBox[{"12", " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[-$CellContext`\[Delta]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Delta]][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}]}], ")"}]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.51150607900134*^9, 3.5115081949689083`*^9, 3.511509200690606*^9, 
   3.5115095562779827`*^9, 3.511591721640304*^9, 3.511596715503511*^9, 
   3.5116308770663233`*^9, 3.5116315914046097`*^9, 3.5117236895977383`*^9, 
   3.521274606206621*^9, 3.5212746682408543`*^9, 3.521276785285117*^9, 
   3.521277310206047*^9, 3.5212774959594183`*^9, 3.521278928223919*^9, 
   3.521366857598382*^9, 3.5213703712711067`*^9, 3.521440688358779*^9, 
   3.5214409249489613`*^9, 3.5214559072632027`*^9, 3.521461124905449*^9, 
   3.521507052067833*^9, 3.52152093897476*^9, 3.521523015904653*^9, 
   3.521539063066877*^9, 3.521785486241687*^9, 3.52179736127932*^9, 
   3.5218039914877996`*^9, 3.521883307747065*^9, 3.52194034167378*^9, 
   3.52197109013194*^9, 3.521971481511342*^9, 3.521971570085866*^9, 
   3.521972154257079*^9, 3.521973958995747*^9, 3.522029106861096*^9, 
   3.524393972195703*^9, 3.5243963212137213`*^9, 3.524977867852976*^9, 
   3.524997221151173*^9, 3.5250678563543787`*^9, 3.525070798724416*^9, 
   3.5250720734087563`*^9, 3.525073230757915*^9, 3.5250810261150007`*^9, 
   3.525187139593459*^9, 3.525240248652149*^9, 3.525243903141162*^9, 
   3.525397531268084*^9, 3.525398676405735*^9, 3.5254934648725758`*^9, 
   3.525660868724804*^9, 3.525661912712391*^9, 3.525662980591061*^9, 
   3.5256732797123423`*^9, 3.545738871502788*^9, 3.5459911327369967`*^9, 
   3.5459914738417187`*^9, 3.546000125683296*^9, 3.546021358315358*^9, 
   3.546057617303711*^9, 3.5460645878106527`*^9, 3.546091128079185*^9, 
   3.546325602500762*^9, 3.5482473323406067`*^9, 3.548404550985442*^9, 
   3.5484812495404253`*^9, 3.548511428733489*^9, 3.5485258092389183`*^9, 
   3.548567872508841*^9, 3.548571056283185*^9, 3.548575009420389*^9, 
   3.548591588256497*^9, 3.548662094950673*^9, 3.548700117968988*^9, 
   3.548756251910562*^9, 3.5489112435075073`*^9, 3.5489306089903603`*^9, 
   3.548960796977401*^9, 3.549002179656897*^9, 3.549020864135149*^9, 
   3.549043539624607*^9, 3.549047027322948*^9, 3.549086273885495*^9, 
   3.549096271929549*^9, 3.5492603050247927`*^9, 3.549272924019207*^9, 
   3.549305072928852*^9, 3.54930529036963*^9, 3.549305799460705*^9, 
   3.549358880123096*^9, 3.5494331468988934`*^9, 3.5494623123353453`*^9, 
   3.549540245583941*^9, 3.550921583956954*^9, 3.550990714264924*^9, 
   3.550996421459724*^9, 3.550996589916561*^9, 3.555347190373413*^9, 
   3.5573920987315197`*^9, 3.557403149018331*^9, 3.557466459448367*^9, 
   3.557579375233914*^9, 3.557635728733655*^9, 3.5584411381332397`*^9, 
   3.5585498853637753`*^9, 3.560007738578421*^9, 3.560044351790107*^9, 
   3.5600444109575253`*^9, 3.560185496107719*^9, 3.56018628338295*^9, 
   3.5601863597187767`*^9, 3.560186506580552*^9, 3.560222875431126*^9, 
   3.560256420756566*^9, 3.560268927191763*^9, 3.5602699296069393`*^9, 
   3.560271414744648*^9, 3.560516250696712*^9, 3.560521598209845*^9, 
   3.560534286796421*^9, 3.560535148677627*^9, 3.560842314748642*^9, 
   3.560844434486124*^9, 3.561176806117831*^9, 3.561210845449295*^9, 
   3.5612691444255247`*^9, 3.561275595653831*^9, 3.561276938729042*^9, 
   3.561302804264782*^9, 3.561305365043723*^9, 3.561308535181426*^9, 
   3.561308784027573*^9, {3.56136030988514*^9, 3.561360064498549*^9}, 
   3.728115020001459*^9, 3.731234874768816*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"049aa9ea-1f25-4ea2-ba89-14fdf793911d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"ContractMetric", "[", 
      RowBox[{"#", ",", 
       RowBox[{"AllowUpperDerivatives", "\[Rule]", "True"}]}], "]"}], "&"}], "/@",
     "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.51150608346314*^9, 3.5115060898719473`*^9}, {
  3.511509609323291*^9, 3.511509614649396*^9}, {3.521274670634575*^9, 
  3.521274680021553*^9}, {3.521275162395643*^9, 3.521275181836862*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"93e8b6be-2028-4a6f-8405-279cf8e1f3fd"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "+", 
   RowBox[{
    FractionBox["1", "12"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False]}], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "~"], "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCDTildeg[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False]}], 
    RowBox[{"12", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]], "-", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], 
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}]}]], "Output",
 CellChangeTimes->{
  3.511506090589704*^9, 3.511508195062378*^9, 3.511509202678072*^9, 
   3.511509557590784*^9, 3.5115096150599127`*^9, 3.511509731327381*^9, 
   3.5115917216852703`*^9, 3.511596715581482*^9, 3.511630877165566*^9, 
   3.511631591439661*^9, 3.511723689669134*^9, 3.521274609594185*^9, 
   3.521274681113597*^9, 3.521275184177425*^9, 3.5212752444246807`*^9, 
   3.52127528369844*^9, 3.521276785417039*^9, 3.5212773103158703`*^9, 
   3.52127749603542*^9, 3.521278928331263*^9, 3.5213668583773537`*^9, 
   3.5213703713260393`*^9, 3.521440688451776*^9, 3.521440925017805*^9, 
   3.521455907304885*^9, 3.521461126195582*^9, 3.5215070521471157`*^9, 
   3.521520939101508*^9, 3.52152301594189*^9, 3.5215390631046333`*^9, 
   3.5217854862775793`*^9, 3.521797361377081*^9, 3.521803991521257*^9, 
   3.5218833077813387`*^9, 3.521940341925959*^9, 3.5219710901689043`*^9, 
   3.52197148154837*^9, 3.521971570127365*^9, 3.521972154324415*^9, 
   3.521973959034074*^9, 3.52202910700126*^9, 3.524393972256946*^9, 
   3.5243963213071833`*^9, 3.524977867897793*^9, 3.5249972211801977`*^9, 
   3.525067856963286*^9, 3.5250707987701683`*^9, 3.525072073468987*^9, 
   3.525073230810598*^9, 3.525081026188834*^9, 3.5251871396396027`*^9, 
   3.525240248685567*^9, 3.5252439031999702`*^9, 3.525397531300962*^9, 
   3.52539867645214*^9, 3.525493464901718*^9, 3.525660868771432*^9, 
   3.525661912760043*^9, 3.525662980621957*^9, 3.525673279763337*^9, 
   3.545738871538444*^9, 3.545991132845833*^9, 3.5459914738870907`*^9, 
   3.546000125768649*^9, 3.5460213584015903`*^9, 3.546057617351142*^9, 
   3.5460645878929863`*^9, 3.546091128210504*^9, 3.5463256025655537`*^9, 
   3.548247332407359*^9, 3.548404551127407*^9, 3.548481249598494*^9, 
   3.54851142879324*^9, 3.548525809267816*^9, 3.54856787256933*^9, 
   3.54857105632514*^9, 3.548575009466592*^9, 3.548591588317622*^9, 
   3.54866209502243*^9, 3.548700118004219*^9, 3.54875625197289*^9, 
   3.5489112435602694`*^9, 3.5489306090759363`*^9, 3.548960797024105*^9, 
   3.5490021797072906`*^9, 3.5490208641859503`*^9, 3.549043539675424*^9, 
   3.549047027365322*^9, 3.549086273954544*^9, 3.549096272021525*^9, 
   3.549260305079673*^9, 3.549272924090938*^9, 3.549305072973226*^9, 
   3.5493052904196777`*^9, 3.549305799505114*^9, 3.549358880181054*^9, 
   3.5494331469421673`*^9, 3.549462312376956*^9, 3.549540245641754*^9, 
   3.550921584133945*^9, 3.5509907143007517`*^9, 3.550996421522053*^9, 
   3.550996589951457*^9, 3.5553471904289494`*^9, 3.557392098840222*^9, 
   3.557403149070261*^9, 3.55746645950244*^9, 3.557579375275227*^9, 
   3.55763572878328*^9, 3.558441138188801*^9, 3.5585498854220867`*^9, 
   3.560007738638287*^9, 3.560044351850127*^9, 3.560044411040278*^9, 
   3.560185496156102*^9, 3.560186283425556*^9, 3.560186359760345*^9, 
   3.560186506624796*^9, 3.560222875484852*^9, 3.5602564208419952`*^9, 
   3.5602689272484837`*^9, 3.5602699296453657`*^9, 3.560271414797604*^9, 
   3.560516250763439*^9, 3.560521598273212*^9, 3.5605342868424387`*^9, 
   3.560535148716002*^9, 3.5608423148017*^9, 3.5608444345474253`*^9, 
   3.5611768061602592`*^9, 3.56121084550968*^9, 3.561269144488769*^9, 
   3.561275595732687*^9, 3.561276938792964*^9, 3.561302804378149*^9, 
   3.561305365095545*^9, 3.561308535240799*^9, 3.5613087840922737`*^9, {
   3.5613603099477167`*^9, 3.561360064557068*^9}, 3.728115020032568*^9, 
   3.7312348747967567`*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"e40cbb19-afe6-420a-a346-64db30ee3279"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "PhysicalToUnPhysical"}]}]], "Input",
 CellLabel->
  "In[157]:=",ExpressionUUID->"df5201f5-6e1f-4a3e-a364-5bb9a06e6766"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], 
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}]}]], "Output",
 CellChangeTimes->{
  3.521275293227338*^9, 3.521276785615325*^9, 3.5212773103797903`*^9, 
   3.521277496118618*^9, 3.52127892841467*^9, 3.521366859063715*^9, 
   3.521370371353149*^9, 3.521440688730959*^9, 3.521440925158524*^9, 
   3.521455907337017*^9, 3.5214611278610992`*^9, 3.5215070522262278`*^9, 
   3.5215209392105513`*^9, 3.52152301596434*^9, 3.521539063128262*^9, 
   3.521785486344396*^9, 3.521797361409387*^9, 3.521803991543736*^9, 
   3.521883307802992*^9, 3.52194034206985*^9, 3.5219710901936073`*^9, 
   3.5219714815710497`*^9, 3.5219715701529293`*^9, 3.521972154377425*^9, 
   3.521973959056842*^9, 3.522029107185446*^9, 3.524393972296248*^9, 
   3.5243963213524103`*^9, 3.5249778679286137`*^9, 3.5249972211935997`*^9, 
   3.525067857581532*^9, 3.525070798803481*^9, 3.525072073520849*^9, 
   3.525073230840611*^9, 3.525081026244104*^9, 3.5251871396636057`*^9, 
   3.525240248709296*^9, 3.5252439032406597`*^9, 3.5253975313276377`*^9, 
   3.525398676517324*^9, 3.525493464948798*^9, 3.525660868800461*^9, 
   3.5256619127904577`*^9, 3.525662980643838*^9, 3.525673279810079*^9, 
   3.545738871684009*^9, 3.5459911329201727`*^9, 3.545991473931086*^9, 
   3.5460001258233023`*^9, 3.546021358452454*^9, 3.546057617409747*^9, 
   3.546064587915045*^9, 3.546091128318637*^9, 3.546325602646009*^9, 
   3.548247332487808*^9, 3.548404551162355*^9, 3.54848124963256*^9, 
   3.548511428851069*^9, 3.548525809293336*^9, 3.548567872602577*^9, 
   3.5485710563546953`*^9, 3.548575009512597*^9, 3.5485915883597527`*^9, 
   3.5486620950651693`*^9, 3.5487001180457172`*^9, 3.548756252007513*^9, 
   3.548911243598238*^9, 3.548930609108185*^9, 3.54896079706026*^9, 
   3.5490021797360773`*^9, 3.549020864219693*^9, 3.5490435397101603`*^9, 
   3.549047027397725*^9, 3.5490862739855547`*^9, 3.549096272066492*^9, 
   3.549260305133494*^9, 3.5492729241480227`*^9, 3.5493050729971857`*^9, 
   3.549305290446369*^9, 3.549305799530394*^9, 3.549358880218779*^9, 
   3.54943314697163*^9, 3.54946231240799*^9, 3.5495402456697283`*^9, 
   3.550921584199402*^9, 3.550990714319031*^9, 3.550996421563257*^9, 
   3.55099658999361*^9, 3.555347190462358*^9, 3.55739209900587*^9, 
   3.557403149103232*^9, 3.557466459532578*^9, 3.557579375315027*^9, 
   3.557635728813817*^9, 3.5584411382244673`*^9, 3.55854988545507*^9, 
   3.560007738675522*^9, 3.560044351890051*^9, 3.560044411074883*^9, 
   3.560185496195117*^9, 3.560186283463078*^9, 3.560186359797647*^9, 
   3.560186506699004*^9, 3.5602228755126753`*^9, 3.560256420878809*^9, 
   3.5602689272846622`*^9, 3.560269929676399*^9, 3.5602714148303423`*^9, 
   3.56051625081737*^9, 3.56052159831468*^9, 3.560534286870779*^9, 
   3.560535148786586*^9, 3.560842314832903*^9, 3.56084443459282*^9, 
   3.56117680621259*^9, 3.561210845550809*^9, 3.561269144527561*^9, 
   3.561275595776702*^9, 3.56127693883206*^9, 3.561302804424368*^9, 
   3.5613053651445293`*^9, 3.561308535295089*^9, 3.5613087841326847`*^9, {
   3.5613603099855967`*^9, 3.561360064588814*^9}, 3.728115020048354*^9, 
   3.731234874818755*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"361a05e2-500a-4847-a009-905cac609aa4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenUnphysicalToSchoutenPhysical", "=", "%"}], ";"}]], "Input",\

 CellChangeTimes->{{3.511506717428516*^9, 3.51150672579676*^9}, {
  3.511509748907419*^9, 3.511509756848827*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"5c8dfc82-0ad3-45a8-980a-0373a3afd460"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Relation between the Weyl Schouten tensor and the physical Schouten tensor\
\>", "Subsubsection",
 CellChangeTimes->{{3.5219405501518383`*^9, 3.521940575431766*^9}}],

Cell["It is convenient to introduce now a new variable.", "Text",
 CellChangeTimes->{{3.521941290073492*^9, 3.5219412988927393`*^9}, {
  3.521941369976244*^9, 3.521941375305274*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"B", "[", "\[Alpha]", "]"}], ",", "M4"}], "]"}]], "Input",
 CellChangeTimes->{{3.5218836937766027`*^9, 3.52188371875694*^9}, {
  3.521941480297955*^9, 3.521941489474856*^9}, {3.52506786800371*^9, 
  3.525067868683833*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"06d697c6-1ce6-4fe7-b28a-dada21de3728"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"B", "[", "\[Alpha]", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`B[$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.521883719518888*^9, 3.52194150575165*^9, 3.52197109021134*^9, 
   3.521971481605195*^9, 3.521971570173582*^9, 3.521972163028275*^9, 
   3.521973959078792*^9, 3.5220291072656403`*^9, 3.5243939753838463`*^9, 
   3.524396321362742*^9, 3.524977867959145*^9, 3.5249972212068644`*^9, 
   3.525067869189151*^9, 3.525070798844531*^9, 3.5250720736237392`*^9, 
   3.5250732308662367`*^9, 3.525081026298272*^9, 3.525187139801331*^9, 
   3.52524024880978*^9, 3.5252439032537518`*^9, 3.52539753135116*^9, 
   3.525398676548745*^9, 3.525493464979569*^9, 3.525660868860414*^9, 
   3.525661912799856*^9, 3.5256629806817427`*^9, 3.5256732798512287`*^9, 
   3.5457388718081417`*^9, 3.545991133250617*^9, 3.5459914739810953`*^9, 
   3.546000125917967*^9, 3.546021358523838*^9, 3.5460576174310226`*^9, 
   3.5460645879777*^9, 3.5460911283901777`*^9, 3.5463256048130207`*^9, 
   3.54824733256885*^9, 3.548404551204054*^9, 3.5484812496839952`*^9, 
   3.5485114289554253`*^9, 3.548525809320712*^9, 3.548567872632678*^9, 
   3.5485710563736687`*^9, 3.5485750095537767`*^9, 3.548591588431896*^9, 
   3.548662095111244*^9, 3.5487001180666113`*^9, 3.5487562520535316`*^9, 
   3.548911243691699*^9, 3.548930609130941*^9, 3.548960797093341*^9, 
   3.54900217976654*^9, 3.549020864316412*^9, 3.549043539741997*^9, 
   3.54904702747119*^9, 3.549086274062393*^9, 3.549096272115198*^9, 
   3.549260305182992*^9, 3.54927292421563*^9, 3.5493050730245943`*^9, 
   3.5493052904846373`*^9, 3.549305799556778*^9, 3.549358880260549*^9, 
   3.549433147000061*^9, 3.549462312433413*^9, 3.549540245713571*^9, 
   3.5509215842359877`*^9, 3.550990714356925*^9, 3.550996421585086*^9, 
   3.550996590069495*^9, 3.555347190513342*^9, 3.557392099104518*^9, 
   3.55740314917708*^9, 3.557466459576213*^9, 3.557579375341199*^9, 
   3.557635728849949*^9, 3.558441138262536*^9, 3.558549885484068*^9, 
   3.560007738714587*^9, 3.560044351931978*^9, 3.560044411117498*^9, 
   3.560185496240387*^9, 3.5601862835019617`*^9, 3.560186359816637*^9, 
   3.560186506742992*^9, 3.560222875546184*^9, 3.560256420917038*^9, 
   3.560268927323348*^9, 3.5602699297099857`*^9, 3.560271414866042*^9, 
   3.560516250873252*^9, 3.560521598366682*^9, 3.5605342869267063`*^9, 
   3.560535148819578*^9, 3.560842314866364*^9, 3.560844434641878*^9, 
   3.5611768062608852`*^9, 3.561210845596982*^9, 3.5612691445683937`*^9, 
   3.561275595804759*^9, 3.5612769388522882`*^9, 3.561302804459711*^9, 
   3.561305365221208*^9, 3.561308535349698*^9, 3.561308784199683*^9, {
   3.561360310026396*^9, 3.561360064646371*^9}, 3.728115020065156*^9, 
   3.7312348748464413`*^9},
 CellLabel->
  "During evaluation of \
In[159]:=",ExpressionUUID->"a5a15e07-161c-453b-a23e-7e06f75f845d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"B", "[", 
   RowBox[{"-", "\[Alpha]"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"\[ScriptF]", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "+", 
   RowBox[{
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
     RowBox[{"\[CapitalTheta]", "[", "]"}]}], "/", 
    RowBox[{"\[CapitalTheta]", "[", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5218837810166683`*^9, 3.5218838254829283`*^9}, {
  3.521941508231089*^9, 3.521941509020608*^9}, {3.5250678708079643`*^9, 
  3.525067875978449*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"0ec6e4bd-2c1c-4d35-98f3-55dd67994a00"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"B", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`B[-$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], "+", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.5218838280056868`*^9, 3.52194151027098*^9, 3.521971090217781*^9, 
   3.521971481610017*^9, 3.52197157019158*^9, 3.521972163095434*^9, 
   3.521973959084071*^9, 3.522029107276311*^9, 3.524393975445623*^9, 
   3.524396321369931*^9, 3.524977867968401*^9, 3.5249972212438993`*^9, 
   3.5250678768155737`*^9, 3.5250707988764343`*^9, 3.525072073821252*^9, 
   3.5250732308729258`*^9, 3.525081026306189*^9, 3.5251871398063602`*^9, 
   3.525240248815507*^9, 3.5252439032591133`*^9, 3.52539753137267*^9, 
   3.52539867655374*^9, 3.525493464985219*^9, 3.525660868866313*^9, 
   3.525661912805147*^9, 3.525662980702188*^9, 3.5256732798888817`*^9, 
   3.545738871860327*^9, 3.545991133321959*^9, 3.545991474007921*^9, 
   3.54600012600987*^9, 3.546021358543401*^9, 3.546057617444648*^9, 
   3.546064587999165*^9, 3.54609112840853*^9, 3.546325605016439*^9, 
   3.548247332580968*^9, 3.548404551215715*^9, 3.548481249724839*^9, 
   3.548511428987398*^9, 3.548525809327849*^9, 3.548567872660678*^9, 
   3.5485710563841457`*^9, 3.548575009572365*^9, 3.548591588458128*^9, 
   3.548662095122829*^9, 3.548700118078611*^9, 3.548756252065175*^9, 
   3.548911243719734*^9, 3.548930609142951*^9, 3.548960797100247*^9, 
   3.549002179799902*^9, 3.5490208643492947`*^9, 3.549043539749209*^9, 
   3.549047027566209*^9, 3.549086274094524*^9, 3.549096272127117*^9, 
   3.5492603051958723`*^9, 3.549272924262536*^9, 3.549305073049526*^9, 
   3.5493052904929934`*^9, 3.5493057995641623`*^9, 3.5493588803033457`*^9, 
   3.549433147006966*^9, 3.549462312458173*^9, 3.549540245763398*^9, 
   3.550921584247031*^9, 3.550990714373283*^9, 3.550996421598671*^9, 
   3.5509965900832357`*^9, 3.5553471905248327`*^9, 3.5573920991539993`*^9, 
   3.5574031492043247`*^9, 3.557466459586656*^9, 3.5575793753484993`*^9, 
   3.5576357288604517`*^9, 3.558441138274103*^9, 3.558549885491837*^9, 
   3.560007738727908*^9, 3.560044351945292*^9, 3.560044411130108*^9, 
   3.56018549626516*^9, 3.560186283515747*^9, 3.560186359830241*^9, 
   3.560186506776435*^9, 3.560222875571575*^9, 3.560256420948606*^9, 
   3.5602689273353653`*^9, 3.560269929722267*^9, 3.56027141487926*^9, 
   3.560516250890176*^9, 3.56052159838011*^9, 3.560534286935446*^9, 
   3.56053514882616*^9, 3.560842314881834*^9, 3.560844434654112*^9, 
   3.561176806274362*^9, 3.561210845633636*^9, 3.5612691446111097`*^9, 
   3.56127559581915*^9, 3.561276938865367*^9, 3.5613028044802303`*^9, 
   3.561305365247109*^9, 3.5613085353883038`*^9, 3.5613087842146683`*^9, {
   3.561360310039648*^9, 3.561360064738947*^9}, 3.7281150200795918`*^9, 
   3.731234874867292*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"3f7faf9d-88f1-46c0-a2f5-5395a52a9b54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.5219415358880377`*^9, 3.521941548477247*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"4197f29f-6d79-4cc6-be94-c8fc413f31d0"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"B", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`B[-$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], "+", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.521941549099174*^9, 3.521971090232419*^9, 3.521971481614851*^9, 
   3.5219715701968603`*^9, 3.521972163117927*^9, 3.521973959089261*^9, 
   3.522029107286788*^9, 3.524393975486917*^9, 3.5243963213761177`*^9, 
   3.524977867972945*^9, 3.5249972212528267`*^9, 3.5250678776289873`*^9, 
   3.525070798881955*^9, 3.525072073827121*^9, 3.525073230877885*^9, 
   3.525081026313879*^9, 3.525187139811304*^9, 3.525240248820526*^9, 
   3.52524390329451*^9, 3.525397531390213*^9, 3.525398676560268*^9, 
   3.525493464990684*^9, 3.525660868875573*^9, 3.525661912810141*^9, 
   3.525662980721374*^9, 3.5256732798975143`*^9, 3.545738871961026*^9, 
   3.54599113340362*^9, 3.545991474034542*^9, 3.5460001261087008`*^9, 
   3.546021358589579*^9, 3.546057617458102*^9, 3.5460645880158052`*^9, 
   3.5460911284269533`*^9, 3.546325605045512*^9, 3.548247332641067*^9, 
   3.548404551227654*^9, 3.548481249754836*^9, 3.548511428999814*^9, 
   3.548525809335053*^9, 3.548567872693529*^9, 3.548571056409317*^9, 
   3.5485750095829*^9, 3.548591588556189*^9, 3.548662095134499*^9, 
   3.548700118113858*^9, 3.5487562520769167`*^9, 3.548911243793336*^9, 
   3.5489306091774883`*^9, 3.548960797107036*^9, 3.54900217983033*^9, 
   3.54902086436481*^9, 3.549043539756328*^9, 3.549047027600327*^9, 
   3.549086274124125*^9, 3.5490962721391907`*^9, 3.549260305208687*^9, 
   3.549272924288802*^9, 3.549305073071916*^9, 3.549305290501519*^9, 
   3.549305799571639*^9, 3.549358880336711*^9, 3.549433147014003*^9, 
   3.549462312471643*^9, 3.549540245790296*^9, 3.550921584258209*^9, 
   3.5509907143867702`*^9, 3.550996421612728*^9, 3.55099659009726*^9, 
   3.555347190554941*^9, 3.557392099203514*^9, 3.5574031492320642`*^9, 
   3.557466459609083*^9, 3.557579375355739*^9, 3.557635728867743*^9, 
   3.558441138287395*^9, 3.558549885499185*^9, 3.560007738741188*^9, 
   3.560044352045219*^9, 3.560044411163178*^9, 3.560185496303199*^9, 
   3.560186283549738*^9, 3.5601863598617764`*^9, 3.560186506790037*^9, 
   3.5602228755982933`*^9, 3.560256420980345*^9, 3.56026892734724*^9, 
   3.560269929734268*^9, 3.5602714148912973`*^9, 3.560516250904035*^9, 
   3.560521598392482*^9, 3.560534286943048*^9, 3.560535148832515*^9, 
   3.560842314896956*^9, 3.560844434667984*^9, 3.56117680631322*^9, 
   3.561210845668639*^9, 3.561269144643094*^9, 3.561275595854014*^9, 
   3.561276938877966*^9, 3.561302804532845*^9, 3.56130536527299*^9, 
   3.561308535441258*^9, 3.561308784231099*^9, {3.561360310053151*^9, 
   3.561360064770199*^9}, 3.7281150200948067`*^9, 3.731234874890399*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"353f24c8-c286-48e8-9320-2e9e9e3d77c8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"BTo\[ScriptF]", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521883881416555*^9, 3.521883888237206*^9}, {
  3.5219415526778593`*^9, 3.521941553215928*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"3ad25507-e4b9-493c-93d6-a6b0dd812cde"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"BTo\[ScriptF]", ",", 
    RowBox[{"\[ScriptF]", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}]}], "]"}], "//", "Flatten"}]], "Input",
 CellChangeTimes->{{3.521941555543208*^9, 3.521941568286901*^9}, {
  3.52506788148193*^9, 3.525067882053225*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"12bc8811-baf4-4d85-b0da-d66cfdc5a3e5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`B[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5219415688236713`*^9, 3.521971090249321*^9, 3.5219714816387873`*^9, 
   3.521971570217725*^9, 3.521972163144661*^9, 3.521973959126392*^9, 
   3.522029107642482*^9, 3.524393975592312*^9, 3.524396321415481*^9, 
   3.5249778680046797`*^9, 3.524997221266955*^9, {3.5250678788146353`*^9, 
   3.5250678825748873`*^9}, 3.52507079892246*^9, 3.5250720738668833`*^9, 
   3.5250732309042473`*^9, 3.525081026365302*^9, 3.525187139912654*^9, 
   3.525240248843462*^9, 3.525243903332398*^9, 3.525397531442605*^9, 
   3.5253986765917177`*^9, 3.525493465025756*^9, 3.525660868906353*^9, 
   3.525661912841312*^9, 3.525662980829689*^9, 3.525673279940524*^9, 
   3.5457388720157833`*^9, 3.545991133582546*^9, 3.545991474133964*^9, 
   3.546000126203657*^9, 3.54602135862001*^9, 3.5460576175232153`*^9, 
   3.5460645880746183`*^9, 3.5460911284929037`*^9, 3.546325605085209*^9, 
   3.548247332661827*^9, 3.5484045512702417`*^9, 3.54848124979217*^9, 
   3.548511429028097*^9, 3.5485258093621807`*^9, 3.54856787274959*^9, 
   3.5485710564679213`*^9, 3.548575009676661*^9, 3.54859158861147*^9, 
   3.548662095174472*^9, 3.548700118136726*^9, 3.5487562521155777`*^9, 
   3.548911243815763*^9, 3.548930609200655*^9, 3.54896079719271*^9, 
   3.549002179879005*^9, 3.5490208643941517`*^9, 3.549043539787939*^9, 
   3.549047027635099*^9, 3.549086274196787*^9, 3.549096272181491*^9, 
   3.5492603053339643`*^9, 3.5492729243378696`*^9, 3.549305073101057*^9, 
   3.549305290538826*^9, 3.549305799602969*^9, 3.5493588803795233`*^9, 
   3.5494331470399723`*^9, 3.549462312507895*^9, 3.54954024580438*^9, 
   3.550921584296877*^9, 3.5509907144264107`*^9, 3.550996421654955*^9, 
   3.550996590140942*^9, 3.555347190573709*^9, 3.557392099242139*^9, 
   3.5574031492441387`*^9, 3.55746645969864*^9, 3.5575793753851347`*^9, 
   3.5576357289151583`*^9, 3.558441138325666*^9, 3.558549885528232*^9, 
   3.560007738782881*^9, 3.5600443520889997`*^9, 3.560044411182118*^9, 
   3.560185496349592*^9, 3.560186283624743*^9, 3.5601863598827*^9, 
   3.5601865068106318`*^9, 3.5602228756204643`*^9, 3.560256421003025*^9, 
   3.560268927386554*^9, 3.5602699297680283`*^9, 3.560271414958062*^9, 
   3.560516250959302*^9, 3.560521598437787*^9, 3.560534286972887*^9, 
   3.560535148863535*^9, 3.560842314932221*^9, 3.5608444347990522`*^9, 
   3.5611768063356037`*^9, 3.561210845764843*^9, 3.5612691447503357`*^9, 
   3.5612755959201307`*^9, 3.561276938919359*^9, 3.561302804568623*^9, 
   3.561305365410523*^9, 3.561308535566557*^9, 3.561308784279467*^9, {
   3.561360310095591*^9, 3.561360064794433*^9}, 3.728115020114369*^9, 
   3.731234874919065*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"89be4f4b-1179-4f28-9bbc-ab013912049d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.5219415702938347`*^9, 3.521941574955038*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"c58fd81a-cb4e-4165-a817-28a2a257451b"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[ScriptF]", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`B[-$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}], "-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.521941575503724*^9, 3.5219710902554617`*^9, 3.5219714816583776`*^9, 
   3.521971570222434*^9, 3.5219721631869698`*^9, 3.521973959131693*^9, 
   3.522029107713983*^9, 3.524393975600173*^9, 3.524396321456233*^9, 
   3.524977868009511*^9, 3.524997221275662*^9, 3.525067883782955*^9, 
   3.525070798954978*^9, 3.525072073873065*^9, 3.5250732309279337`*^9, 
   3.525081026410359*^9, 3.5251871399394913`*^9, 3.5252402488618383`*^9, 
   3.525243903338747*^9, 3.5253975314597063`*^9, 3.525398676623576*^9, 
   3.525493465064559*^9, 3.5256608689118032`*^9, 3.5256619128684483`*^9, 
   3.525662980840493*^9, 3.52567327997946*^9, 3.545738872027267*^9, 
   3.545991133661656*^9, 3.5459914741709023`*^9, 3.546000126285969*^9, 
   3.546021358667642*^9, 3.546057617538074*^9, 3.546064588099904*^9, 
   3.5460911285112343`*^9, 3.546325605154572*^9, 3.548247332722987*^9, 
   3.548404551292499*^9, 3.548481249799408*^9, 3.548511429057433*^9, 
   3.548525809369527*^9, 3.5485678727819138`*^9, 3.548571056479615*^9, 
   3.548575009730135*^9, 3.548591588651457*^9, 3.548662095193198*^9, 
   3.548700118148642*^9, 3.5487562521316137`*^9, 3.548911243828001*^9, 
   3.548930609212798*^9, 3.548960797222021*^9, 3.549002179888506*^9, 
   3.549020864467025*^9, 3.549043539794825*^9, 3.549047027652381*^9, 
   3.5490862742271223`*^9, 3.549096272193631*^9, 3.549260305372389*^9, 
   3.549272924422364*^9, 3.5493050731231318`*^9, 3.549305290547306*^9, 
   3.549305799612101*^9, 3.549358880394785*^9, 3.549433147048595*^9, 
   3.549462312520033*^9, 3.549540245830399*^9, 3.5509215843081417`*^9, 
   3.550990714439584*^9, 3.55099642166908*^9, 3.550996590155098*^9, 
   3.555347190584908*^9, 3.557392099261963*^9, 3.5574031492513123`*^9, 
   3.557466459706465*^9, 3.557579375392393*^9, 3.557635728922482*^9, 
   3.5584411383387127`*^9, 3.5585498855370913`*^9, 3.5600077387963552`*^9, 
   3.5600443521009912`*^9, 3.560044411215044*^9, 3.5601854963873053`*^9, 
   3.560186283636392*^9, 3.5601863598945208`*^9, 3.560186506822259*^9, 
   3.560222875633349*^9, 3.5602564210165586`*^9, 3.560268927400033*^9, 
   3.560269929794119*^9, 3.5602714149867764`*^9, 3.560516250972747*^9, 
   3.5605215984514017`*^9, 3.560534286980239*^9, 3.560535148871282*^9, 
   3.560842314948415*^9, 3.5608444348631*^9, 3.5611768063644*^9, 
   3.561210845800673*^9, 3.561269144768652*^9, 3.5612755959346333`*^9, 
   3.561276938951611*^9, 3.561302804588807*^9, 3.56130536544627*^9, 
   3.5613085355807457`*^9, 3.561308784292736*^9, {3.5613603101090813`*^9, 
   3.561360064824856*^9}, 3.728115020130226*^9, 3.731234874939973*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"5ee77b72-dfe8-4a5c-9f49-8e6ff2751c4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[ScriptF]ToB", "=", "%"}]], "Input",
 CellChangeTimes->{{3.521941577191332*^9, 3.5219415810836077`*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"d69c3d82-ef74-4404-8f7f-969fb2b6ef11"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[ScriptF]", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`B[-$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}], "-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.521941582075328*^9, 3.521971090270451*^9, 3.521971481663117*^9, 
   3.52197157022715*^9, 3.521972163227302*^9, 3.52197395913684*^9, 
   3.522029107811709*^9, 3.5243939756065702`*^9, 3.524396321489523*^9, 
   3.524977868013871*^9, 3.5249972213134823`*^9, 3.5250678847646914`*^9, 
   3.52507079895944*^9, 3.525072073878175*^9, 3.525073230934496*^9, 
   3.525081026454199*^9, 3.525187139944385*^9, 3.525240248866901*^9, 
   3.525243903343574*^9, 3.525397531475224*^9, 3.5253986766289587`*^9, 
   3.525493465072466*^9, 3.525660868917349*^9, 3.525661912875102*^9, 
   3.5256629808535*^9, 3.52567327998871*^9, 3.545738872038554*^9, 
   3.545991133763612*^9, 3.545991474207035*^9, 3.546000126403376*^9, 
   3.546021358681625*^9, 3.546057617552636*^9, 3.5460645881145077`*^9, 
   3.546091128529196*^9, 3.546325605175646*^9, 3.548247332735112*^9, 
   3.548404551309825*^9, 3.548481249806212*^9, 3.548511429069015*^9, 
   3.548525809376192*^9, 3.548567872808484*^9, 3.548571056490117*^9, 
   3.548575009736775*^9, 3.548591588679112*^9, 3.5486620952076883`*^9, 
   3.548700118199201*^9, 3.548756252144567*^9, 3.548911243840569*^9, 
   3.548930609247842*^9, 3.548960797255726*^9, 3.5490021798953743`*^9, 
   3.549020864513208*^9, 3.549043539801606*^9, 3.549047027687312*^9, 
   3.549086274243617*^9, 3.549096272205666*^9, 3.549260305385618*^9, 
   3.54927292444971*^9, 3.5493050731333447`*^9, 3.5493052905557737`*^9, 
   3.549305799635257*^9, 3.549358880409872*^9, 3.549433147055683*^9, 
   3.549462312532096*^9, 3.549540245858885*^9, 3.550921584339429*^9, 
   3.550990714452531*^9, 3.550996421737262*^9, 3.550996590169187*^9, 
   3.555347190616519*^9, 3.55739209928158*^9, 3.557403149281097*^9, 
   3.557466459714192*^9, 3.557579375401232*^9, 3.557635728929619*^9, 
   3.558441138351403*^9, 3.558549885548212*^9, 3.5600077388286963`*^9, 
   3.560044352112521*^9, 3.560044411226521*^9, 3.5601854964135933`*^9, 
   3.5601862836511507`*^9, 3.5601863599259977`*^9, 3.5601865068526907`*^9, 
   3.560222875659822*^9, 3.5602564210481987`*^9, 3.560268927413269*^9, 
   3.560269929820479*^9, 3.5602714149988613`*^9, 3.560516250986046*^9, 
   3.560521598463818*^9, 3.56053428698773*^9, 3.56053514887781*^9, 
   3.560842314973983*^9, 3.5608444349372787`*^9, 3.561176806378159*^9, 
   3.561210845837789*^9, 3.561269144786476*^9, 3.5612755959482937`*^9, 
   3.5612769390055447`*^9, 3.5613028046354713`*^9, 3.561305365491438*^9, 
   3.561308535618288*^9, 3.561308784305769*^9, {3.5613603101237707`*^9, 
   3.5613600648430147`*^9}, 3.7281150201449337`*^9, 3.731234874962805*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"2e63b786-319d-4e29-8dbb-133afe7d2d8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["SchoutenUnphysicalToSchoutenWeyl"], "Input",
 CellLabel->
  "In[166]:=",ExpressionUUID->"e32fa9e4-61f7-4174-8203-dc65a0bae246"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.521940718678714*^9, 3.521940726209496*^9}, 
   3.5219415895939407`*^9, 3.521941880791379*^9, 3.5219710902866793`*^9, 
   3.5219714816822033`*^9, 3.5219715702458353`*^9, 3.5219721632759857`*^9, 
   3.521973959156041*^9, 3.522029107877449*^9, 3.52439397564227*^9, 
   3.524396321527176*^9, 3.5249778680430403`*^9, 3.5249972213279247`*^9, 
   3.5250678857021*^9, 3.525070799003727*^9, 3.5250720739152203`*^9, 
   3.525073230958787*^9, 3.5250810265053053`*^9, 3.5251871399777393`*^9, 
   3.525240248889221*^9, 3.525243903379458*^9, 3.525397531495265*^9, 
   3.525398676657385*^9, 3.525493465101831*^9, 3.525660868930292*^9, 
   3.525661912901348*^9, 3.525662980865032*^9, 3.525673280031623*^9, 
   3.5457388720897512`*^9, 3.54599113378905*^9, 3.545991474238009*^9, 
   3.546000126462834*^9, 3.546021358698482*^9, 3.546057617600123*^9, 
   3.546064588133934*^9, 3.5460911286458483`*^9, 3.546325605202503*^9, 
   3.548247332749221*^9, 3.548404551330283*^9, 3.548481249816175*^9, 
   3.548511429085272*^9, 3.548525809398798*^9, 3.5485678728594*^9, 
   3.5485710565023203`*^9, 3.548575009744854*^9, 3.54859158869529*^9, 
   3.548662095244834*^9, 3.5487001182796497`*^9, 3.5487562521828547`*^9, 
   3.548911243878729*^9, 3.548930609267569*^9, 3.548960797266366*^9, 
   3.549002179905119*^9, 3.5490208645476103`*^9, 3.549043539829611*^9, 
   3.549047027706676*^9, 3.549086274255435*^9, 3.5490962722223797`*^9, 
   3.549260305400949*^9, 3.5492729245020027`*^9, 3.5493050731590347`*^9, 
   3.549305290579274*^9, 3.5493057996446133`*^9, 3.549358880447893*^9, 
   3.5494331470857058`*^9, 3.549462312560605*^9, 3.549540245892426*^9, 
   3.550921584355032*^9, 3.550990714470799*^9, 3.550996421778508*^9, 
   3.5509965901857967`*^9, 3.5553471906329107`*^9, 3.557392099336546*^9, 
   3.557403149292224*^9, 3.5574664597255077`*^9, 3.557579375427312*^9, 
   3.5576357289754667`*^9, 3.5584411383843946`*^9, 3.5585498855800457`*^9, 
   3.56000773884767*^9, 3.560044352149629*^9, 3.560044411243134*^9, 
   3.560185496440743*^9, 3.560186283664907*^9, 3.5601863599424057`*^9, 
   3.560186506869379*^9, 3.56022287567875*^9, 3.5602564210676003`*^9, 
   3.560268927447277*^9, 3.560269929834654*^9, 3.560271415012871*^9, 
   3.560516251031452*^9, 3.56052159850191*^9, 3.5605342869979267`*^9, 
   3.560535148911498*^9, 3.560842314996467*^9, 3.560844434984868*^9, 
   3.5611768063969393`*^9, 3.561210845857793*^9, 3.561269144837462*^9, 
   3.561275595963406*^9, 3.56127693904528*^9, 3.561302804669788*^9, 
   3.561305365543239*^9, 3.561308535671731*^9, 3.561308784381712*^9, {
   3.561360310145545*^9, 3.5613600648643303`*^9}, 3.7281150201637983`*^9, 
   3.731234874989422*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"42435bc8-3049-42e6-9dc3-129322841652"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
  "ApplyRule", "@", "SchoutenUnphysicalToSchoutenPhysical"}]}]], "Input",
 CellChangeTimes->{{3.521940733567788*^9, 3.5219407381985397`*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"c7631477-811f-4a31-8f4b-0f1a77f71436"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], 
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521940738990374*^9, 3.521941590271656*^9, 3.5219418812823772`*^9, 
   3.521971090310843*^9, 3.5219714817326593`*^9, 3.521971570292426*^9, 
   3.521972163322397*^9, 3.5219739591773567`*^9, 3.52202910795385*^9, 
   3.5243939756887493`*^9, 3.524396321575*^9, 3.524977868079088*^9, 
   3.524997221352309*^9, 3.525067886806736*^9, 3.525070799040518*^9, 
   3.525072073958774*^9, 3.525073231000493*^9, 3.525081026569664*^9, 
   3.5251871400140343`*^9, 3.525240248926585*^9, 3.525243903423728*^9, 
   3.525397531521632*^9, 3.525398676713882*^9, 3.525493465143405*^9, 
   3.525660868978828*^9, 3.525661912950992*^9, 3.525662980891427*^9, 
   3.525673280120392*^9, 3.5457388721534863`*^9, 3.545991133863144*^9, 
   3.545991474283821*^9, 3.5460001265291777`*^9, 3.5460213587581863`*^9, 
   3.546057617664113*^9, 3.546064588213171*^9, 3.546091128751502*^9, 
   3.546325605279413*^9, 3.548247332832542*^9, 3.548404551390538*^9, 
   3.548481249865375*^9, 3.5485114291259108`*^9, 3.548525809423728*^9, 
   3.548567872908959*^9, 3.548571056538426*^9, 3.5485750097712793`*^9, 
   3.548591588746685*^9, 3.5486620952863007`*^9, 3.548700118331751*^9, 
   3.5487562522319603`*^9, 3.548911243915913*^9, 3.5489306093101807`*^9, 
   3.5489607972932568`*^9, 3.5490021799284973`*^9, 3.54902086460165*^9, 
   3.5490435398828297`*^9, 3.5490470277428627`*^9, 3.549086274296749*^9, 
   3.549096272281663*^9, 3.549260305442088*^9, 3.5492729245492697`*^9, 
   3.5493050732513027`*^9, 3.549305290603403*^9, 3.549305799667694*^9, 
   3.549358880480796*^9, 3.5494331471260366`*^9, 3.549462312590001*^9, 
   3.549540245930578*^9, 3.550921584397903*^9, 3.550990714521656*^9, 
   3.550996421841691*^9, 3.550996590277649*^9, 3.555347190670445*^9, 
   3.557392099397027*^9, 3.5574031493222923`*^9, 3.557466459767068*^9, 
   3.5575793754584637`*^9, 3.557635729008519*^9, 3.558441138423409*^9, 
   3.5585498856109943`*^9, 3.5600077388931227`*^9, 3.56004435219256*^9, 
   3.5600444112924767`*^9, 3.5601854964832067`*^9, 3.560186283731739*^9, 
   3.5601863599878197`*^9, 3.5601865069076643`*^9, 3.560222875779296*^9, 
   3.5602564211116543`*^9, 3.5602689274869223`*^9, 3.560269929869413*^9, 
   3.5602714150493183`*^9, 3.560516251087777*^9, 3.5605215985453672`*^9, 
   3.560534287044579*^9, 3.560535148941155*^9, 3.560842315037177*^9, 
   3.5608444351018972`*^9, 3.561176806446083*^9, 3.561210845916259*^9, 
   3.561269144897402*^9, 3.561275596015739*^9, 3.561276939101347*^9, 
   3.561302804719446*^9, 3.561305365605028*^9, 3.561308535744094*^9, 
   3.561308784436067*^9, {3.5613603101910467`*^9, 3.561360064907148*^9}, 
   3.7281150201913757`*^9, 3.7312348750171833`*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"9a348090-0ba8-41ee-81cb-1eeee4e83785"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.5219408437928867`*^9, 3.5219408615840397`*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"65a36173-6df4-4a9d-a2d2-e796643622ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], 
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"\[Del]", ",", 
             OverscriptBox["\[Del]", "^"]}], "]"}], 
           StyleBox[GridBox[{
              {"\[Gamma]", " ", " "},
              {" ", "\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5219408622397003`*^9, 3.521941603126199*^9, 3.521941881840476*^9, 
   3.5219710903326187`*^9, 3.521971481759815*^9, 3.521971570317836*^9, 
   3.521972163378221*^9, 3.521973959200385*^9, 3.522029108048808*^9, 
   3.524393975734683*^9, 3.524396321662644*^9, 3.524977868112344*^9, 
   3.524997221371649*^9, 3.525067887686164*^9, 3.5250707990758038`*^9, 
   3.525072074005274*^9, 3.525073231039936*^9, 3.52508102666179*^9, 
   3.52518714006269*^9, 3.525240248960162*^9, 3.525243903470736*^9, 
   3.5253975315475683`*^9, 3.525398676748061*^9, 3.5254934651760807`*^9, 
   3.5256608690229053`*^9, 3.525661912987631*^9, 3.525662980949888*^9, 
   3.525673280173065*^9, 3.545738872218405*^9, 3.545991133952983*^9, 
   3.545991474596368*^9, 3.546000126634487*^9, 3.546021358833547*^9, 
   3.546057617728919*^9, 3.546064588278728*^9, 3.546091128830703*^9, 
   3.546325605358758*^9, 3.5482473329017963`*^9, 3.548404551475718*^9, 
   3.548481249909692*^9, 3.54851142917262*^9, 3.548525809451894*^9, 
   3.548567872942562*^9, 3.548571056567512*^9, 3.548575009801659*^9, 
   3.548591588813035*^9, 3.5486620953388844`*^9, 3.548700118379912*^9, 
   3.548756252276227*^9, 3.548911243964716*^9, 3.5489306093334703`*^9, 
   3.54896079732056*^9, 3.5490021799695053`*^9, 3.549020864692692*^9, 
   3.5490435399173937`*^9, 3.549047027764894*^9, 3.549086274334342*^9, 
   3.5490962723263283`*^9, 3.549260305486476*^9, 3.549272924589389*^9, 
   3.549305073425294*^9, 3.549305290636065*^9, 3.5493057997261953`*^9, 
   3.549358880508189*^9, 3.549433147159976*^9, 3.549462312624915*^9, 
   3.54954024597355*^9, 3.5509215844409313`*^9, 3.550990714547133*^9, 
   3.5509964218914337`*^9, 3.550996590321721*^9, 3.555347190703504*^9, 
   3.55739209945767*^9, 3.557403149365562*^9, 3.5574664598039017`*^9, 
   3.557579375497161*^9, 3.557635729044079*^9, 3.558441138463129*^9, 
   3.558549885645237*^9, 3.5600077389389877`*^9, 3.5600443522369623`*^9, 
   3.560044411335229*^9, 3.560185496512528*^9, 3.560186283772483*^9, 
   3.560186360024658*^9, 3.560186506943369*^9, 3.560222875932456*^9, 
   3.560256421153206*^9, 3.5602689275270147`*^9, 3.560269929900178*^9, 
   3.560271415086008*^9, 3.560516251145444*^9, 3.560521598590671*^9, 
   3.560534287083596*^9, 3.560535148989353*^9, 3.560842315077273*^9, 
   3.560844435144169*^9, 3.5611768064896507`*^9, 3.561210845968202*^9, 
   3.561269144975828*^9, 3.561275596075839*^9, 3.561276939145187*^9, 
   3.561302804791194*^9, 3.561305365642634*^9, 3.561308535787424*^9, 
   3.561308784530815*^9, {3.5613603102335463`*^9, 3.561360065017736*^9}, 
   3.728115020214617*^9, 3.731234875046474*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"8b79037d-8235-4d39-9fcb-d109383b751e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.521940929522873*^9, 3.521940933749167*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"bead1207-258c-41d3-ae74-d2f7c032edd9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], 
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"S", 
           StyleBox[GridBox[{
              {" ", " ", "\[Gamma]", "\[Delta]"},
              {"\[Beta]", "\[Alpha]", " ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`SUnphysical[-$CellContext`\[Beta], \
-$CellContext`\[Alpha], $CellContext`\[Gamma], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521940935944036*^9, 3.521941604885558*^9, 3.521941882517252*^9, 
   3.52197109035833*^9, 3.521971481886014*^9, 3.5219715703455877`*^9, 
   3.521972163437842*^9, 3.521973959226858*^9, 3.522029108210945*^9, 
   3.524393975792116*^9, 3.524396321829899*^9, 3.524977868149643*^9, 
   3.524997221396288*^9, 3.525067888344202*^9, 3.5250707991200323`*^9, 
   3.5250720740500526`*^9, 3.5250732310868883`*^9, 3.5250810267274933`*^9, 
   3.5251871401053247`*^9, 3.5252402489924593`*^9, 3.525243903512697*^9, 
   3.5253975315814867`*^9, 3.5253986767873297`*^9, 3.525493465221642*^9, 
   3.525660869066802*^9, 3.525661913026042*^9, 3.525662980991602*^9, 
   3.5256732802398643`*^9, 3.5457388722922173`*^9, 3.5459911341262903`*^9, 
   3.545991474641409*^9, 3.546000126677248*^9, 3.546021358886896*^9, 
   3.5460576177955637`*^9, 3.546064588366757*^9, 3.54609112889961*^9, 
   3.546325605437291*^9, 3.5482473329937353`*^9, 3.548404551542191*^9, 
   3.548481249950766*^9, 3.5485114292492743`*^9, 3.548525809487389*^9, 
   3.548567872986908*^9, 3.548571056603284*^9, 3.5485750098367243`*^9, 
   3.548591588866654*^9, 3.5486620954029217`*^9, 3.548700118431591*^9, 
   3.548756252336*^9, 3.54891124400403*^9, 3.548930609375471*^9, 
   3.5489607973570013`*^9, 3.549002180006247*^9, 3.549020864753221*^9, 
   3.549043539964735*^9, 3.549047027802917*^9, 3.549086274379273*^9, 
   3.549096272386957*^9, 3.5492603055341387`*^9, 3.549272924635003*^9, 
   3.549305073467134*^9, 3.549305290668989*^9, 3.549305799762175*^9, 
   3.549358880541263*^9, 3.549433147195815*^9, 3.549462312655416*^9, 
   3.549540246014206*^9, 3.550921584492083*^9, 3.550990714578329*^9, 
   3.550996421951765*^9, 3.5509965903768597`*^9, 3.555347190754567*^9, 
   3.557392099523815*^9, 3.557403149433387*^9, 3.5574664598540993`*^9, 
   3.557579375540711*^9, 3.557635729095756*^9, 3.558441138509379*^9, 
   3.5585498856854897`*^9, 3.5600077389918003`*^9, 3.56004435229992*^9, 
   3.5600444113833723`*^9, 3.560185496555691*^9, 3.560186283853924*^9, 
   3.560186360070579*^9, 3.5601865069886513`*^9, 3.560222876242971*^9, 
   3.5602564212058887`*^9, 3.560268927573469*^9, 3.560269929941104*^9, 
   3.560271415129134*^9, 3.560516251252109*^9, 3.560521598650975*^9, 
   3.560534287134243*^9, 3.560535149030583*^9, 3.560842315144188*^9, 
   3.560844435192017*^9, 3.561176806530661*^9, 3.5612108460216513`*^9, 
   3.561269145036849*^9, 3.561275596139533*^9, 3.56127693918482*^9, 
   3.561302804843506*^9, 3.561305365719777*^9, 3.5613085358659277`*^9, 
   3.561308784588674*^9, {3.5613603102969112`*^9, 3.561360065071748*^9}, 
   3.728115020241517*^9, 3.731234875075468*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"b22d4858-4e18-483c-a19b-6515f72de783"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5219409687694387`*^9, 3.521940969724145*^9}, {
  3.521941082344195*^9, 3.521941086835672*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"9a67b78b-592e-40a2-b738-da0a13fcc740"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], 
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]]],
      Editable->False], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[Delta]", 
              StyleBox[GridBox[{
                 {" ", "\[Delta]"},
                 {"\[Alpha]", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[Delta]", 
              StyleBox[GridBox[{
                 {" ", "\[Gamma]"},
                 {"\[Beta]", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[Delta]", 
              StyleBox[GridBox[{
                 {" ", "\[Gamma]"},
                 {"\[Alpha]", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[Delta]", 
              StyleBox[GridBox[{
                 {" ", "\[Delta]"},
                 {"\[Beta]", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {"\[Gamma]", "\[Delta]"},
                 {" ", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[$CellContext`\[Gamma], $CellContext`\
\[Delta]],
          Editable->False]}]}], ")"}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521941088628471*^9, 3.5219416056335287`*^9, 3.521941883273868*^9, 
   3.521971090398547*^9, 3.521971481912575*^9, 3.521971570383134*^9, 
   3.521972163514803*^9, 3.521973959263872*^9, 3.522029108316875*^9, 
   3.5243939758512917`*^9, 3.524396321969656*^9, 3.52497786820121*^9, 
   3.524997221465498*^9, 3.5250678891157312`*^9, 3.525070799172858*^9, 
   3.525072074104176*^9, 3.525073231144793*^9, 3.5250810268207684`*^9, 
   3.525187140158381*^9, 3.525240249036622*^9, 3.525243903570549*^9, 
   3.525397531619177*^9, 3.525398676837775*^9, 3.525493465277706*^9, 
   3.5256608691262617`*^9, 3.5256619130726643`*^9, 3.525662981043112*^9, 
   3.525673280328332*^9, 3.5457388723999567`*^9, 3.545991134214333*^9, 
   3.545991474723894*^9, 3.546000126738483*^9, 3.546021358987566*^9, 
   3.546057617883284*^9, 3.546064588484668*^9, 3.546091129021349*^9, 
   3.54632560555715*^9, 3.54824733305237*^9, 3.548404551621481*^9, 
   3.54848125000288*^9, 3.548511429326462*^9, 3.5485258095337563`*^9, 
   3.548567873042049*^9, 3.548571056649201*^9, 3.548575009883519*^9, 
   3.548591588949685*^9, 3.548662095459304*^9, 3.548700118493451*^9, 
   3.54875625240031*^9, 3.548911244060794*^9, 3.548930609419993*^9, 
   3.548960797408661*^9, 3.549002180064081*^9, 3.549020864824231*^9, 
   3.5490435400258007`*^9, 3.5490470278636923`*^9, 3.549086274441511*^9, 
   3.549096272469101*^9, 3.5492603055943832`*^9, 3.549272924704979*^9, 
   3.549305073519082*^9, 3.549305290729497*^9, 3.5493057998058147`*^9, 
   3.5493588806177883`*^9, 3.54943314727081*^9, 3.5494623127611933`*^9, 
   3.5495402460788393`*^9, 3.5509215845625343`*^9, 3.550990714625568*^9, 
   3.550996422011229*^9, 3.550996590423044*^9, 3.555347190813847*^9, 
   3.557392099596293*^9, 3.557403149545525*^9, 3.557466459914749*^9, 
   3.557579375588069*^9, 3.55763572915762*^9, 3.5584411385720587`*^9, 
   3.558549885727306*^9, 3.560007739064396*^9, 3.560044352369487*^9, 
   3.5600444114478827`*^9, 3.560185496615999*^9, 3.5601862839366503`*^9, 
   3.5601863601369534`*^9, 3.560186507050088*^9, 3.560222876352974*^9, 
   3.5602564212773438`*^9, 3.560268927636396*^9, 3.560269929997842*^9, 
   3.560271415188548*^9, 3.560516251316181*^9, 3.5605215986910553`*^9, 
   3.560534287169299*^9, 3.560535149081853*^9, 3.560842315212141*^9, 
   3.560844435255628*^9, 3.561176806616158*^9, 3.5612108460892687`*^9, 
   3.5612691451129303`*^9, 3.5612755961996326`*^9, 3.561276939270999*^9, 
   3.561302804922402*^9, 3.561305365787078*^9, 3.561308535942728*^9, 
   3.5613087846636257`*^9, {3.5613603103708*^9, 3.561360065143778*^9}, 
   3.72811502027894*^9, 3.731234875110442*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"0591391d-eefe-45e6-88b0-9714827f387f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"%", ",", 
    RowBox[{"LWeylg", "[", 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Alpha]"}]}], "]"}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.521941099273264*^9, 3.521941110595457*^9}, {
  3.5219721784475946`*^9, 3.521972180756727*^9}, {3.525067892518561*^9, 
  3.525067894351906*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"0a36483d-e1ec-4644-bf44-1c392ea29e84"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "^"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "~"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False], " ", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False], " ", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], ")"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False], ")"}]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], ")"}]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[-$CellContext`\[Alpha]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], ")"}]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Delta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Delta]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], ")"}], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Delta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[$CellContext`\[Delta]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], ")"}]}], "+", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Zeta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[CurlyEpsilon]"], 
           "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[CurlyEpsilon]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], ")"}]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5219411112637367`*^9, 3.521941606672307*^9, 3.5219418840298233`*^9, 
   3.52197109042704*^9, 3.52197148195861*^9, 3.521971570414495*^9, {
   3.5219721635971003`*^9, 3.521972187290697*^9}, 3.521973959294141*^9, 
   3.522029108519717*^9, 3.524393975930299*^9, 3.5243963220327053`*^9, 
   3.524977868282599*^9, 3.5249972214943857`*^9, 3.5250678948671*^9, 
   3.525070799217359*^9, 3.525072074149444*^9, 3.525073231209127*^9, 
   3.5250810268986797`*^9, 3.5251871402061357`*^9, 3.52524024906956*^9, 
   3.5252439036083527`*^9, 3.5253975316467648`*^9, 3.5253986768724623`*^9, 
   3.525493465321527*^9, 3.5256608691780376`*^9, 3.525661913105235*^9, 
   3.5256629810841017`*^9, 3.525673280404372*^9, 3.54573887254697*^9, 
   3.5459911343500433`*^9, 3.545991474840239*^9, 3.546000126810487*^9, 
   3.546021359067217*^9, 3.546057617958331*^9, 3.546064588563181*^9, 
   3.546091129086205*^9, 3.546325605673997*^9, 3.548247333125916*^9, 
   3.548404551674162*^9, 3.5484812500489273`*^9, 3.548511429386735*^9, 
   3.548525809573143*^9, 3.548567873091228*^9, 3.548571056692399*^9, 
   3.548575009933564*^9, 3.548591589036249*^9, 3.548662095556036*^9, 
   3.5487001185452013`*^9, 3.548756252453697*^9, 3.54891124410674*^9, 
   3.548930609474935*^9, 3.548960797451172*^9, 3.549002180101741*^9, 
   3.549020864879504*^9, 3.549043540078466*^9, 3.5490470279079638`*^9, 
   3.549086274485558*^9, 3.549096272530851*^9, 3.549260305648954*^9, 
   3.5492729247845287`*^9, 3.549305073565106*^9, 3.549305290772896*^9, 
   3.5493057998438883`*^9, 3.549358880676261*^9, 3.549433147314137*^9, 
   3.549462312820174*^9, 3.5495402461180563`*^9, 3.550921584633995*^9, 
   3.550990714687899*^9, 3.5509964220844507`*^9, 3.550996590453497*^9, 
   3.555347190873992*^9, 3.5573920997183867`*^9, 3.557403149595389*^9, 
   3.5574664599581842`*^9, 3.557579375631616*^9, 3.557635729197055*^9, 
   3.558441138622066*^9, 3.558549885775131*^9, 3.560007739153558*^9, 
   3.560044352438074*^9, 3.5600444115001287`*^9, 3.560185496666214*^9, 
   3.5601862839884777`*^9, 3.560186360187088*^9, 3.560186507099045*^9, 
   3.560222876435916*^9, 3.560256421363449*^9, 3.5602689276868258`*^9, 
   3.560269930042749*^9, 3.560271415235588*^9, 3.560516251468863*^9, 
   3.560521598721241*^9, 3.560534287216568*^9, 3.560535149124954*^9, 
   3.560842315257258*^9, 3.560844435306841*^9, 3.561176806673078*^9, 
   3.5612108461500483`*^9, 3.5612691451781473`*^9, 3.56127559632647*^9, 
   3.56127693933882*^9, 3.561302804984893*^9, 3.561305365841601*^9, 
   3.5613085360453444`*^9, 3.561308784776126*^9, {3.56136031044454*^9, 
   3.561360065203554*^9}, 3.728115020307494*^9, 3.731234875142926*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"fd70cbe8-1376-40bc-a189-60603cab4ec4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.5219411128355083`*^9, 3.521941117597931*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"9391e877-407e-4250-938a-a285094e4ed2"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "~"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Gamma]],
       Editable->False], " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Alpha]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
        Editable->False], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], 
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False], ")"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Delta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Delta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Delta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[$CellContext`\[Delta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[CurlyEpsilon]", "\[Zeta]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Zeta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[CurlyEpsilon]"], 
          "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[CurlyEpsilon]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.521941118165967*^9, 3.5219416073957787`*^9, 3.521941884821081*^9, 
   3.521971090455978*^9, 3.521971482062388*^9, 3.521971570436048*^9, {
   3.521972163741274*^9, 3.5219721890386677`*^9}, 3.5219739593196898`*^9, 
   3.522029108605554*^9, 3.524393975971521*^9, 3.524396322086273*^9, 
   3.524977868315727*^9, 3.524997221517878*^9, 3.525067895934169*^9, 
   3.525070799272772*^9, 3.5250720741930523`*^9, 3.525073231245813*^9, 
   3.525081026922475*^9, 3.525187140245977*^9, 3.525240249101265*^9, 
   3.525243903663179*^9, 3.525397531680373*^9, 3.5253986769111967`*^9, 
   3.525493465388132*^9, 3.5256608692170877`*^9, 3.525661913138919*^9, 
   3.525662981121409*^9, 3.525673280462761*^9, 3.5457388726325703`*^9, 
   3.545991134453817*^9, 3.545991474875579*^9, 3.546000126881741*^9, 
   3.546021359175775*^9, 3.546057617995501*^9, 3.546064588600313*^9, 
   3.546091129207636*^9, 3.546325605758828*^9, 3.5482473331954803`*^9, 
   3.548404551732375*^9, 3.548481250098844*^9, 3.548511429439179*^9, 
   3.548525809612075*^9, 3.5485678731590652`*^9, 3.5485710567229853`*^9, 
   3.548575009968574*^9, 3.548591589067937*^9, 3.5486620956267967`*^9, 
   3.548700118589615*^9, 3.548756252504365*^9, 3.548911244160048*^9, 
   3.548930609517418*^9, 3.548960797488264*^9, 3.549002180143682*^9, 
   3.5490208649272614`*^9, 3.549043540120412*^9, 3.5490470279506397`*^9, 
   3.54908627452719*^9, 3.549096272583528*^9, 3.549260305697167*^9, 
   3.549272924844995*^9, 3.549305073600223*^9, 3.549305290813116*^9, 
   3.5493057999153347`*^9, 3.5493588807461452`*^9, 3.549433147366302*^9, 
   3.549462312868985*^9, 3.549540246158741*^9, 3.55092158467577*^9, 
   3.550990714772406*^9, 3.550996422141984*^9, 3.550996590512789*^9, 
   3.555347190913918*^9, 3.557392099854946*^9, 3.557403149637672*^9, 
   3.5574664599967537`*^9, 3.557579375661907*^9, 3.557635729239513*^9, 
   3.558441138659988*^9, 3.5585498858142843`*^9, 3.560007739205055*^9, 
   3.5600443525367403`*^9, 3.560044411544587*^9, 3.560185496734084*^9, 
   3.560186284031475*^9, 3.560186360229382*^9, 3.560186507142466*^9, 
   3.5602228765036583`*^9, 3.560256421411111*^9, 3.560268927729137*^9, 
   3.560269930079309*^9, 3.560271415278397*^9, 3.560516251608005*^9, 
   3.560521598744687*^9, 3.560534287257378*^9, 3.5605351491659737`*^9, 
   3.5608423153032103`*^9, 3.56084443535*^9, 3.561176806716785*^9, 
   3.561210846198832*^9, 3.561269145231661*^9, 3.561275596417478*^9, 
   3.5612769393850393`*^9, 3.561302805038938*^9, 3.561305365885578*^9, 
   3.56130853609443*^9, 3.561308784830089*^9, {3.5613603105136757`*^9, 
   3.561360065256818*^9}, 3.728115020336183*^9, 3.731234875175075*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"da04a751-8af3-4cbe-9308-d7cc37e312f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.521941119706194*^9, 3.52194112276581*^9}, {
  3.52194161717878*^9, 3.5219416504587097`*^9}, {3.521941713461733*^9, 
  3.521941767538547*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"54437017-6c32-4aa2-bac9-a579877f3fc5"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,173,2,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.521972190073888*^9, 3.5219739593770313`*^9, 3.522029108847*^9, 
   3.524393976094185*^9, 3.5243963221693277`*^9, 3.524977868392727*^9, 
   3.524997221589631*^9, 3.5250678968107347`*^9, 3.525070799346579*^9, 
   3.525072074235998*^9, 3.5250732313017406`*^9, 3.525081026973517*^9, 
   3.525187140285658*^9, 3.525240249163454*^9, 3.52524390374508*^9, 
   3.52539753174942*^9, 3.525398676991803*^9, 3.525493465449354*^9, 
   3.5256608692765627`*^9, 3.525661913203384*^9, 3.525662981194553*^9, 
   3.525673280551939*^9, 3.5457388728111143`*^9, 3.5459911346325893`*^9, 
   3.545991474985589*^9, 3.546000127030424*^9, 3.5460213593801603`*^9, 
   3.546057618142468*^9, 3.546064588696327*^9, 3.546091129416396*^9, 
   3.546325605997156*^9, 3.5482473334947367`*^9, 3.5484045518988132`*^9, 
   3.548481250228401*^9, 3.54851142968609*^9, 3.5485258096830473`*^9, 
   3.548567873339316*^9, 3.548571056787223*^9, 3.548575010053318*^9, 
   3.548591589194178*^9, 3.548662095793002*^9, 3.548700118647153*^9, 
   3.548756252606099*^9, 3.5489112442591763`*^9, 3.548930609579959*^9, 
   3.548960797561307*^9, 3.54900218020851*^9, 3.549020865110222*^9, 
   3.549043540187563*^9, 3.5490470280071087`*^9, 3.549086274609098*^9, 
   3.549096272700989*^9, 3.549260305774819*^9, 3.549272924993331*^9, 
   3.549305073674985*^9, 3.549305290881159*^9, 3.549305800011153*^9, 
   3.549358880888789*^9, 3.549433147444152*^9, 3.5494623129461527`*^9, 
   3.549540246227914*^9, 3.550921584817211*^9, 3.55099071491044*^9, 
   3.550996422318758*^9, 3.5509965906651287`*^9, 3.555347191060864*^9, 
   3.557392100117091*^9, 3.55740314972178*^9, 3.5574664600662193`*^9, 
   3.5575793757470703`*^9, 3.557635729319984*^9, 3.55844113880999*^9, 
   3.558549885915492*^9, 3.560007739392364*^9, 3.560044352740443*^9, 
   3.5600444116434803`*^9, 3.560185496863851*^9, 3.560186284130808*^9, 
   3.5601863603297377`*^9, 3.560186507257338*^9, 3.5602228766497393`*^9, 
   3.560256421605379*^9, 3.560268927887041*^9, 3.560269930178512*^9, 
   3.560271415356365*^9, 3.560516251783997*^9, 3.560521598850024*^9, 
   3.560534287338344*^9, 3.560535149251751*^9, 3.560842315452667*^9, 
   3.56084443548829*^9, 3.561176806837088*^9, 3.561210846392042*^9, 
   3.561269145436473*^9, 3.5612755965957947`*^9, 3.561276939587455*^9, 
   3.561302805235034*^9, 3.561305366011901*^9, 3.561308536217802*^9, 
   3.5613087849436693`*^9, {3.561360310706826*^9, 3.561360065454783*^9}, 
   3.728115020385579*^9, 3.731234875223868*^9},
 CellLabel->
  "During evaluation of \
In[173]:=",ExpressionUUID->"a8ac4fc7-aa41-484c-a513-6a4cb73df2db"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`\[Beta]],
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Beta]"], 
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Gamma]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][$CellContext`\[Gamma]],
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}]}]], "Output",
 CellChangeTimes->{
  3.5219411241060457`*^9, {3.521941608489613*^9, 3.521941650948794*^9}, {
   3.5219417148812523`*^9, 3.521941726365974*^9}, 3.521941769633127*^9, 
   3.521941885495481*^9, 3.5219710905183363`*^9, 3.5219714821286488`*^9, 
   3.521971570513577*^9, {3.521972163812338*^9, 3.521972190106847*^9}, 
   3.521973959390395*^9, 3.5220291089021587`*^9, 3.524393976099831*^9, 
   3.524396322195874*^9, 3.524977868406727*^9, 3.524997221596532*^9, 
   3.525067896902894*^9, 3.525070799357082*^9, 3.525072074263495*^9, 
   3.525073231318968*^9, 3.525081026978828*^9, 3.5251871403211193`*^9, 
   3.5252402491805773`*^9, 3.525243903760275*^9, 3.5253975317668552`*^9, 
   3.5253986770284243`*^9, 3.525493465455212*^9, 3.525660869310704*^9, 
   3.525661913238749*^9, 3.525662981231353*^9, 3.52567328055855*^9, 
   3.545738872817936*^9, 3.5459911346407547`*^9, 3.5459914750224857`*^9, 
   3.546000127038085*^9, 3.54602135938831*^9, 3.546057618150403*^9, 
   3.546064588706401*^9, 3.546091129424367*^9, 3.546325606006447*^9, 
   3.54824733353047*^9, 3.5484045519135027`*^9, 3.548481250250327*^9, 
   3.548511429692486*^9, 3.548525809700102*^9, 3.548567873407421*^9, 
   3.5485710568058863`*^9, 3.548575010058646*^9, 3.548591589202032*^9, 
   3.548662095802292*^9, 3.548700118669615*^9, 3.548756252613715*^9, 
   3.548911244282064*^9, 3.5489306095846033`*^9, 3.548960797579864*^9, 
   3.549002180226633*^9, 3.549020865118058*^9, 3.5490435402156973`*^9, 
   3.549047028028191*^9, 3.5490862746319437`*^9, 3.5490962727091*^9, 
   3.5492603057969112`*^9, 3.5492729250013247`*^9, 3.549305073679324*^9, 
   3.5493052909011383`*^9, 3.54930580003269*^9, 3.5493588808964376`*^9, 
   3.549433147461565*^9, 3.549462312965652*^9, 3.549540246250958*^9, 
   3.550921584836444*^9, 3.550990714917603*^9, 3.550996422326377*^9, 
   3.550996590677326*^9, 3.555347191090118*^9, 3.5573921001323*^9, 
   3.5574031497288446`*^9, 3.557466460084194*^9, 3.5575793757519827`*^9, 
   3.5576357293440237`*^9, 3.558441138842041*^9, 3.5585498859249287`*^9, 
   3.5600077394030657`*^9, 3.56004435280266*^9, 3.560044411687646*^9, 
   3.560185496910205*^9, 3.560186284169983*^9, 3.56018636037317*^9, 
   3.560186507288686*^9, 3.5602228766598883`*^9, 3.560256421630904*^9, 
   3.560268927934964*^9, 3.560269930221537*^9, 3.560271415401232*^9, 
   3.560516251792047*^9, 3.5605215988602047`*^9, 3.560534287358543*^9, 
   3.560535149265789*^9, 3.5608423154816236`*^9, 3.560844435536256*^9, 
   3.5611768068475943`*^9, 3.5612108464024267`*^9, 3.5612691454481583`*^9, 
   3.561275596641061*^9, 3.561276939618306*^9, 3.561302805299735*^9, 
   3.561305366061057*^9, 3.561308536249625*^9, 3.561308784971487*^9, {
   3.561360310719412*^9, 3.561360065468383*^9}, 3.728115020402668*^9, 
   3.7312348752451563`*^9},
 CellLabel->
  "Out[173]=",ExpressionUUID->"91ee36c1-aa6d-4ad5-ac1d-21f7296e5910"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "\[ScriptF]ToB"}]}]], "Input",
 CellChangeTimes->{{3.521941659603396*^9, 3.5219416644817877`*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"20882019-9712-4b78-aa58-9716f8a180b1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`B[-$CellContext`\[Alpha]]],
    Editable->False], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`B[-$CellContext`\[Alpha]],
        Editable->False], "-", 
       FractionBox[
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], 
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False]]}], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`B[-$CellContext`\[Beta]],
        Editable->False], "-", 
       FractionBox[
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], 
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False]]}], ")"}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`B[-$CellContext`\[Alpha]],
       Editable->False], "-", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Alpha]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`B[-$CellContext`\[Beta]],
       Editable->False], "-", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[CapitalTheta][]],
       Editable->False], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`B[$CellContext`\[Gamma]],
        Editable->False], "-", 
       FractionBox[
        InterpretationBox[
         StyleBox[
          RowBox[{
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], 
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False]]}], ")"}]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`B[-$CellContext`\[Gamma]],
       Editable->False], "-", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`B[$CellContext`\[Gamma]],
       Editable->False], "-", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521941665250648*^9, {3.521941716651806*^9, 3.521941726858261*^9}, 
   3.521941774139658*^9, 3.521941892728401*^9, 3.5219710905425*^9, 
   3.5219714821537523`*^9, 3.521971570545536*^9, {3.521972163883931*^9, 
   3.521972191350774*^9}, 3.521973959415019*^9, 3.522029109030294*^9, 
   3.524393976148797*^9, 3.524396322252462*^9, 3.524977868443384*^9, 
   3.524997221662286*^9, 3.525067897870647*^9, 3.525070799402815*^9, 
   3.525072074304661*^9, 3.525073231357552*^9, 3.525081027009512*^9, 
   3.525187140368525*^9, 3.52524024923455*^9, 3.525243903897887*^9, 
   3.525397531798172*^9, 3.525398677061903*^9, 3.525493465491762*^9, 
   3.525660869363369*^9, 3.525661913272867*^9, 3.525662981269415*^9, 
   3.525673280636052*^9, 3.545738872859228*^9, 3.545991134820732*^9, 
   3.545991475124337*^9, 3.5460001283472967`*^9, 3.546021359503517*^9, 
   3.546057618231073*^9, 3.5460645887871523`*^9, 3.546091129559373*^9, 
   3.546325606252324*^9, 3.548247333626506*^9, 3.548404551955635*^9, 
   3.548481250288528*^9, 3.548511429826371*^9, 3.5485258097296877`*^9, 
   3.54856787345468*^9, 3.548571056834293*^9, 3.548575010093973*^9, 
   3.5485915892447557`*^9, 3.5486620959418297`*^9, 3.548700118716298*^9, 
   3.548756252719936*^9, 3.548911244329142*^9, 3.5489306096327553`*^9, 
   3.5489607976140223`*^9, 3.54900218026665*^9, 3.5490208652045727`*^9, 
   3.549043540276822*^9, 3.5490470280709047`*^9, 3.549086274674403*^9, 
   3.549096272778206*^9, 3.549260305849452*^9, 3.549272925060693*^9, 
   3.54930507373041*^9, 3.549305290932774*^9, 3.549305800075058*^9, 
   3.549358880959764*^9, 3.5494331474959383`*^9, 3.549462313019308*^9, 
   3.549540246299*^9, 3.5509215848892317`*^9, 3.550990715020001*^9, 
   3.550996422380262*^9, 3.5509965907330008`*^9, 3.5553471911292467`*^9, 
   3.5573921002486143`*^9, 3.557403149768407*^9, 3.557466460125511*^9, 
   3.557579375880938*^9, 3.5576357293845043`*^9, 3.5584411388937483`*^9, 
   3.5585498859627533`*^9, 3.560007739486636*^9, 3.560044352879703*^9, 
   3.560044411838822*^9, 3.5601854969646893`*^9, 3.560186284241564*^9, 
   3.56018636043788*^9, 3.5601865074632883`*^9, 3.560222876785884*^9, 
   3.560256421715269*^9, 3.5602689280030212`*^9, 3.560269930279108*^9, 
   3.560271415465786*^9, 3.560516251854122*^9, 3.56052159891968*^9, 
   3.560534287396241*^9, 3.560535149395611*^9, 3.560842315545573*^9, 
   3.560844435606524*^9, 3.5611768069313602`*^9, 3.56121084648332*^9, 
   3.561269145580308*^9, 3.561275596701445*^9, 3.561276939682315*^9, 
   3.561302805539637*^9, 3.561305366126719*^9, 3.561308536334466*^9, 
   3.561308785064816*^9, {3.5613603108027773`*^9, 3.56136006554836*^9}, 
   3.7281150204349213`*^9, 3.7312348752899303`*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"08aae928-56db-41ac-9a67-35f49cb2a7b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521941119706194*^9, 3.52194112276581*^9}, {
   3.52194161717878*^9, 3.5219416504587097`*^9}, {3.5219417303309383`*^9, 
   3.521941731116416*^9}, 3.521941779560285*^9},
 CellLabel->
  "In[175]:=",ExpressionUUID->"aa75644b-c4ce-472c-9133-193d32b1faa5"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,175,3,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.521972192775477*^9, 3.521973959447318*^9, 3.522029109131503*^9, 
   3.524393976209753*^9, 3.524396322363475*^9, 3.524977868482102*^9, 
   3.524997221724326*^9, 3.525067898898622*^9, 3.525070799445147*^9, 
   3.525072074352623*^9, 3.5250732313950453`*^9, 3.525081027042099*^9, 
   3.525187140412517*^9, 3.5252402492690353`*^9, 3.52524390395261*^9, 
   3.525397531830367*^9, 3.525398677105113*^9, 3.5254934655380783`*^9, 
   3.52566086944053*^9, 3.525661913315441*^9, 3.5256629813100452`*^9, 
   3.525673280703494*^9, 3.54573887290522*^9, 3.545991134912959*^9, 
   3.545991475177411*^9, 3.5460001285304623`*^9, 3.546021359663307*^9, 
   3.5460576182766848`*^9, 3.546064588845923*^9, 3.546091129613689*^9, 
   3.5463256063611307`*^9, 3.548247333711185*^9, 3.54840455200856*^9, 
   3.548481250334484*^9, 3.548511430049924*^9, 3.548525809791967*^9, 
   3.548567873499935*^9, 3.548571056873522*^9, 3.54857501013277*^9, 
   3.548591589321266*^9, 3.5486620961494513`*^9, 3.548700118788063*^9, 
   3.548756252754922*^9, 3.548911244363284*^9, 3.548930609680449*^9, 
   3.548960797639207*^9, 3.549002180304164*^9, 3.5490208652623653`*^9, 
   3.549043540318799*^9, 3.549047028115223*^9, 3.5490862747213583`*^9, 
   3.549096272861978*^9, 3.549260305898614*^9, 3.549272925118826*^9, 
   3.549305073776293*^9, 3.549305290972516*^9, 3.54930580011598*^9, 
   3.5493588810110083`*^9, 3.549433147520089*^9, 3.549462313061503*^9, 
   3.549540246347981*^9, 3.550921584937861*^9, 3.550990715060327*^9, 
   3.5509964224442463`*^9, 3.550996590789652*^9, 3.5553471911781178`*^9, 
   3.557392100349367*^9, 3.557403149821087*^9, 3.5574664601511307`*^9, 
   3.557579375926002*^9, 3.557635729436618*^9, 3.558441139035646*^9, 
   3.558549885991823*^9, 3.5600077395489817`*^9, 3.5600443529398127`*^9, 
   3.560044411892173*^9, 3.560185497037208*^9, 3.560186284296386*^9, 
   3.560186360489262*^9, 3.560186507518622*^9, 3.5602228768636427`*^9, 
   3.560256421772429*^9, 3.5602689280544786`*^9, 3.560269930326769*^9, 
   3.5602714155139227`*^9, 3.560516251924658*^9, 3.560521598967286*^9, 
   3.56053428742235*^9, 3.560535149444354*^9, 3.5608423156104717`*^9, 
   3.5608444356593657`*^9, 3.56117680705271*^9, 3.5612108466002483`*^9, 
   3.5612691456586018`*^9, 3.561275596750223*^9, 3.5612769397347383`*^9, 
   3.561302805597137*^9, 3.561305366179037*^9, 3.561308536388692*^9, 
   3.561308785128687*^9, {3.561360310870056*^9, 3.561360065624154*^9}, 
   3.728115020470621*^9, 3.731234875334736*^9},
 CellLabel->
  "During evaluation of \
In[175]:=",ExpressionUUID->"898c28e2-01a2-4008-acde-fb267ddf9aaf"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       OverscriptBox["L", "^"], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Beta]", "\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`B[-$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`B[-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`B[-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`B[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`B[-$CellContext`\[Alpha]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5219416766582403`*^9, {3.521941718545458*^9, 3.521941731900923*^9}, 
   3.52194178037932*^9, 3.521941893700212*^9, 3.521971090583788*^9, 
   3.521971482216625*^9, 3.521971570591037*^9, {3.521972163936089*^9, 
   3.52197219280175*^9}, 3.5219739594581842`*^9, 3.522029109137123*^9, 
   3.524393976215082*^9, 3.524396322395812*^9, 3.524977868496599*^9, 
   3.524997221730788*^9, 3.5250678989554863`*^9, 3.525070799453611*^9, 
   3.5250720743791428`*^9, 3.5250732314017467`*^9, 3.525081027045175*^9, 
   3.525187140445772*^9, 3.525240249272806*^9, 3.52524390395825*^9, 
   3.5253975318452873`*^9, 3.525398677142844*^9, 3.5254934655751667`*^9, 
   3.525660869442985*^9, 3.52566191335184*^9, 3.52566298135487*^9, 
   3.525673280707951*^9, 3.545738872908736*^9, 3.5459911349352694`*^9, 
   3.545991475194558*^9, 3.546000128535309*^9, 3.546021359668379*^9, 
   3.54605761828343*^9, 3.5460645888503523`*^9, 3.54609112961875*^9, 
   3.546325606366165*^9, 3.5482473337449913`*^9, 3.548404552012549*^9, 
   3.548481250337727*^9, 3.54851143005508*^9, 3.5485258098076277`*^9, 
   3.548567873519696*^9, 3.548571056894156*^9, 3.548575010156105*^9, 
   3.5485915893250647`*^9, 3.548662096153461*^9, 3.54870011879489*^9, 
   3.5487562527590637`*^9, 3.5489112443688383`*^9, 3.548930609701758*^9, 
   3.548960797642089*^9, 3.549002180324868*^9, 3.549020865266459*^9, 
   3.549043540321653*^9, 3.549047028127161*^9, 3.549086274724092*^9, 
   3.549096272866766*^9, 3.549260305911264*^9, 3.549272925123855*^9, 
   3.549305073788266*^9, 3.5493052909799213`*^9, 3.549305800136003*^9, 
   3.5493588810167828`*^9, 3.549433147523201*^9, 3.54946231306425*^9, 
   3.5495402463530817`*^9, 3.550921584945483*^9, 3.550990715064412*^9, 
   3.550996422448904*^9, 3.550996590804076*^9, 3.555347191202154*^9, 
   3.557392100371031*^9, 3.5574031498376703`*^9, 3.557466460154376*^9, 
   3.557579375929268*^9, 3.557635729442398*^9, 3.558441139055233*^9, 
   3.558549885994732*^9, 3.560007739554452*^9, 3.560044352969224*^9, 
   3.560044411910675*^9, 3.560185497055881*^9, 3.560186284313554*^9, 
   3.5601863605047693`*^9, 3.5601865075351667`*^9, 3.56022287686826*^9, 
   3.5602564217778797`*^9, 3.56026892807283*^9, 3.560269930347924*^9, 
   3.560271415532748*^9, 3.560516251929223*^9, 3.560521598972989*^9, 
   3.560534287425068*^9, 3.560535149447446*^9, 3.560842315615436*^9, 
   3.560844435678082*^9, 3.561176807059041*^9, 3.561210846608198*^9, 
   3.561269145663725*^9, 3.561275596756377*^9, 3.5612769397761307`*^9, 
   3.5613028056028433`*^9, 3.561305366202359*^9, 3.561308536450121*^9, 
   3.561308785139686*^9, {3.561360310875298*^9, 3.561360065629469*^9}, 
   3.728115020482706*^9, 3.7312348753550167`*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"fc9863b9-40cd-457a-933f-973a06dfc23d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SchoutenWeylToSchoutenPhysical", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521942038276593*^9, 3.5219420874508944`*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"9dbd8a55-0fea-486f-a4b2-ff0f9942f164"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Relation between the Weyl Riemann and the unphysical Riemann. \
\>", "Subsubsection",
 CellChangeTimes->{{3.5212831825024147`*^9, 3.5212832025723352`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "RiemannWeylToRiemannUnphys"}]], "Input",
 CellChangeTimes->{{3.5212796213045673`*^9, 3.521279634082471*^9}, {
  3.521520949951087*^9, 3.521520951126359*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"79e119cb-6e4a-48b3-8763-7f97437db8ee"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "^"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Beta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "^"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Alpha]", "\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "^"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"\[CapitalGamma]", "[", 
              RowBox[{"\[Del]", ",", 
               OverscriptBox["\[Del]", "^"]}], "]"}], 
             StyleBox[GridBox[{
                {"\[CurlyEpsilon]", " ", " "},
                {" ", "\[Beta]", "\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.521279611771943*^9, 3.5212796348167686`*^9}, 
   3.521280035332973*^9, 3.521281367090519*^9, 3.5212814131855783`*^9, 
   3.521366878295764*^9, 3.52137037541613*^9, 3.52144068887763*^9, 
   3.52144092532691*^9, 3.521455907414341*^9, 3.521461139149682*^9, 
   3.5215070570619297`*^9, 3.5215209522925053`*^9, 3.52152301601178*^9, 
   3.521539063191148*^9, 3.5217854865015907`*^9, 3.521797361566925*^9, 
   3.521803991599904*^9, 3.521883308866412*^9, 3.5219421111121607`*^9, 
   3.52197109065018*^9, 3.521971482247115*^9, 3.521971570623926*^9, 
   3.521972232010241*^9, 3.5219739594902887`*^9, 3.522029109429861*^9, 
   3.524393976380864*^9, 3.5243963224614887`*^9, 3.524977868537488*^9, 
   3.5249972218164988`*^9, 3.5250679113161383`*^9, 3.525070799517642*^9, 
   3.525072074428988*^9, 3.525073231455682*^9, 3.5250810271405573`*^9, 
   3.525187140501527*^9, 3.525240249323127*^9, 3.525243904036008*^9, 
   3.525397531917272*^9, 3.525398677206964*^9, 3.5254934656304398`*^9, 
   3.52566086950441*^9, 3.5256619133978043`*^9, 3.525662981488999*^9, 
   3.52567328080092*^9, 3.545738872985078*^9, 3.545991135291945*^9, 
   3.545991475308633*^9, 3.546000128675927*^9, 3.546021359802185*^9, 
   3.546057618423677*^9, 3.54606458895068*^9, 3.54609112982662*^9, 
   3.546325606541943*^9, 3.548247333839432*^9, 3.5484045521143208`*^9, 
   3.548481250397326*^9, 3.548511430174865*^9, 3.548525809860609*^9, 
   3.548567873578288*^9, 3.548571056981962*^9, 3.548575010282028*^9, 
   3.548591589421959*^9, 3.548662096484254*^9, 3.548700118898835*^9, 
   3.548756252875538*^9, 3.548911244553792*^9, 3.548930609784482*^9, 
   3.5489607977099524`*^9, 3.5490021804056664`*^9, 3.5490208653412437`*^9, 
   3.549043540444016*^9, 3.5490470281878653`*^9, 3.549086274798977*^9, 
   3.5490962729741793`*^9, 3.549260306042288*^9, 3.549272925262835*^9, 
   3.549305073841919*^9, 3.5493052910189247`*^9, 3.5493058002085114`*^9, 
   3.549358881123569*^9, 3.5494331475899982`*^9, 3.549462313142255*^9, 
   3.549540246411064*^9, 3.550921585027379*^9, 3.5509907153357077`*^9, 
   3.550996422593339*^9, 3.550996590893282*^9, 3.555347191264401*^9, 
   3.557392100537406*^9, 3.5574031499528847`*^9, 3.5574664602444763`*^9, 
   3.557579376054126*^9, 3.5576357295025873`*^9, 3.55844113911874*^9, 
   3.558549886072196*^9, 3.560007739661728*^9, 3.560044353053618*^9, 
   3.560044411979726*^9, 3.560185497147787*^9, 3.5601862844107447`*^9, 
   3.560186360572949*^9, 3.560186507631282*^9, 3.560222876994774*^9, 
   3.560256421884082*^9, 3.560268928136743*^9, 3.560269930550563*^9, 
   3.560271415597897*^9, 3.560516252075491*^9, 3.560521599121105*^9, 
   3.560534287500749*^9, 3.560535149527988*^9, 3.5608423157166862`*^9, 
   3.560844435742338*^9, 3.5611768071737223`*^9, 3.5612108466941137`*^9, 
   3.561269145782774*^9, 3.561275596870109*^9, 3.561276939847149*^9, 
   3.5613028056833344`*^9, 3.561305366265874*^9, 3.561308536643928*^9, 
   3.561308785233665*^9, {3.561360310986521*^9, 3.561360065750805*^9}, 
   3.72811502054426*^9, 3.731234875421309*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"1cd0f56c-a3ae-4435-a94e-27e21b1d78aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.5212778711517353`*^9, 3.521277875529296*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"a18d7316-2484-4bcc-9385-71aaa5663627"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"S", 
            StyleBox[GridBox[{
               {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
               {"\[Alpha]", "\[Beta]", " ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`SUnphysical[-$CellContext`\[Alpha], \
-$CellContext`\[Beta], $CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"S", 
            StyleBox[GridBox[{
               {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
               {"\[Alpha]", "\[Gamma]", " ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma], $CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"S", 
             StyleBox[GridBox[{
                {" ", " ", "\[Delta]", "\[Zeta]"},
                {"\[Alpha]", "\[CurlyEpsilon]", " ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"S", 
            StyleBox[GridBox[{
               {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
               {"\[Beta]", "\[Alpha]", " ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`SUnphysical[-$CellContext`\[Beta], \
-$CellContext`\[Alpha], $CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"S", 
            StyleBox[GridBox[{
               {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
               {"\[Beta]", "\[Gamma]", " ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`SUnphysical[-$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"S", 
             StyleBox[GridBox[{
                {" ", " ", "\[Delta]", "\[Zeta]"},
                {"\[Beta]", "\[CurlyEpsilon]", " ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521279699118334*^9, 3.521280036200547*^9, 3.521281367957015*^9, 
   3.521281413817444*^9, 3.5213668793045588`*^9, 3.521370375597938*^9, 
   3.521440689024309*^9, 3.521440925445038*^9, 3.52145590747827*^9, 
   3.521461140227475*^9, 3.521507057246422*^9, 3.521520953166823*^9, 
   3.5215230160681477`*^9, 3.521539063257242*^9, 3.521785486622713*^9, 
   3.521797361612876*^9, 3.521803991643561*^9, 3.521883308938015*^9, 
   3.521942111323741*^9, 3.521971090707304*^9, 3.521971482299973*^9, 
   3.521971570693121*^9, 3.521972232110013*^9, 3.52197395953399*^9, 
   3.52202910960741*^9, 3.5243939764628067`*^9, 3.52439632252029*^9, 
   3.5249778685939074`*^9, 3.524997221915058*^9, 3.525067912118227*^9, 
   3.525070799574576*^9, 3.525072074488757*^9, 3.525073231536243*^9, 
   3.52508102722902*^9, 3.525187140589376*^9, 3.52524024939067*^9, 
   3.525243904104733*^9, 3.525397532033533*^9, 3.525398677268653*^9, 
   3.525493465703783*^9, 3.52566086957377*^9, 3.525661913451289*^9, 
   3.525662981548018*^9, 3.525673280918573*^9, 3.545738873128818*^9, 
   3.545991135401978*^9, 3.545991475757807*^9, 3.546000128811528*^9, 
   3.546021359877921*^9, 3.54605761854601*^9, 3.546064589058248*^9, 
   3.546091129957501*^9, 3.546325606699839*^9, 3.548247333942794*^9, 
   3.548404552200342*^9, 3.5484812504702387`*^9, 3.548511430275839*^9, 
   3.5485258099307013`*^9, 3.548567873657893*^9, 3.548571057017421*^9, 
   3.548575010404942*^9, 3.5485915895112963`*^9, 3.548662096604334*^9, 
   3.548700119068199*^9, 3.548756252977735*^9, 3.548911244660536*^9, 
   3.54893060991686*^9, 3.548960797782886*^9, 3.549002180473229*^9, 
   3.5490208654960938`*^9, 3.549043540612975*^9, 3.549047028259239*^9, 
   3.549086274876087*^9, 3.549096273215271*^9, 3.549260306123102*^9, 
   3.549272925375054*^9, 3.549305073913458*^9, 3.549305291071436*^9, 
   3.549305800270721*^9, 3.54935888120649*^9, 3.5494331476527853`*^9, 
   3.549462313224102*^9, 3.5495402464871893`*^9, 3.550921585074719*^9, 
   3.550990715447348*^9, 3.550996422702796*^9, 3.550996591042242*^9, 
   3.5553471913375673`*^9, 3.5573921006861763`*^9, 3.557403150033268*^9, 
   3.557466460314958*^9, 3.557579376126142*^9, 3.5576357295827913`*^9, 
   3.5584411391939907`*^9, 3.558549886145853*^9, 3.560007739767503*^9, 
   3.560044353134975*^9, 3.560044412058218*^9, 3.5601854972236223`*^9, 
   3.560186284566595*^9, 3.560186360649971*^9, 3.56018650771362*^9, 
   3.560222877116818*^9, 3.5602564219896173`*^9, 3.560268928358387*^9, 
   3.560269930621461*^9, 3.560271415669835*^9, 3.560516252192655*^9, 
   3.560521599200286*^9, 3.560534287573327*^9, 3.5605351495925713`*^9, 
   3.56084231581808*^9, 3.5608444358190107`*^9, 3.561176807277409*^9, 
   3.561210846865005*^9, 3.561269145896092*^9, 3.561275597200902*^9, 
   3.561276939926004*^9, 3.561302805772997*^9, 3.561305366374929*^9, 
   3.561308536718635*^9, 3.561308785308782*^9, {3.561360311094679*^9, 
   3.5613600658422747`*^9}, 3.728115020598754*^9, 3.7312348754726067`*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"b5f78ea4-830c-4689-8f43-47ce948f9751"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5212789585926123`*^9, 3.5212789634234533`*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"36c484ab-8e29-482d-8bc7-8e5b5734f595"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Alpha]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Beta]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\
\[CurlyEpsilon]],
           Editable->False]}], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Alpha]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Beta]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
           Editable->False]}], "-", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Beta]", "\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]", "\[Zeta]"},
                  {" ", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
           Editable->False]}]}], ")"}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Alpha]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Gamma]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
           Editable->False]}], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Alpha]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Gamma]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Zeta]],
           Editable->False]}], "-", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Gamma]", "\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]", "\[Zeta]"},
                  {" ", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
           Editable->False]}]}], ")"}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Zeta]"},
                   {"\[Alpha]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Delta]"},
                   {"\[CurlyEpsilon]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            
            xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
            Editable->False]}], "+", 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Delta]"},
                   {"\[Alpha]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
            
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Zeta]"},
                   {"\[CurlyEpsilon]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            
            xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
            Editable->False]}], "-", 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"g", 
                StyleBox[GridBox[{
                   {"\[Delta]", "\[Zeta]"},
                   {" ", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[Zeta]],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {"g", 
                StyleBox[GridBox[{
                   {" ", " "},
                   {"\[CurlyEpsilon]", "\[Alpha]"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha]],
            Editable->False]}]}], ")"}]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> 
            {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Alpha]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Beta]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\
\[CurlyEpsilon]],
           Editable->False]}], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Alpha]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Beta]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
           Editable->False]}], "-", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Alpha]", "\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]", "\[Zeta]"},
                  {" ", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
           Editable->False]}]}], ")"}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Beta]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Gamma]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
           Editable->False]}], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[CurlyEpsilon]"},
                  {"\[Beta]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           
           xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\
\[CurlyEpsilon]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[Delta]", 
               StyleBox[GridBox[{
                  {" ", "\[Zeta]"},
                  {"\[Gamma]", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Zeta]],
           Editable->False]}], "-", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Gamma]", "\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Beta]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {"\[CurlyEpsilon]", "\[Zeta]"},
                  {" ", " "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
           Editable->False]}]}], ")"}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Zeta]"},
                   {"\[Beta]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Delta]"},
                   {"\[CurlyEpsilon]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            
            xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
            Editable->False]}], "+", 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Delta]"},
                   {"\[Beta]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {"\[Delta]", 
                StyleBox[GridBox[{
                   {" ", "\[Zeta]"},
                   {"\[CurlyEpsilon]", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            
            xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
            Editable->False]}], "-", 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"g", 
                StyleBox[GridBox[{
                   {"\[Delta]", "\[Zeta]"},
                   {" ", " "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[Zeta]],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {"g", 
                StyleBox[GridBox[{
                   {" ", " "},
                   {"\[CurlyEpsilon]", "\[Beta]"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta]],
            Editable->False]}]}], ")"}]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Zeta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521279745726638*^9, 3.521280036918147*^9, 3.5212813688269167`*^9, 
   3.521281414501165*^9, 3.5213668829698467`*^9, 3.521370375706749*^9, 
   3.5214406891776667`*^9, 3.521440925648718*^9, 3.521455907578534*^9, 
   3.521461141229827*^9, 3.521507057504898*^9, 3.5215209541034184`*^9, 
   3.5215230161714478`*^9, 3.521539063351738*^9, 3.521785486785997*^9, 
   3.521797361702306*^9, 3.521803991706675*^9, 3.521883309032116*^9, 
   3.5219421115718*^9, 3.521971090792429*^9, 3.521971482366901*^9, 
   3.5219715707488203`*^9, 3.521972232257702*^9, 3.521973959619452*^9, 
   3.522029109898875*^9, 3.524393976544162*^9, 3.524396322632287*^9, 
   3.5249778686703053`*^9, 3.524997222024106*^9, 3.525067912781209*^9, 
   3.525070799660239*^9, 3.525072074540577*^9, 3.5250732316266203`*^9, 
   3.525081027386445*^9, 3.525187140715535*^9, 3.525240249650666*^9, 
   3.525243904203487*^9, 3.525397532094036*^9, 3.5253986773470163`*^9, 
   3.525493465807096*^9, 3.525660869679125*^9, 3.52566191361325*^9, 
   3.525662981630701*^9, 3.525673281085239*^9, 3.545738873301387*^9, 
   3.545991135555066*^9, 3.5459914759194927`*^9, 3.54600012901904*^9, 
   3.5460213600225677`*^9, 3.54605761880479*^9, 3.546064589223723*^9, 
   3.5460911301936073`*^9, 3.546325606915929*^9, 3.5482473340927153`*^9, 
   3.548404552340507*^9, 3.548481250576185*^9, 3.54851143043466*^9, 
   3.548525810034053*^9, 3.5485678737621613`*^9, 3.548571057090989*^9, 
   3.548575010480235*^9, 3.548591589677054*^9, 3.548662096828562*^9, 
   3.548700119160935*^9, 3.548756253116685*^9, 3.5489112447813587`*^9, 
   3.548930610022312*^9, 3.5489607978812647`*^9, 3.549002180572382*^9, 
   3.5490208658965483`*^9, 3.549043540969942*^9, 3.549047028345284*^9, 
   3.549086274988987*^9, 3.5490962733903427`*^9, 3.5492603062323008`*^9, 
   3.549272925557042*^9, 3.5493050740195913`*^9, 3.549305291146165*^9, 
   3.549305800347437*^9, 3.5493588813965693`*^9, 3.549433147752583*^9, 
   3.549462313373664*^9, 3.549540246594067*^9, 3.5509215851579*^9, 
   3.550990715601665*^9, 3.550996422969089*^9, 3.5509965911568604`*^9, 
   3.555347191453504*^9, 3.557392100889065*^9, 3.5574031501238623`*^9, 
   3.5574664604374657`*^9, 3.557579376231786*^9, 3.557635729698471*^9, 
   3.558441139293105*^9, 3.558549886251001*^9, 3.560007739933874*^9, 
   3.5600443532566*^9, 3.5600444121855907`*^9, 3.560185497331606*^9, 
   3.5601862846819468`*^9, 3.560186360865098*^9, 3.560186507831017*^9, 
   3.5602228772771187`*^9, 3.560256422155943*^9, 3.560268928473918*^9, 
   3.5602699307321033`*^9, 3.560271415781283*^9, 3.560516252435306*^9, 
   3.560521599297185*^9, 3.5605342876787653`*^9, 3.560535149650875*^9, 
   3.560842315968732*^9, 3.5608444359369383`*^9, 3.5611768074288597`*^9, 
   3.56121084698418*^9, 3.561269146069738*^9, 3.56127559760942*^9, 
   3.561276940052227*^9, 3.561302805979774*^9, 3.561305366754319*^9, 
   3.561308536849841*^9, 3.5613087854335613`*^9, {3.5613603112896223`*^9, 
   3.561360066008184*^9}, 3.728115020705676*^9, 3.7312348755614557`*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"45fbb841-76f9-4275-859e-739fa077aa2a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.521279750099256*^9, 3.5212797610806303`*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"8f3fa20f-861b-4683-8356-944f1e6be181"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.5212797616752577`*^9, 3.5212800379813213`*^9, 3.521281369707238*^9, 
   3.521281415232294*^9, 3.5213668839028807`*^9, 3.5213703758266563`*^9, 
   3.521440689405428*^9, 3.521440925905299*^9, 3.5214559076880283`*^9, 
   3.521461142442443*^9, 3.521507057803698*^9, 3.5215209552973833`*^9, 
   3.521523016263012*^9, 3.521539063446863*^9, 3.521785486966074*^9, 
   3.5217973617991667`*^9, 3.521803991780282*^9, 3.521883309125202*^9, 
   3.5219421118435183`*^9, 3.52197109088067*^9, 3.521971482450609*^9, 
   3.521971570840975*^9, 3.5219722324010983`*^9, 3.52197395973355*^9, 
   3.522029110181188*^9, 3.524393976671398*^9, 3.524396322764041*^9, 
   3.524977868765037*^9, 3.524997222215795*^9, 3.5250679135572453`*^9, 
   3.525070799790804*^9, 3.5250720746417103`*^9, 3.525073231718874*^9, 
   3.525081027546825*^9, 3.525187140855915*^9, 3.525240249996282*^9, 
   3.525243904274263*^9, 3.525397532193368*^9, 3.525398677451879*^9, 
   3.525493465911178*^9, 3.525660869785784*^9, 3.525661913710765*^9, 
   3.525662981713503*^9, 3.5256732812178497`*^9, 3.545738873481127*^9, 
   3.545991135739127*^9, 3.545991476091371*^9, 3.546000129175618*^9, 
   3.546021360183021*^9, 3.546057618980835*^9, 3.5460645893739653`*^9, 
   3.5460911303585787`*^9, 3.546325607218389*^9, 3.548247334224324*^9, 
   3.5484045524952717`*^9, 3.5484812506880417`*^9, 3.548511430590197*^9, 
   3.5485258101345882`*^9, 3.548567873936288*^9, 3.548571057185851*^9, 
   3.548575010573492*^9, 3.54859158983819*^9, 3.5486620969904613`*^9, 
   3.548700119278995*^9, 3.5487562532691727`*^9, 3.5489112448995657`*^9, 
   3.548930610135919*^9, 3.5489607980064993`*^9, 3.549002180689679*^9, 
   3.549020866097337*^9, 3.549043541256172*^9, 3.549047028447752*^9, 
   3.5490862751265*^9, 3.549096273554343*^9, 3.5492603063306227`*^9, 
   3.54927292572077*^9, 3.549305074109028*^9, 3.549305291238381*^9, 
   3.549305800473193*^9, 3.5493588815654716`*^9, 3.5494331478572206`*^9, 
   3.549462313482683*^9, 3.549540246707078*^9, 3.5509215853504868`*^9, 
   3.550990715773142*^9, 3.55099642314428*^9, 3.5509965912987623`*^9, 
   3.5553471915828133`*^9, 3.557392101167486*^9, 3.557403150250708*^9, 
   3.557466460543727*^9, 3.55757937632568*^9, 3.557635729807857*^9, 
   3.558441139436639*^9, 3.5585498863405952`*^9, 3.560007740096374*^9, 
   3.5600443534053097`*^9, 3.560044412334893*^9, 3.560185497478209*^9, 
   3.5601862848278017`*^9, 3.560186361009647*^9, 3.560186507978833*^9, 
   3.560222877532548*^9, 3.560256422317912*^9, 3.5602689286015863`*^9, 
   3.560269930872937*^9, 3.5602714159234*^9, 3.560516252608163*^9, 
   3.560521599434375*^9, 3.560534287785428*^9, 3.560535149756131*^9, 
   3.560842316127137*^9, 3.560844436066545*^9, 3.561176807591736*^9, 
   3.561210847132436*^9, 3.561269146293845*^9, 3.561275597804781*^9, 
   3.561276940214003*^9, 3.561302806199236*^9, 3.5613053669417753`*^9, 
   3.5613085370613747`*^9, 3.561308785635209*^9, {3.5613603114700117`*^9, 
   3.561360066284088*^9}, 3.728115020809547*^9, 3.731234875653022*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"63e5bc19-7233-40f8-8571-cbc5da54560e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"MakeRule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[ScriptF]", "[", 
       RowBox[{"-", "\[Alpha]"}], "]"}], ",", 
      RowBox[{"\[ScriptF]", "[", 
       RowBox[{"-", "\[Alpha]"}], "]"}]}], "}"}], ",", 
    RowBox[{"MetricOn", "\[Rule]", "All"}], ",", 
    RowBox[{"ContractMetrics", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.521280847627549*^9, 3.521280883568212*^9}, {
  3.5250679165035458`*^9, 3.5250679196634893`*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"f010e437-71b3-45d1-92f3-af701f62e998"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[Delta]", "\[CurlyEpsilon]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[Delta]", "\[CurlyEpsilon]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Zeta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Zeta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[Delta]", "\[Zeta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Eta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Zeta]", "\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`Unphysicalg[-$CellContext`\[Zeta], \
-$CellContext`\[Eta]]],
         Editable->False], ")"}]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
         Editable->False], ")"}]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {"\[Delta]", "\[Zeta]"},
                {" ", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\[Zeta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Eta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Zeta]", "\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`Unphysicalg[-$CellContext`\[Zeta], \
-$CellContext`\[Eta]]],
         Editable->False], ")"}]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
         Editable->False], ")"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.5212808846275673`*^9, {3.521280924169228*^9, 3.521280947181142*^9}, 
   3.521281370616276*^9, 3.5212814159219503`*^9, 3.521366885851451*^9, 
   3.521370375909397*^9, 3.521440689559505*^9, 3.521440925983348*^9, 
   3.521455907736662*^9, 3.521461143804061*^9, 3.521507058014526*^9, 
   3.52152095924444*^9, 3.521523016304644*^9, 3.521539063489421*^9, 
   3.521785487086152*^9, 3.521797361840458*^9, 3.521803991824563*^9, 
   3.521883309167345*^9, 3.521942112011862*^9, 3.5219710909384623`*^9, 
   3.5219714825019293`*^9, 3.521971570881872*^9, 3.521972232485427*^9, 
   3.521973959762679*^9, 3.522029110355822*^9, 3.524393976747199*^9, 
   3.524396322824608*^9, 3.524977868815185*^9, 3.524997222309945*^9, 
   3.525067920323772*^9, 3.52507079985609*^9, 3.525072074699057*^9, 
   3.5250732317602987`*^9, 3.525081027631542*^9, 3.5251871409177103`*^9, 
   3.5252402500701857`*^9, 3.525243904337386*^9, 3.525397532247764*^9, 
   3.52539867749804*^9, 3.525493466030386*^9, 3.525660869840008*^9, 
   3.525661913762219*^9, 3.525662981768463*^9, 3.525673281325458*^9, 
   3.545738873660277*^9, 3.545991135848926*^9, 3.5459914761712313`*^9, 
   3.546000129305785*^9, 3.546021360261902*^9, 3.546057619093999*^9, 
   3.546064589495769*^9, 3.546091130544654*^9, 3.546325607399118*^9, 
   3.548247334437751*^9, 3.548404552662578*^9, 3.5484812508077183`*^9, 
   3.5485114306902514`*^9, 3.548525810199354*^9, 3.548567873996303*^9, 
   3.548571057243161*^9, 3.5485750106207743`*^9, 3.548591589948228*^9, 
   3.5486620970809937`*^9, 3.548700119348858*^9, 3.548756253344589*^9, 
   3.548911244973486*^9, 3.548930610193982*^9, 3.548960798074033*^9, 
   3.549002180753531*^9, 3.549020866200289*^9, 3.549043541335844*^9, 
   3.549047028501402*^9, 3.5490862752048893`*^9, 3.549096273641082*^9, 
   3.549260306413108*^9, 3.549272925844802*^9, 3.549305074184247*^9, 
   3.549305291271248*^9, 3.5493058005265627`*^9, 3.549358881664562*^9, 
   3.549433147920704*^9, 3.54946231355062*^9, 3.5495402467587557`*^9, 
   3.550921585424583*^9, 3.5509907159409657`*^9, 3.5509964232502623`*^9, 
   3.5509965914831553`*^9, 3.555347191720078*^9, 3.5573921012821302`*^9, 
   3.5574031503242483`*^9, 3.557466460610907*^9, 3.557579376406385*^9, 
   3.557635729874282*^9, 3.558441139508977*^9, 3.558549886472131*^9, 
   3.560007740262528*^9, 3.560044353467072*^9, 3.560044412408906*^9, 
   3.560185497539755*^9, 3.560186285002987*^9, 3.5601863610664663`*^9, 
   3.560186508039089*^9, 3.560222877715639*^9, 3.560256422491353*^9, 
   3.560268928673176*^9, 3.560269930927185*^9, 3.5602714160908127`*^9, 
   3.560516252711228*^9, 3.56052159951248*^9, 3.560534287851231*^9, 
   3.560535149810255*^9, 3.560842316272417*^9, 3.560844436139516*^9, 
   3.561176807676054*^9, 3.561210847207108*^9, 3.561269146377906*^9, 
   3.561275598010118*^9, 3.561276940446835*^9, 3.561302806287829*^9, 
   3.5613053669972143`*^9, 3.561308537130652*^9, 3.561308785705447*^9, {
   3.561360311619369*^9, 3.561360066385273*^9}, 3.728115020862051*^9, 
   3.731234875705517*^9},
 CellLabel->
  "Out[181]=",ExpressionUUID->"3217c9bb-4758-4e7a-b143-4c2b8a449c24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "WeylCDUnphysicalg"}]}]], "Input",
 CellChangeTimes->{{3.5212809479816*^9, 3.5212809516798077`*^9}, 
   3.521281408046175*^9},
 CellLabel->
  "In[182]:=",ExpressionUUID->"76bc6da1-a9e0-447e-b123-da9afeeac53b"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[Delta]", "\[CurlyEpsilon]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[Delta]", "\[CurlyEpsilon]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Zeta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", "\[Zeta]"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Delta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
         Editable->False], ")"}]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Delta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]]],
         Editable->False], ")"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521280952373495*^9, 3.52128137170507*^9, 3.521281416651368*^9, 
   3.5213668884634857`*^9, 3.521370376000925*^9, 3.521440689707844*^9, 
   3.52144092610365*^9, 3.521455907791356*^9, 3.521461145163947*^9, 
   3.521507058329138*^9, 3.521520962163157*^9, 3.521523016362035*^9, 
   3.521539063541823*^9, 3.521785487149685*^9, 3.521797361913662*^9, 
   3.521803991869225*^9, 3.5218833092039967`*^9, 3.521942112374861*^9, 
   3.5219710910115013`*^9, 3.521971482552414*^9, 3.521971570921636*^9, 
   3.521972232580402*^9, 3.521973959800844*^9, 3.52202911047295*^9, 
   3.524393976805455*^9, 3.524396322894074*^9, 3.524977868851358*^9, 
   3.524997222397066*^9, 3.525067921525857*^9, 3.5250707999146423`*^9, 
   3.525072074806058*^9, 3.5250732319593477`*^9, 3.525081027788246*^9, 
   3.525187140988689*^9, 3.525240250149275*^9, 3.525243904394759*^9, 
   3.525397532287304*^9, 3.525398677638556*^9, 3.52549346609991*^9, 
   3.525660869986429*^9, 3.5256619138272657`*^9, 3.525662981826136*^9, 
   3.525673281435817*^9, 3.545738873761622*^9, 3.545991135934185*^9, 
   3.545991476274556*^9, 3.546000129450227*^9, 3.546021360505204*^9, 
   3.5460576192046137`*^9, 3.546064589642096*^9, 3.5460911307785053`*^9, 
   3.5463256075542307`*^9, 3.548247334540135*^9, 3.5484045527442827`*^9, 
   3.548481250875634*^9, 3.548511430786832*^9, 3.5485258102620773`*^9, 
   3.5485678740653563`*^9, 3.548571057287546*^9, 3.548575010664152*^9, 
   3.548591590065431*^9, 3.548662097175901*^9, 3.548700119404195*^9, 
   3.548756253422186*^9, 3.54891124504408*^9, 3.5489306102663383`*^9, 
   3.548960798128708*^9, 3.549002180813836*^9, 3.549020866292006*^9, 
   3.549043541412249*^9, 3.549047028643359*^9, 3.549086275271792*^9, 
   3.549096273735125*^9, 3.5492603064914627`*^9, 3.549272925950944*^9, 
   3.549305074285983*^9, 3.549305291318777*^9, 3.549305800577417*^9, 
   3.549358881753187*^9, 3.549433147979582*^9, 3.5494623136196404`*^9, 
   3.549540246868875*^9, 3.5509215854710693`*^9, 3.550990716194724*^9, 
   3.550996423351997*^9, 3.550996591555175*^9, 3.5553471917720337`*^9, 
   3.5573921013892508`*^9, 3.55740315038761*^9, 3.557466460673897*^9, 
   3.557579376473628*^9, 3.557635729937292*^9, 3.558441139573543*^9, 
   3.5585498865390167`*^9, 3.560007740346532*^9, 3.560044354448812*^9, 
   3.560044412476863*^9, 3.560185497606328*^9, 3.56018628506905*^9, 
   3.5601863611318417`*^9, 3.5601865081062737`*^9, 3.5602228778142853`*^9, 
   3.5602564225738373`*^9, 3.560268928738277*^9, 3.560269930986451*^9, 
   3.560271416142687*^9, 3.56051625279221*^9, 3.560521599587701*^9, 
   3.560534287910701*^9, 3.560535149865952*^9, 3.560842316359645*^9, 
   3.560844436206258*^9, 3.5611768077655478`*^9, 3.561210847275131*^9, 
   3.5612691464734488`*^9, 3.5612755982664413`*^9, 3.5612769405168133`*^9, 
   3.561302806391561*^9, 3.561305367064684*^9, 3.56130853721786*^9, 
   3.561308785914668*^9, {3.561360311699092*^9, 3.561360066511846*^9}, 
   3.728115020908787*^9, 3.731234875764441*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"bd301ddb-7ca1-41ba-9611-38e6a270a628"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5212809010708647`*^9, 3.521280913301993*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"a6d0e738-e014-4ef0-be3c-e6ed0a58e10d"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,183,4,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.728115020973364*^9, 3.731234875853006*^9},
 CellLabel->
  "During evaluation of \
In[183]:=",ExpressionUUID->"d3737bad-aa7f-4ad9-85ea-b59d78cf0366"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,183,5,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.728115020973364*^9, 3.7312348758661127`*^9},
 CellLabel->
  "During evaluation of \
In[183]:=",ExpressionUUID->"2ce749b6-77fa-4694-8026-5d2c0581656d"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521280913965547*^9, 3.5212809704747133`*^9, 3.521281372776829*^9, 
   3.5212814176793423`*^9, 3.5213668897900133`*^9, 3.521370376125445*^9, 
   3.521440689854134*^9, 3.52144092625065*^9, 3.521455907876031*^9, 
   3.52146114667922*^9, 3.5215070585240498`*^9, 3.521520966289136*^9, 
   3.5215230164392776`*^9, 3.521539063635816*^9, 3.521785487296644*^9, 
   3.5217973619975977`*^9, 3.521803991942012*^9, 3.5218833092875223`*^9, 
   3.52194211265016*^9, 3.521971091159459*^9, 3.5219714827464867`*^9, 
   3.5219715709921207`*^9, 3.521972232692604*^9, 3.521973959869854*^9, 
   3.522029110639771*^9, 3.524393976913185*^9, 3.524396323007944*^9, 
   3.524977868936157*^9, 3.524997222528617*^9, 3.525067922341372*^9, 
   3.525070799974247*^9, 3.525072074927911*^9, 3.5250732320432777`*^9, 
   3.525081027930572*^9, 3.525187141074904*^9, 3.5252402502198677`*^9, 
   3.525243904512549*^9, 3.525397532353531*^9, 3.525398677726474*^9, 
   3.52549346619031*^9, 3.5256608700821867`*^9, 3.525661913913018*^9, 
   3.5256629819138603`*^9, 3.525673281548634*^9, 3.545738873880104*^9, 
   3.545991136090502*^9, 3.545991476452208*^9, 3.546000129754634*^9, 
   3.54602136064715*^9, 3.5460576193541718`*^9, 3.546064589769012*^9, 
   3.5460911309476223`*^9, 3.546325607898061*^9, 3.548247334695354*^9, 
   3.548404552879915*^9, 3.5484812510240517`*^9, 3.548511430923409*^9, 
   3.54852581035282*^9, 3.5485678741650667`*^9, 3.548571057383994*^9, 
   3.548575010742288*^9, 3.548591590243634*^9, 3.54866209732873*^9, 
   3.54870011950695*^9, 3.548756253556711*^9, 3.548911245153624*^9, 
   3.548930610365975*^9, 3.548960798224893*^9, 3.549002180904656*^9, 
   3.549020866414839*^9, 3.549043541486537*^9, 3.549047028738119*^9, 
   3.549086275368127*^9, 3.5490962738749027`*^9, 3.5492603065752*^9, 
   3.5492729260908012`*^9, 3.549305074376095*^9, 3.5493052913955727`*^9, 
   3.549305800658423*^9, 3.5493588819425097`*^9, 3.549433148119082*^9, 
   3.5494623137263393`*^9, 3.549540246966601*^9, 3.550921585584379*^9, 
   3.550990716326355*^9, 3.5509964235018873`*^9, 3.550996591673037*^9, 
   3.555347191894492*^9, 3.5573921015442038`*^9, 3.557403150490913*^9, 
   3.5574664608207607`*^9, 3.557579376545607*^9, 3.5576357300533752`*^9, 
   3.5584411396943617`*^9, 3.558549886630517*^9, 3.560007740487529*^9, 
   3.560044354590725*^9, 3.560044412580319*^9, 3.5601854977273417`*^9, 
   3.5601862851890593`*^9, 3.5601863612524843`*^9, 3.560186508229101*^9, 
   3.560222877970483*^9, 3.560256422712729*^9, 3.560268928841838*^9, 
   3.560269931099255*^9, 3.5602714162585163`*^9, 3.560516252934964*^9, 
   3.560521599729546*^9, 3.560534288064624*^9, 3.560535149955278*^9, 
   3.5608423164939013`*^9, 3.560844436310417*^9, 3.561176807902377*^9, 
   3.561210847392812*^9, 3.561269146615581*^9, 3.561275598439954*^9, 
   3.5612769406457157`*^9, 3.561302806665925*^9, 3.5613053672117434`*^9, 
   3.561308537410563*^9, 3.561308786028082*^9, {3.56136031184454*^9, 
   3.561360066653656*^9}, 3.72811502104207*^9, 3.731234875907796*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"a869ff6c-3fa2-459e-82bb-5ab774439996"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "WeylCD\[ScriptF]"}]}]], "Input",
 CellChangeTimes->{
  3.5212810112302732`*^9, {3.52128137605079*^9, 3.521281403475149*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"c30eb62f-13b7-4520-bd62-0a8b0bafbffe"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
        
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521281388858509*^9, 3.521281419266411*^9, 3.5213668938154593`*^9, 
   3.52137037622371*^9, 3.5214406899378557`*^9, 3.521440926433906*^9, 
   3.5214559079493933`*^9, 3.521461149591547*^9, 3.521507058756535*^9, 
   3.5215209681817083`*^9, 3.5215230165086203`*^9, 3.521539063716309*^9, 
   3.521785487465423*^9, 3.521797362067749*^9, 3.521803991996413*^9, 
   3.521883309353951*^9, 3.5219421128668203`*^9, 3.521971091214612*^9, 
   3.521971482920326*^9, 3.521971571026477*^9, 3.521972232791339*^9, 
   3.5219739599172697`*^9, 3.522029110936337*^9, 3.52439397701145*^9, 
   3.524396323103342*^9, 3.524977868998938*^9, 3.5249972226490183`*^9, 
   3.525067923168438*^9, 3.5250708000404463`*^9, 3.525072074991493*^9, 
   3.525073232119203*^9, 3.5250810280572987`*^9, 3.525187141162834*^9, 
   3.525240250301845*^9, 3.525243904582082*^9, 3.52539753241014*^9, 
   3.5253986777749023`*^9, 3.525493466274666*^9, 3.5256608701482267`*^9, 
   3.525661913956284*^9, 3.5256629819607573`*^9, 3.525673281658483*^9, 
   3.54573887402465*^9, 3.545991136226722*^9, 3.545991476651537*^9, 
   3.5460001299313927`*^9, 3.54602136074203*^9, 3.546057619496715*^9, 
   3.546064589906621*^9, 3.5460911311021442`*^9, 3.546325608153797*^9, 
   3.548247334783959*^9, 3.548404553016548*^9, 3.548481251090019*^9, 
   3.548511431107533*^9, 3.548525810431506*^9, 3.548567874247589*^9, 
   3.548571057448942*^9, 3.5485750109058523`*^9, 3.548591590369956*^9, 
   3.548662097434845*^9, 3.548700119593054*^9, 3.548756253663719*^9, 
   3.548911245237184*^9, 3.548930610448925*^9, 3.548960798288968*^9, 
   3.549002180989303*^9, 3.549020866591095*^9, 3.5490435415976048`*^9, 
   3.549047028794036*^9, 3.54908627545691*^9, 3.549096273982771*^9, 
   3.549260306674284*^9, 3.549272926219294*^9, 3.549305074456545*^9, 
   3.549305291454874*^9, 3.5493058007448587`*^9, 3.549358882066378*^9, 
   3.549433148203904*^9, 3.549462313887248*^9, 3.549540247055429*^9, 
   3.550921585670908*^9, 3.5509907164438753`*^9, 3.550996423618479*^9, 
   3.550996591771299*^9, 3.555347191981056*^9, 3.5573921016740913`*^9, 
   3.557403150646813*^9, 3.557466460905581*^9, 3.557579376629814*^9, 
   3.557635730145348*^9, 3.558441139784697*^9, 3.558549886712987*^9, 
   3.560007740618573*^9, 3.5600443551612453`*^9, 3.5600444126721277`*^9, 
   3.560185497928116*^9, 3.560186285276477*^9, 3.5601863613391933`*^9, 
   3.56018650831775*^9, 3.560222878092361*^9, 3.560256422842752*^9, 
   3.5602689289282084`*^9, 3.5602699311798077`*^9, 3.5602714163410273`*^9, 
   3.560516253062965*^9, 3.560521599822934*^9, 3.56053428815692*^9, 
   3.560535150014802*^9, 3.560842316619133*^9, 3.560844436398308*^9, 
   3.5611768080180387`*^9, 3.561210847483461*^9, 3.561269146731344*^9, 
   3.561275598655135*^9, 3.561276940734428*^9, 3.561302806796489*^9, 
   3.561305367384701*^9, 3.56130853748534*^9, 3.56130878614153*^9, {
   3.561360311975788*^9, 3.5613600667710657`*^9}, 3.7281150211161737`*^9, 
   3.731234875970189*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"b9d34cab-f32a-48c9-9a8d-b6ec3d6efd1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.521281421526093*^9, 3.521281430202589*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"1b840fe0-cab6-4987-a0d6-aa977b24e7d1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[Delta]", 
          StyleBox[GridBox[{
             {" ", "\[Delta]"},
             {"\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.5212814306723013`*^9, 3.521366895159727*^9, 3.521370376314767*^9, 
   3.5214406901084557`*^9, 3.521440926577765*^9, 3.521455908033922*^9, 
   3.521461152398649*^9, 3.52150705906831*^9, 3.521520971000836*^9, 
   3.521523016623418*^9, 3.521539063809636*^9, 3.521785487701043*^9, 
   3.521797362182311*^9, 3.5218039920687113`*^9, 3.52188330944987*^9, 
   3.5219421131421537`*^9, 3.5219710913017607`*^9, 3.5219714830935926`*^9, 
   3.521971571112904*^9, 3.5219722329300337`*^9, 3.521973960002099*^9, 
   3.522029111181168*^9, 3.52439397714259*^9, 3.524396323210631*^9, 
   3.524977869099667*^9, 3.5249972227671824`*^9, 3.5250679239047213`*^9, 
   3.525070800273573*^9, 3.525072075093981*^9, 3.52507323237665*^9, 
   3.525081028198276*^9, 3.5251871412636547`*^9, 3.525240250415358*^9, 
   3.525243904690774*^9, 3.525397532503996*^9, 3.525398677882566*^9, 
   3.5254934663781433`*^9, 3.525660870251871*^9, 3.5256619140627947`*^9, 
   3.525662982073949*^9, 3.525673281806779*^9, 3.5457388741820927`*^9, 
   3.545991136364718*^9, 3.545991476824711*^9, 3.5460001301473207`*^9, 
   3.546021360873274*^9, 3.546057619685669*^9, 3.546064590083077*^9, 
   3.546091131274726*^9, 3.546325608396134*^9, 3.548247334967478*^9, 
   3.548404553183806*^9, 3.548481251194045*^9, 3.548511431258746*^9, 
   3.548525810568355*^9, 3.54856787437114*^9, 3.548571057610508*^9, 
   3.5485750110100822`*^9, 3.548591590528517*^9, 3.548662097603045*^9, 
   3.548700119733243*^9, 3.548756253870717*^9, 3.548911245326251*^9, 
   3.548930610553865*^9, 3.548960798444668*^9, 3.549002181090893*^9, 
   3.5490208667964277`*^9, 3.549043541718754*^9, 3.549047028900301*^9, 
   3.549086275570434*^9, 3.549096274167179*^9, 3.549260306791045*^9, 
   3.549272926359015*^9, 3.5493050745626583`*^9, 3.549305291553433*^9, 
   3.5493058008420362`*^9, 3.549358882216454*^9, 3.549433148377965*^9, 
   3.5494623140416393`*^9, 3.549540247158497*^9, 3.550921585803926*^9, 
   3.550990716586331*^9, 3.550996423804921*^9, 3.550996591913191*^9, 
   3.555347192127605*^9, 3.557392101845481*^9, 3.557403150754155*^9, 
   3.557466461012456*^9, 3.557579376739934*^9, 3.557635730258874*^9, 
   3.558441139930798*^9, 3.5585498868299522`*^9, 3.560007740776775*^9, 
   3.560044355393477*^9, 3.5600444128216763`*^9, 3.560185498077742*^9, 
   3.560186285432817*^9, 3.560186361486253*^9, 3.560186508573937*^9, 
   3.560222878257963*^9, 3.560256422999752*^9, 3.560268929075816*^9, 
   3.560269931311646*^9, 3.5602714164865303`*^9, 3.560516253215744*^9, 
   3.560521599968305*^9, 3.5605342883673277`*^9, 3.560535150130374*^9, 
   3.560842316771549*^9, 3.560844436644244*^9, 3.56117680823638*^9, 
   3.561210847648406*^9, 3.561269146896203*^9, 3.5612755988099833`*^9, 
   3.561276940887434*^9, 3.561302807061797*^9, 3.561305367610456*^9, 
   3.561308537693059*^9, 3.5613087864689837`*^9, {3.5613603121377773`*^9, 
   3.561360066931396*^9}, 3.7281150212422943`*^9, 3.731234876081524*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"e2a380ae-dca2-42c7-bc6c-19eb1b62d5e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{"{", 
      RowBox[{"_delta", ",", "_Unphysicalg"}], "}"}]}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.52128148164237*^9, 3.5212815106218367`*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"eff8fae7-b4f1-4322-8c76-1f3612a6ec04"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
        
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       Editable->False], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Beta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521281511194009*^9, 3.521366898380178*^9, 3.521370376378236*^9, 
   3.5214406901741667`*^9, 3.521440926749526*^9, 3.521455908069713*^9, 
   3.521461161882234*^9, 3.5215070593474407`*^9, 3.52152098130313*^9, 
   3.521523016656436*^9, 3.521539063852179*^9, 3.5217854877798843`*^9, 
   3.521797362212237*^9, 3.521803992094131*^9, 3.5218833094784393`*^9, 
   3.521942113380356*^9, 3.521971091326853*^9, 3.52197148318192*^9, 
   3.521971571140193*^9, 3.521972233020203*^9, 3.521973960025957*^9, 
   3.522029111307057*^9, 3.5243939772073*^9, 3.524396323256898*^9, 
   3.524977869130323*^9, 3.524997222820581*^9, 3.525067924920465*^9, 
   3.525070800320773*^9, 3.525072075138563*^9, 3.525073232470407*^9, 
   3.525081028268927*^9, 3.5251871414456797`*^9, 3.5252402504833937`*^9, 
   3.5252439047323017`*^9, 3.525397532528462*^9, 3.5253986779235992`*^9, 
   3.5254934664156*^9, 3.525660870293212*^9, 3.525661914095455*^9, 
   3.5256629821210537`*^9, 3.525673281870141*^9, 3.545738874251976*^9, 
   3.545991136441041*^9, 3.545991476905437*^9, 3.5460001302457438`*^9, 
   3.546021360926292*^9, 3.546057619757309*^9, 3.546064590161358*^9, 
   3.546091131361568*^9, 3.546325608668397*^9, 3.548247335034737*^9, 
   3.548404553236656*^9, 3.54848125123389*^9, 3.5485114313084173`*^9, 
   3.548525810717762*^9, 3.548567874419847*^9, 3.548571057646076*^9, 
   3.548575011043727*^9, 3.548591590579587*^9, 3.548662097692458*^9, 
   3.5487001197711554`*^9, 3.5487562539268503`*^9, 3.5489112453631496`*^9, 
   3.548930610604539*^9, 3.548960798521443*^9, 3.5490021811232452`*^9, 
   3.549020866852201*^9, 3.5490435417703238`*^9, 3.549047028952207*^9, 
   3.549086275608029*^9, 3.5490962742321587`*^9, 3.5492603068189373`*^9, 
   3.5492729264905357`*^9, 3.549305074599043*^9, 3.549305291587261*^9, 
   3.549305800875187*^9, 3.549358882251194*^9, 3.549433148416111*^9, 
   3.549462314074731*^9, 3.549540247196416*^9, 3.550921585847314*^9, 
   3.5509907166414547`*^9, 3.550996423898834*^9, 3.550996591961505*^9, 
   3.5553471921799583`*^9, 3.557392101908599*^9, 3.557403150795603*^9, 
   3.557466461051092*^9, 3.557579376777042*^9, 3.55763573029669*^9, 
   3.5584411400509567`*^9, 3.558549886866371*^9, 3.560007740824086*^9, 
   3.560044355465308*^9, 3.56004441295319*^9, 3.560185498110098*^9, 
   3.5601862854722977`*^9, 3.56018636152839*^9, 3.560186508623148*^9, 
   3.560222878311337*^9, 3.560256423046455*^9, 3.560268929114449*^9, 
   3.560269931348504*^9, 3.5602714165255623`*^9, 3.560516253307681*^9, 
   3.5605216000139627`*^9, 3.560534288417303*^9, 3.560535150167964*^9, 
   3.56084231681633*^9, 3.560844436690736*^9, 3.5611768082802553`*^9, 
   3.56121084769384*^9, 3.561269146942235*^9, 3.561275598870463*^9, 
   3.561276940927719*^9, 3.5613028071918297`*^9, 3.561305367686316*^9, 
   3.561308537739711*^9, 3.561308786515087*^9, {3.561360312184745*^9, 
   3.561360066980645*^9}, 3.7281150212783947`*^9, 3.731234876119125*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"420a58f4-22ab-494f-99c3-4b5c4076bc1e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannWeylToRiemannUnphysWeylCD", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{
  3.521279868953849*^9, {3.5212799631775217`*^9, 3.521279973104823*^9}, {
   3.5212800735934467`*^9, 3.521280073884778*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"861661f7-7397-477f-8f70-3ed69cc7c9b7"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Metric conformal field equations", "Subsection",
 CellChangeTimes->{{3.511508647456759*^9, 3.511508652136692*^9}, {
  3.511608598764715*^9, 
  3.511608602312983*^9}},ExpressionUUID->"f7f0e7fd-af22-4af4-abb5-\
5352e265d644"],

Cell["Henceforth, we assume the condition", "Text",
 CellChangeTimes->{{3.5115102261859703`*^9, 3.511510229657363*^9}, {
  3.511723705798457*^9, 3.511723711022757*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EinsteinMetric", "=", 
  RowBox[{
   RowBox[{"RicciCDTildeg", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"1", "/", "4"}], 
    RowBox[{"RicciScalarCDTildeg", "[", "]"}], 
    RowBox[{"Physicalg", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5115102578907223`*^9, 3.5115103340306253`*^9}, {
  3.525067935199957*^9, 3.525067942822476*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"89caa878-d816-4d5b-8899-dcdf1c898669"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "~"], "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["g", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.511510323946806*^9, 3.5115103357230062`*^9}, 
   3.5115917218031483`*^9, 3.511596718998012*^9, 3.511630877860794*^9, 
   3.5116315950526667`*^9, 3.511723714664815*^9, 3.521275430370833*^9, 
   3.521276804675233*^9, 3.521277310469027*^9, 3.521277496245758*^9, 
   3.521278934740049*^9, 3.521366941777433*^9, 3.521370388322857*^9, 
   3.5214406908114653`*^9, 3.521440926781646*^9, 3.5214559133649282`*^9, 
   3.521461417187583*^9, 3.521507071837969*^9, 3.521520997409535*^9, 
   3.521523020775878*^9, 3.521539065126163*^9, 3.5217854878811073`*^9, 
   3.521797362725398*^9, 3.521804004572068*^9, 3.52188331552559*^9, 
   3.521942146855008*^9, 3.521971104617929*^9, 3.521971483254887*^9, 
   3.5219715712506227`*^9, 3.521972254713563*^9, 3.521973960580838*^9, 
   3.5220291120079403`*^9, 3.524393983530822*^9, 3.524396323360611*^9, 
   3.5249778691948967`*^9, 3.5249972229155617`*^9, 3.5250679433834467`*^9, 
   3.525070800355887*^9, 3.5250720757381783`*^9, 3.5250732325255823`*^9, 
   3.525081028295773*^9, 3.52518714148671*^9, 3.525240250545623*^9, 
   3.5252439048468027`*^9, 3.525397535348454*^9, 3.5253986780225763`*^9, 
   3.525493466476858*^9, 3.525660870362959*^9, 3.525661914127665*^9, 
   3.525662982183062*^9, 3.5256732818897*^9, 3.5457388743626833`*^9, 
   3.545991136550934*^9, 3.545991477080592*^9, 3.5460001304146*^9, 
   3.546021360966247*^9, 3.5460576198110647`*^9, 3.546064590273744*^9, 
   3.5460911314753857`*^9, 3.546325608878806*^9, 3.548247335190831*^9, 
   3.548404553304861*^9, 3.548481251293985*^9, 3.5485114313673697`*^9, 
   3.548525810781166*^9, 3.54856787448892*^9, 3.548571057694879*^9, 
   3.548575011087575*^9, 3.5485915906807117`*^9, 3.548662097794551*^9, 
   3.548700119822044*^9, 3.548756253983844*^9, 3.548911245424963*^9, 
   3.5489306106697702`*^9, 3.548960798594624*^9, 3.549002181259444*^9, 
   3.549020866953925*^9, 3.549043542225984*^9, 3.5490470290448713`*^9, 
   3.549086275661772*^9, 3.549096274342815*^9, 3.549260306924518*^9, 
   3.549272926575458*^9, 3.549305074656616*^9, 3.549305291668244*^9, 
   3.54930580099708*^9, 3.549358882330675*^9, 3.5494331485359993`*^9, 
   3.549462314161633*^9, 3.549540247242764*^9, 3.550921585920467*^9, 
   3.550990716713581*^9, 3.550996424003088*^9, 3.5509965920118837`*^9, 
   3.555347199781013*^9, 3.557392102051107*^9, 3.557403150879677*^9, 
   3.557466461123433*^9, 3.557579380453457*^9, 3.557635957882962*^9, 
   3.558441140121119*^9, 3.558549886916575*^9, 3.560007740899683*^9, 
   3.560044413028955*^9, 3.560185498225396*^9, 3.5601862856110363`*^9, 
   3.560186361600576*^9, 3.560186508726986*^9, 3.560222878417774*^9, 
   3.560256423121193*^9, 3.5602689292239647`*^9, 3.5602699314452143`*^9, 
   3.560271416591035*^9, 3.56051625346832*^9, 3.5605216001175003`*^9, 
   3.560534288574704*^9, 3.560535150266629*^9, 3.560842316855556*^9, 
   3.56084443677159*^9, 3.561176808345183*^9, 3.561210847816003*^9, 
   3.561269151332737*^9, 3.561275598936468*^9, 3.561276940984778*^9, 
   3.5613028073477163`*^9, 3.561305367749778*^9, 3.561308537802915*^9, 
   3.561308786582478*^9, {3.561360312243273*^9, 3.561360067132145*^9}, 
   3.728115021299155*^9, 3.731234876199275*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"ff90d3e8-5ccd-4218-8f55-e554c9fa508e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Derivation of the relation ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`b][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`a]],
    Editable->False], "\[Equal]", 
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["s",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`sUnphys[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`a, -$CellContext`b],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]}]}]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{3.511592191362155*^9, 3.5115923412169313`*^9, 
   3.5115967375667877`*^9}]
}], "Subsubsection",
 CellChangeTimes->{{3.511592373486058*^9, 3.511592382657394*^9}, {
  3.5115972258238707`*^9, 3.511597229745426*^9}, {3.511723717937744*^9, 
  3.5117237218731947`*^9}, {3.525067958962871*^9, 3.525067959379202*^9}}],

Cell["Start from the identity", "Text",
 CellChangeTimes->{{3.511597191892314*^9, 3.511597195763818*^9}}],

Cell[CellGroupData[{

Cell[BoxData["SchoutenUnphysicalToSchoutenPhysical"], "Input",
 CellChangeTimes->{{3.511510106888012*^9, 3.511510112406455*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"35fab6a8-f44b-4182-97ac-6e4468219633"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"L", 
       StyleBox[GridBox[{
          {" ", " "},
          {"\[Alpha]", "\[Beta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["L", "~"], 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], "-", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], 
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}]]}]}]], "Output",
 CellChangeTimes->{
  3.511508684614622*^9, {3.5115087359086227`*^9, 3.5115087548939877`*^9}, 
   3.511510113008439*^9, 3.511510342157481*^9, 3.511591721814604*^9, 
   3.5115967202943563`*^9, 3.5116308778886747`*^9, 3.511631596473501*^9, 
   3.511723728074601*^9, 3.52127543715276*^9, 3.521275639800724*^9, 
   3.5212768169914083`*^9, 3.521277313852746*^9, 3.521277500379421*^9, 
   3.521278934874645*^9, 3.5213673124797287`*^9, 3.521370393026759*^9, 
   3.521440690871756*^9, 3.5214409268606157`*^9, 3.521455913406991*^9, 
   3.521461424366102*^9, 3.521507073504733*^9, 3.5215209997972803`*^9, 
   3.521523020825823*^9, 3.521539067464067*^9, 3.521785490563225*^9, 
   3.5217973653039837`*^9, 3.5218040046284647`*^9, 3.521883315574943*^9, 
   3.521942155335593*^9, 3.521971104659293*^9, 3.5219714832916117`*^9, 
   3.5219715712722387`*^9, 3.521972254763802*^9, 3.521973960604453*^9, 
   3.522029112349185*^9, 3.524393987347084*^9, 3.524396323402246*^9, 
   3.52497786922293*^9, 3.524997222928825*^9, 3.525068642773773*^9, 
   3.525070800394664*^9, 3.525072075776741*^9, 3.525073232550905*^9, 
   3.525081028307045*^9, 3.525187141514962*^9, 3.525240250579636*^9, 
   3.5252439048955393`*^9, 3.525397535407262*^9, 3.5253986780704727`*^9, 
   3.525493466505097*^9, 3.5256608703713303`*^9, 3.525661914155197*^9, 
   3.525662982218371*^9, 3.525673281902216*^9, 3.545738874376398*^9, 
   3.545991136568768*^9, 3.545991477190995*^9, 3.546000130478355*^9, 
   3.546021361014248*^9, 3.54605761983812*^9, 3.5460645902996273`*^9, 
   3.5460911314945107`*^9, 3.546325609007745*^9, 3.548247335262615*^9, 
   3.548404553320504*^9, 3.548481251322452*^9, 3.548511431404817*^9, 
   3.548525810797126*^9, 3.5485678745291843`*^9, 3.548571057704091*^9, 
   3.548575011126799*^9, 3.5485915907246027`*^9, 3.548662097809033*^9, 
   3.548700119854888*^9, 3.5487562540160513`*^9, 3.548911245433494*^9, 
   3.5489306106787853`*^9, 3.548960798605357*^9, 3.5490021812700768`*^9, 
   3.549020866968774*^9, 3.549043542308605*^9, 3.5490470290634537`*^9, 
   3.549086275695922*^9, 3.549096274358602*^9, 3.549260306965171*^9, 
   3.549272926589876*^9, 3.5493050746660843`*^9, 3.5493052917045116`*^9, 
   3.549305801015854*^9, 3.549358882351705*^9, 3.549433148556192*^9, 
   3.549462314185203*^9, 3.5495402472577763`*^9, 3.5509215859333773`*^9, 
   3.550990716732277*^9, 3.5509964240428762`*^9, 3.550996592026772*^9, 
   3.5553471998512*^9, 3.557392102102058*^9, 3.557403150909664*^9, 
   3.557466462561973*^9, 3.557579380520742*^9, 3.55763595803269*^9, 
   3.558441140133485*^9, 3.5585498869418077`*^9, 3.560007740915864*^9, 
   3.5600444130454073`*^9, 3.560185498272431*^9, 3.560186285623775*^9, 
   3.560186361613278*^9, 3.560186508765016*^9, 3.560222878434553*^9, 
   3.5602564231376867`*^9, 3.5602689292366543`*^9, 3.560269931457999*^9, 
   3.56027141660375*^9, 3.560516253486286*^9, 3.5605216001311693`*^9, 
   3.560534288622204*^9, 3.560535150275261*^9, 3.560842316871388*^9, 
   3.560844436786552*^9, 3.561176808361061*^9, 3.561210847851924*^9, 
   3.561269151393911*^9, 3.561275598971714*^9, 3.5612769409996967`*^9, 
   3.5613028073861017`*^9, 3.561305367785687*^9, 3.561308537824738*^9, 
   3.5613087865995207`*^9, {3.561360312259838*^9, 3.561360067148571*^9}, 
   3.728115021319442*^9, 3.7312348762265472`*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"bc93bf87-5b1b-494d-80eb-c119c2eeeede"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}], "@", 
      RowBox[{
       RowBox[{"CDg", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
       RowBox[{"\[CapitalTheta]", "[", "]"}]}]}]}], "]"}], "//", "Flatten"}], 
  "//", "First"}]], "Input",
 CellChangeTimes->{{3.5115087024514*^9, 3.511508753039259*^9}, {
  3.511510119196372*^9, 3.511510119377195*^9}, {3.52506864694657*^9, 
  3.52506865011478*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"348b5091-6b99-44aa-815a-5dc223fb2ee3"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Rule]", 
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["L", "~"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "-", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{{3.511508730173424*^9, 3.511508755476508*^9}, 
   3.511510121616818*^9, 3.51151034305667*^9, 3.5115917218280287`*^9, 
   3.5115967209159517`*^9, 3.511630877938921*^9, 3.511631596531887*^9, 
   3.511723728284327*^9, 3.521275440212927*^9, 3.521275640382725*^9, 
   3.5212768171450377`*^9, 3.521277313952162*^9, 3.521277500489641*^9, 
   3.521278934956162*^9, 3.52136731259478*^9, 3.521370393080743*^9, 
   3.5214406909467154`*^9, 3.521440926873959*^9, 3.521455913434811*^9, 
   3.521461426265931*^9, 3.521507073623608*^9, 3.521520999878971*^9, 
   3.521523020850016*^9, 3.521539067505615*^9, 3.521785490701982*^9, 
   3.5217973654283*^9, 3.52180400465876*^9, 3.5218833156006937`*^9, 
   3.5219421554255466`*^9, 3.521971104666972*^9, 3.521971483330669*^9, 
   3.521971571294136*^9, 3.521972254790593*^9, 3.521973960627788*^9, 
   3.5220291124625673`*^9, 3.524393987431674*^9, 3.524396323445685*^9, 
   3.5249778692534437`*^9, 3.524997222942644*^9, 3.525068651036064*^9, 
   3.525070800427991*^9, 3.525072075816847*^9, 3.5250732325773907`*^9, 
   3.52508102835676*^9, 3.525187141544503*^9, 3.525240250619782*^9, 
   3.525243904942618*^9, 3.5253975354396553`*^9, 3.5253986781000757`*^9, 
   3.525493466537387*^9, 3.5256608703972807`*^9, 3.525661914185979*^9, 
   3.525662982253083*^9, 3.525673281917226*^9, 3.545738874432671*^9, 
   3.545991136638652*^9, 3.5459914772650747`*^9, 3.54600013053881*^9, 
   3.546021361037858*^9, 3.54605761985994*^9, 3.546064590347633*^9, 
   3.54609113159037*^9, 3.5463256091001253`*^9, 3.548247335325955*^9, 
   3.548404553366124*^9, 3.548481251351913*^9, 3.548511431443923*^9, 
   3.548525810819687*^9, 3.548567874563239*^9, 3.548571057717091*^9, 
   3.548575011211094*^9, 3.5485915907591143`*^9, 3.548662097850423*^9, 
   3.548700119914893*^9, 3.548756254050753*^9, 3.548911245460046*^9, 
   3.548930610704502*^9, 3.54896079863466*^9, 3.549002181304861*^9, 
   3.549020867016326*^9, 3.549043542400752*^9, 3.549047029081411*^9, 
   3.549086275707285*^9, 3.549096274401512*^9, 3.549260307023706*^9, 
   3.549272926629571*^9, 3.549305074692883*^9, 3.549305291727407*^9, 
   3.54930580105717*^9, 3.549358882372129*^9, 3.54943314856987*^9, 
   3.549462314206037*^9, 3.549540247290997*^9, 3.550921585973811*^9, 
   3.55099071677931*^9, 3.550996424062584*^9, 3.550996592064363*^9, 
   3.555347199907741*^9, 3.557392102130228*^9, 3.557403150942178*^9, 
   3.557466462620125*^9, 3.5575793805521193`*^9, 3.557635958066319*^9, 
   3.558441140166012*^9, 3.558549886969528*^9, 3.5600077409505987`*^9, 
   3.5600444130828257`*^9, 3.56018549830682*^9, 3.56018628565764*^9, 
   3.5601863616459427`*^9, 3.560186508808722*^9, 3.5602228784754*^9, 
   3.560256423171921*^9, 3.560268929256201*^9, 3.560269931485567*^9, 
   3.560271416636815*^9, 3.5605162535300198`*^9, 3.5605216001694613`*^9, 
   3.560534288664034*^9, 3.5605351503133173`*^9, 3.56084231690263*^9, 
   3.5608444368259497`*^9, 3.561176808392303*^9, 3.561210847903018*^9, 
   3.561269151432661*^9, 3.561275599018235*^9, 3.5612769410754547`*^9, 
   3.561302807430633*^9, 3.561305367822901*^9, 3.561308537866392*^9, 
   3.5613087866430264`*^9, {3.561360312294685*^9, 3.561360067184952*^9}, 
   3.728115021335622*^9, 3.731234876256029*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"15e48676-27a9-4872-a8ae-3f76b2ea2448"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", "%"}]], "Input",
 CellChangeTimes->{{3.511508747036252*^9, 3.511508781146812*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"5ae11d3b-5504-4658-864c-15cf26ae3532"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["L", "~"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LPhysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "-", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.511508781794487*^9, 3.511510123169517*^9, 3.511510344927576*^9, 
   3.511591721839519*^9, 3.511596721496702*^9, 3.5116308779601297`*^9, 
   3.511631596563169*^9, 3.511723728350947*^9, 3.5212754420371437`*^9, 
   3.521275640980363*^9, 3.5212768172350073`*^9, 3.521277314011882*^9, 
   3.521277500501254*^9, 3.5212789350417223`*^9, 3.521367312694625*^9, 
   3.521370393107164*^9, 3.5214406910096827`*^9, 3.521440926884136*^9, 
   3.521455913460422*^9, 3.521461427418261*^9, 3.5215070736894693`*^9, 
   3.521520999947056*^9, 3.521523020872285*^9, 3.521539067532362*^9, 
   3.521785490769107*^9, 3.521797365451532*^9, 3.5218040046892776`*^9, 
   3.521883315624549*^9, 3.521942155446591*^9, 3.521971104689846*^9, 
   3.521971483369578*^9, 3.521971571314075*^9, 3.521972254816341*^9, 
   3.5219739606483583`*^9, 3.522029112572029*^9, 3.524393987470366*^9, 
   3.524396323496841*^9, 3.5249778692817097`*^9, 3.524997222954527*^9, 
   3.525068652184976*^9, 3.525070800463956*^9, 3.525072075851633*^9, 
   3.5250732326113997`*^9, 3.5250810283681107`*^9, 3.525187141580961*^9, 
   3.5252402506622753`*^9, 3.5252439049977093`*^9, 3.525397535471511*^9, 
   3.525398678130392*^9, 3.525493466564208*^9, 3.52566087042558*^9, 
   3.5256619142135*^9, 3.525662982282263*^9, 3.525673281959152*^9, 
   3.545738874479045*^9, 3.5459911366596603`*^9, 3.545991477384457*^9, 
   3.546000130603023*^9, 3.546021361053894*^9, 3.546057619912867*^9, 
   3.5460645903764887`*^9, 3.546091131744019*^9, 3.54632560917854*^9, 
   3.548247335389533*^9, 3.5484045534020452`*^9, 3.5484812513844347`*^9, 
   3.548511431480081*^9, 3.548525810844108*^9, 3.548567874595812*^9, 
   3.548571057738594*^9, 3.5485750112411222`*^9, 3.548591590796406*^9, 
   3.5486620978653393`*^9, 3.5487001199831753`*^9, 3.5487562540871363`*^9, 
   3.548911245489031*^9, 3.5489306107560673`*^9, 3.548960798644549*^9, 
   3.5490021813279257`*^9, 3.549020867057271*^9, 3.5490435424356613`*^9, 
   3.549047029099286*^9, 3.5490862757167587`*^9, 3.549096274439843*^9, 
   3.5492603070698566`*^9, 3.549272926663115*^9, 3.5493050747198477`*^9, 
   3.549305291752076*^9, 3.549305801086543*^9, 3.549358882412628*^9, 
   3.549433148582893*^9, 3.549462314226698*^9, 3.549540247329471*^9, 
   3.5509215859870167`*^9, 3.550990716793017*^9, 3.5509964240788*^9, 
   3.550996592079287*^9, 3.555347199942257*^9, 3.5573921021813107`*^9, 
   3.5574031509729156`*^9, 3.557466462644302*^9, 3.5575793805770063`*^9, 
   3.5576359581425447`*^9, 3.5584411401980457`*^9, 3.558549886999442*^9, 
   3.56000774098475*^9, 3.56004441309673*^9, 3.560185498413385*^9, 
   3.560186285746641*^9, 3.560186361678348*^9, 3.560186508844146*^9, 
   3.560222878515654*^9, 3.5602564232054777`*^9, 3.560268929271982*^9, 
   3.560269931512711*^9, 3.56027141666669*^9, 3.5605162535458097`*^9, 
   3.560521600215269*^9, 3.560534288714139*^9, 3.5605351503498507`*^9, 
   3.56084231692062*^9, 3.5608444368607273`*^9, 3.56117680843239*^9, 
   3.561210847919177*^9, 3.561269151490993*^9, 3.561275599109425*^9, 
   3.561276941119623*^9, 3.5613028074718733`*^9, 3.5613053678609877`*^9, 
   3.561308537917386*^9, 3.561308786699677*^9, {3.561360312329442*^9, 
   3.561360067261825*^9}, 3.728115021352078*^9, 3.7312348762903223`*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"5791826e-385c-4e6f-8612-1fa08bb3795d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "SchoutenPhys"}]}]], "Input",
 CellChangeTimes->{{3.511510184329311*^9, 3.5115101939820557`*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"f55d3729-26ca-429e-8837-6a487a46e738"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
         Editable->False], "2"], "-", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["g", "~"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{"R", "[", 
           OverscriptBox["\[Del]", "~"], "]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciScalarCDTildeg[],
         Editable->False]}]}], ")"}], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.511510195666608*^9, 3.5115103458815327`*^9, 3.51159172188356*^9, 
   3.5115967221741333`*^9, 3.5116308779855423`*^9, 3.511631596590878*^9, 
   3.511723728431519*^9, 3.521275444141013*^9, 3.5212756416599693`*^9, 
   3.521276817389945*^9, 3.521277314078424*^9, 3.521277500561843*^9, 
   3.5212789351225863`*^9, 3.521367312844613*^9, 3.521370393135353*^9, 
   3.5214406910940313`*^9, 3.52144092695225*^9, 3.521455913490489*^9, 
   3.521461428570489*^9, 3.5215070737694607`*^9, 3.521521000023533*^9, 
   3.521523020899618*^9, 3.521539067561604*^9, 3.521785490859104*^9, 
   3.521797365481944*^9, 3.5218040047209463`*^9, 3.5218833156534967`*^9, 
   3.521942155516675*^9, 3.521971104718905*^9, 3.5219714834157047`*^9, 
   3.52197157133962*^9, 3.521972254847035*^9, 3.521973960671988*^9, 
   3.522029112741416*^9, 3.524393987515733*^9, 3.524396323514372*^9, 
   3.5249778693163023`*^9, 3.524997223014868*^9, 3.525068652786663*^9, 
   3.5250708005045347`*^9, 3.5250720758893757`*^9, 3.525073232644001*^9, 
   3.525081028385784*^9, 3.525187141629191*^9, 3.5252402507168903`*^9, 
   3.5252439050358143`*^9, 3.525397535502638*^9, 3.5253986781676207`*^9, 
   3.525493466599681*^9, 3.525660870465029*^9, 3.525661914248982*^9, 
   3.5256629823163643`*^9, 3.525673282016384*^9, 3.545738874534191*^9, 
   3.54599113673425*^9, 3.545991477413027*^9, 3.5460001306654*^9, 
   3.5460213610781612`*^9, 3.546057619967352*^9, 3.546064590434669*^9, 
   3.54609113184864*^9, 3.546325609276681*^9, 3.548247335460739*^9, 
   3.5484045534475603`*^9, 3.5484812514156857`*^9, 3.548511431516439*^9, 
   3.548525810867075*^9, 3.548567874626824*^9, 3.548571057767899*^9, 
   3.548575011284733*^9, 3.548591590855377*^9, 3.5486620979151917`*^9, 
   3.54870012006857*^9, 3.548756254135652*^9, 3.5489112455354843`*^9, 
   3.548930610802909*^9, 3.548960798683242*^9, 3.54900218135487*^9, 
   3.549020867080896*^9, 3.5490435424876747`*^9, 3.549047029136091*^9, 
   3.549086275746169*^9, 3.549096274483279*^9, 3.5492603071378117`*^9, 
   3.5492729267158957`*^9, 3.549305074747398*^9, 3.549305291775682*^9, 
   3.549305801141609*^9, 3.549358882515388*^9, 3.54943314862444*^9, 
   3.5494623142650557`*^9, 3.549540247374941*^9, 3.5509215860216503`*^9, 
   3.550990716839032*^9, 3.5509964243212337`*^9, 3.550996592124852*^9, 
   3.5553471999794607`*^9, 3.557392102233325*^9, 3.557403151010277*^9, 
   3.557466462712414*^9, 3.55757938062574*^9, 3.5576359581887703`*^9, 
   3.558441140234008*^9, 3.5585498870305567`*^9, 3.560007741027741*^9, 
   3.5600444131344547`*^9, 3.560185498459961*^9, 3.560186285790277*^9, 
   3.560186361719495*^9, 3.56018650888645*^9, 3.560222878562696*^9, 
   3.560256423248315*^9, 3.5602689293134947`*^9, 3.560269931543726*^9, 
   3.560271416704753*^9, 3.560516253594365*^9, 3.560521600268115*^9, 
   3.560534288752844*^9, 3.560535150395927*^9, 3.5608423169537287`*^9, 
   3.560844436900612*^9, 3.561176808493854*^9, 3.561210847957975*^9, 
   3.561269151535212*^9, 3.561275599154109*^9, 3.561276941175692*^9, 
   3.5613028075188026`*^9, 3.561305367902422*^9, 3.561308537986195*^9, 
   3.5613087867492*^9, {3.561360312366501*^9, 3.561360067310034*^9}, 
   3.7281150213725643`*^9, 3.7312348763213663`*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"5cdf1750-4aab-4db0-9048-47ba09f4a89f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511510202341465*^9, 3.511510206285344*^9}},
 CellLabel->
  "In[193]:=",ExpressionUUID->"34326726-7f45-4f67-8019-ba604c1f3158"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", 
          OverscriptBox["\[Del]", "~"], "]"}], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDTildeg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "12"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]]}]}]], "Output",
 CellChangeTimes->{
  3.5115102071253157`*^9, 3.5115103472738657`*^9, 3.5115917219252453`*^9, 
   3.51159672280116*^9, 3.5116308780277157`*^9, 3.511631596628664*^9, 
   3.511723728537258*^9, 3.521275446503495*^9, 3.521275642281115*^9, 
   3.52127681757786*^9, 3.521277314136705*^9, 3.521277500634822*^9, 
   3.5212789352220078`*^9, 3.521367313105962*^9, 3.5213703931717157`*^9, 
   3.521440691159629*^9, 3.521440927032461*^9, 3.5214559135266438`*^9, 
   3.5214614300766907`*^9, 3.5215070737987013`*^9, 3.521521000098547*^9, 
   3.521523020936121*^9, 3.5215390675972548`*^9, 3.5217854908886633`*^9, 
   3.521797365515709*^9, 3.521804004776775*^9, 3.5218833156878433`*^9, 
   3.5219421555972652`*^9, 3.521971104753936*^9, 3.521971483462048*^9, 
   3.521971571373907*^9, 3.521972254885907*^9, 3.521973960703311*^9, 
   3.522029112996656*^9, 3.5243939875831223`*^9, 3.524396323577536*^9, 
   3.5249778693806973`*^9, 3.524997223076847*^9, 3.525068653710601*^9, 
   3.525070800538185*^9, 3.525072075938456*^9, 3.525073232680779*^9, 
   3.5250810284098463`*^9, 3.525187141690783*^9, 3.52524025076728*^9, 
   3.525243905068531*^9, 3.52539753553906*^9, 3.525398678209672*^9, 
   3.525493466643971*^9, 3.5256608705092154`*^9, 3.5256619142895393`*^9, 
   3.5256629823635883`*^9, 3.525673282081668*^9, 3.5457388746270933`*^9, 
   3.545991136827416*^9, 3.5459914774796267`*^9, 3.546000130743927*^9, 
   3.546021361143145*^9, 3.546057620024954*^9, 3.546064590533637*^9, 
   3.546091131932475*^9, 3.546325609426996*^9, 3.548247335565493*^9, 
   3.54840455350266*^9, 3.5484812514571743`*^9, 3.548511431546235*^9, 
   3.548525810907716*^9, 3.548567874672825*^9, 3.548571057806389*^9, 
   3.548575011322287*^9, 3.548591590913321*^9, 3.548662097975628*^9, 
   3.548700120195711*^9, 3.548756254172472*^9, 3.5489112455853453`*^9, 
   3.548930610849168*^9, 3.548960798720931*^9, 3.5490021813899593`*^9, 
   3.549020867111067*^9, 3.549043542535413*^9, 3.549047029170733*^9, 
   3.5490862757872972`*^9, 3.549096274546853*^9, 3.549260307190962*^9, 
   3.549272926746849*^9, 3.5493050747934732`*^9, 3.54930529181271*^9, 
   3.5493058011997633`*^9, 3.5493588825633287`*^9, 3.549433148652692*^9, 
   3.549462314306858*^9, 3.549540247417598*^9, 3.55092158607815*^9, 
   3.550990716900865*^9, 3.550996424376808*^9, 3.5509965921830187`*^9, 
   3.555347200032445*^9, 3.5573921022990313`*^9, 3.557403151061442*^9, 
   3.5574664627579317`*^9, 3.557579380665311*^9, 3.5576359582388983`*^9, 
   3.558441140273787*^9, 3.558549887072361*^9, 3.5600077410712557`*^9, 
   3.560044413186411*^9, 3.560185498513733*^9, 3.560186285841475*^9, 
   3.560186361769244*^9, 3.5601865089408903`*^9, 3.56022287861384*^9, 
   3.5602564232905817`*^9, 3.5602689293645897`*^9, 3.560269931588002*^9, 
   3.560271416751463*^9, 3.560516253652082*^9, 3.560521600307478*^9, 
   3.560534288813307*^9, 3.5605351504321537`*^9, 3.560842317000352*^9, 
   3.560844436956792*^9, 3.561176808537901*^9, 3.561210848012287*^9, 
   3.561269151593305*^9, 3.561275599252542*^9, 3.5612769412219877`*^9, 
   3.561302807577964*^9, 3.561305367963056*^9, 3.5613085380363092`*^9, 
   3.561308786872797*^9, {3.56136031242677*^9, 3.561360067377473*^9}, 
   3.728115021405754*^9, 3.731234876350235*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"06683259-ca36-4e43-b8de-be6dd66bbf33"]
}, Open  ]],

Cell["We impose now that we are in an Einstein manifold", "Text",
 CellChangeTimes->{{3.511597242083872*^9, 3.511597249746895*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "EinsteinMetric"}]}]], "Input",
 CellChangeTimes->{{3.511510350298903*^9, 3.511510357021413*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"004903b9-c1a0-4f61-a836-5e6204eb6409"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "24"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]]}]}]], "Output",
 CellChangeTimes->{
  3.5115103578833313`*^9, 3.511591721984584*^9, 3.5115967246213493`*^9, 
   3.511630878054153*^9, 3.51163159671561*^9, 3.5117237287142677`*^9, 
   3.5212754507296047`*^9, 3.521275645164044*^9, 3.52127681781852*^9, 
   3.5212773142037163`*^9, 3.521277500692088*^9, 3.521278935241437*^9, 
   3.521367313262821*^9, 3.5213703933075314`*^9, 3.521440691228376*^9, 
   3.521440927098246*^9, 3.5214559135510387`*^9, 3.521461432333501*^9, 
   3.521507073817129*^9, 3.521521000229972*^9, 3.521523020963757*^9, 
   3.5215390676254396`*^9, 3.521785490959614*^9, 3.521797365543538*^9, 
   3.521804004805828*^9, 3.521883315715538*^9, 3.5219421556598186`*^9, 
   3.52197110478164*^9, 3.521971483501214*^9, 3.52197157139821*^9, 
   3.5219722549159317`*^9, 3.5219739607285852`*^9, 3.5220291133534813`*^9, 
   3.524393987625703*^9, 3.5243963236317863`*^9, 3.5249778694094667`*^9, 
   3.524997223121006*^9, 3.5250686549100018`*^9, 3.5250708005804787`*^9, 
   3.525072075979081*^9, 3.5250732327123528`*^9, 3.525081028461801*^9, 
   3.5251871417256002`*^9, 3.525240250860681*^9, 3.525243905104067*^9, 
   3.52539753557901*^9, 3.525398678241069*^9, 3.5254934666808243`*^9, 
   3.525660870564436*^9, 3.525661914323403*^9, 3.52566298239631*^9, 
   3.525673282133561*^9, 3.54573887468087*^9, 3.545991137001699*^9, 
   3.545991477563238*^9, 3.546000130881969*^9, 3.546021361164686*^9, 
   3.5460576200907087`*^9, 3.5460645905935087`*^9, 3.546091132020239*^9, 
   3.546325609545313*^9, 3.548247335632593*^9, 3.548404553551176*^9, 
   3.548481251496448*^9, 3.5485114315870523`*^9, 3.54852581093443*^9, 
   3.5485678747084017`*^9, 3.5485710578282423`*^9, 3.548575011357288*^9, 
   3.548591590950898*^9, 3.5486620980342703`*^9, 3.5487001202859*^9, 
   3.54875625421564*^9, 3.548911245638982*^9, 3.548930610885638*^9, 
   3.548960798758174*^9, 3.549002181428423*^9, 3.549020867151601*^9, 
   3.549043542585957*^9, 3.549047029222129*^9, 3.549086275834284*^9, 
   3.549096274595552*^9, 3.54926030723559*^9, 3.549272926784918*^9, 
   3.549305074829659*^9, 3.549305291839222*^9, 3.5493058012358513`*^9, 
   3.549358882607067*^9, 3.549433148706299*^9, 3.549462314328813*^9, 
   3.5495402474553003`*^9, 3.550921586096588*^9, 3.5509907169513493`*^9, 
   3.550996424417824*^9, 3.5509965922284803`*^9, 3.555347200072338*^9, 
   3.557392102358201*^9, 3.557403151102682*^9, 3.5574664627917957`*^9, 
   3.5575793806963987`*^9, 3.557635958279366*^9, 3.558441140311504*^9, 
   3.558549887103808*^9, 3.560007741111693*^9, 3.560044413226018*^9, 
   3.560185498559402*^9, 3.560186285880031*^9, 3.560186361807179*^9, 
   3.560186508995343*^9, 3.560222878660348*^9, 3.5602564233302917`*^9, 
   3.560268929398378*^9, 3.560269931620254*^9, 3.560271416786377*^9, 
   3.5605162537001743`*^9, 3.560521600354282*^9, 3.560534288857777*^9, 
   3.560535150465102*^9, 3.560842317034581*^9, 3.5608444370023403`*^9, 
   3.5611768085892*^9, 3.561210848052619*^9, 3.561269151628448*^9, 
   3.561275599300845*^9, 3.561276941311985*^9, 3.561302807623069*^9, 
   3.561305368011693*^9, 3.561308538096464*^9, 3.561308786933806*^9, {
   3.561360312462842*^9, 3.561360067423476*^9}, 3.728115021425847*^9, 
   3.731234876379539*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"4263d408-e522-4005-8bd2-b49ea5334eb6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"IndexSolve", "[", 
   RowBox[{"RicciScalarUnphysToRicciScalarPhys", ",", 
    RowBox[{"RicciScalarCDTildeg", "[", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.511505949406007*^9, 3.511505955016933*^9}, {
  3.5115091355402117`*^9, 3.511509137947487*^9}, {3.511510608749392*^9, 
  3.511510619485902*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"5f7e6ab2-07d9-4211-8678-bb69902fd388"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]], "+", 
   RowBox[{
    FractionBox["1", "24"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["g", "~"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Physicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], "+", 
      FractionBox[
       RowBox[{"6", " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "\[Gamma]"], 
           SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[-$CellContext`\[Gamma]][
          $CellContext`CDg[$CellContext`\[Gamma]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False]}], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]], "-", 
      FractionBox[
       RowBox[{"12", " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[-$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]],
         Editable->False]}], 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511510620067774*^9, 3.5115917220463667`*^9, 3.5115967256385517`*^9, 
   3.511630878109776*^9, 3.5116315967537107`*^9, 3.51172372879618*^9, 
   3.5212754591721153`*^9, 3.521275647990837*^9, 3.521276817931405*^9, 
   3.521277314366658*^9, 3.5212775007820663`*^9, 3.5212789353511353`*^9, 
   3.521367313498433*^9, 3.5213703933365107`*^9, 3.521440691374195*^9, 
   3.521440927198041*^9, 3.521455913577691*^9, 3.5214614338368073`*^9, 
   3.521507073968135*^9, 3.521521000476824*^9, 3.5215230210502253`*^9, 
   3.521539067753837*^9, 3.521785491123877*^9, 3.5217973655969257`*^9, 
   3.521804004851738*^9, 3.521883315815619*^9, 3.521942155809046*^9, 
   3.521971104825767*^9, 3.521971483556671*^9, 3.521971571445554*^9, 
   3.521972254962949*^9, 3.521973960847268*^9, 3.522029113471224*^9, 
   3.52439398771278*^9, 3.5243963237031527`*^9, 3.52497786949627*^9, 
   3.5249972231647043`*^9, 3.525068656000181*^9, 3.525070800637784*^9, 
   3.525072076056987*^9, 3.52507323276187*^9, 3.52508102850029*^9, 
   3.525187141775261*^9, 3.52524025092566*^9, 3.525243905166923*^9, 
   3.525397535620508*^9, 3.525398678302766*^9, 3.525493466735783*^9, 
   3.52566087062213*^9, 3.525661914380686*^9, 3.525662982453479*^9, 
   3.525673282216585*^9, 3.5457388747430067`*^9, 3.5459911371694603`*^9, 
   3.54599147771742*^9, 3.546000131041017*^9, 3.546021361268735*^9, 
   3.546057620196155*^9, 3.546064590746017*^9, 3.546091132159092*^9, 
   3.546325609740938*^9, 3.548247335736383*^9, 3.5484045536347713`*^9, 
   3.5484812515388823`*^9, 3.548511431671502*^9, 3.548525810993142*^9, 
   3.548567874765753*^9, 3.548571057881106*^9, 3.548575011408514*^9, 
   3.5485915912239122`*^9, 3.548662098137129*^9, 3.548700120525928*^9, 
   3.548756254297186*^9, 3.548911245704599*^9, 3.5489306109415073`*^9, 
   3.548960798815584*^9, 3.549002181484755*^9, 3.5490208671982307`*^9, 
   3.549043542651382*^9, 3.549047029263126*^9, 3.549086275872786*^9, 
   3.549096274643235*^9, 3.549260307301812*^9, 3.549272926848432*^9, 
   3.549305074868824*^9, 3.549305291888177*^9, 3.549305801291747*^9, 
   3.549358882690268*^9, 3.549433148762877*^9, 3.549462314371661*^9, 
   3.549540247509446*^9, 3.5509215861583567`*^9, 3.5509907170454817`*^9, 
   3.5509964244832077`*^9, 3.550996592313033*^9, 3.555347200187828*^9, 
   3.557392102469893*^9, 3.55740315116114*^9, 3.557466462852207*^9, 
   3.55757938073569*^9, 3.557635958340094*^9, 3.5584411404263372`*^9, 
   3.558549887155319*^9, 3.5600077412078133`*^9, 3.560044413338244*^9, 
   3.560185498684236*^9, 3.560186285952319*^9, 3.560186361878389*^9, 
   3.560186509069276*^9, 3.560222878786175*^9, 3.5602564234519567`*^9, 
   3.5602689294702673`*^9, 3.560269931685959*^9, 3.5602714168547773`*^9, 
   3.560516253783024*^9, 3.560521600429508*^9, 3.560534288928241*^9, 
   3.560535150531954*^9, 3.560842317149995*^9, 3.560844437128313*^9, 
   3.561176808653213*^9, 3.561210848175541*^9, 3.561269151750922*^9, 
   3.561275599479723*^9, 3.561276941458507*^9, 3.5613028076901293`*^9, 
   3.561305368087316*^9, 3.56130853819868*^9, 3.561308787016238*^9, {
   3.5613603125821953`*^9, 3.561360067546763*^9}, 3.728115021470141*^9, 
   3.731234876420621*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"5e412382-0b53-4abb-a60c-01ca15f164cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "PhysicalToUnPhysical"}]}]], "Input",
 CellLabel->
  "In[196]:=",ExpressionUUID->"90cfe4a4-bec2-4e12-b8b5-6bf6cc61ef74"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]], "+", 
   RowBox[{
    FractionBox["1", "24"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], "+", 
      FractionBox[
       RowBox[{"6", " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "\[Gamma]"], 
           SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[-$CellContext`\[Gamma]][
          $CellContext`CDg[$CellContext`\[Gamma]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False]}], 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]], "-", 
      FractionBox[
       RowBox[{"12", " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[-$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]],
         Editable->False]}], 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False], "2"]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521275469693482*^9, 3.5212756500848207`*^9, 3.52127681812083*^9, 
   3.521277314434795*^9, 3.5212775007963743`*^9, 3.521278935377824*^9, 
   3.521367313771749*^9, 3.521370393366776*^9, 3.521440691482727*^9, 
   3.52144092725817*^9, 3.521455913606813*^9, 3.5214614350834637`*^9, 
   3.521507074037781*^9, 3.521521000535557*^9, 3.521523021087328*^9, 
   3.5215390677785597`*^9, 3.5217854911906137`*^9, 3.521797365623584*^9, 
   3.521804004881521*^9, 3.521883315856577*^9, 3.5219421558779917`*^9, 
   3.521971104853443*^9, 3.52197148360588*^9, 3.5219715714856567`*^9, 
   3.521972254991146*^9, 3.5219739608672953`*^9, 3.522029113547894*^9, 
   3.524393987765156*^9, 3.524396323746028*^9, 3.5249778695336437`*^9, 
   3.524997223212947*^9, 3.525068661720007*^9, 3.5250708006760187`*^9, 
   3.5250720761304617`*^9, 3.5250732327947807`*^9, 3.525081028515882*^9, 
   3.525187141810691*^9, 3.5252402509657393`*^9, 3.5252439052074833`*^9, 
   3.525397535642438*^9, 3.525398678332707*^9, 3.525493466771243*^9, 
   3.525660870653886*^9, 3.52566191441153*^9, 3.525662982495339*^9, 
   3.525673282271494*^9, 3.545738874812706*^9, 3.54599113725766*^9, 
   3.545991477789639*^9, 3.546000131206458*^9, 3.546021361323213*^9, 
   3.5460576202495127`*^9, 3.5460645908111362`*^9, 3.546091132267632*^9, 
   3.546325609773131*^9, 3.548247335802444*^9, 3.5484045536761093`*^9, 
   3.548481251577528*^9, 3.548511431716304*^9, 3.548525811023601*^9, 
   3.548567874798573*^9, 3.548571057926859*^9, 3.5485750114407253`*^9, 
   3.548591591281272*^9, 3.548662098185502*^9, 3.5487001205760098`*^9, 
   3.548756254333963*^9, 3.54891124575632*^9, 3.5489306109695463`*^9, 
   3.54896079884505*^9, 3.549002181514509*^9, 3.549020867251322*^9, 
   3.5490435426905537`*^9, 3.5490470292898207`*^9, 3.549086275914369*^9, 
   3.54909627466398*^9, 3.549260307354376*^9, 3.549272926869179*^9, 
   3.549305074899934*^9, 3.5493052919294157`*^9, 3.549305801307578*^9, 
   3.549358882726748*^9, 3.549433148793882*^9, 3.549462314417862*^9, 
   3.5495402475420732`*^9, 3.550921586197513*^9, 3.550990717085339*^9, 
   3.550996424504147*^9, 3.55099659240057*^9, 3.555347200227339*^9, 
   3.557392102525488*^9, 3.557403151193995*^9, 3.557466462889415*^9, 
   3.557579380764834*^9, 3.557635958388093*^9, 3.558441140463936*^9, 
   3.558549887188092*^9, 3.560007741247987*^9, 3.560044413374264*^9, 
   3.560185498712171*^9, 3.560186286015848*^9, 3.5601863619163637`*^9, 
   3.5601865091239157`*^9, 3.5602228788301153`*^9, 3.560256423491548*^9, 
   3.5602689295083942`*^9, 3.5602699317187433`*^9, 3.560271416889735*^9, 
   3.560516253833908*^9, 3.560521600448182*^9, 3.560534288977619*^9, 
   3.560535150591605*^9, 3.5608423172027903`*^9, 3.56084443717999*^9, 
   3.5611768086899967`*^9, 3.56121084821498*^9, 3.5612691517907143`*^9, 
   3.56127559952108*^9, 3.561276941492848*^9, 3.561302807769064*^9, 
   3.561305368142189*^9, 3.561308538243924*^9, 3.561308787057172*^9, {
   3.561360312625288*^9, 3.5613600675976267`*^9}, 3.72811502149442*^9, 
   3.7312348764504433`*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"12f9c2e1-26e6-4720-b0d7-250823a3c45e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.51151065437236*^9, 3.511510663156324*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"d6036f41-8834-4577-b085-13ce7a17d601"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "24"], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", "\[Del]", "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDg[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], 
       SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`CDg[$CellContext`\[Gamma]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511510663566227*^9, 3.51159172220938*^9, 3.511596728180992*^9, 
   3.511630878170768*^9, 3.511631596820106*^9, 3.511723728921171*^9, 
   3.5212756626211767`*^9, 3.521276818223958*^9, 3.521277314549078*^9, 
   3.521277500863201*^9, 3.521278935445038*^9, 3.5213673140353413`*^9, 
   3.521370393401812*^9, 3.52144069156285*^9, 3.521440927345211*^9, 
   3.521455913632004*^9, 3.521461436188963*^9, 3.521507074112337*^9, 
   3.521521000641776*^9, 3.521523021122398*^9, 3.5215390678148403`*^9, 
   3.521785491219923*^9, 3.521797365654408*^9, 3.521804004914179*^9, 
   3.521883315889023*^9, 3.5219421559032793`*^9, 3.521971104876553*^9, 
   3.521971483662571*^9, 3.521971571520644*^9, 3.521972255027143*^9, 
   3.521973960909894*^9, 3.5220291136366*^9, 3.5243939878269777`*^9, 
   3.5243963238111563`*^9, 3.524977869577305*^9, 3.524997223270392*^9, 
   3.5250686626331053`*^9, 3.525070800755076*^9, 3.525072076188143*^9, 
   3.52507323293126*^9, 3.525081028538578*^9, 3.525187141846944*^9, 
   3.5252402510081673`*^9, 3.525243905256198*^9, 3.525397535676388*^9, 
   3.525398678376459*^9, 3.525493466815015*^9, 3.525660870699012*^9, 
   3.525661914451357*^9, 3.5256629825624228`*^9, 3.5256732823417587`*^9, 
   3.545738874877016*^9, 3.545991137328616*^9, 3.5459914779078712`*^9, 
   3.5460001313037252`*^9, 3.546021361355322*^9, 3.546057620298552*^9, 
   3.54606459084527*^9, 3.546091132393347*^9, 3.5463256098618317`*^9, 
   3.548247335839473*^9, 3.548404553733852*^9, 3.548481251617469*^9, 
   3.5485114317756157`*^9, 3.548525811058344*^9, 3.5485678748413973`*^9, 
   3.548571057961419*^9, 3.5485750114797287`*^9, 3.548591591331163*^9, 
   3.54866209825012*^9, 3.5487001206373167`*^9, 3.548756254391911*^9, 
   3.548911245791799*^9, 3.5489306110209503`*^9, 3.548960798882927*^9, 
   3.549002181549123*^9, 3.549020867311924*^9, 3.54904354274459*^9, 
   3.549047029329711*^9, 3.549086275957222*^9, 3.549096274693347*^9, 
   3.549260307404351*^9, 3.549272926908592*^9, 3.549305074938685*^9, 
   3.549305291965013*^9, 3.549305801335881*^9, 3.5493588827561407`*^9, 
   3.549433148823172*^9, 3.549462314455532*^9, 3.549540247590171*^9, 
   3.550921586224495*^9, 3.5509907171328993`*^9, 3.550996424533018*^9, 
   3.5509965924522448`*^9, 3.5553472002776937`*^9, 3.557392102589799*^9, 
   3.557403151237536*^9, 3.557466462935334*^9, 3.557579380800305*^9, 
   3.55763595844112*^9, 3.5584411405119143`*^9, 3.558549887227767*^9, 
   3.560007741298132*^9, 3.560044413424446*^9, 3.560185498762302*^9, 
   3.560186286066348*^9, 3.560186361966667*^9, 3.5601865091778*^9, 
   3.5602228788878603`*^9, 3.560256423541098*^9, 3.560268929556995*^9, 
   3.56026993175178*^9, 3.560271416925181*^9, 3.560516253878923*^9, 
   3.560521600510703*^9, 3.560534289032278*^9, 3.560535150633193*^9, 
   3.5608423172466593`*^9, 3.56084443723965*^9, 3.561176808744738*^9, 
   3.56121084835887*^9, 3.56126915184982*^9, 3.561275599600856*^9, 
   3.561276941580749*^9, 3.561302807828581*^9, 3.561305368183069*^9, 
   3.561308538324442*^9, 3.561308787139968*^9, {3.561360312683117*^9, 
   3.561360067660612*^9}, 3.7281150215199337`*^9, 3.731234876483678*^9},
 CellLabel->
  "Out[197]=",ExpressionUUID->"dfd1b709-2442-421b-b1ca-754f07cecc31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{"Unphysicalg", "[", 
      RowBox[{
       RowBox[{"-", "\[Alpha]"}], ",", 
       RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.511510964171248*^9, 3.511510981451971*^9}, {
  3.525068665677106*^9, 3.525068668334756*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"6cf0fd60-770f-467b-9dd4-0ca3b520336b"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], 
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalTheta][]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{"R", "[", "\[Del]", "]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciScalarCDg[],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False]}], "24"], "+", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], 
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`CDg[$CellContext`\[Gamma]][
          $CellContext`\[CapitalTheta][]]],
        Editable->False], "4"]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.5115109821917686`*^9, 3.511591722291148*^9, 3.5115967297085323`*^9, 
   3.511630878192555*^9, 3.511631596849786*^9, 3.5117237289872837`*^9, 
   3.521275666891477*^9, 3.5212768184010477`*^9, 3.5212773146052227`*^9, 
   3.521277500874114*^9, 3.521278935524724*^9, 3.521367314212184*^9, 
   3.5213703934259157`*^9, 3.5214406915852127`*^9, 3.521440927417244*^9, 
   3.521455913669846*^9, 3.521461437515895*^9, 3.52150707423377*^9, 
   3.521521000710393*^9, 3.5215230211478767`*^9, 3.521539067837879*^9, 
   3.521785491232448*^9, 3.521797365676906*^9, 3.52180400494512*^9, 
   3.5218833159104567`*^9, 3.521942155914448*^9, 3.5219711049007597`*^9, 
   3.5219714837001266`*^9, 3.521971571547194*^9, 3.521972255051152*^9, 
   3.521973960928872*^9, 3.5220291137896643`*^9, 3.524393987907736*^9, 
   3.524396323856538*^9, 3.52497786960655*^9, 3.524997223337637*^9, 
   3.525068669389913*^9, 3.5250708007953*^9, 3.525072076234346*^9, 
   3.5250732329600077`*^9, 3.525081028549313*^9, 3.525187141882338*^9, 
   3.525240251068708*^9, 3.525243905293961*^9, 3.525397535696357*^9, 
   3.525398678406377*^9, 3.525493466847086*^9, 3.525660870727474*^9, 
   3.525661914480188*^9, 3.525662982597395*^9, 3.525673282404942*^9, 
   3.545738874893948*^9, 3.5459911374198008`*^9, 3.5459914780527067`*^9, 
   3.546000131439348*^9, 3.546021361371191*^9, 3.546057620356615*^9, 
   3.546064590863249*^9, 3.546091132471833*^9, 3.5463256099561787`*^9, 
   3.5482473358555937`*^9, 3.548404553748941*^9, 3.5484812516559467`*^9, 
   3.548511431790428*^9, 3.548525811085112*^9, 3.548567874875073*^9, 
   3.548571057987355*^9, 3.548575011518862*^9, 3.5485915913663282`*^9, 
   3.548662098302422*^9, 3.548700120678534*^9, 3.548756254413485*^9, 
   3.5489112458299417`*^9, 3.5489306110507183`*^9, 3.548960798911334*^9, 
   3.549002181573084*^9, 3.54902086733084*^9, 3.549043542788686*^9, 
   3.549047029369033*^9, 3.549086275995373*^9, 3.549096274730878*^9, 
   3.549260307468001*^9, 3.549272926948721*^9, 3.5493050749700336`*^9, 
   3.549305291992755*^9, 3.549305801374304*^9, 3.549358882771762*^9, 
   3.5494331488503857`*^9, 3.549462314499688*^9, 3.549540247619852*^9, 
   3.550921586239003*^9, 3.550990717148611*^9, 3.5509964245487432`*^9, 
   3.550996592472824*^9, 3.555347200312113*^9, 3.5573921026391773`*^9, 
   3.5574031512697897`*^9, 3.557466462979925*^9, 3.557579380838113*^9, 
   3.557635958475561*^9, 3.558441140544691*^9, 3.558549887259446*^9, 
   3.560007741315907*^9, 3.560044413462829*^9, 3.560185498813313*^9, 
   3.560186286102296*^9, 3.5601863620013514`*^9, 3.560186509215007*^9, 
   3.56022287898477*^9, 3.560256423574109*^9, 3.560268929589875*^9, 
   3.560269931779065*^9, 3.560271416957241*^9, 3.560516253922633*^9, 
   3.560521600565468*^9, 3.560534289082706*^9, 3.560535150711231*^9, 
   3.560842317275704*^9, 3.560844437273541*^9, 3.561176808774684*^9, 
   3.5612108484060097`*^9, 3.561269151867672*^9, 3.56127559965443*^9, 
   3.561276941626655*^9, 3.5613028078622913`*^9, 3.561305368222191*^9, 
   3.561308538380014*^9, 3.561308787203253*^9, {3.561360312698722*^9, 
   3.561360067705626*^9}, 3.728115021535432*^9, 3.731234876510551*^9},
 CellLabel->
  "Out[198]=",ExpressionUUID->"3337cddd-e2e9-4aa1-ae94-f7c0d8986514"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDg2\[Theta]", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511592104665341*^9, 3.511592122366489*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"1be1f48b-2b96-419a-8e7e-6b627daee41a"],

Cell["We introduce new quantities", "Text",
 CellChangeTimes->{{3.511591781172194*^9, 3.511591788011982*^9}, {
  3.511592201538439*^9, 3.511592216409916*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DefTensor", "[", 
   RowBox[{
    RowBox[{"sUnphys", "[", "]"}], ",", "M4", ",", 
    RowBox[{"PrintAs", "\[Rule]", "\"\<s\>\""}]}], "]"}], ";", 
  RowBox[{"DefTensor", "[", 
   RowBox[{
    RowBox[{"\[CapitalSigma]Unphys", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], ",", "M4", ",", 
    RowBox[{"PrintAs", "\[Rule]", "\"\<\[CapitalSigma]\>\""}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.511591789797814*^9, 3.51159179839228*^9}, {
  3.511591898286942*^9, 3.511591914647505*^9}, {3.511592227324387*^9, 
  3.51159225359873*^9}, {3.511592290988422*^9, 3.511592291097541*^9}, {
  3.5250686741060677`*^9, 3.525068675036436*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"7e577c36-7d27-4f7d-a4b4-5bd853cdc62a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"sUnphys", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`sUnphys[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511591944687924*^9, 3.511592254459296*^9, 3.5115922929566193`*^9, 
   3.5115967326122*^9, 3.5116308782166433`*^9, 3.5116315968769293`*^9, 
   3.51172372905757*^9, 3.521275669604957*^9, 3.521276818584935*^9, 
   3.5212773147837*^9, 3.5212775008856792`*^9, 3.5212789356122704`*^9, 
   3.52136731442117*^9, 3.521370393496435*^9, 3.5214406916007023`*^9, 
   3.5214409274991817`*^9, 3.521455913698743*^9, 3.5214614405561028`*^9, 
   3.521507074251183*^9, 3.521521000740075*^9, 3.521523021172674*^9, 
   3.521539067863159*^9, 3.521785491339596*^9, 3.521797365752721*^9, 
   3.521804004978428*^9, 3.521883315933793*^9, 3.521942155994123*^9, 
   3.521971104937551*^9, 3.521971483742345*^9, 3.521971571570896*^9, 
   3.521972255080472*^9, 3.52197396095196*^9, 3.522029113940735*^9, 
   3.524393987968254*^9, 3.524396323937182*^9, 3.52497786964266*^9, 
   3.524997223356901*^9, 3.525068675949129*^9, 3.525070800829961*^9, 
   3.5250720762430687`*^9, 3.525073232990415*^9, 3.525081028599307*^9, 
   3.525187141944272*^9, 3.5252402514500227`*^9, 3.525243905327487*^9, 
   3.5253975357191257`*^9, 3.5253986784402027`*^9, 3.525493466880499*^9, 
   3.525660870760908*^9, 3.525661914546932*^9, 3.5256629826589317`*^9, 
   3.5256732824486437`*^9, 3.545738874917355*^9, 3.545991137444881*^9, 
   3.5459914782442217`*^9, 3.546000131533942*^9, 3.546021361426105*^9, 
   3.546057620380766*^9, 3.546064590921631*^9, 3.54609113249938*^9, 
   3.5463256100954933`*^9, 3.548247335930882*^9, 3.54840455377101*^9, 
   3.548481251716936*^9, 3.548511431814937*^9, 3.5485258111499*^9, 
   3.548567874913464*^9, 3.548571058022156*^9, 3.548575011606498*^9, 
   3.54859159139135*^9, 3.548662098324246*^9, 3.548700120697023*^9, 
   3.5487562544350157`*^9, 3.54891124597456*^9, 3.548930611088016*^9, 
   3.548960798969013*^9, 3.5490021816104527`*^9, 3.549020867375434*^9, 
   3.5490435428394203`*^9, 3.5490470294027643`*^9, 3.5490862760126*^9, 
   3.549096274754937*^9, 3.549260307512535*^9, 3.549272926970036*^9, 
   3.549305075000773*^9, 3.549305292015707*^9, 3.549305801429653*^9, 
   3.549358882795391*^9, 3.549433148873448*^9, 3.5494623145390053`*^9, 
   3.549540247632209*^9, 3.550921586277235*^9, 3.5509907171740303`*^9, 
   3.55099642459374*^9, 3.550996592499848*^9, 3.555347200331223*^9, 
   3.557392102680559*^9, 3.557403151307065*^9, 3.55746646301617*^9, 
   3.557579380911008*^9, 3.557635958519068*^9, 3.558441140583755*^9, 
   3.5585498872934217`*^9, 3.56000774133816*^9, 3.560044413503484*^9, 
   3.560185498876031*^9, 3.560186286240156*^9, 3.560186362040391*^9, 
   3.560186509262806*^9, 3.56022287901222*^9, 3.560256423614195*^9, 
   3.5602689296294613`*^9, 3.5602699318127403`*^9, 3.560271416993493*^9, 
   3.560516253943818*^9, 3.560521600625689*^9, 3.560534289099349*^9, 
   3.560535150797145*^9, 3.560842317297373*^9, 3.560844437312394*^9, 
   3.561176808826585*^9, 3.5612108485284758`*^9, 3.56126915189115*^9, 
   3.561275599680266*^9, 3.5612769416804667`*^9, 3.56130280796729*^9, 
   3.56130536827575*^9, 3.56130853842764*^9, 3.56130878725471*^9, {
   3.561360312720314*^9, 3.56136006777427*^9}, 3.72811502156124*^9, 
   3.7312348765423822`*^9},
 CellLabel->
  "During evaluation of \
In[200]:=",ExpressionUUID->"54dc2128-ce0b-449b-9a10-e5d2b5fa5962"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[CapitalSigma]Unphys", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511591944687924*^9, 3.511592254459296*^9, 3.5115922929566193`*^9, 
   3.5115967326122*^9, 3.5116308782166433`*^9, 3.5116315968769293`*^9, 
   3.51172372905757*^9, 3.521275669604957*^9, 3.521276818584935*^9, 
   3.5212773147837*^9, 3.5212775008856792`*^9, 3.5212789356122704`*^9, 
   3.52136731442117*^9, 3.521370393496435*^9, 3.5214406916007023`*^9, 
   3.5214409274991817`*^9, 3.521455913698743*^9, 3.5214614405561028`*^9, 
   3.521507074251183*^9, 3.521521000740075*^9, 3.521523021172674*^9, 
   3.521539067863159*^9, 3.521785491339596*^9, 3.521797365752721*^9, 
   3.521804004978428*^9, 3.521883315933793*^9, 3.521942155994123*^9, 
   3.521971104937551*^9, 3.521971483742345*^9, 3.521971571570896*^9, 
   3.521972255080472*^9, 3.52197396095196*^9, 3.522029113940735*^9, 
   3.524393987968254*^9, 3.524396323937182*^9, 3.52497786964266*^9, 
   3.524997223356901*^9, 3.525068675949129*^9, 3.525070800829961*^9, 
   3.5250720762430687`*^9, 3.525073232990415*^9, 3.525081028599307*^9, 
   3.525187141944272*^9, 3.5252402514500227`*^9, 3.525243905327487*^9, 
   3.5253975357191257`*^9, 3.5253986784402027`*^9, 3.525493466880499*^9, 
   3.525660870760908*^9, 3.525661914546932*^9, 3.5256629826589317`*^9, 
   3.5256732824486437`*^9, 3.545738874917355*^9, 3.545991137444881*^9, 
   3.5459914782442217`*^9, 3.546000131533942*^9, 3.546021361426105*^9, 
   3.546057620380766*^9, 3.546064590921631*^9, 3.54609113249938*^9, 
   3.5463256100954933`*^9, 3.548247335930882*^9, 3.54840455377101*^9, 
   3.548481251716936*^9, 3.548511431814937*^9, 3.5485258111499*^9, 
   3.548567874913464*^9, 3.548571058022156*^9, 3.548575011606498*^9, 
   3.54859159139135*^9, 3.548662098324246*^9, 3.548700120697023*^9, 
   3.5487562544350157`*^9, 3.54891124597456*^9, 3.548930611088016*^9, 
   3.548960798969013*^9, 3.5490021816104527`*^9, 3.549020867375434*^9, 
   3.5490435428394203`*^9, 3.5490470294027643`*^9, 3.5490862760126*^9, 
   3.549096274754937*^9, 3.549260307512535*^9, 3.549272926970036*^9, 
   3.549305075000773*^9, 3.549305292015707*^9, 3.549305801429653*^9, 
   3.549358882795391*^9, 3.549433148873448*^9, 3.5494623145390053`*^9, 
   3.549540247632209*^9, 3.550921586277235*^9, 3.5509907171740303`*^9, 
   3.55099642459374*^9, 3.550996592499848*^9, 3.555347200331223*^9, 
   3.557392102680559*^9, 3.557403151307065*^9, 3.55746646301617*^9, 
   3.557579380911008*^9, 3.557635958519068*^9, 3.558441140583755*^9, 
   3.5585498872934217`*^9, 3.56000774133816*^9, 3.560044413503484*^9, 
   3.560185498876031*^9, 3.560186286240156*^9, 3.560186362040391*^9, 
   3.560186509262806*^9, 3.56022287901222*^9, 3.560256423614195*^9, 
   3.5602689296294613`*^9, 3.5602699318127403`*^9, 3.560271416993493*^9, 
   3.560516253943818*^9, 3.560521600625689*^9, 3.560534289099349*^9, 
   3.560535150797145*^9, 3.560842317297373*^9, 3.560844437312394*^9, 
   3.561176808826585*^9, 3.5612108485284758`*^9, 3.56126915189115*^9, 
   3.561275599680266*^9, 3.5612769416804667`*^9, 3.56130280796729*^9, 
   3.56130536827575*^9, 3.56130853842764*^9, 3.56130878725471*^9, {
   3.561360312720314*^9, 3.56136006777427*^9}, 3.72811502156124*^9, 
   3.7312348765434017`*^9},
 CellLabel->
  "During evaluation of \
In[200]:=",ExpressionUUID->"fb513d19-bdc8-47b4-b623-5fd1d6aa3ca0"]
}, Open  ]]
}, Open  ]],

Cell["By definition", "Text",
 CellChangeTimes->{{3.511591952867515*^9, 3.511591954555128*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sUnphys", "[", "]"}], "\[Equal]", 
  RowBox[{"CDg2\[Theta]", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5115919573230553`*^9, 3.511591974998736*^9}, {
  3.511592222426558*^9, 3.5115922228966846`*^9}},
 CellLabel->
  "In[201]:=",ExpressionUUID->"8c187a9b-f631-4a6e-96c5-2bc342734f3a"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox["s",
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`sUnphys[],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", "\[Del]", "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCDg[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}], "24"], "+", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], 
       SuperscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`CDg[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]]],
     Editable->False], "4"]}]}]], "Output",
 CellChangeTimes->{
  3.5115919758479156`*^9, 3.511592223777052*^9, 3.511596734123673*^9, 
   3.511630878238923*^9, 3.511631596962241*^9, 3.511723729098165*^9, 
   3.521275671102365*^9, 3.521276818624103*^9, 3.5212773147929277`*^9, 
   3.521277500942766*^9, 3.521278935622858*^9, 3.521367314493309*^9, 
   3.521370393503934*^9, 3.521440691670074*^9, 3.521440927508627*^9, 
   3.521455913722177*^9, 3.5214614432710342`*^9, 3.521507074262788*^9, 
   3.521521000751136*^9, 3.521523021195334*^9, 3.5215390678853073`*^9, 
   3.5217854913496857`*^9, 3.521797365762334*^9, 3.5218040050208387`*^9, 
   3.521883315940936*^9, 3.521942156018627*^9, 3.521971104961939*^9, 
   3.5219714837796507`*^9, 3.5219715715899677`*^9, 3.521972255103805*^9, 
   3.52197396097139*^9, 3.5220291139540453`*^9, 3.524393988010243*^9, 
   3.524396323994631*^9, 3.524977869651289*^9, 3.524997223370632*^9, 
   3.525068677667638*^9, 3.5250708008633137`*^9, 3.525072076249858*^9, 
   3.525073233018114*^9, 3.525081028608869*^9, 3.5251871419757357`*^9, 
   3.5252402514839697`*^9, 3.525243905359255*^9, 3.5253975357265053`*^9, 
   3.5253986784679613`*^9, 3.5254934669077387`*^9, 3.5256608707681637`*^9, 
   3.525661914554029*^9, 3.52566298269761*^9, 3.5256732824981956`*^9, 
   3.545738874929751*^9, 3.545991137460045*^9, 3.545991478350456*^9, 
   3.546000131611375*^9, 3.546021361450725*^9, 3.546057620395854*^9, 
   3.546064590939567*^9, 3.54609113255081*^9, 3.546325610217588*^9, 
   3.548247335954753*^9, 3.54840455380792*^9, 3.548481251754356*^9, 
   3.548511431849144*^9, 3.54852581117417*^9, 3.548567874921225*^9, 
   3.548571058033286*^9, 3.54857501163649*^9, 3.5485915914062853`*^9, 
   3.5486620983382463`*^9, 3.548700120705021*^9, 3.548756254448352*^9, 
   3.5489112462479877`*^9, 3.5489306110988894`*^9, 3.5489607990486107`*^9, 
   3.54900218164025*^9, 3.549020867418401*^9, 3.5490435428501863`*^9, 
   3.549047029421859*^9, 3.5490862760241137`*^9, 3.549096274770112*^9, 
   3.549260307535193*^9, 3.549272927002618*^9, 3.549305075010434*^9, 
   3.549305292027397*^9, 3.5493058014568653`*^9, 3.54935888282869*^9, 
   3.549433148900415*^9, 3.549462314560831*^9, 3.549540247640356*^9, 
   3.550921586292368*^9, 3.55099071718729*^9, 3.5509964246160097`*^9, 
   3.550996592515999*^9, 3.555347200349597*^9, 3.55739210273276*^9, 
   3.557403151340766*^9, 3.5574664630255404`*^9, 3.557579380941105*^9, 
   3.5576359585267277`*^9, 3.55844114059801*^9, 3.558549887306097*^9, 
   3.560007741354927*^9, 3.5600444135169697`*^9, 3.56018549891372*^9, 
   3.5601862862753687`*^9, 3.5601863620577507`*^9, 3.5601865093030252`*^9, 
   3.5602228790277853`*^9, 3.5602564236304893`*^9, 3.560268929646838*^9, 
   3.560269931827319*^9, 3.5602714170081253`*^9, 3.560516253960641*^9, 
   3.560521600674069*^9, 3.5605342891073513`*^9, 3.56053515082654*^9, 
   3.560842317312129*^9, 3.560844437355851*^9, 3.561176808842057*^9, 
   3.5612108485858192`*^9, 3.561269151906516*^9, 3.5612755996984863`*^9, 
   3.561276941698551*^9, 3.561302808008836*^9, 3.561305368290485*^9, 
   3.561308538446966*^9, 3.561308787271949*^9, {3.5613603127377787`*^9, 
   3.561360067876931*^9}, 3.7281150215764217`*^9, 3.731234876566433*^9},
 CellLabel->
  "Out[201]=",ExpressionUUID->"b091e8f0-37a0-43a3-b815-e1912550c8d8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExpandsUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511592069833551*^9, 3.511592075886998*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"39464948-bc41-4b76-a587-8ac01a837bb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDg\[CapitalTheta]", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"CDg", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
    RowBox[{"\[CapitalTheta]", "[", "]"}]}], "==", 
   RowBox[{"\[CapitalSigma]Unphys", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5115922605262403`*^9, 3.5115923246702642`*^9}, {
  3.525068680701415*^9, 3.5250686847844467`*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"9e7d2d0d-ce5f-43fd-bee4-6cd1048dc607"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[CapitalTheta][]],
   Editable->False], "\[Equal]", 
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[CapitalSigma]", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
   Editable->False]}]], "Output",
 CellChangeTimes->{{3.511592306732267*^9, 3.5115923257052298`*^9}, 
   3.5115967360943003`*^9, 3.5116308782457733`*^9, 3.5116315970024967`*^9, 
   3.511723729173792*^9, 3.521275673410923*^9, 3.521276818646263*^9, 
   3.5212773148047333`*^9, 3.521277501008202*^9, 3.5212789356930313`*^9, 
   3.521367314525872*^9, 3.521370393529093*^9, 3.5214406916895533`*^9, 
   3.521440927574247*^9, 3.521455913730323*^9, 3.521461445283574*^9, 
   3.521507074380521*^9, 3.521521000852607*^9, 3.521523021202669*^9, 
   3.521539067893455*^9, 3.521785491365325*^9, 3.521797365786017*^9, 
   3.5218040050283213`*^9, 3.521883315964924*^9, 3.521942156035513*^9, 
   3.521971104969698*^9, 3.5219714837869043`*^9, 3.521971571596979*^9, 
   3.5219722551112213`*^9, 3.521973960978951*^9, 3.5220291144283657`*^9, 
   3.524393988060701*^9, 3.524396324047326*^9, 3.524977869657929*^9, 
   3.5249972234181833`*^9, 3.525068685470433*^9, 3.525070800870508*^9, 
   3.525072076288793*^9, 3.525073233026217*^9, 3.525081028621311*^9, 
   3.525187142047678*^9, 3.525240251499226*^9, 3.525243905366251*^9, 
   3.52539753575257*^9, 3.5253986784980783`*^9, 3.5254934669221354`*^9, 
   3.525660870795725*^9, 3.5256619145812798`*^9, 3.525662982706973*^9, 
   3.525673282511533*^9, 3.545738874979439*^9, 3.5459911376101913`*^9, 
   3.5459914785276213`*^9, 3.5460001317087708`*^9, 3.5460213615065928`*^9, 
   3.546057620443534*^9, 3.546064590963846*^9, 3.546091132580669*^9, 
   3.54632561034499*^9, 3.548247335976418*^9, 3.5484045538309298`*^9, 
   3.548481251771055*^9, 3.548511431869494*^9, 3.548525811185046*^9, 
   3.5485678749320602`*^9, 3.5485710580586443`*^9, 3.548575011653884*^9, 
   3.5485915914477453`*^9, 3.54866209838745*^9, 3.548700120748921*^9, 
   3.548756254487089*^9, 3.54891124654836*^9, 3.5489306111287737`*^9, 
   3.548960799107452*^9, 3.549002181669828*^9, 3.549020867458557*^9, 
   3.549043542888258*^9, 3.549047029471939*^9, 3.5490862760694304`*^9, 
   3.549096274809937*^9, 3.549260307600099*^9, 3.549272927024207*^9, 
   3.549305075040044*^9, 3.549305292058144*^9, 3.5493058014969893`*^9, 
   3.549358882855028*^9, 3.5494331489238777`*^9, 3.549462314617132*^9, 
   3.549540247675356*^9, 3.550921586311709*^9, 3.5509907172555027`*^9, 
   3.550996424659618*^9, 3.550996592566284*^9, 3.555347200388853*^9, 
   3.557392102839562*^9, 3.557403151388823*^9, 3.557466463056862*^9, 
   3.5575793809688997`*^9, 3.5576359585641813`*^9, 3.55844114063608*^9, 
   3.558549887335023*^9, 3.560007741395218*^9, 3.5600444135563927`*^9, 
   3.560185498966276*^9, 3.5601862863272247`*^9, 3.5601863620959997`*^9, 
   3.560186509352036*^9, 3.56022287907775*^9, 3.560256423670163*^9, 
   3.560268929685876*^9, 3.560269931860561*^9, 3.560271417043764*^9, 
   3.56051625401409*^9, 3.560521600725148*^9, 3.560534289151437*^9, 
   3.5605351508584414`*^9, 3.560842317346058*^9, 3.5608444373970823`*^9, 
   3.561176808878187*^9, 3.5612108486300583`*^9, 3.561269151946638*^9, 
   3.561275599740602*^9, 3.5612769417460117`*^9, 3.561302808040515*^9, 
   3.5613053683328114`*^9, 3.561308538492713*^9, 3.5613087873188267`*^9, {
   3.561360312779458*^9, 3.56136006794016*^9}, 3.728115021596589*^9, 
   3.73123487659655*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"9ce12644-5c08-4a71-a8bf-c92032a92b6d"]
}, Open  ]],

Cell[TextData[{
 "So we have that the relation ",
 StyleBox["CDg2\[Theta]", "Input"],
 " takes the form"
}], "Text",
 CellChangeTimes->{{3.511723770223386*^9, 3.511723800307867*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDg2\[Theta]", "/.", 
   RowBox[{"IndexSolve", "[", 
    RowBox[{"ExpandsUnphys", ",", 
     RowBox[{"RicciScalarCDg", "[", "]"}]}], "]"}]}], "/.", 
  RowBox[{"ApplyRule", "@", "CDg\[CapitalTheta]"}]}]], "Input",
 CellChangeTimes->{{3.511592140110251*^9, 3.511592183255233*^9}, {
  3.5115923316566877`*^9, 3.511592339384035*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"42503dde-3919-427a-add2-c7ab1191e6a9"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
            {"\[CapitalSigma]", 
             StyleBox[GridBox[{
                {"\[Gamma]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]]],
        Editable->False], "4"], "-", 
      FractionBox[
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
            {"\[CapitalSigma]", 
             StyleBox[GridBox[{
                {"\[Delta]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Delta]][
         $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]]],
        Editable->False], "4"]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511592150394759*^9, 3.51159218526667*^9, 3.511592340195416*^9, 
   3.51159673684496*^9, 3.511630878269609*^9, 3.5116315970270777`*^9, 
   3.511723729211976*^9, 3.521275685912614*^9, 3.521276818676673*^9, 
   3.521277314901742*^9, 3.521277501069366*^9, 3.521278935725359*^9, 
   3.5213673145958652`*^9, 3.5213703935536833`*^9, 3.52144069177361*^9, 
   3.521440927601624*^9, 3.521455913756434*^9, 3.521461447758546*^9, 
   3.521507074467205*^9, 3.521521001029544*^9, 3.5215230212271757`*^9, 
   3.5215390679198303`*^9, 3.521785491501161*^9, 3.521797365805169*^9, 
   3.5218040050540648`*^9, 3.521883315989609*^9, 3.521942156121625*^9, 
   3.521971104992256*^9, 3.5219714838276*^9, 3.521971571615982*^9, 
   3.52197225513515*^9, 3.5219739609987917`*^9, 3.522029114505496*^9, 
   3.524393988122221*^9, 3.524396324103438*^9, 3.5249778696986523`*^9, 
   3.524997223464353*^9, 3.5250686871209373`*^9, 3.525070800917892*^9, 
   3.525072076327619*^9, 3.525073233053211*^9, 3.525081028646933*^9, 
   3.525187142077408*^9, 3.5252402515344963`*^9, 3.525243905402401*^9, 
   3.525397535779256*^9, 3.525398678527351*^9, 3.525493466950251*^9, 
   3.5256608708311043`*^9, 3.525661914608334*^9, 3.5256629827450857`*^9, 
   3.5256732825583982`*^9, 3.545738875034524*^9, 3.545991137677659*^9, 
   3.5459914786276197`*^9, 3.546000131820599*^9, 3.546021361572219*^9, 
   3.546057620498232*^9, 3.5460645910055532`*^9, 3.546091132655902*^9, 
   3.546325610461389*^9, 3.5482473360495043`*^9, 3.548404553875885*^9, 
   3.548481251809506*^9, 3.548511431909067*^9, 3.548525811213497*^9, 
   3.548567874984927*^9, 3.548571058082169*^9, 3.548575011688382*^9, 
   3.548591591483165*^9, 3.548662098438423*^9, 3.548700120805513*^9, 
   3.548756254521497*^9, 3.548911246577479*^9, 3.5489306111649837`*^9, 
   3.5489607991487293`*^9, 3.549002181710083*^9, 3.5490208674915524`*^9, 
   3.549043542932069*^9, 3.549047029509777*^9, 3.549086276104192*^9, 
   3.549096274843419*^9, 3.549260307646133*^9, 3.5492729270730247`*^9, 
   3.549305075071536*^9, 3.549305292084845*^9, 3.5493058015292587`*^9, 
   3.54935888289062*^9, 3.549433148952313*^9, 3.5494623146570272`*^9, 
   3.549540247702715*^9, 3.550921586359645*^9, 3.550990717317265*^9, 
   3.5509964247038794`*^9, 3.550996592639872*^9, 3.5553472004312487`*^9, 
   3.557392102974721*^9, 3.557403151440749*^9, 3.5574664630855503`*^9, 
   3.557579380995064*^9, 3.557635958594136*^9, 3.558441140676284*^9, 
   3.558549887366263*^9, 3.5600077414409103`*^9, 3.560044413598444*^9, 
   3.560185499024857*^9, 3.5601862863818293`*^9, 3.560186362139772*^9, 
   3.5601865093986063`*^9, 3.56022287914036*^9, 3.5602564237167807`*^9, 
   3.560268929727566*^9, 3.560269931896806*^9, 3.5602714170814457`*^9, 
   3.560516254078124*^9, 3.5605216007697897`*^9, 3.560534289201313*^9, 
   3.5605351509055643`*^9, 3.560842317387107*^9, 3.560844437456126*^9, 
   3.561176808926886*^9, 3.561210848675331*^9, 3.561269151989739*^9, 
   3.561275599788434*^9, 3.561276941791115*^9, 3.561302808083468*^9, 
   3.561305368378738*^9, 3.561308538575226*^9, 3.56130878737551*^9, {
   3.56136031282555*^9, 3.56136006800414*^9}, 3.728115021626931*^9, 
   3.731234876630128*^9},
 CellLabel->
  "Out[204]=",ExpressionUUID->"e101699e-06c4-4244-b606-9f0e5f12f81b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511592187761311*^9, 3.511592190749324*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"51e44693-0e9c-46c5-aed0-842900139fd9"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511592191362155*^9, 3.5115923412169313`*^9, 3.5115967375667877`*^9, 
   3.511630878290059*^9, 3.511631597056484*^9, 3.5117237292491703`*^9, 
   3.521275687064917*^9, 3.52127681877696*^9, 3.521277315068713*^9, 
   3.521277501137663*^9, 3.5212789357443438`*^9, 3.521367314772884*^9, 
   3.521370393601511*^9, 3.521440691791382*^9, 3.521440927617498*^9, 
   3.521455913780797*^9, 3.521461449233172*^9, 3.521507074543778*^9, 
   3.521521001098847*^9, 3.521523021249761*^9, 3.5215390679421*^9, 
   3.521785491568698*^9, 3.521797365844078*^9, 3.521804005077949*^9, 
   3.521883316015627*^9, 3.5219421561432467`*^9, 3.5219711050136766`*^9, 
   3.521971483863757*^9, 3.521971571634111*^9, 3.521972255158634*^9, 
   3.521973961102401*^9, 3.522029114621022*^9, 3.524393988170754*^9, 
   3.524396324166296*^9, 3.524977869735882*^9, 3.5249972235076513`*^9, 
   3.52506868804078*^9, 3.525070800956984*^9, 3.525072076473178*^9, 
   3.525073233088497*^9, 3.525081028694573*^9, 3.525187142109818*^9, 
   3.5252402516405087`*^9, 3.5252439054412727`*^9, 3.5253975358029947`*^9, 
   3.5253986785614634`*^9, 3.525493466986278*^9, 3.52566087086961*^9, 
   3.525661914642117*^9, 3.5256629827708893`*^9, 3.5256732826100397`*^9, 
   3.5457388750874977`*^9, 3.545991137759345*^9, 3.5459914786614323`*^9, 
   3.546000131923398*^9, 3.54602136165099*^9, 3.546057620557835*^9, 
   3.546064591070266*^9, 3.5460911326811647`*^9, 3.5463256105869837`*^9, 
   3.548247336137677*^9, 3.548404553939804*^9, 3.548481251845194*^9, 
   3.548511431953903*^9, 3.548525811244082*^9, 3.5485678750387173`*^9, 
   3.548571058105174*^9, 3.54857501171712*^9, 3.548591591525371*^9, 
   3.5486620984654093`*^9, 3.548700120916184*^9, 3.548756254565962*^9, 
   3.548911246622077*^9, 3.5489306112069187`*^9, 3.5489607991917887`*^9, 
   3.549002181747635*^9, 3.549020867513658*^9, 3.549043542966818*^9, 
   3.549047029548012*^9, 3.549086276138267*^9, 3.549096274864427*^9, 
   3.549260307703568*^9, 3.549272927115203*^9, 3.549305075104999*^9, 
   3.549305292118623*^9, 3.549305801607602*^9, 3.549358882930578*^9, 
   3.549433148989479*^9, 3.54946231470033*^9, 3.5495402477439003`*^9, 
   3.5509215863799753`*^9, 3.550990717359519*^9, 3.550996424754877*^9, 
   3.550996592769144*^9, 3.555347200553216*^9, 3.5573921030783367`*^9, 
   3.557403151474265*^9, 3.557466463117795*^9, 3.5575793810271673`*^9, 
   3.557635958628375*^9, 3.558441140715704*^9, 3.55854988739636*^9, 
   3.560007741476924*^9, 3.560044413634818*^9, 3.560185499075885*^9, 
   3.56018628642286*^9, 3.5601863621922626`*^9, 3.560186509438739*^9, 
   3.560222879188014*^9, 3.5602564237571898`*^9, 3.560268929768095*^9, 
   3.5602699319311857`*^9, 3.5602714171179113`*^9, 3.5605162541248617`*^9, 
   3.560521600817602*^9, 3.560534289255183*^9, 3.560535150948099*^9, 
   3.560842317421823*^9, 3.560844437505723*^9, 3.561176808982707*^9, 
   3.561210848721162*^9, 3.561269152040533*^9, 3.561275599837824*^9, 
   3.561276941860318*^9, 3.561302808119234*^9, 3.5613053684799643`*^9, 
   3.561308538728807*^9, 3.561308787441571*^9, {3.561360312862565*^9, 
   3.561360068047044*^9}, 3.728115021661229*^9, 3.73123487666508*^9},
 CellLabel->
  "Out[205]=",ExpressionUUID->"3add8467-f8ae-4379-9e2b-0c7b60ce1b31"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf1", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511592347482297*^9, 3.511592350436302*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"a4cce602-ce8c-4576-aee7-e165a46e8738"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Relation ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], "s"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`a][
     $CellContext`sUnphys[]],
    Editable->False], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`b],
     Editable->False]}]}]], "Output",
  CellChangeTimes->{{3.511593145016152*^9, 3.511593158475444*^9}, 
    3.511596759921166*^9}]
}], "Subsubsection",
 CellChangeTimes->{{3.511592480713189*^9, 3.511592485448387*^9}, {
  3.5115972908876266`*^9, 3.511597294833705*^9}}],

Cell["\<\
Take the covariant derivative of s and replace this scalar quantity by its \
value:\
\>", "Text",
 CellChangeTimes->{{3.5117238283280277`*^9, 3.511723854667775*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CDg", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
   RowBox[{"sUnphys", "[", "]"}]}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
     RowBox[{"sUnphys", "[", "]"}]}], "/.", 
    RowBox[{"ApplyRule", "@", "ExpandsUnphys"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511592489636533*^9, 3.5115925449677067`*^9}, {
  3.525068696569175*^9, 3.525068699897056*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"9fc184b8-8c5b-49f6-b6e7-22b1a70d7f19"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "24"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], 
          RowBox[{"R", "[", "\[Del]", "]"}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`RicciScalarCDg[]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], 
       SubscriptBox["\[Del]", "\[Beta]"], 
       SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`CDg[-$CellContext`\[Beta]][
       $CellContext`CDg[$CellContext`\[Beta]][
        $CellContext`\[CapitalTheta][]]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.5115925011997147`*^9, 3.511592513023591*^9}, 
   3.511592545355569*^9, 3.511596741997818*^9, 3.51163087925482*^9, 
   3.511631598088389*^9, 3.511723855961555*^9, 3.5212759844193077`*^9, 
   3.521276829802207*^9, 3.521277315166894*^9, 3.521277501203518*^9, 
   3.521278935890421*^9, 3.521367325145344*^9, 3.521370394408791*^9, 
   3.521440691817943*^9, 3.52144092768217*^9, 3.52145591380906*^9, 
   3.521461457766509*^9, 3.52150707473967*^9, 3.521521001215308*^9, 
   3.521523021277485*^9, 3.521539069116435*^9, 3.521785491740368*^9, 
   3.521797366598868*^9, 3.521804005105732*^9, 3.521883316040669*^9, 
   3.521942156212929*^9, 3.5219711050402727`*^9, 3.521971483902609*^9, 
   3.521971571658093*^9, 3.521972255188406*^9, 3.521973961149053*^9, 
   3.522029114848466*^9, 3.5243939881858377`*^9, 3.5243963242269*^9, 
   3.5249778697698307`*^9, 3.524997223557661*^9, 3.525068700826625*^9, 
   3.525070800997698*^9, 3.5250720768292217`*^9, 3.525073233132337*^9, 
   3.5250810287113857`*^9, 3.525187142155615*^9, 3.525240251682468*^9, 
   3.525243905483315*^9, 3.525397535828927*^9, 3.525398678593359*^9, 
   3.5254934670277843`*^9, 3.52566087090263*^9, 3.525661914673089*^9, 
   3.52566298281329*^9, 3.5256732826661997`*^9, 3.545738875149132*^9, 
   3.54599113785505*^9, 3.545991478743717*^9, 3.546000132032908*^9, 
   3.5460213617099867`*^9, 3.546057620615431*^9, 3.546064591099504*^9, 
   3.546091132740259*^9, 3.546325610704997*^9, 3.548247336262703*^9, 
   3.548404553985738*^9, 3.548481251891931*^9, 3.5485114319989223`*^9, 
   3.5485258112773743`*^9, 3.548567875076185*^9, 3.548571058145068*^9, 
   3.548575011790173*^9, 3.548591591589617*^9, 3.548662098490312*^9, 
   3.5487001209816933`*^9, 3.548756254612192*^9, 3.548911246659067*^9, 
   3.5489306112395287`*^9, 3.548960799222577*^9, 3.54900218180716*^9, 
   3.549020867562173*^9, 3.549043543017172*^9, 3.5490470295868607`*^9, 
   3.549086276185453*^9, 3.5490962749122047`*^9, 3.549260307754438*^9, 
   3.5492729271597958`*^9, 3.549305075136064*^9, 3.54930529217785*^9, 
   3.5493058016669703`*^9, 3.549358883071006*^9, 3.5494331490341187`*^9, 
   3.5494623147382097`*^9, 3.549540247782193*^9, 3.550921586403989*^9, 
   3.550990717459724*^9, 3.550996424805725*^9, 3.550996592897626*^9, 
   3.555347200596393*^9, 3.5573921032975616`*^9, 3.557403151540825*^9, 
   3.5574664631522093`*^9, 3.55757938105707*^9, 3.5576359586897993`*^9, 
   3.558441140758655*^9, 3.558549887430439*^9, 3.5600077415210247`*^9, 
   3.560044413680512*^9, 3.560185499129883*^9, 3.560186286492386*^9, 
   3.5601863622347527`*^9, 3.5601865094897833`*^9, 3.560222879330604*^9, 
   3.560256423801607*^9, 3.5602689298109837`*^9, 3.560269931968706*^9, 
   3.560271417157234*^9, 3.560516254174059*^9, 3.560521600873777*^9, 
   3.560534289313903*^9, 3.560535150983939*^9, 3.5608423174567842`*^9, 
   3.560844437562866*^9, 3.561176809022986*^9, 3.56121084877055*^9, 
   3.561269152086158*^9, 3.5612755999146843`*^9, 3.561276941915382*^9, 
   3.561302808179922*^9, 3.5613053685413227`*^9, 3.561308538783285*^9, 
   3.5613087875110693`*^9, {3.56136031290856*^9, 3.561360068192634*^9}, 
   3.728115021683073*^9, 3.7312348766978397`*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"545a2647-415d-4913-97ac-2db92e75623b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "SortCovDs"}]], "Input",
 CellChangeTimes->{{3.511592554749385*^9, 3.511592567380402*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"a311fd9a-e757-4d65-bf1c-9387d60677c6"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "24"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], 
          RowBox[{"R", "[", "\[Del]", "]"}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`RicciScalarCDg[]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Beta]"], 
         SuperscriptBox["\[Del]", "\[Beta]"], 
         SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`CDg[$CellContext`\[Beta]][
         $CellContext`CDg[-$CellContext`\[Alpha]][
          $CellContext`\[CapitalTheta][]]]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
        
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511592568046177*^9, 3.511596742951281*^9, 3.511630879285903*^9, 
   3.5116315981631613`*^9, 3.511723856907007*^9, 3.521275986003784*^9, 
   3.521276829961463*^9, 3.521277315260963*^9, 3.5212775012175198`*^9, 
   3.5212789359778*^9, 3.521367325269198*^9, 3.521370394443293*^9, 
   3.5214406918299313`*^9, 3.521440927748536*^9, 3.521455913834379*^9, 
   3.521461458815772*^9, 3.5215070748393927`*^9, 3.5215210012886143`*^9, 
   3.5215230213179207`*^9, 3.521539069160235*^9, 3.5217854918209763`*^9, 
   3.521797366637362*^9, 3.521804005130994*^9, 3.521883316064322*^9, 
   3.521942156280648*^9, 3.5219711050636578`*^9, 3.52197148393862*^9, 
   3.521971571684107*^9, 3.52197225521399*^9, 3.52197396116903*^9, 
   3.5220291150117607`*^9, 3.524393988196714*^9, 3.524396324283864*^9, 
   3.524977869798355*^9, 3.5249972236034822`*^9, 3.525068702138418*^9, 
   3.525070801037663*^9, 3.5250720768835917`*^9, 3.525073233165687*^9, 
   3.525081028723826*^9, 3.525187142185152*^9, 3.525240251722308*^9, 
   3.525243905520589*^9, 3.52539753585822*^9, 3.525398678623358*^9, 
   3.5254934670603*^9, 3.525660870934738*^9, 3.525661914710134*^9, 
   3.5256629828456163`*^9, 3.525673282709669*^9, 3.545738875165698*^9, 
   3.545991137873732*^9, 3.545991478829322*^9, 3.5460001320947313`*^9, 
   3.546021361768526*^9, 3.5460576206678743`*^9, 3.5460645911514606`*^9, 
   3.546091132761537*^9, 3.5463256107891283`*^9, 3.548247336326013*^9, 
   3.548404554025069*^9, 3.548481251927997*^9, 3.548511432046731*^9, 
   3.548525811301845*^9, 3.548567875121677*^9, 3.548571058169602*^9, 
   3.548575011818985*^9, 3.5485915916227293`*^9, 3.548662098507901*^9, 
   3.548700121035578*^9, 3.548756254645028*^9, 3.5489112466905327`*^9, 
   3.548930611274531*^9, 3.548960799263843*^9, 3.549002181830155*^9, 
   3.549020867579475*^9, 3.5490435430592537`*^9, 3.549047029606986*^9, 
   3.549086276218728*^9, 3.549096274929718*^9, 3.54926030777761*^9, 
   3.54927292720265*^9, 3.549305075167595*^9, 3.549305292203536*^9, 
   3.54930580170719*^9, 3.549358883106745*^9, 3.549433149046852*^9, 
   3.549462314775083*^9, 3.549540247816413*^9, 3.550921586420249*^9, 
   3.550990717476864*^9, 3.550996424823545*^9, 3.5509965929518423`*^9, 
   3.555347200630782*^9, 3.557392103354845*^9, 3.557403151572613*^9, 
   3.55746646318897*^9, 3.557579381084731*^9, 3.557635958726163*^9, 
   3.558441140793395*^9, 3.5585498874684763`*^9, 3.560007741557095*^9, 
   3.560044413719079*^9, 3.560185499171772*^9, 3.560186286550514*^9, 
   3.5601863622699823`*^9, 3.560186509531005*^9, 3.56022287937022*^9, 
   3.560256423834903*^9, 3.560268929846752*^9, 3.5602699319983883`*^9, 
   3.5602714171894627`*^9, 3.560516254220951*^9, 3.560521600921953*^9, 
   3.560534289359064*^9, 3.56053515101322*^9, 3.560842317488083*^9, 
   3.560844437613138*^9, 3.561176809063179*^9, 3.561210848920576*^9, 
   3.561269152136137*^9, 3.5612756000809517`*^9, 3.5612769419572477`*^9, 
   3.5613028082153482`*^9, 3.561305368581759*^9, 3.5613085388431883`*^9, 
   3.561308787557692*^9, {3.561360312958852*^9, 3.56136006824259*^9}, 
   3.728115021698992*^9, 3.7312348767239532`*^9},
 CellLabel->
  "Out[208]=",ExpressionUUID->"4b726633-3578-4ac8-a24c-24147f5e87bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CDg\[CapitalTheta]"}]}]], "Input",
 CellChangeTimes->{{3.51159267402145*^9, 3.511592678004733*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"c35ce327-c2dd-447d-817e-5548354c2105"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "24"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], 
          RowBox[{"R", "[", "\[Del]", "]"}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`RicciScalarCDg[]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Beta]"], 
         SuperscriptBox["\[Del]", "\[Beta]"], GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`CDg[$CellContext`\[Beta]][
         $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511592679381098*^9, 3.511596743816185*^9, 3.5116308793087883`*^9, 
   3.511631598196699*^9, 3.5117238575794992`*^9, 3.521275987900199*^9, 
   3.521276830024891*^9, 3.52127731527707*^9, 3.52127750123038*^9, 
   3.521278936124104*^9, 3.521367325341588*^9, 3.521370394470512*^9, 
   3.521440691889909*^9, 3.5214409277745934`*^9, 3.521455913861474*^9, 
   3.5214614598273773`*^9, 3.52150707501409*^9, 3.5215210013946867`*^9, 
   3.521523021345439*^9, 3.5215390691940813`*^9, 3.521785491891593*^9, 
   3.521797366679532*^9, 3.5218040051562033`*^9, 3.521883316099393*^9, 
   3.521942156354331*^9, 3.5219711050889187`*^9, 3.52197148397229*^9, 
   3.521971571720985*^9, 3.521972255237874*^9, 3.521973961197276*^9, 
   3.522029115030773*^9, 3.524393988208*^9, 3.524396324336463*^9, 
   3.524977869827836*^9, 3.524997223648305*^9, 3.525068703277362*^9, 
   3.525070801083338*^9, 3.525072076921237*^9, 3.525073233200584*^9, 
   3.5250810287378073`*^9, 3.525187142219454*^9, 3.5252402517920094`*^9, 
   3.5252439055577707`*^9, 3.52539753587827*^9, 3.5253986786532593`*^9, 
   3.525493467092917*^9, 3.525660870966571*^9, 3.525661914737561*^9, 
   3.525662982879738*^9, 3.525673282799596*^9, 3.545738875184349*^9, 
   3.545991137943789*^9, 3.5459914789323053`*^9, 3.546000132174388*^9, 
   3.546021361875353*^9, 3.54605762072471*^9, 3.546064591216856*^9, 
   3.5460911327847643`*^9, 3.546325610894332*^9, 3.548247336404686*^9, 
   3.5484045540677843`*^9, 3.548481251942298*^9, 3.5485114320962877`*^9, 
   3.548525811329279*^9, 3.548567875157715*^9, 3.548571058201233*^9, 
   3.548575011850893*^9, 3.5485915916754513`*^9, 3.548662098550659*^9, 
   3.548700121952211*^9, 3.548756254687107*^9, 3.5489112467199163`*^9, 
   3.548930611312552*^9, 3.548960799295347*^9, 3.54900218185887*^9, 
   3.549020867598345*^9, 3.549043543105873*^9, 3.549047029647109*^9, 
   3.5490862762582912`*^9, 3.549096274950659*^9, 3.549260307820797*^9, 
   3.549272927243332*^9, 3.549305075204501*^9, 3.5493052922425117`*^9, 
   3.5493058017744837`*^9, 3.549358883173308*^9, 3.549433149060421*^9, 
   3.549462314796651*^9, 3.549540247846146*^9, 3.550921586455277*^9, 
   3.5509907175148687`*^9, 3.550996424846431*^9, 3.550996593037327*^9, 
   3.555347200667095*^9, 3.557392103378071*^9, 3.557403151621546*^9, 
   3.557466463221425*^9, 3.557579381109344*^9, 3.5576359587596188`*^9, 
   3.5584411408260727`*^9, 3.558549887504065*^9, 3.5600077415945263`*^9, 
   3.5600444137582397`*^9, 3.5601854993365593`*^9, 3.5601862866966677`*^9, 
   3.5601863623063183`*^9, 3.5601865095730333`*^9, 3.560222879417192*^9, 
   3.5602564238728437`*^9, 3.560268929882935*^9, 3.560269932026277*^9, 
   3.560271417222484*^9, 3.560516254274336*^9, 3.5605216009747887`*^9, 
   3.560534289401145*^9, 3.560535151044993*^9, 3.560842317520544*^9, 
   3.560844437664158*^9, 3.561176809167078*^9, 3.561210848960484*^9, 
   3.561269152169903*^9, 3.5612756001400423`*^9, 3.561276942039858*^9, 
   3.561302808253731*^9, 3.561305368622848*^9, 3.561308538886201*^9, 
   3.561308787577145*^9, {3.5613603129950047`*^9, 3.561360068290101*^9}, 
   3.728115021717473*^9, 3.7312348767574453`*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"8f54570a-cbc1-409d-a43b-31bdab79a45a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "Conf1"}]}]], "Input",
 CellChangeTimes->{{3.5115926854104643`*^9, 3.511592693134261*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"dfd9ad93-f05b-43b4-b5f3-22d09dd4b457"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "24"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], 
          RowBox[{"R", "[", "\[Del]", "]"}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`RicciScalarCDg[]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", "\[Del]", "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Delta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
            {"L", 
             StyleBox[GridBox[{
                {"\[Beta]", " "},
                {" ", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`LUnphysg[$CellContext`\[Beta], -$CellContext`\[Beta]]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`sUnphys[]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", "\[Gamma]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Gamma]][
         $CellContext`\[CapitalTheta][]],
        Editable->False]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511592694026451*^9, 3.5115967450815973`*^9, 3.511630879342013*^9, 
   3.51163159822773*^9, 3.5117238584539413`*^9, 3.5212759891105833`*^9, 
   3.521276830199306*^9, 3.521277315355541*^9, 3.521277501248007*^9, 
   3.521278936321459*^9, 3.52136732544002*^9, 3.521370394499547*^9, 
   3.521440691916603*^9, 3.521440927837471*^9, 3.5214559138926067`*^9, 
   3.521461460979363*^9, 3.521507075090047*^9, 3.521521001471859*^9, 
   3.521523021374669*^9, 3.521539069225594*^9, 3.521785492069796*^9, 
   3.521797366710581*^9, 3.521804005185115*^9, 3.5218833161274853`*^9, 
   3.521942156500309*^9, 3.521971105116522*^9, 3.5219714840108423`*^9, 
   3.5219715717467012`*^9, 3.521972255283321*^9, 3.521973961221772*^9, 
   3.5220291151174097`*^9, 3.5243939882227783`*^9, 3.52439632444695*^9, 
   3.524977869861129*^9, 3.5249972236759377`*^9, 3.5250687040925903`*^9, 
   3.525070801117024*^9, 3.525072076961287*^9, 3.5250732332313623`*^9, 
   3.525081028756057*^9, 3.525187142252098*^9, 3.525240251833115*^9, 
   3.525243905590394*^9, 3.525397535905279*^9, 3.52539867868958*^9, 
   3.525493467122664*^9, 3.525660871001622*^9, 3.525661914777626*^9, 
   3.525662982915303*^9, 3.525673282854746*^9, 3.545738875244381*^9, 
   3.545991137970327*^9, 3.545991479017765*^9, 3.546000132245234*^9, 
   3.546021361931308*^9, 3.546057620847365*^9, 3.546064591378443*^9, 
   3.546091132847357*^9, 3.5463256110931664`*^9, 3.5482473364800043`*^9, 
   3.548404554113153*^9, 3.548481251994615*^9, 3.5485114321448727`*^9, 
   3.5485258113591337`*^9, 3.5485678752091093`*^9, 3.548571058239087*^9, 
   3.548575011888571*^9, 3.5485915917950983`*^9, 3.548662098575552*^9, 
   3.5487001220434427`*^9, 3.548756254732212*^9, 3.548911246755128*^9, 
   3.54893061135887*^9, 3.54896079933328*^9, 3.549002181903082*^9, 
   3.549020867643484*^9, 3.549043543193791*^9, 3.549047029666593*^9, 
   3.5490862763039293`*^9, 3.5490962750009747`*^9, 3.5492603078487997`*^9, 
   3.549272927282386*^9, 3.549305075238256*^9, 3.549305292275339*^9, 
   3.5493058018188133`*^9, 3.549358883216934*^9, 3.549433149094885*^9, 
   3.5494623148186197`*^9, 3.549540247894218*^9, 3.55092158650206*^9, 
   3.5509907175580893`*^9, 3.550996424889832*^9, 3.550996593085968*^9, 
   3.555347200711447*^9, 3.5573921034342957`*^9, 3.557403151663272*^9, 
   3.5574664632602577`*^9, 3.557579381142229*^9, 3.557635958816361*^9, 
   3.558441140866901*^9, 3.5585498875421753`*^9, 3.5600077416418962`*^9, 
   3.560044413801445*^9, 3.560185499384149*^9, 3.5601862867395973`*^9, 
   3.560186362342228*^9, 3.56018650961891*^9, 3.560222879539736*^9, 
   3.560256423916848*^9, 3.5602689299248457`*^9, 3.560269932062405*^9, 
   3.56027141726947*^9, 3.560516254321751*^9, 3.56052160104071*^9, 
   3.56053428945082*^9, 3.560535151077248*^9, 3.56084231755962*^9, 
   3.5608444377012568`*^9, 3.56117680920289*^9, 3.5612108490007467`*^9, 
   3.561269152215783*^9, 3.561275600216486*^9, 3.5612769420893183`*^9, 
   3.561302808408229*^9, 3.561305368674862*^9, 3.5613085389598207`*^9, 
   3.561308787626772*^9, {3.561360313040407*^9, 3.561360068354076*^9}, 
   3.728115021739085*^9, 3.7312348767926598`*^9},
 CellLabel->
  "Out[210]=",ExpressionUUID->"4e596322-4d42-4272-8538-5028a36ea3f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CDg\[CapitalTheta]"}]}]], "Input",
 CellChangeTimes->{{3.51159267402145*^9, 3.511592678004733*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"eb17cd8a-3cea-43ab-a5fc-e3f3544f40d0"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "24"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], 
          RowBox[{"R", "[", "\[Del]", "]"}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`RicciScalarCDg[]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"L", 
             StyleBox[GridBox[{
                {" ", "\[Gamma]"},
                {"\[Alpha]", " "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
         
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
        
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
            {"L", 
             StyleBox[GridBox[{
                {"\[Beta]", " "},
                {" ", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`LUnphysg[$CellContext`\[Beta], -$CellContext`\[Beta]]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`sUnphys[]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.511592708906582*^9, 3.511596746221116*^9, 3.5116308794167957`*^9, 
   3.5116315982560387`*^9, 3.511723859595405*^9, 3.521275990253502*^9, 
   3.521276830451652*^9, 3.5212773154745502`*^9, 3.5212775012621*^9, 
   3.521278936668469*^9, 3.521367325541201*^9, 3.521370394529133*^9, 
   3.521440691932631*^9, 3.5214409279287367`*^9, 3.521455913920837*^9, 
   3.5214614620807447`*^9, 3.521507075179771*^9, 3.5215210015628967`*^9, 
   3.521523021402575*^9, 3.521539069255541*^9, 3.521785492141069*^9, 
   3.521797366738907*^9, 3.521804005212346*^9, 3.521883316154244*^9, 
   3.521942156515955*^9, 3.52197110514855*^9, 3.5219714840803947`*^9, 
   3.5219715717747107`*^9, 3.521972255312296*^9, 3.521973961244999*^9, 
   3.522029115226198*^9, 3.524393988264223*^9, 3.5243963245093184`*^9, 
   3.52497786989681*^9, 3.524997223691271*^9, 3.525068704907742*^9, 
   3.5250708011552*^9, 3.5250720769985123`*^9, 3.5250732332634287`*^9, 
   3.5250810288067207`*^9, 3.525187142309598*^9, 3.525240251871966*^9, 
   3.525243905626615*^9, 3.525397535929545*^9, 3.525398678721121*^9, 
   3.525493467162087*^9, 3.525660871033762*^9, 3.525661914809057*^9, 
   3.525662982948737*^9, 3.5256732829072323`*^9, 3.545738875293339*^9, 
   3.545991137990986*^9, 3.545991479095026*^9, 3.546000132310813*^9, 
   3.5460213619995127`*^9, 3.546057620919592*^9, 3.546064591454735*^9, 
   3.546091132875107*^9, 3.546325611174374*^9, 3.548247336561307*^9, 
   3.548404554152763*^9, 3.5484812520593433`*^9, 3.548511432192317*^9, 
   3.548525811386622*^9, 3.548567875249078*^9, 3.5485710582713623`*^9, 
   3.54857501192312*^9, 3.5485915918370113`*^9, 3.548662098597001*^9, 
   3.548700122094882*^9, 3.5487562547742558`*^9, 3.5489112467902727`*^9, 
   3.548930611397739*^9, 3.548960799363694*^9, 3.5490021819346657`*^9, 
   3.549020867703658*^9, 3.549043543217664*^9, 3.549047029685532*^9, 
   3.549086276339497*^9, 3.549096275049802*^9, 3.549260307944276*^9, 
   3.549272927359761*^9, 3.54930507526893*^9, 3.549305292305765*^9, 
   3.549305801874707*^9, 3.549358883263154*^9, 3.5494331491349697`*^9, 
   3.549462314857909*^9, 3.549540247933648*^9, 3.550921586537303*^9, 
   3.550990717641026*^9, 3.550996424911936*^9, 3.550996593129593*^9, 
   3.555347200770306*^9, 3.557392103493639*^9, 3.557403151699176*^9, 
   3.5574664633022203`*^9, 3.5575793811718616`*^9, 3.557635958859062*^9, 
   3.5584411409038887`*^9, 3.558549887581656*^9, 3.5600077416833572`*^9, 
   3.560044413841743*^9, 3.560185499428718*^9, 3.560186286778852*^9, 
   3.5601863623801394`*^9, 3.5601865096616173`*^9, 3.5602228795869703`*^9, 
   3.560256423957616*^9, 3.560268929962929*^9, 3.560269932094534*^9, 
   3.5602714173038073`*^9, 3.560516254372053*^9, 3.560521601059546*^9, 
   3.5605342895039053`*^9, 3.5605351511117907`*^9, 3.560842317595131*^9, 
   3.560844437758835*^9, 3.561176809256055*^9, 3.561210849040271*^9, 
   3.561269152269044*^9, 3.561275600262824*^9, 3.561276942126255*^9, 
   3.5613028084549723`*^9, 3.561305368733713*^9, 3.56130853901721*^9, 
   3.561308787705468*^9, {3.561360313095447*^9, 3.56136006845233*^9}, 
   3.728115021759286*^9, 3.73123487684221*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"f8354acf-3bfe-46ab-894e-d9293024278a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511592721057247*^9, 3.511592726923562*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"bd0fad18-5b0a-458a-94c6-be4f2bf045e3"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", "\[Del]", "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCDg[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
      Editable->False]}], "24"], "-", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {"\[Beta]", " "},
             {" ", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[$CellContext`\[Beta], -$CellContext`\[Beta]]],
     Editable->False]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], 
        RowBox[{"R", "[", "\[Del]", "]"}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`RicciScalarCDg[]],
      Editable->False]}], "24"], "+", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False], "4"]}]}]], "Output",
 CellChangeTimes->{
  3.51159272770656*^9, 3.51159674765364*^9, 3.511630879455834*^9, 
   3.5116315983230963`*^9, 3.511723860460236*^9, 3.5212759915383387`*^9, 
   3.521276830616976*^9, 3.521277315573207*^9, 3.52127750133782*^9, 
   3.521278936763912*^9, 3.521367325702875*^9, 3.521370394566636*^9, 
   3.521440691958481*^9, 3.5214409280019703`*^9, 3.52145591396791*^9, 
   3.5214614633274918`*^9, 3.521507075260873*^9, 3.521521001645646*^9, 
   3.521523021437505*^9, 3.521539069295802*^9, 3.5217854922314777`*^9, 
   3.521797366774744*^9, 3.521804005251316*^9, 3.521883316188546*^9, 
   3.521942156542762*^9, 3.521971105185521*^9, 3.521971484126275*^9, 
   3.521971571794919*^9, 3.5219722553486147`*^9, 3.521973961278686*^9, 
   3.522029115258161*^9, 3.524393988321959*^9, 3.524396324534905*^9, 
   3.52497786993782*^9, 3.524997223741047*^9, 3.525068705804119*^9, 
   3.525070801208956*^9, 3.525072077050818*^9, 3.5250732333001213`*^9, 
   3.525081028832169*^9, 3.525187142367777*^9, 3.525240251916997*^9, 
   3.525243905672729*^9, 3.525397535962845*^9, 3.5253986787613077`*^9, 
   3.525493467203309*^9, 3.525660871073995*^9, 3.525661914850362*^9, 
   3.525662982995541*^9, 3.525673282936162*^9, 3.5457388753607807`*^9, 
   3.545991138024235*^9, 3.545991479342239*^9, 3.54600013247369*^9, 
   3.546021362171075*^9, 3.546057620975094*^9, 3.546064591518733*^9, 
   3.546091132937937*^9, 3.546325611257656*^9, 3.548247336643499*^9, 
   3.548404554216631*^9, 3.5484812521078787`*^9, 3.548511432242037*^9, 
   3.548525811424952*^9, 3.548567875305059*^9, 3.548571058327737*^9, 
   3.548575012047345*^9, 3.548591591896501*^9, 3.548662098666053*^9, 
   3.5487001221446466`*^9, 3.548756254836274*^9, 3.548911246834957*^9, 
   3.548930611462738*^9, 3.548960799391716*^9, 3.549002181972348*^9, 
   3.549020867756077*^9, 3.549043543255158*^9, 3.54904702972174*^9, 
   3.549086276436592*^9, 3.549096275113595*^9, 3.549260308000595*^9, 
   3.549272927443905*^9, 3.549305075314755*^9, 3.549305292343446*^9, 
   3.5493058019251833`*^9, 3.5493588833111973`*^9, 3.549433149165007*^9, 
   3.549462314905313*^9, 3.549540247975646*^9, 3.5509215865955477`*^9, 
   3.550990717691869*^9, 3.550996424944545*^9, 3.5509965931611853`*^9, 
   3.555347200828915*^9, 3.557392103555028*^9, 3.557403151747257*^9, 
   3.55746646334271*^9, 3.557579381210403*^9, 3.557635958905569*^9, 
   3.558441140954378*^9, 3.558549887631584*^9, 3.560007741737204*^9, 
   3.560044413894628*^9, 3.560185499499065*^9, 3.560186286831379*^9, 
   3.56018636247465*^9, 3.560186509710957*^9, 3.560222879654467*^9, 
   3.560256424011088*^9, 3.56026893001378*^9, 3.560269932140524*^9, 
   3.560271417351388*^9, 3.560516254484007*^9, 3.560521601106942*^9, 
   3.560534289629159*^9, 3.560535151156246*^9, 3.560842317643435*^9, 
   3.560844437961231*^9, 3.561176809305138*^9, 3.56121084910079*^9, 
   3.5612691523245487`*^9, 3.561275600330221*^9, 3.561276942179281*^9, 
   3.561302808529509*^9, 3.561305369004319*^9, 3.5613085391070766`*^9, 
   3.561308787771886*^9, {3.5613603131512003`*^9, 3.561360068525532*^9}, 
   3.728115021788992*^9, 3.731234876871769*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"9758039c-cd8e-4b27-96c7-506fd3c42035"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"%", ",", 
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
     RowBox[{"sUnphys", "[", "]"}]}]}], "]"}], "//", "Flatten"}]], "Input",
 CellChangeTimes->{{3.5115927466338778`*^9, 3.511592760419499*^9}, {
  3.5250687084634113`*^9, 3.52506870902145*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"6fa2e387-d392-4963-a6ad-18337ffbf54a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`sUnphys[]],
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", "18"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"6", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"6", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"6", " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
            {"L", 
             StyleBox[GridBox[{
                {"\[Beta]", " "},
                {" ", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`LUnphysg[$CellContext`\[Beta], -$CellContext`\[Beta]]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "\[Alpha]"], 
          RowBox[{"R", "[", "\[Del]", "]"}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CDg[-$CellContext`\[Alpha]][
         $CellContext`RicciScalarCDg[]],
        Editable->False]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.511592760977314*^9, 3.511596750181744*^9, 3.511630879476305*^9, 
   3.5116315983587523`*^9, 3.5117238614247828`*^9, 3.521275992901873*^9, 
   3.521276830811563*^9, 3.5212773156400642`*^9, 3.521277501399706*^9, 
   3.521278936889978*^9, 3.521367325769416*^9, 3.521370394606996*^9, 
   3.5214406920183983`*^9, 3.521440928083537*^9, 3.52145591399542*^9, 
   3.521461464475313*^9, 3.5215070753936853`*^9, 3.521521001702639*^9, 
   3.521523021464965*^9, 3.521539069345847*^9, 3.52178549235847*^9, 
   3.521797366803301*^9, 3.521804005276411*^9, 3.52188331621443*^9, 
   3.5219421565553017`*^9, 3.521971105211404*^9, 3.521971484166493*^9, 
   3.521971571821198*^9, 3.521972255378305*^9, 3.521973961304591*^9, 
   3.522029115276679*^9, 3.524393988367463*^9, 3.5243963245515537`*^9, 
   3.5249778699708157`*^9, 3.524997223795786*^9, 3.525068709932137*^9, 
   3.525070801372409*^9, 3.5250720770889*^9, 3.525073233330551*^9, 
   3.52508102884719*^9, 3.525187142422306*^9, 3.5252402519562893`*^9, 
   3.525243905716835*^9, 3.525397535989213*^9, 3.525398678795065*^9, 
   3.525493467234033*^9, 3.5256608711047363`*^9, 3.5256619148784847`*^9, 
   3.525662983025777*^9, 3.525673282953792*^9, 3.545738875510363*^9, 
   3.545991138092819*^9, 3.545991479422082*^9, 3.546000132553925*^9, 
   3.546021362202435*^9, 3.546057621033903*^9, 3.546064591586849*^9, 
   3.546091132995626*^9, 3.546325611342108*^9, 3.548247336714568*^9, 
   3.548404554259701*^9, 3.5484812521474743`*^9, 3.548511432285101*^9, 
   3.5485258114543943`*^9, 3.548567875341473*^9, 3.5485710583524933`*^9, 
   3.5485750120750437`*^9, 3.5485915919407053`*^9, 3.548662098721093*^9, 
   3.54870012219238*^9, 3.548756254884016*^9, 3.54891124686977*^9, 
   3.548930611503694*^9, 3.548960799428698*^9, 3.5490021820059977`*^9, 
   3.5490208678037977`*^9, 3.549043543291305*^9, 3.5490470297428093`*^9, 
   3.54908627647642*^9, 3.549096275160944*^9, 3.549260308054881*^9, 
   3.5492729275488443`*^9, 3.549305075346757*^9, 3.5493052923677063`*^9, 
   3.5493058020611477`*^9, 3.549358883430677*^9, 3.5494331491798353`*^9, 
   3.54946231492778*^9, 3.549540248013193*^9, 3.550921586638626*^9, 
   3.550990717838099*^9, 3.55099642503223*^9, 3.55099659318196*^9, 
   3.555347200970427*^9, 3.557392103611204*^9, 3.557403151781007*^9, 
   3.557466463375256*^9, 3.557579381236451*^9, 3.557635958950309*^9, 
   3.5584411409914217`*^9, 3.5585498876726513`*^9, 3.560007741777625*^9, 
   3.560044413929885*^9, 3.5601854995427103`*^9, 3.560186286870624*^9, 
   3.5601863625111713`*^9, 3.5601865098616343`*^9, 3.560222879700589*^9, 
   3.560256424050609*^9, 3.560268930051119*^9, 3.56026993217179*^9, 
   3.560271417385254*^9, 3.560516254530938*^9, 3.560521601258977*^9, 
   3.5605342896807528`*^9, 3.560535151187998*^9, 3.56084231767737*^9, 
   3.560844438009265*^9, 3.561176809330138*^9, 3.561210849141163*^9, 
   3.561269152375749*^9, 3.5612756003967257`*^9, 3.5612769422300987`*^9, 
   3.561302808582253*^9, 3.561305369053545*^9, 3.561308539154114*^9, 
   3.561308787941802*^9, {3.5613603132062387`*^9, 3.561360068577878*^9}, 
   3.7281150218113203`*^9, 3.731234876903233*^9},
 CellLabel->
  "Out[213]=",ExpressionUUID->"c96714d5-fe11-4c1c-bd7b-f2e5abb0541e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.511592765386545*^9, 3.511592769443548*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"08289768-5c21-4cea-bad5-b1f7656c889c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"6", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{"6", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", "\[Del]", "]"}], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{"6", " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {"\[Beta]", " "},
               {" ", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`LUnphysg[$CellContext`\[Beta], -$CellContext`\[Beta]]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Alpha]"], 
         RowBox[{"R", "[", "\[Del]", "]"}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`RicciScalarCDg[]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511592770039813*^9, 3.511596751645742*^9, 3.511630879496681*^9, 
   3.511631598385481*^9, 3.511723862324658*^9, 3.52127599429198*^9, 
   3.5212768310919847`*^9, 3.5212773157301817`*^9, 3.521277501529648*^9, 
   3.5212789369755993`*^9, 3.5213673258901052`*^9, 3.5213703947065687`*^9, 
   3.5214406920907593`*^9, 3.521440928152923*^9, 3.5214559140236883`*^9, 
   3.52146146552452*^9, 3.521507075475627*^9, 3.52152100178328*^9, 
   3.5215230214906*^9, 3.521539069373019*^9, 3.521785492376525*^9, 
   3.521797366828689*^9, 3.521804005301011*^9, 3.521883316238606*^9, 
   3.5219421566216803`*^9, 3.52197110523663*^9, 3.521971484203072*^9, 
   3.52197157184557*^9, 3.521972255405698*^9, 3.521973961342779*^9, 
   3.522029115292931*^9, 3.524393988458852*^9, 3.524396324565052*^9, 
   3.524977869999083*^9, 3.524997223836269*^9, 3.525068714005026*^9, 
   3.525070801449572*^9, 3.525072077124023*^9, 3.5250732333598413`*^9, 
   3.525081028860241*^9, 3.525187142450823*^9, 3.525240251993478*^9, 
   3.5252439057560253`*^9, 3.52539753601326*^9, 3.525398678830246*^9, 
   3.525493467271429*^9, 3.525660871141838*^9, 3.525661914908915*^9, 
   3.525662983061388*^9, 3.525673282969057*^9, 3.545738875526441*^9, 
   3.5459911382068157`*^9, 3.545991479554933*^9, 3.546000132575338*^9, 
   3.5460213622198753`*^9, 3.546057621052787*^9, 3.5460645916488256`*^9, 
   3.546091133016953*^9, 3.5463256113801317`*^9, 3.5482473367327013`*^9, 
   3.548404554378187*^9, 3.548481252197052*^9, 3.548511432326429*^9, 
   3.548525811479273*^9, 3.5485678753879843`*^9, 3.548571058376812*^9, 
   3.548575012100263*^9, 3.548591591982875*^9, 3.548662098764847*^9, 
   3.5487001222413073`*^9, 3.5487562549273853`*^9, 3.548911246904829*^9, 
   3.5489306115969563`*^9, 3.5489607994601097`*^9, 3.549002182031602*^9, 
   3.549020867848714*^9, 3.549043543320039*^9, 3.549047029761829*^9, 
   3.549086276505403*^9, 3.54909627520516*^9, 3.5492603080843077`*^9, 
   3.549272927773755*^9, 3.549305075377206*^9, 3.5493052923919983`*^9, 
   3.549305802102356*^9, 3.5493588834739723`*^9, 3.549433149194376*^9, 
   3.549462314949774*^9, 3.549540248045598*^9, 3.550921586680208*^9, 
   3.550990717876155*^9, 3.550996425051498*^9, 3.550996593227841*^9, 
   3.5553472010067863`*^9, 3.557392103639223*^9, 3.5574031518152027`*^9, 
   3.557466463415139*^9, 3.5575793812605*^9, 3.55763595908258*^9, 
   3.5584411410249643`*^9, 3.5585498877063627`*^9, 3.560007741815633*^9, 
   3.5600444139692097`*^9, 3.5601854995823936`*^9, 3.5601862869091473`*^9, 
   3.5601863625466843`*^9, 3.560186509899981*^9, 3.560222879746722*^9, 
   3.560256424087364*^9, 3.560268930085503*^9, 3.5602699322002707`*^9, 
   3.560271417416204*^9, 3.5605162545542793`*^9, 3.560521601307625*^9, 
   3.560534289728867*^9, 3.5605351512203093`*^9, 3.560842317708626*^9, 
   3.560844438058448*^9, 3.5611768093506002`*^9, 3.561210849160306*^9, 
   3.561269152476212*^9, 3.561275600475095*^9, 3.5612769423957863`*^9, 
   3.561302808619914*^9, 3.56130536916194*^9, 3.561308539211158*^9, 
   3.561308787998166*^9, {3.5613603132454147`*^9, 3.5613600686189423`*^9}, 
   3.728115021830714*^9, 3.731234876935995*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"2fd31bb6-29d2-44aa-857d-fe955a084219"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "SchoutenUnphys"}]}]], "Input",
 CellChangeTimes->{{3.511592810642844*^9, 3.5115928170119867`*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"21d1fa0c-e695-435b-83f6-67dae0b31c0e"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "18"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{"R", "[", "\[Del]", "]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciScalarCDg[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{"6", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"R", "[", "\[Del]", "]"}], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{"6", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"R", "[", "\[Del]", "]"}], 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
          Editable->False], "2"], "-", 
        RowBox[{
         FractionBox["1", "12"], " ", 
         InterpretationBox[
          StyleBox[
           RowBox[{"R", "[", "\[Del]", "]"}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`RicciScalarCDg[],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
          Editable->False]}]}], ")"}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.511592818242758*^9, 3.511596753173491*^9, 3.51163087952145*^9, 
   3.5116315984194107`*^9, 3.511723864605419*^9, 3.521275995468492*^9, 
   3.521276831378922*^9, 3.521277315815083*^9, 3.521277501597343*^9, 
   3.521278937060174*^9, 3.521367326001165*^9, 3.521370394758359*^9, 
   3.521440692164665*^9, 3.521440928233716*^9, 3.521455914054269*^9, 
   3.521461466637019*^9, 3.5215070755597258`*^9, 3.5215210018100433`*^9, 
   3.521523021519637*^9, 3.521539069416314*^9, 3.5217854924017963`*^9, 
   3.5217973668617496`*^9, 3.5218040053294277`*^9, 3.521883316266233*^9, 
   3.5219421566921663`*^9, 3.521971105264428*^9, 3.5219714842367992`*^9, 
   3.521971571869792*^9, 3.5219722554415293`*^9, 3.521973961368812*^9, 
   3.52202911531525*^9, 3.524393988502041*^9, 3.524396324583674*^9, 
   3.5249778700333767`*^9, 3.524997223885728*^9, 3.52506871497823*^9, 
   3.525070801500184*^9, 3.525072077173373*^9, 3.525073233392144*^9, 
   3.52508102887999*^9, 3.525187142482752*^9, 3.525240252033407*^9, 
   3.5252439057952623`*^9, 3.525397536046874*^9, 3.525398678859692*^9, 
   3.525493467307025*^9, 3.52566087117036*^9, 3.525661914942225*^9, 
   3.525662983106505*^9, 3.525673283026256*^9, 3.545738875587264*^9, 
   3.5459911382998323`*^9, 3.5459914796376038`*^9, 3.546000132631736*^9, 
   3.546021362244153*^9, 3.546057621098*^9, 3.546064591678816*^9, 
   3.5460911330701942`*^9, 3.546325611452199*^9, 3.5482473367570353`*^9, 
   3.548404554417951*^9, 3.548481252234901*^9, 3.5485114323753023`*^9, 
   3.54852581151125*^9, 3.5485678754299498`*^9, 3.548571058418702*^9, 
   3.5485750121869698`*^9, 3.54859159202103*^9, 3.5486620988849*^9, 
   3.5487001222871103`*^9, 3.548756254968858*^9, 3.548911246943174*^9, 
   3.5489306116493387`*^9, 3.5489607994995813`*^9, 3.549002182062817*^9, 
   3.549020867910522*^9, 3.549043543355586*^9, 3.5490470297804956`*^9, 
   3.549086276567425*^9, 3.549096275252577*^9, 3.5492603081086483`*^9, 
   3.549272927980569*^9, 3.549305075410469*^9, 3.549305292416527*^9, 
   3.549305802155789*^9, 3.549358883592272*^9, 3.549433149222268*^9, 
   3.5494623149718027`*^9, 3.5495402480824137`*^9, 3.550921586713657*^9, 
   3.550990717926901*^9, 3.5509964250763483`*^9, 3.550996593272914*^9, 
   3.5553472010481777`*^9, 3.5573921036953697`*^9, 3.5574031518583727`*^9, 
   3.55746646345232*^9, 3.557579381288721*^9, 3.557635959127749*^9, 
   3.558441141066737*^9, 3.5585498877434473`*^9, 3.5600077418600893`*^9, 
   3.560044414101315*^9, 3.560185499629345*^9, 3.5601862869523363`*^9, 
   3.560186362702998*^9, 3.560186509941144*^9, 3.560222879823247*^9, 
   3.560256424218528*^9, 3.5602689301269207`*^9, 3.560269932237005*^9, 
   3.560271417449078*^9, 3.5605162546726522`*^9, 3.560521601329253*^9, 
   3.560534289791697*^9, 3.5605351513251123`*^9, 3.560842317746957*^9, 
   3.560844438113516*^9, 3.561176809385947*^9, 3.561210849200468*^9, 
   3.561269152512931*^9, 3.561275600572908*^9, 3.561276942460375*^9, 
   3.561302808683774*^9, 3.5613053692141*^9, 3.56130853925893*^9, 
   3.56130878804637*^9, {3.561360313364027*^9, 3.561360068661914*^9}, 
   3.728115021857709*^9, 3.7312348769676456`*^9},
 CellLabel->
  "Out[215]=",ExpressionUUID->"5022e1ad-69b8-4322-bb11-ab240ef34cbc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5115928364382687`*^9, 3.511592869764126*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"0b303c6f-323f-417a-9bda-b887b32e56a7"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", "\[Del]", "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCDg[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
      Editable->False]}], "12"], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.511592840937248*^9, 3.511592870176422*^9}, 
   3.511596754852344*^9, 3.5116308795474663`*^9, 3.511631598448227*^9, 
   3.5117238652534437`*^9, 3.5212759968212852`*^9, 3.52127683145409*^9, 
   3.521277315909025*^9, 3.521277501659519*^9, 3.5212789371786737`*^9, 
   3.5213673261264277`*^9, 3.521370394791132*^9, 3.521440692231241*^9, 
   3.521440928314087*^9, 3.521455914084341*^9, 3.521461467767399*^9, 
   3.5215070756460247`*^9, 3.521521001878644*^9, 3.521523021558045*^9, 
   3.521539069443674*^9, 3.521785492419981*^9, 3.521797366900766*^9, 
   3.5218040053533497`*^9, 3.521883316292164*^9, 3.521942156762233*^9, 
   3.5219711052911663`*^9, 3.52197148439526*^9, 3.521971571895197*^9, 
   3.521972255472073*^9, 3.52197396139366*^9, 3.522029115425826*^9, 
   3.524393988543391*^9, 3.524396324597948*^9, 3.524977870063936*^9, 
   3.524997223977264*^9, 3.525068715638074*^9, 3.525070801532559*^9, 
   3.52507207726917*^9, 3.525073233420444*^9, 3.52508102892811*^9, 
   3.525187142546523*^9, 3.5252402522614117`*^9, 3.525243905908787*^9, 
   3.525397536073454*^9, 3.5253986789025917`*^9, 3.5254934673410397`*^9, 
   3.5256608712054243`*^9, 3.525661914975308*^9, 3.5256629831374397`*^9, 
   3.525673283076044*^9, 3.545738875637199*^9, 3.545991138380986*^9, 
   3.545991479708439*^9, 3.546000132687052*^9, 3.5460213622645187`*^9, 
   3.546057621161284*^9, 3.546064591701516*^9, 3.546091133131702*^9, 
   3.546325611539651*^9, 3.5482473368224497`*^9, 3.54840455445592*^9, 
   3.548481252272985*^9, 3.5485114324570017`*^9, 3.548525811539754*^9, 
   3.548567875478711*^9, 3.5485710584459753`*^9, 3.548575012218007*^9, 
   3.548591592060451*^9, 3.54866209893414*^9, 3.548700122335474*^9, 
   3.5487562550770397`*^9, 3.5489112469835997`*^9, 3.5489306117421227`*^9, 
   3.548960799533669*^9, 3.549002182089065*^9, 3.54902086803819*^9, 
   3.5490435433879147`*^9, 3.5490470298147297`*^9, 3.5490862766007547`*^9, 
   3.549096275314706*^9, 3.549260308161006*^9, 3.549272928032902*^9, 
   3.54930507544151*^9, 3.549305292452449*^9, 3.549305802197076*^9, 
   3.5493588836661177`*^9, 3.549433149251028*^9, 3.5494623150120792`*^9, 
   3.549540248124838*^9, 3.5509215867550097`*^9, 3.550990717989121*^9, 
   3.5509964250963163`*^9, 3.55099659331603*^9, 3.555347201099593*^9, 
   3.557392103751664*^9, 3.5574031519564*^9, 3.5574664634830303`*^9, 
   3.557579381313951*^9, 3.5576359591773777`*^9, 3.558441141178927*^9, 
   3.558549887776538*^9, 3.560007741980007*^9, 3.560044414140398*^9, 
   3.5601854996720552`*^9, 3.560186286991044*^9, 3.5601863627407618`*^9, 
   3.560186509979046*^9, 3.560222879897526*^9, 3.56025642425648*^9, 
   3.560268930164628*^9, 3.560269932274638*^9, 3.560271417484233*^9, 
   3.560516254714368*^9, 3.560521601347691*^9, 3.560534289837325*^9, 
   3.560535151375944*^9, 3.560842317779928*^9, 3.5608444381578093`*^9, 
   3.5611768094336567`*^9, 3.561210849241453*^9, 3.5612691525513277`*^9, 
   3.56127560061775*^9, 3.561276942503902*^9, 3.5613028087608213`*^9, 
   3.561305369288553*^9, 3.561308539338687*^9, 3.5613087881071053`*^9, {
   3.561360313404253*^9, 3.561360068752016*^9}, 3.728115021876486*^9, 
   3.731234876996863*^9},
 CellLabel->
  "Out[216]=",ExpressionUUID->"4ff0e2e2-3907-4c73-8ff2-b3a296cbb889"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "RicciCDgToSchouten"}]}]], "Input",
 CellChangeTimes->{{3.511593131521057*^9, 3.511593135528802*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"52e486e5-cbd9-4b59-b200-17501f2983c4"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", "\[Del]", "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCDg[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
      Editable->False]}], "12"], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511593137278585*^9, 3.511596757788816*^9, 3.5116308795717983`*^9, 
   3.511631598479207*^9, 3.511723866628611*^9, 3.5212759980897408`*^9, 
   3.521276831655239*^9, 3.521277316062437*^9, 3.521277501727848*^9, 
   3.521278937258738*^9, 3.521367326290317*^9, 3.521370394824007*^9, 
   3.5214406923034983`*^9, 3.521440928387388*^9, 3.521455914115041*^9, 
   3.521461469311781*^9, 3.5215070757279987`*^9, 3.521521001999975*^9, 
   3.5215230215821877`*^9, 3.5215390694735537`*^9, 3.521785492522087*^9, 
   3.521797366940323*^9, 3.521804005380245*^9, 3.521883316328006*^9, 
   3.521942156837997*^9, 3.5219711053191757`*^9, 3.521971484432054*^9, 
   3.521971571918475*^9, 3.521972255512525*^9, 3.521973961419395*^9, 
   3.5220291155275517`*^9, 3.524393988589664*^9, 3.5243963246500063`*^9, 
   3.5249778700951357`*^9, 3.524997224023316*^9, 3.525068716525148*^9, 
   3.525070801575609*^9, 3.525072077304606*^9, 3.525073233456587*^9, 
   3.525081028944549*^9, 3.525187142579055*^9, 3.5252402522979803`*^9, 
   3.525243905948822*^9, 3.5253975360988407`*^9, 3.5253986789372272`*^9, 
   3.525493467378491*^9, 3.525660871242784*^9, 3.525661915002349*^9, 
   3.525662983171096*^9, 3.525673283124153*^9, 3.545738875694181*^9, 
   3.545991138437236*^9, 3.545991480115884*^9, 3.546000132749385*^9, 
   3.54602136233228*^9, 3.546057621219824*^9, 3.546064591759712*^9, 
   3.5460911332084513`*^9, 3.546325611621299*^9, 3.548247336845891*^9, 
   3.548404554501913*^9, 3.548481252386396*^9, 3.548511432478335*^9, 
   3.548525811571391*^9, 3.548567875595996*^9, 3.5485710584852467`*^9, 
   3.548575012347793*^9, 3.54859159210874*^9, 3.548662098984261*^9, 
   3.548700122388101*^9, 3.548756255121073*^9, 3.548911247019413*^9, 
   3.548930611778973*^9, 3.548960799560624*^9, 3.5490021821227913`*^9, 
   3.549020868085527*^9, 3.54904354341978*^9, 3.549047029834921*^9, 
   3.549086276643774*^9, 3.549096275425856*^9, 3.549260308194972*^9, 
   3.549272928077023*^9, 3.5493050754792213`*^9, 3.5493052924808683`*^9, 
   3.549305802234879*^9, 3.5493588837451878`*^9, 3.5494331492795467`*^9, 
   3.549462315034182*^9, 3.549540248160784*^9, 3.550921586793048*^9, 
   3.550990718031082*^9, 3.550996425139983*^9, 3.550996593470706*^9, 
   3.5553472011356163`*^9, 3.5573921038068027`*^9, 3.557403152000401*^9, 
   3.5574664635204983`*^9, 3.557579381344639*^9, 3.557635959229434*^9, 
   3.558441141218123*^9, 3.5585498878124113`*^9, 3.560007742021501*^9, 
   3.5600444141818733`*^9, 3.560185499717456*^9, 3.5601862870312977`*^9, 
   3.56018636278034*^9, 3.560186510024147*^9, 3.560222879962824*^9, 
   3.56025642429747*^9, 3.560268930343889*^9, 3.5602699323044987`*^9, 
   3.560271417520461*^9, 3.560516254757423*^9, 3.560521601368137*^9, 
   3.5605342898914347`*^9, 3.560535151409109*^9, 3.560842317815729*^9, 
   3.560844438203006*^9, 3.5611768094823914`*^9, 3.561210849285482*^9, 
   3.561269152605695*^9, 3.561275600662722*^9, 3.561276942594831*^9, 
   3.561302808802215*^9, 3.561305369349504*^9, 3.561308539391047*^9, 
   3.561308788166184*^9, {3.5613603134599857`*^9, 3.561360068797492*^9}, 
   3.72811502240553*^9, 3.7312348770284433`*^9},
 CellLabel->
  "Out[217]=",ExpressionUUID->"c70c0b20-5dfc-436c-aa6f-e152e6079121"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511593141473077*^9, 3.511593158090602*^9}},
 CellLabel->
  "In[218]:=",ExpressionUUID->"4a9729cb-970c-4f9b-b581-3ce2fec86669"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Beta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.511593145016152*^9, 3.511593158475444*^9}, 
   3.511596759921166*^9, 3.511630879597372*^9, 3.511631598506164*^9, 
   3.511723867507812*^9, 3.5212759989571037`*^9, 3.521276831797113*^9, 
   3.521277316138888*^9, 3.521277501741255*^9, 3.521278937330216*^9, 
   3.521367326384935*^9, 3.521370394851161*^9, 3.5214406923757763`*^9, 
   3.521440928477192*^9, 3.521455914141322*^9, 3.521461470573135*^9, 
   3.5215070758963203`*^9, 3.521521002073612*^9, 3.521523021608142*^9, 
   3.5215390694985037`*^9, 3.5217854925878563`*^9, 3.521797366966015*^9, 
   3.5218040054057083`*^9, 3.521883316352948*^9, 3.521942156912367*^9, 
   3.521971105357955*^9, 3.5219714845280333`*^9, 3.5219715719387836`*^9, 
   3.521972255538485*^9, 3.521973961447997*^9, 3.522029115606904*^9, 
   3.5243939886435547`*^9, 3.52439632466145*^9, 3.524977870124793*^9, 
   3.524997224070283*^9, 3.525068717178564*^9, 3.52507080161515*^9, 
   3.525072077337503*^9, 3.5250732334857893`*^9, 3.525081028955831*^9, 
   3.5251871426099586`*^9, 3.525240252333271*^9, 3.5252439059855824`*^9, 
   3.5253975361291313`*^9, 3.52539867897285*^9, 3.525493467409465*^9, 
   3.525660871276042*^9, 3.5256619150338984`*^9, 3.525662983284889*^9, 
   3.525673283175329*^9, 3.5457388757144547`*^9, 3.54599113851865*^9, 
   3.545991480577235*^9, 3.546000132801814*^9, 3.546021362419796*^9, 
   3.5460576212654343`*^9, 3.546064591779915*^9, 3.5460911332645493`*^9, 
   3.5463256117019978`*^9, 3.5482473368630323`*^9, 3.548404554546817*^9, 
   3.5484812524186487`*^9, 3.5485114324940767`*^9, 3.548525811597666*^9, 
   3.548567875639902*^9, 3.548571058511284*^9, 3.5485750123811493`*^9, 
   3.548591592148115*^9, 3.548662099000698*^9, 3.548700122435611*^9, 
   3.5487562551426992`*^9, 3.548911247050221*^9, 3.548930611826169*^9, 
   3.548960799585836*^9, 3.549002182152519*^9, 3.549020868138999*^9, 
   3.549043543446595*^9, 3.549047029853817*^9, 3.5490862766752253`*^9, 
   3.549096275472608*^9, 3.549260308241325*^9, 3.5492729281173267`*^9, 
   3.549305075531008*^9, 3.54930529251348*^9, 3.549305802254637*^9, 
   3.549358883860344*^9, 3.5494331493207817`*^9, 3.549462315054206*^9, 
   3.5495402481941957`*^9, 3.550921586833929*^9, 3.550990718070191*^9, 
   3.5509964253749943`*^9, 3.550996593518814*^9, 3.555347201184901*^9, 
   3.55739210385958*^9, 3.557403152036215*^9, 3.557466463544964*^9, 
   3.557579381370427*^9, 3.5576359592634068`*^9, 3.558441141252816*^9, 
   3.558549887850091*^9, 3.560007742056218*^9, 3.560044414215171*^9, 
   3.560185499780905*^9, 3.5601862870908203`*^9, 3.5601863628148403`*^9, 
   3.560186510074596*^9, 3.560222880042799*^9, 3.560256424331532*^9, 
   3.5602689303817472`*^9, 3.5602699323387737`*^9, 3.560271417551363*^9, 
   3.560516254807309*^9, 3.5605216014072037`*^9, 3.560534289938713*^9, 
   3.560535151437584*^9, 3.5608423178444138`*^9, 3.560844438244931*^9, 
   3.5611768095232*^9, 3.5612108493020163`*^9, 3.561269152640929*^9, 
   3.561275600718418*^9, 3.561276942656036*^9, 3.561302808841093*^9, 
   3.561305369446319*^9, 3.561308539443466*^9, 3.5613087882196093`*^9, {
   3.5613603134974546`*^9, 3.561360068842799*^9}, 3.728115023197299*^9, 
   3.73123487705904*^9},
 CellLabel->
  "Out[218]=",ExpressionUUID->"816cd52d-95ee-460e-85ef-845c6753bb24"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDgSUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5115940879532223`*^9, 3.511594099117382*^9}},
 CellLabel->
  "In[219]:=",ExpressionUUID->"26feb78f-b99e-431e-8add-ed20d0af4d58"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Integrability condition of  ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`b][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`a]],
    Editable->False], "\[Equal]", 
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["s",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`sUnphys[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`a, -$CellContext`b],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]}]}]], "Output",
  CellChangeTimes->{3.511592191362155*^9, 3.5115923412169313`*^9, 
   3.5115967375667877`*^9}],
 "  \[Implies] Relation ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"a", "c", "b", "d"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`a, -$CellContext`c, \
-$CellContext`b, -$CellContext`d],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"d"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`d],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "a"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"b", "c"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`a][
      $CellContext`LUnphysg[-$CellContext`b, -$CellContext`c]],
     Editable->False], "-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "c"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`c][
      $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b]],
     Editable->False]}], "\[Equal]", "0"}]], "Output",
  CellChangeTimes->{3.511598038296688*^9}]
}], "Subsubsection",
 CellChangeTimes->{
  3.5116346556417027`*^9, {3.5117240276234493`*^9, 3.511724035348218*^9}}],

Cell["We start from the condition", "Text",
 CellChangeTimes->{{3.511594255361312*^9, 3.511594258272827*^9}, {
  3.511594358929401*^9, 3.511594361744635*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CDg", "[", 
     RowBox[{"-", "\[Gamma]"}], "]"}], "@", 
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
     RowBox[{"\[CapitalSigma]Unphys", "[", 
      RowBox[{"-", "\[Beta]"}], "]"}]}]}], "-", 
   RowBox[{
    RowBox[{"CDg", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Gamma]"}], "]"}], "@", 
     RowBox[{"\[CapitalSigma]Unphys", "[", 
      RowBox[{"-", "\[Beta]"}], "]"}]}]}]}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Gamma]"}], "]"}], "@", 
      RowBox[{
       RowBox[{"CDg", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
       RowBox[{"\[CapitalSigma]Unphys", "[", 
        RowBox[{"-", "\[Beta]"}], "]"}]}]}], "-", 
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
      RowBox[{
       RowBox[{"CDg", "[", 
        RowBox[{"-", "\[Gamma]"}], "]"}], "@", 
       RowBox[{"\[CapitalSigma]Unphys", "[", 
        RowBox[{"-", "\[Beta]"}], "]"}]}]}]}], "//", "SortCovDs"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.511593887108817*^9, 3.511593957961605*^9}, {
  3.525068725096023*^9, 3.525068752395625*^9}},
 CellLabel->
  "In[220]:=",ExpressionUUID->"1d51c678-7a20-4d9b-a35c-45c8c6209661"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], 
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], 
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]]]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Gamma]", "\[Alpha]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.511593944851493*^9, 3.5115939583555717`*^9}, 
   3.5115943671713133`*^9, 3.511596775644099*^9, 3.5116308806146507`*^9, 
   3.511631602573429*^9, 3.511723924199284*^9, 3.521276009058354*^9, 
   3.5212768415806828`*^9, 3.521277316228072*^9, 3.521277501756976*^9, 
   3.5212789374309072`*^9, 3.521367336597719*^9, 3.52137039589653*^9, 
   3.5214406925148163`*^9, 3.521440928555018*^9, 3.5214559141702557`*^9, 
   3.5214614851767*^9, 3.521507076048943*^9, 3.521521002206358*^9, 
   3.5215230216376*^9, 3.521539070657132*^9, 3.5217854926796627`*^9, 
   3.5217973678067303`*^9, 3.521804005432683*^9, 3.521883316380825*^9, 
   3.521942156991282*^9, 3.521971105386889*^9, 3.5219714845685472`*^9, 
   3.521971571980907*^9, 3.521972255582529*^9, 3.521973961520657*^9, 
   3.522029115708729*^9, 3.524393988719779*^9, 3.524396324680008*^9, 
   3.5249778701579533`*^9, 3.524997224100656*^9, 3.5250687533395023`*^9, 
   3.5250708016549273`*^9, 3.52507207737245*^9, 3.525073233555081*^9, 
   3.525081029009606*^9, 3.525187142642874*^9, 3.525240252374489*^9, 
   3.525243906025463*^9, 3.5253975361523046`*^9, 3.5253986791039753`*^9, 
   3.525493467447585*^9, 3.52566087131574*^9, 3.5256619150694113`*^9, 
   3.525662983316905*^9, 3.5256732832331676`*^9, 3.545738875742646*^9, 
   3.5459911386206503`*^9, 3.54599148065845*^9, 3.546000132871974*^9, 
   3.5460213624897547`*^9, 3.546057621337068*^9, 3.546064591813109*^9, 
   3.546091133361917*^9, 3.5463256117442636`*^9, 3.548247336937237*^9, 
   3.5484045546031637`*^9, 3.548481252444263*^9, 3.548511432542858*^9, 
   3.5485258116318617`*^9, 3.548567875680399*^9, 3.548571058584055*^9, 
   3.5485750124796867`*^9, 3.5485915922151318`*^9, 3.548662099028572*^9, 
   3.5487001224933033`*^9, 3.5487562551931343`*^9, 3.548911247087947*^9, 
   3.5489306118803463`*^9, 3.548960799707407*^9, 3.5490021821881657`*^9, 
   3.549020868188991*^9, 3.54904354347762*^9, 3.549047029908189*^9, 
   3.549086276793598*^9, 3.5490962755007153`*^9, 3.549260308293627*^9, 
   3.549272928166254*^9, 3.549305075569571*^9, 3.54930529254943*^9, 
   3.549305802288472*^9, 3.549358883943314*^9, 3.549433149348151*^9, 
   3.549462315111744*^9, 3.5495402482390347`*^9, 3.5509215868763323`*^9, 
   3.550990718117778*^9, 3.550996425491403*^9, 3.550996593575017*^9, 
   3.555347201242375*^9, 3.557392103899069*^9, 3.557403152082282*^9, 
   3.557466463579403*^9, 3.557579381401429*^9, 3.557635959321579*^9, 
   3.558441141294183*^9, 3.5585498878924837`*^9, 3.5600077421036654`*^9, 
   3.560044414261737*^9, 3.560185499841264*^9, 3.560186287186707*^9, 
   3.560186362857296*^9, 3.56018651016641*^9, 3.5602228800725317`*^9, 
   3.5602564243789873`*^9, 3.560268930423609*^9, 3.5602699323821983`*^9, 
   3.560271417686804*^9, 3.560516254864409*^9, 3.560521601460293*^9, 
   3.560534290013514*^9, 3.5605351514712553`*^9, 3.5608423178862762`*^9, 
   3.5608444382898083`*^9, 3.561176809572838*^9, 3.561210849330915*^9, 
   3.561269152702076*^9, 3.561275600784801*^9, 3.5612769427007933`*^9, 
   3.561302808874289*^9, 3.561305369498787*^9, 3.561308539513671*^9, 
   3.561308788296213*^9, {3.561360313543552*^9, 3.561360068905436*^9}, 
   3.728115023245467*^9, 3.7312348770980797`*^9},
 CellLabel->
  "Out[220]=",ExpressionUUID->"b9b1095f-9a3f-4e38-83ce-86e4769544e3"]
}, Open  ]],

Cell[TextData[{
 "We know the covariant derivative of ",
 Cell[BoxData[GridBox[{
    {"\[CapitalSigma]", 
     StyleBox[GridBox[{
        {" "},
        {"b"}
       },
       GridBoxSpacings->{"Columns" -> {
           Offset[0.], {
            Offset[0.034999999999999996`]}, 
           Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.]}}, "RowsIndexed" -> {}}],
      FontSize->9]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.034999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]], "Output",
  CellChangeTimes->{{3.511593944851493*^9, 3.5115939583555717`*^9}, 
    3.5115943671713133`*^9, 3.511596775644099*^9, 3.5116308806146507`*^9, 
    3.511631602573429*^9, 3.511723924199284*^9}],
 " so we replace it"
}], "Text",
 CellChangeTimes->{{3.5117239276145477`*^9, 3.5117239504575768`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "Conf1"}]}]], "Input",
 CellChangeTimes->{{3.5115926854104643`*^9, 3.511592693134261*^9}},
 CellLabel->
  "In[221]:=",ExpressionUUID->"603c0cff-dbc9-4aa1-a120-8ef18f6f9593"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`sUnphys[]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`\[CapitalTheta][]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Gamma]", "\[Alpha]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511593979037937*^9, 3.511594367967391*^9, 3.511596776648376*^9, 
   3.511630880641837*^9, 3.511631602718141*^9, 3.5117239531567497`*^9, 
   3.521276011026547*^9, 3.521276841739884*^9, 3.521277316325594*^9, 
   3.521277501774942*^9, 3.5212789375345163`*^9, 3.5213673367565603`*^9, 
   3.521370395956552*^9, 3.521440692588028*^9, 3.5214409286396437`*^9, 
   3.521455914216482*^9, 3.521461487255726*^9, 3.521507076130965*^9, 
   3.5215210022872562`*^9, 3.52152302167916*^9, 3.521539070706429*^9, 
   3.5217854927720327`*^9, 3.521797367844109*^9, 3.5218040054609203`*^9, 
   3.521883316411808*^9, 3.521942157017445*^9, 3.521971105417457*^9, 
   3.521971484607011*^9, 3.5219715720120792`*^9, 3.521972255614605*^9, 
   3.521973961631543*^9, 3.522029115782062*^9, 3.524393988767764*^9, 
   3.5243963247005453`*^9, 3.524977870222652*^9, 3.524997224150248*^9, 
   3.525068755044277*^9, 3.525070801691876*^9, 3.525072077402792*^9, 
   3.525073233602613*^9, 3.525081029030805*^9, 3.5251871426770144`*^9, 
   3.5252402524122953`*^9, 3.525243906078351*^9, 3.525397536180161*^9, 
   3.525398679139318*^9, 3.525493467568345*^9, 3.5256608713533154`*^9, 
   3.525661915106234*^9, 3.525662983354307*^9, 3.5256732832856083`*^9, 
   3.545738875769665*^9, 3.545991138695078*^9, 3.545991480758106*^9, 
   3.5460001329317083`*^9, 3.546021362560376*^9, 3.546057621396851*^9, 
   3.546064591845873*^9, 3.5460911334728003`*^9, 3.546325611819242*^9, 
   3.548247337015325*^9, 3.548404554659814*^9, 3.548481252478511*^9, 
   3.5485114325965567`*^9, 3.5485258116738863`*^9, 3.5485678757397747`*^9, 
   3.5485710586270523`*^9, 3.5485750125107*^9, 3.548591592303137*^9, 
   3.5486620990561934`*^9, 3.5487001225432034`*^9, 3.5487562552473717`*^9, 
   3.5489112471322117`*^9, 3.5489306119269543`*^9, 3.548960799745236*^9, 
   3.549002182262998*^9, 3.549020868217445*^9, 3.549043543510839*^9, 
   3.549047029929381*^9, 3.5490862768450727`*^9, 3.549096275528722*^9, 
   3.549260308344932*^9, 3.549272928193171*^9, 3.54930507561395*^9, 
   3.549305292576682*^9, 3.549305802324174*^9, 3.5493588839786577`*^9, 
   3.5494331493857193`*^9, 3.549462315187422*^9, 3.549540248383562*^9, 
   3.550921586983827*^9, 3.5509907181639757`*^9, 3.550996425542265*^9, 
   3.550996593622101*^9, 3.5553472012971077`*^9, 3.5573921039582767`*^9, 
   3.557403152130269*^9, 3.557466463666313*^9, 3.557579381429616*^9, 
   3.5576359593780537`*^9, 3.558441141336158*^9, 3.558549887921589*^9, 
   3.560007742151771*^9, 3.560044414320939*^9, 3.560185499889742*^9, 
   3.560186287231703*^9, 3.5601863628997717`*^9, 3.56018651026749*^9, 
   3.560222880122903*^9, 3.5602564244269257`*^9, 3.560268930460269*^9, 
   3.560269932545289*^9, 3.5602714177259398`*^9, 3.5605162549203176`*^9, 
   3.560521601508696*^9, 3.560534290084193*^9, 3.560535151506344*^9, 
   3.560842317929571*^9, 3.5608444383338327`*^9, 3.561176809613922*^9, 
   3.5612108493714457`*^9, 3.561269152750732*^9, 3.561275600835999*^9, 
   3.56127694277153*^9, 3.561302808919766*^9, 3.561305369572989*^9, 
   3.561308539564145*^9, 3.5613087883489113`*^9, {3.561360313604746*^9, 
   3.561360068950433*^9}, 3.7281150232724447`*^9, 3.731234877132175*^9},
 CellLabel->
  "Out[221]=",ExpressionUUID->"eec54ba6-5d67-4dbe-88f9-936a6ad0b462"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CDg\[CapitalTheta]"}]}]], "Input",
 CellChangeTimes->{{3.51159267402145*^9, 3.511592678004733*^9}},
 CellLabel->
  "In[222]:=",ExpressionUUID->"5030f7d7-fb86-4dc0-9902-de45474ff72c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`sUnphys[]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Gamma]", "\[Alpha]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5115939951119013`*^9, 3.511594368536401*^9, 3.511596777594489*^9, 
   3.511630880738842*^9, 3.511631602805684*^9, 3.511723953779104*^9, 
   3.521276012042946*^9, 3.521276841761072*^9, 3.521277316415289*^9, 
   3.521277501836307*^9, 3.5212789376247177`*^9, 3.521367336819751*^9, 
   3.521370395989036*^9, 3.521440692665637*^9, 3.521440928656003*^9, 
   3.521455914246702*^9, 3.521461488428458*^9, 3.521507076214357*^9, 
   3.521521002446928*^9, 3.521523021709422*^9, 3.521539070738166*^9, 
   3.521785492848625*^9, 3.521797367876588*^9, 3.521804005506185*^9, 
   3.5218833164413223`*^9, 3.521942157075943*^9, 3.5219711054453907`*^9, 
   3.521971484644546*^9, 3.521971572047443*^9, 3.521972255646882*^9, 
   3.521973961663701*^9, 3.522029115865218*^9, 3.524393988819563*^9, 
   3.524396324718684*^9, 3.524977870256242*^9, 3.524997224204389*^9, 
   3.525068755723934*^9, 3.525070801780904*^9, 3.525072077439269*^9, 
   3.525073233686594*^9, 3.525081029049103*^9, 3.525187142712344*^9, 
   3.525240252452393*^9, 3.525243906117814*^9, 3.525397536255301*^9, 
   3.525398679171463*^9, 3.525493467613299*^9, 3.5256608714651833`*^9, 
   3.5256619151375113`*^9, 3.525662983389585*^9, 3.525673283345976*^9, 
   3.545738875822385*^9, 3.545991138723095*^9, 3.545991480831458*^9, 
   3.54600013299793*^9, 3.546021362620759*^9, 3.546057621449828*^9, 
   3.5460645919261923`*^9, 3.546091133627768*^9, 3.546325611896759*^9, 
   3.548247337104303*^9, 3.548404554709176*^9, 3.548481252518551*^9, 
   3.5485114326439447`*^9, 3.5485258117049303`*^9, 3.54856787578866*^9, 
   3.548571058661014*^9, 3.548575012544429*^9, 3.548591592353134*^9, 
   3.548662099080612*^9, 3.54870012259243*^9, 3.548756255292778*^9, 
   3.548911247166621*^9, 3.548930611976129*^9, 3.548960799777861*^9, 
   3.549002182297133*^9, 3.549020868242432*^9, 3.5490435435431433`*^9, 
   3.5490470299487553`*^9, 3.549086276922256*^9, 3.5490962755727673`*^9, 
   3.549260308376657*^9, 3.549272928217146*^9, 3.549305075653779*^9, 
   3.5493052926106853`*^9, 3.549305802349613*^9, 3.549358884003264*^9, 
   3.549433149405718*^9, 3.549462315211617*^9, 3.549540248426416*^9, 
   3.550921587003161*^9, 3.550990718212932*^9, 3.550996425597739*^9, 
   3.550996593671352*^9, 3.5553472013496847`*^9, 3.557392104017892*^9, 
   3.557403152165922*^9, 3.5574664637159157`*^9, 3.55757938145848*^9, 
   3.557635959431869*^9, 3.558441141373474*^9, 3.558549888023984*^9, 
   3.560007742196742*^9, 3.560044414362196*^9, 3.560185499937683*^9, 
   3.56018628727309*^9, 3.560186362938878*^9, 3.560186510311368*^9, 
   3.5602228801769342`*^9, 3.5602564244709473`*^9, 3.560268930499556*^9, 
   3.560269932575624*^9, 3.560271417761909*^9, 3.5605162549749413`*^9, 
   3.560521601557294*^9, 3.56053429012991*^9, 3.560535151539052*^9, 
   3.560842317967955*^9, 3.5608444383749733`*^9, 3.561176809682279*^9, 
   3.5612108494116373`*^9, 3.5612691528095703`*^9, 3.561275600904543*^9, 
   3.561276942816638*^9, 3.561302808962487*^9, 3.56130536959457*^9, 
   3.561308539632607*^9, 3.56130878839848*^9, {3.561360313650015*^9, 
   3.56136006906104*^9}, 3.728115023315453*^9, 3.7312348771694*^9},
 CellLabel->
  "Out[222]=",ExpressionUUID->"1e96329f-0a79-4705-aa03-b78c1e9a33e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "Conf1"}]}]], "Input",
 CellChangeTimes->{{3.5115926854104643`*^9, 3.511592693134261*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"26d5597c-3d25-4757-b1a7-7d98cd1cd2f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`sUnphys[]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Gamma]", "\[Alpha]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511594021836913*^9, 3.5115943691993093`*^9, 3.511596779568782*^9, 
   3.5116308807653723`*^9, 3.511631602869025*^9, 3.511723954362962*^9, 
   3.521276013106368*^9, 3.5212768418616953`*^9, 3.5212773165418386`*^9, 
   3.521277501855525*^9, 3.521278937718479*^9, 3.5213673369500837`*^9, 
   3.521370396023395*^9, 3.521440692737897*^9, 3.5214409286745777`*^9, 
   3.5214559142864323`*^9, 3.521461489678482*^9, 3.5215070762410727`*^9, 
   3.52152100252414*^9, 3.521523021743566*^9, 3.521539070772002*^9, 
   3.521785492966785*^9, 3.5217973679039183`*^9, 3.5218040055366917`*^9, 
   3.521883316471692*^9, 3.5219421571679373`*^9, 3.521971105475987*^9, 
   3.5219714847031612`*^9, 3.521971572073736*^9, 3.521972255679913*^9, 
   3.521973961697356*^9, 3.522029116041696*^9, 3.524393988866747*^9, 
   3.524396324792363*^9, 3.524977870293458*^9, 3.524997224237379*^9, 
   3.525068756345139*^9, 3.525070801828094*^9, 3.525072077581814*^9, 
   3.525073233741642*^9, 3.5250810290698833`*^9, 3.525187142766206*^9, 
   3.525240252490178*^9, 3.52524390615132*^9, 3.5253975362914658`*^9, 
   3.5253986792066927`*^9, 3.5254934676544867`*^9, 3.5256608715038137`*^9, 
   3.5256619151783943`*^9, 3.525662983424556*^9, 3.5256732834159737`*^9, 
   3.5457388758491173`*^9, 3.5459911387889338`*^9, 3.545991480953383*^9, 
   3.546000133069358*^9, 3.5460213626936693`*^9, 3.546057621518313*^9, 
   3.546064591992798*^9, 3.546091133662272*^9, 3.546325611993948*^9, 
   3.5482473371953783`*^9, 3.548404554757118*^9, 3.548481252564975*^9, 
   3.548511432698571*^9, 3.548525811736863*^9, 3.548567875881538*^9, 
   3.548571058698305*^9, 3.548575012574798*^9, 3.5485915923940268`*^9, 
   3.548662099131768*^9, 3.548700122643545*^9, 3.54875625533704*^9, 
   3.5489112472060223`*^9, 3.548930612025812*^9, 3.548960799856763*^9, 
   3.5490021823290358`*^9, 3.5490208683050013`*^9, 3.5490435435781918`*^9, 
   3.54904702998682*^9, 3.549086276967741*^9, 3.549096275600317*^9, 
   3.5492603084029617`*^9, 3.549272928268141*^9, 3.54930507573732*^9, 
   3.549305292637498*^9, 3.549305802370101*^9, 3.5493588840570927`*^9, 
   3.549433149436705*^9, 3.549462315235682*^9, 3.549540248465351*^9, 
   3.550921587025385*^9, 3.550990718316587*^9, 3.550996425654838*^9, 
   3.55099659372854*^9, 3.5553472014063168`*^9, 3.557392104078092*^9, 
   3.557403152204723*^9, 3.557466463757873*^9, 3.557579381529772*^9, 
   3.557635959481532*^9, 3.558441141415917*^9, 3.5585498880639477`*^9, 
   3.560007742245179*^9, 3.56004441440734*^9, 3.560185499989628*^9, 
   3.560186287318235*^9, 3.5601863629816513`*^9, 3.560186510357026*^9, 
   3.560222880254097*^9, 3.560256424518641*^9, 3.56026893054217*^9, 
   3.560269932612749*^9, 3.560271417801523*^9, 3.560516255029545*^9, 
   3.560521601611902*^9, 3.5605342902332907`*^9, 3.56053515157522*^9, 
   3.560842318012245*^9, 3.560844438419582*^9, 3.56117680972576*^9, 
   3.561210849459878*^9, 3.561269152867572*^9, 3.56127560094662*^9, 
   3.5612769428439493`*^9, 3.561302809003676*^9, 3.561305369633317*^9, 
   3.561308539744018*^9, 3.561308788467176*^9, {3.561360313709694*^9, 
   3.561360069131652*^9}, 3.728115023347075*^9, 3.7312348772034063`*^9},
 CellLabel->
  "Out[223]=",ExpressionUUID->"37f9b293-b705-4a69-80b2-21b10135f116"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CDgSUnphys"}]}]], "Input",
 CellChangeTimes->{{3.511594154372761*^9, 3.5115941580695333`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"92550b5c-d942-4bb4-8f4d-aa944c5f4f7b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Gamma]", "\[Alpha]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5115941646477222`*^9, 3.511594370102646*^9, 3.5115967906384773`*^9, 
   3.511630880797162*^9, 3.5116316029372377`*^9, 3.511723954996619*^9, 
   3.521276014147764*^9, 3.521276842051175*^9, 3.521277316618476*^9, 
   3.521277501873349*^9, 3.521278937800462*^9, 3.521367337085595*^9, 
   3.521370396075903*^9, 3.521440692818116*^9, 3.521440928692844*^9, 
   3.521455914320731*^9, 3.521461490826973*^9, 3.521507076268186*^9, 
   3.521521002620722*^9, 3.521523021779838*^9, 3.521539070816087*^9, 
   3.521785493064583*^9, 3.521797367958027*^9, 3.521804005565691*^9, 
   3.521883316504017*^9, 3.521942157240066*^9, 3.521971105507043*^9, 
   3.5219714847433243`*^9, 3.521971572101264*^9, 3.521972255713464*^9, 
   3.5219739617314367`*^9, 3.522029116148547*^9, 3.524393988920555*^9, 
   3.524396324869398*^9, 3.52497787032795*^9, 3.524997224290308*^9, 
   3.525068757078478*^9, 3.5250708018720922`*^9, 3.525072077731855*^9, 
   3.525073233784913*^9, 3.525081029092023*^9, 3.5251871428009872`*^9, 
   3.5252402525333138`*^9, 3.525243906195116*^9, 3.525397536336727*^9, 
   3.5253986792400618`*^9, 3.525493467695834*^9, 3.52566087154289*^9, 
   3.5256619152124977`*^9, 3.525662983463359*^9, 3.525673283661723*^9, 
   3.545738875877432*^9, 3.545991138874032*^9, 3.545991481052464*^9, 
   3.5460001331123533`*^9, 3.546021362752645*^9, 3.546057621576469*^9, 
   3.546064592062126*^9, 3.546091133696391*^9, 3.5463256121069403`*^9, 
   3.54824733733993*^9, 3.548404554815246*^9, 3.5484812526013527`*^9, 
   3.548511432761437*^9, 3.5485258118069696`*^9, 3.548567876884686*^9, 
   3.5485710588120604`*^9, 3.54857501261161*^9, 3.548591592441957*^9, 
   3.548662099188249*^9, 3.548700122692747*^9, 3.548756255391069*^9, 
   3.5489112472440023`*^9, 3.548930612079472*^9, 3.54896079990273*^9, 
   3.549002182370779*^9, 3.549020868354546*^9, 3.5490435436084642`*^9, 
   3.549047030104329*^9, 3.549086277017604*^9, 3.549096275629384*^9, 
   3.549260308452252*^9, 3.54927292829701*^9, 3.549305075786831*^9, 
   3.549305292725176*^9, 3.549305802409561*^9, 3.549358884112666*^9, 
   3.5494331494714537`*^9, 3.5494623152791986`*^9, 3.549540248507615*^9, 
   3.550921587063024*^9, 3.550990718369266*^9, 3.5509964257170486`*^9, 
   3.550996593779613*^9, 3.555347201449388*^9, 3.557392104144823*^9, 
   3.557403152240292*^9, 3.557466463810831*^9, 3.557579381562624*^9, 
   3.557635959519045*^9, 3.558441141458235*^9, 3.5585498881062307`*^9, 
   3.560007742295198*^9, 3.56004441445198*^9, 3.560185500041607*^9, 
   3.5601862873676434`*^9, 3.560186363023919*^9, 3.560186510402752*^9, 
   3.560222880334468*^9, 3.560256424568529*^9, 3.560268930584626*^9, 
   3.560269932649581*^9, 3.560271417841031*^9, 3.560516255092898*^9, 
   3.560521601644423*^9, 3.560534290274292*^9, 3.560535151612917*^9, 
   3.5608423180566883`*^9, 3.5608444384634113`*^9, 3.561176809771098*^9, 
   3.561210849507202*^9, 3.5612691529175177`*^9, 3.561275601053131*^9, 
   3.5612769428876133`*^9, 3.56130280904994*^9, 3.561305369680522*^9, 
   3.561308539843728*^9, 3.561308788516765*^9, {3.561360313761457*^9, 
   3.561360069229671*^9}, 3.728115023380039*^9, 3.731234877236911*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"1a2e9c01-7d92-436e-8a50-3aa8f4f89883"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5115941733131123`*^9, 3.511594178620833*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"1ea907db-fa7b-4be5-8739-256f5fe06701"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Delta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511594179281681*^9, 3.5115943715869493`*^9, 3.511596793064723*^9, 
   3.511630880860393*^9, 3.511631603030714*^9, 3.511723955686408*^9, 
   3.521276015043612*^9, 3.521276842228907*^9, 3.521277316666164*^9, 
   3.521277501910872*^9, 3.5212789380425177`*^9, 3.521367337212408*^9, 
   3.521370396124259*^9, 3.5214406928888407`*^9, 3.521440928783992*^9, 
   3.5214559143682013`*^9, 3.521461492446927*^9, 3.521507076314604*^9, 
   3.521521002736167*^9, 3.521523021849059*^9, 3.521539070865264*^9, 
   3.521785493167574*^9, 3.521797368007386*^9, 3.521804005607984*^9, 
   3.521883316549214*^9, 3.521942157342215*^9, 3.521971105557938*^9, 
   3.521971484795746*^9, 3.5219715721430492`*^9, 3.521972255763546*^9, 
   3.521973962146695*^9, 3.522029116245966*^9, 3.524393989006393*^9, 
   3.52439632494671*^9, 3.5249778703837442`*^9, 3.5249972243682613`*^9, 
   3.5250687576460238`*^9, 3.525070801925193*^9, 3.5250720778319902`*^9, 
   3.5250732338473053`*^9, 3.525081029130302*^9, 3.525187142849557*^9, 
   3.5252402526038017`*^9, 3.5252439062525473`*^9, 3.5253975363828697`*^9, 
   3.525398679288807*^9, 3.525493467747773*^9, 3.525660871596012*^9, 
   3.525661915260132*^9, 3.525662983515128*^9, 3.525673283740135*^9, 
   3.545738875956999*^9, 3.5459911389906282`*^9, 3.545991481153326*^9, 
   3.5460001331719713`*^9, 3.546021362837679*^9, 3.54605762165591*^9, 
   3.5460645921477737`*^9, 3.5460911338198566`*^9, 3.546325612213573*^9, 
   3.5482473374155684`*^9, 3.548404554895836*^9, 3.548481252661826*^9, 
   3.5485114328602247`*^9, 3.548525811860034*^9, 3.548567877001793*^9, 
   3.548571058858253*^9, 3.5485750126708384`*^9, 3.5485915925552073`*^9, 
   3.5486620992644253`*^9, 3.548700122759384*^9, 3.548756255466305*^9, 
   3.548911247301901*^9, 3.548930612145568*^9, 3.548960799952804*^9, 
   3.549002182424576*^9, 3.549020868437154*^9, 3.549043543652124*^9, 
   3.549047030141567*^9, 3.5490862770844812`*^9, 3.549096275696295*^9, 
   3.549260308508586*^9, 3.54927292834303*^9, 3.549305075838784*^9, 
   3.549305292754074*^9, 3.549305802447941*^9, 3.549358884165443*^9, 
   3.549433149565048*^9, 3.549462315321288*^9, 3.549540248558473*^9, 
   3.550921587129204*^9, 3.550990718440853*^9, 3.550996425792631*^9, 
   3.550996593820279*^9, 3.5553472015131893`*^9, 3.5573921042421494`*^9, 
   3.5574031522929173`*^9, 3.557466463862166*^9, 3.557579381614567*^9, 
   3.557635959578952*^9, 3.558441141521967*^9, 3.558549888157804*^9, 
   3.5600077423670387`*^9, 3.560044414500093*^9, 3.56018550011285*^9, 
   3.560186287435008*^9, 3.560186363088066*^9, 3.5601865105358257`*^9, 
   3.5602228804248133`*^9, 3.5602564246396914`*^9, 3.560268930648836*^9, 
   3.56026993270816*^9, 3.560271417903021*^9, 3.56051625517229*^9, 
   3.560521601685216*^9, 3.560534290322011*^9, 3.560535151665522*^9, 
   3.560842318122952*^9, 3.560844438529797*^9, 3.56117680983971*^9, 
   3.5612108495812607`*^9, 3.561269153033679*^9, 3.561275601156468*^9, 
   3.561276942966069*^9, 3.56130280913281*^9, 3.561305369752633*^9, 
   3.5613085400342283`*^9, 3.561308788606187*^9, {3.56136031383742*^9, 
   3.5613600693585443`*^9}, 3.728115023422518*^9, 3.731234877276146*^9},
 CellLabel->
  "Out[225]=",ExpressionUUID->"d3492e85-6ae4-4a2f-8b3e-f28e30a8bad3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RiemannToWeyl", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5115943774264402`*^9, 3.5115943833874063`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"dfcdc8d8-4926-4400-9b6c-c0e2b799ba18"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
        
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
        
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"R", "[", "\[Del]", "]"}], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"W", "[", "\[Del]", "]"}], 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False]}], ")"}]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Delta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5115943843368797`*^9, 3.511596805587789*^9, 3.511630880889937*^9, 
   3.5116316031227818`*^9, 3.5117239566336937`*^9, 3.5212760158643227`*^9, 
   3.521276842497139*^9, 3.521277316760551*^9, 3.521277501981907*^9, 
   3.5212789381356*^9, 3.5213673373559933`*^9, 3.521370396162278*^9, 
   3.5214406930080853`*^9, 3.521440928807631*^9, 3.521455914434964*^9, 
   3.521461493806696*^9, 3.521507076411374*^9, 3.521521002833143*^9, 
   3.521523021914042*^9, 3.52153907090161*^9, 3.521785493262776*^9, 
   3.5217973680551987`*^9, 3.52180400566722*^9, 3.521883316647315*^9, 
   3.521942157415572*^9, 3.521971105597754*^9, 3.521971484833878*^9, 
   3.5219715721763277`*^9, 3.521972255832053*^9, 3.521973962406062*^9, 
   3.522029116360158*^9, 3.524393989058157*^9, 3.5243963250231*^9, 
   3.524977870425643*^9, 3.524997224436367*^9, 3.525068758942976*^9, 
   3.525070801968045*^9, 3.525072077887529*^9, 3.525073233898038*^9, 
   3.5250810292025642`*^9, 3.5251871428930407`*^9, 3.525240252700465*^9, 
   3.525243906302281*^9, 3.525397536487852*^9, 3.5253986793267527`*^9, 
   3.525493467794221*^9, 3.5256608716613503`*^9, 3.5256619152898207`*^9, 
   3.525662983552528*^9, 3.525673283824266*^9, 3.545738876036409*^9, 
   3.5459911390684433`*^9, 3.5459914821231117`*^9, 3.546000133224153*^9, 
   3.546021362913293*^9, 3.546057621730324*^9, 3.5460645921963253`*^9, 
   3.54609113386826*^9, 3.5463256123342113`*^9, 3.548247337510476*^9, 
   3.548404554967473*^9, 3.548481252706635*^9, 3.548511432925886*^9, 
   3.5485258119042683`*^9, 3.548567877059196*^9, 3.5485710589091053`*^9, 
   3.548575012710071*^9, 3.548591592614244*^9, 3.5486620993336678`*^9, 
   3.548700122801054*^9, 3.548756255526956*^9, 3.548911247350322*^9, 
   3.548930612202808*^9, 3.5489608000029783`*^9, 3.549002182473366*^9, 
   3.549020868497422*^9, 3.549043543694682*^9, 3.549047030193638*^9, 
   3.549086277140381*^9, 3.5490962757622337`*^9, 3.549260308545286*^9, 
   3.549272928386569*^9, 3.549305075892717*^9, 3.5493052927949963`*^9, 
   3.549305802489356*^9, 3.549358884245266*^9, 3.549433149609212*^9, 
   3.549462315371849*^9, 3.549540248611187*^9, 3.55092158717422*^9, 
   3.5509907185107183`*^9, 3.550996425864461*^9, 3.550996593850671*^9, 
   3.555347201561569*^9, 3.557392104321694*^9, 3.55740315233906*^9, 
   3.557466463919797*^9, 3.557579381652712*^9, 3.557635959622005*^9, 
   3.558441141569043*^9, 3.5585498881985397`*^9, 3.5600077424264393`*^9, 
   3.560044414549961*^9, 3.56018550016809*^9, 3.560186287500946*^9, 
   3.560186363136341*^9, 3.56018651058993*^9, 3.560222880496709*^9, 
   3.5602564246984577`*^9, 3.5602689306972933`*^9, 3.560269932750379*^9, 
   3.560271417947941*^9, 3.560516255240594*^9, 3.560521601711759*^9, 
   3.5605342903679934`*^9, 3.560535151718936*^9, 3.560842318180951*^9, 
   3.560844438578857*^9, 3.561176809895274*^9, 3.561210849646884*^9, 
   3.561269153103331*^9, 3.5612756012146893`*^9, 3.561276943010648*^9, 
   3.561302809182973*^9, 3.561305369890849*^9, 3.56130854011755*^9, 
   3.56130878866586*^9, {3.5613603139032993`*^9, 3.5613600694223824`*^9}, 
   3.728115023457283*^9, 3.73123487731297*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"e2f3e9c5-baeb-4664-843b-15d3c5b2bbb8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "RicciCDgToSchouten"}]}]], "Input",
 CellLabel->
  "In[227]:=",ExpressionUUID->"a4b00c70-ad21-4abf-861c-dee9e505d3d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"L", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Gamma]", "\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`LUnphysg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
           Editable->False]}], "+", 
         RowBox[{
          FractionBox["1", "6"], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{"R", "[", "\[Del]", "]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`RicciScalarCDg[],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Beta]", "\[Gamma]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Gamma]],
           Editable->False]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"L", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Alpha]", "\[Beta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`LUnphysg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
           Editable->False]}], "+", 
         RowBox[{
          FractionBox["1", "6"], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{"R", "[", "\[Del]", "]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`RicciScalarCDg[],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Beta]", "\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]],
           Editable->False]}]}], ")"}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"L", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Alpha]", "\[Delta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
           Editable->False]}], "+", 
         RowBox[{
          FractionBox["1", "6"], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{"R", "[", "\[Del]", "]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`RicciScalarCDg[],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Delta]", "\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Alpha]],
           Editable->False]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"L", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Gamma]", "\[Delta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
           Editable->False]}], "+", 
         RowBox[{
          FractionBox["1", "6"], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{"R", "[", "\[Del]", "]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`RicciScalarCDg[],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Delta]", "\[Gamma]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Gamma]],
           Editable->False]}]}], ")"}]}], "+", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"W", "[", "\[Del]", "]"}], 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False]}], ")"}]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Delta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511594434858773*^9, 3.511596808188693*^9, 3.511630880933404*^9, 
   3.5116316031974773`*^9, 3.511723963274684*^9, 3.5212760168013763`*^9, 
   3.521276842697359*^9, 3.521277317329095*^9, 3.521277502016358*^9, 
   3.521278938244092*^9, 3.521367337507025*^9, 3.521370396210412*^9, 
   3.52144069309896*^9, 3.521440928840311*^9, 3.521455914498056*^9, 
   3.5214614950281*^9, 3.521507076522112*^9, 3.521521002972052*^9, 
   3.521523021959401*^9, 3.521539070939871*^9, 3.5217854933751698`*^9, 
   3.521797368105639*^9, 3.521804005707204*^9, 3.52188331669751*^9, 
   3.521942157590632*^9, 3.521971105644843*^9, 3.5219714849219418`*^9, 
   3.521971572336657*^9, 3.5219722558780127`*^9, 3.521973962455779*^9, 
   3.522029116482523*^9, 3.5243939891291428`*^9, 3.524396325120776*^9, 
   3.524977870465437*^9, 3.52499722447928*^9, 3.525068762632985*^9, 
   3.525070802024394*^9, 3.525072077939454*^9, 3.525073233951494*^9, 
   3.5250810292891293`*^9, 3.5251871429476757`*^9, 3.525240252771206*^9, 
   3.525243906361866*^9, 3.525397536534464*^9, 3.525398679371011*^9, 
   3.525493467854642*^9, 3.525660871714003*^9, 3.525661915336808*^9, 
   3.525662983592516*^9, 3.525673283939619*^9, 3.545738876151223*^9, 
   3.545991139165256*^9, 3.545991482250945*^9, 3.546000133317965*^9, 
   3.546021363028117*^9, 3.546057621829878*^9, 3.546064592290721*^9, 
   3.546091133951126*^9, 3.5463256124320583`*^9, 3.548247337610811*^9, 
   3.5484045550490417`*^9, 3.548481252775833*^9, 3.548511433013678*^9, 
   3.548525811951338*^9, 3.5485678772201977`*^9, 3.5485710589508057`*^9, 
   3.548575012759256*^9, 3.5485915926886578`*^9, 3.548662099416449*^9, 
   3.548700122868835*^9, 3.5487562556138573`*^9, 3.548911247414549*^9, 
   3.548930612267981*^9, 3.548960800058383*^9, 3.54900218252894*^9, 
   3.54902086857031*^9, 3.5490435437366323`*^9, 3.549047030238003*^9, 
   3.5490862771971073`*^9, 3.549096275843639*^9, 3.549260308604475*^9, 
   3.549272928468804*^9, 3.549305075954588*^9, 3.549305292839711*^9, 
   3.549305802528344*^9, 3.5493588843285437`*^9, 3.5494331496657476`*^9, 
   3.549462315423777*^9, 3.549540248675675*^9, 3.550921587242444*^9, 
   3.550990718605582*^9, 3.5509964259481163`*^9, 3.5509965938873577`*^9, 
   3.555347201621043*^9, 3.557392104409171*^9, 3.557403152395797*^9, 
   3.55746646397045*^9, 3.5575793816944*^9, 3.55763595967597*^9, 
   3.558441141626856*^9, 3.558549888261832*^9, 3.560007742504982*^9, 
   3.560044414611705*^9, 3.560185500233729*^9, 3.5601862875606747`*^9, 
   3.560186363184558*^9, 3.560186510652275*^9, 3.56022288060863*^9, 
   3.5602564247759953`*^9, 3.560268930746191*^9, 3.5602699328036633`*^9, 
   3.5602714179933853`*^9, 3.56051625532867*^9, 3.560521601767271*^9, 
   3.56053429042275*^9, 3.5605351517706347`*^9, 3.560842318302463*^9, 
   3.560844438640067*^9, 3.561176809968236*^9, 3.5612108497161837`*^9, 
   3.561269153183975*^9, 3.561275601348815*^9, 3.561276943124056*^9, 
   3.561302809245695*^9, 3.561305369949613*^9, 3.56130854021542*^9, 
   3.561308788749688*^9, {3.561360313987604*^9, 3.561360069501135*^9}, 
   3.7281150235071583`*^9, 3.731234877362854*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"5f115d69-05a2-4f5d-92bd-706a60211fe5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5115944380252447`*^9, 3.5115944522366047`*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"dbbbb4ff-b31f-4040-99c8-d11d0ab13e27"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.511594441475267*^9, 3.51159445262236*^9}, 
   3.511596809898065*^9, 3.511630881002119*^9, 3.5116316033066673`*^9, 
   3.51172396428767*^9, 3.521276017810595*^9, 3.521276843079153*^9, 
   3.52127731750268*^9, 3.521277502086586*^9, 3.521278938416744*^9, 
   3.521367337747424*^9, 3.521370396282667*^9, 3.521440693175769*^9, 
   3.5214409289243317`*^9, 3.521455914569607*^9, 3.521461496317004*^9, 
   3.521507076662653*^9, 3.5215210031598043`*^9, 3.521523022028925*^9, 
   3.521539071010778*^9, 3.521785493567561*^9, 3.521797368187367*^9, 
   3.521804005788681*^9, 3.5218833167712317`*^9, 3.5219421577261543`*^9, 
   3.52197110573991*^9, 3.5219714850168543`*^9, 3.521971572385944*^9, 
   3.521972255952138*^9, 3.521973962544664*^9, 3.522029116651381*^9, 
   3.524393989238289*^9, 3.524396325262089*^9, 3.524977870535524*^9, 
   3.5249972245494843`*^9, 3.52506876361172*^9, 3.5250708020987062`*^9, 
   3.5250720780109367`*^9, 3.525073234006892*^9, 3.525081029459753*^9, 
   3.5251871430210953`*^9, 3.525240252857938*^9, 3.5252439064354553`*^9, 
   3.525397536614846*^9, 3.525398679423419*^9, 3.525493467933681*^9, 
   3.5256608717915783`*^9, 3.5256619154052973`*^9, 3.5256629836716337`*^9, 
   3.525673284059175*^9, 3.545738876312179*^9, 3.545991139309478*^9, 
   3.5459914824884157`*^9, 3.5460001334368143`*^9, 3.546021363140044*^9, 
   3.546057621954917*^9, 3.546064592485855*^9, 3.546091134078129*^9, 
   3.546325612576028*^9, 3.548247337699429*^9, 3.548404555159746*^9, 
   3.548481252925064*^9, 3.54851143313131*^9, 3.5485258120274076`*^9, 
   3.548567877311998*^9, 3.548571059018957*^9, 3.5485750128784103`*^9, 
   3.548591592800826*^9, 3.5486620995486603`*^9, 3.548700122961072*^9, 
   3.54875625574222*^9, 3.548911247490911*^9, 3.5489306123471212`*^9, 
   3.548960800141716*^9, 3.5490021826064577`*^9, 3.54902086870752*^9, 
   3.549043543791308*^9, 3.549047030318815*^9, 3.549086277327353*^9, 
   3.549096275963681*^9, 3.5492603086915703`*^9, 3.5492729285915318`*^9, 
   3.5493050760152407`*^9, 3.549305292911401*^9, 3.54930580261102*^9, 
   3.54935888448379*^9, 3.54943314974231*^9, 3.54946231550445*^9, 
   3.5495402487662563`*^9, 3.5509215873501787`*^9, 3.5509907187003193`*^9, 
   3.5509964261098633`*^9, 3.550996594031204*^9, 3.5553472017225647`*^9, 
   3.5573921045406837`*^9, 3.557403152477512*^9, 3.557466464050023*^9, 
   3.557579381771429*^9, 3.557635959750121*^9, 3.558441141712976*^9, 
   3.5585498883403063`*^9, 3.560007742620391*^9, 3.5600444147179613`*^9, 
   3.560185500385598*^9, 3.560186287764914*^9, 3.560186363289095*^9, 
   3.560186510852453*^9, 3.560222880731865*^9, 3.5602564248913927`*^9, 
   3.5602689308489017`*^9, 3.5602699328997583`*^9, 3.5602714180919933`*^9, 
   3.560516255437684*^9, 3.5605216018526506`*^9, 3.560534290495063*^9, 
   3.560535151829308*^9, 3.5608423184134398`*^9, 3.560844438754587*^9, 
   3.561176810079225*^9, 3.5612108498263063`*^9, 3.5612691533072977`*^9, 
   3.561275601463776*^9, 3.561276943230768*^9, 3.561302809397298*^9, 
   3.561305370108923*^9, 3.561308540447936*^9, 3.561308788847225*^9, {
   3.561360314106532*^9, 3.561360069617257*^9}, 3.7281150235825872`*^9, 
   3.731234877435029*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"b5423297-0a06-44d5-ba9a-9c85dd248956"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"First", "@", "%"}], "-", 
   RowBox[{"Last", "@", "%"}]}], "\[Equal]", "0"}]], "Input",
 CellChangeTimes->{{3.511594454620123*^9, 3.511594460108519*^9}},
 CellLabel->
  "In[229]:=",ExpressionUUID->"4117c901-e094-4c9f-88d1-cfc5b9f35ce4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.5115944605069942`*^9, 3.5115968110602503`*^9, 3.511630881025161*^9, 
   3.511631603387341*^9, 3.511723966013578*^9, 3.5212760189942207`*^9, 
   3.521276843191221*^9, 3.521277317577577*^9, 3.521277502143467*^9, 
   3.521278938519175*^9, 3.521367337907153*^9, 3.521370396312993*^9, 
   3.521440693300075*^9, 3.521440929099807*^9, 3.521455914595127*^9, 
   3.521461497576066*^9, 3.5215070767289953`*^9, 3.5215210032679358`*^9, 
   3.521523022057797*^9, 3.521539071051374*^9, 3.5217854936327333`*^9, 
   3.521797368213673*^9, 3.5218040058209763`*^9, 3.5218833168069353`*^9, 
   3.521942157831789*^9, 3.5219711057783213`*^9, 3.521971485066386*^9, 
   3.52197157241109*^9, 3.521972255994916*^9, 3.521973962583403*^9, 
   3.522029116667927*^9, 3.5243939892993793`*^9, 3.524396325314094*^9, 
   3.524977870566163*^9, 3.5249972245625362`*^9, 3.525068765174944*^9, 
   3.525070802140541*^9, 3.525072078045226*^9, 3.525073234044655*^9, 
   3.525081029509931*^9, 3.525187143049492*^9, 3.525240252939279*^9, 
   3.5252439064677057`*^9, 3.525397536666335*^9, 3.525398679452726*^9, 
   3.5254934679617987`*^9, 3.525660871820327*^9, 3.525661915439156*^9, 
   3.525662983701151*^9, 3.525673284105029*^9, 3.54573887636211*^9, 
   3.545991139373108*^9, 3.5459914827699537`*^9, 3.5460001334928226`*^9, 
   3.546021363188964*^9, 3.54605762200143*^9, 3.546064592555735*^9, 
   3.54609113414963*^9, 3.546325612635109*^9, 3.548247337762855*^9, 
   3.548404555201096*^9, 3.548481252964699*^9, 3.548511433167787*^9, 
   3.5485258121494017`*^9, 3.548567877359234*^9, 3.548571059043961*^9, 
   3.54857501291685*^9, 3.548591592844946*^9, 3.548662099590993*^9, 
   3.548700123042145*^9, 3.548756255785634*^9, 3.54891124754458*^9, 
   3.54893061237812*^9, 3.5489608001573668`*^9, 3.54900218264012*^9, 
   3.549020868792136*^9, 3.5490435438181677`*^9, 3.549047030341905*^9, 
   3.549086277366869*^9, 3.549096276002013*^9, 3.54926030875005*^9, 
   3.549272928661681*^9, 3.549305076047264*^9, 3.549305292937048*^9, 
   3.549305802647439*^9, 3.549358884530051*^9, 3.5494331497581263`*^9, 
   3.549462315545683*^9, 3.5495402487973413`*^9, 3.550921587382505*^9, 
   3.550990718789166*^9, 3.550996426157875*^9, 3.5509965941162853`*^9, 
   3.55534720175839*^9, 3.557392104594282*^9, 3.557403152511931*^9, 
   3.5574664641106567`*^9, 3.557579381811556*^9, 3.55763595978575*^9, 
   3.558441141747905*^9, 3.5585498883727083`*^9, 3.5600077426573133`*^9, 
   3.560044414751936*^9, 3.5601855004308987`*^9, 3.560186287800664*^9, 
   3.560186363325329*^9, 3.560186510992384*^9, 3.560222880774835*^9, 
   3.56025642492806*^9, 3.560268930884737*^9, 3.560269932929791*^9, 
   3.560271418124201*^9, 3.560516255505548*^9, 3.5605216018969097`*^9, 
   3.560534290519744*^9, 3.560535151859346*^9, 3.560842318444358*^9, 
   3.5608444388006563`*^9, 3.561176810125813*^9, 3.561210849904418*^9, 
   3.561269153335059*^9, 3.5612756014991503`*^9, 3.561276943264002*^9, 
   3.561302809495708*^9, 3.5613053701487494`*^9, 3.561308540501349*^9, 
   3.561308788964875*^9, {3.56136031414114*^9, 3.561360069652021*^9}, 
   3.7281150236360493`*^9, 3.7312348774592323`*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"d99f55a1-e567-464c-be75-7e67b9853045"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511594481623391*^9, 3.5115944848837357`*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"39756eea-6804-48d3-8889-8fd96951bf86"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"W", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCDg[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.5115944855778637`*^9, 3.511596815671994*^9, 3.51163088107017*^9, 
   3.5116316034733353`*^9, 3.511723967598014*^9, 3.521276021081851*^9, 
   3.521276843402631*^9, 3.5212773176661053`*^9, 3.521277502219487*^9, 
   3.521278938608824*^9, 3.5213673380489388`*^9, 3.5213703963673477`*^9, 
   3.521440693665491*^9, 3.5214409291875267`*^9, 3.521455914629788*^9, 
   3.521461500608077*^9, 3.521507076852747*^9, 3.5215210033548326`*^9, 
   3.521523022107342*^9, 3.521539071083809*^9, 3.521785493766844*^9, 
   3.5217973682458057`*^9, 3.5218040058538723`*^9, 3.521883316881534*^9, 
   3.5219421579176073`*^9, 3.5219711058233137`*^9, 3.521971485110508*^9, 
   3.5219715724596033`*^9, 3.52197225607718*^9, 3.521973962617065*^9, 
   3.522029116695335*^9, 3.524393989359809*^9, 3.524396325361599*^9, 
   3.524977870602976*^9, 3.524997224584383*^9, 3.5250687681710987`*^9, 
   3.525070802189969*^9, 3.525072078091284*^9, 3.525073234086554*^9, 
   3.525081029572274*^9, 3.525187143086443*^9, 3.5252402529859343`*^9, 
   3.525243906511794*^9, 3.525397536695376*^9, 3.5253986794911947`*^9, 
   3.525493468006896*^9, 3.525660871859119*^9, 3.5256619154774*^9, 
   3.525662983739584*^9, 3.52567328416501*^9, 3.5457388764276447`*^9, 
   3.5459911394464073`*^9, 3.5459914828704243`*^9, 3.54600013354642*^9, 
   3.546021363267394*^9, 3.546057622072493*^9, 3.546064592611512*^9, 
   3.546091134204843*^9, 3.546325612675871*^9, 3.548247337793522*^9, 
   3.54840455524312*^9, 3.54848125301926*^9, 3.5485114332202053`*^9, 
   3.5485258121808434`*^9, 3.548567877416417*^9, 3.548571059082493*^9, 
   3.548575012973641*^9, 3.5485915928870687`*^9, 3.5486620996483*^9, 
   3.548700123096755*^9, 3.548756255835375*^9, 3.5489112475754232`*^9, 
   3.5489306124232607`*^9, 3.548960800191079*^9, 3.549002182673913*^9, 
   3.549020868867977*^9, 3.5490435438583937`*^9, 3.549047030379726*^9, 
   3.549086277431122*^9, 3.549096276046434*^9, 3.549260308827673*^9, 
   3.5492729287114887`*^9, 3.549305076084756*^9, 3.549305292972528*^9, 
   3.549305802681447*^9, 3.549358884593009*^9, 3.549433149787923*^9, 
   3.5494623155864887`*^9, 3.549540248935101*^9, 3.550921587413883*^9, 
   3.550990718842977*^9, 3.550996426216894*^9, 3.550996594197165*^9, 
   3.555347201806058*^9, 3.5573921046577177`*^9, 3.557403152558195*^9, 
   3.557466464175975*^9, 3.557579381845089*^9, 3.5576359598332157`*^9, 
   3.558441141795314*^9, 3.558549888411731*^9, 3.560007742705555*^9, 
   3.560044414800447*^9, 3.560185500483734*^9, 3.560186287852962*^9, 
   3.560186363372123*^9, 3.560186511060073*^9, 3.560222880831711*^9, 
   3.5602564249762497`*^9, 3.56026893093181*^9, 3.56026993297093*^9, 
   3.560271418167797*^9, 3.560516255546241*^9, 3.56052160194946*^9, 
   3.560534290578171*^9, 3.560535151899493*^9, 3.560842318487494*^9, 
   3.56084443892346*^9, 3.561176810169788*^9, 3.561210849955202*^9, 
   3.561269153378368*^9, 3.5612756015586452`*^9, 3.561276943365797*^9, 
   3.561302809536426*^9, 3.561305370200576*^9, 3.561308540631714*^9, 
   3.5613087890302057`*^9, {3.5613603141919127`*^9, 3.561360069702045*^9}, 
   3.728115023856907*^9, 3.731234877497698*^9},
 CellLabel->
  "Out[230]=",ExpressionUUID->"eac9abba-0b64-4d22-bba8-50cffb2b601c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int1", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511594488469184*^9, 3.511594491364438*^9}},
 CellLabel->
  "In[231]:=",ExpressionUUID->"a44ec5b1-6eac-4dcd-bd58-35058b2852c7"],

Cell["\<\
This is best expressed in terms of the \"rescaled Weyl tensor\" \
\>", "Text",
 CellChangeTimes->{{3.511597344331612*^9, 3.511597365498905*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"\[ScriptD]", "[", 
    RowBox[{
     RowBox[{"-", "\[Delta]"}], ",", 
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], ",", "M4", ",", 
   RowBox[{"RiemannSymmetric", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Delta]"}], ",", 
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511597609709193*^9, 3.511597641389022*^9}, {
  3.511597676687605*^9, 3.511597737818242*^9}, {3.5250687727453117`*^9, 
  3.525068789470621*^9}},
 CellLabel->
  "In[232]:=",ExpressionUUID->"7ffe0955-7ac2-48c8-8abd-04e19668310b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[ScriptD]", "[", 
    RowBox[{
     RowBox[{"-", "\[Delta]"}], ",", 
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.511597751945249*^9, 3.511630881096878*^9, 3.511631603555441*^9, 
   3.511723971811337*^9, 3.521276024401915*^9, 3.521276843594945*^9, 
   3.5212773176851387`*^9, 3.521277502282461*^9, 3.521278938685413*^9, 
   3.52136733818121*^9, 3.521370396401206*^9, 3.521440693754915*^9, 
   3.521440929252163*^9, 3.5214559146594677`*^9, 3.521461504295546*^9, 
   3.521507076976815*^9, 3.521521003494369*^9, 3.5215230221320763`*^9, 
   3.521539071114097*^9, 3.521785493836522*^9, 3.521797368281348*^9, 
   3.5218040059173803`*^9, 3.521883316915682*^9, 3.521942158044058*^9, 
   3.5219711058589*^9, 3.5219714851518707`*^9, 3.521971572510065*^9, 
   3.521972256106853*^9, 3.521973962656987*^9, 3.522029116806652*^9, 
   3.524393989467708*^9, 3.524396325464324*^9, 3.5249778706371*^9, 
   3.524997224627483*^9, 3.5250687904761133`*^9, 3.525070802225172*^9, 
   3.525072078130933*^9, 3.5250732341209707`*^9, 3.525081029632284*^9, 
   3.525187143152679*^9, 3.525240253006531*^9, 3.52524390655112*^9, 
   3.525397536744411*^9, 3.525398679529387*^9, 3.52549346804051*^9, 
   3.525660871891665*^9, 3.525661915590786*^9, 3.525662983828355*^9, 
   3.525673284221567*^9, 3.5457388764975452`*^9, 3.545991139476295*^9, 
   3.5459914829570303`*^9, 3.54600013361226*^9, 3.5460213633408737`*^9, 
   3.546057622141609*^9, 3.546064592685831*^9, 3.546091134310417*^9, 
   3.546325612715639*^9, 3.54824733781898*^9, 3.5484045553361807`*^9, 
   3.548481253089196*^9, 3.548511433270855*^9, 3.5485258122158127`*^9, 
   3.5485678774352293`*^9, 3.5485710591803083`*^9, 3.548575013038471*^9, 
   3.548591592986754*^9, 3.548662099710609*^9, 3.548700123132532*^9, 
   3.548756255881762*^9, 3.548911247612254*^9, 3.5489306124670753`*^9, 
   3.548960800228002*^9, 3.549002182716179*^9, 3.549020869041642*^9, 
   3.54904354389563*^9, 3.54904703052982*^9, 3.549086277481204*^9, 
   3.549096276100733*^9, 3.54926030893293*^9, 3.549272928770794*^9, 
   3.549305076119843*^9, 3.549305293006188*^9, 3.549305802744801*^9, 
   3.549358884616324*^9, 3.549433149836935*^9, 3.54946231564327*^9, 
   3.549540248960362*^9, 3.5509215874586143`*^9, 3.550990718894005*^9, 
   3.550996426273984*^9, 3.550996594285747*^9, 3.555347201901999*^9, 
   3.557392104722373*^9, 3.557403152609852*^9, 3.557466464288657*^9, 
   3.5575793819134693`*^9, 3.5576359598765173`*^9, 3.558441141835505*^9, 
   3.558549888446327*^9, 3.560007742746414*^9, 3.560044414846222*^9, 
   3.5601855005415154`*^9, 3.560186287947116*^9, 3.560186363414226*^9, 
   3.560186511136237*^9, 3.560222880884471*^9, 3.5602564250178833`*^9, 
   3.5602689309724417`*^9, 3.560269933005898*^9, 3.5602714182050323`*^9, 
   3.560516255593676*^9, 3.560521602000791*^9, 3.560534290606439*^9, 
   3.560535151934833*^9, 3.5608423185213957`*^9, 3.5608444389969997`*^9, 
   3.561176810206771*^9, 3.561210850000826*^9, 3.5612691534378023`*^9, 
   3.561275601606907*^9, 3.561276943429818*^9, 3.5613028095732203`*^9, 
   3.561305370243743*^9, 3.561308540731452*^9, 3.561308789077634*^9, {
   3.561360314248371*^9, 3.56136006975637*^9}, 3.72811502389154*^9, 
   3.731234877534176*^9},
 CellLabel->
  "During evaluation of \
In[232]:=",ExpressionUUID->"400b1e79-5a25-41e6-83b3-2a3c2bc3716e"]
}, Open  ]],

Cell["By definition ", "Text",
 CellChangeTimes->{{3.5115977543698072`*^9, 3.511597756065299*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RescaledWeylUnphys", "=", 
  RowBox[{
   RowBox[{"\[ScriptD]", "[", 
    RowBox[{
     RowBox[{"-", "\[Delta]"}], ",", 
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"WeylCDg", "[", 
     RowBox[{
      RowBox[{"-", "\[Delta]"}], ",", 
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}]}], "]"}], "/", 
    RowBox[{"\[CapitalTheta]", "[", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.511597782655905*^9, 3.5115978325779877`*^9}, {
  3.5250687937643414`*^9, 3.525068808139893*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"a88df8b5-326a-4d0e-86ee-8095bec8f31e"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[ScriptD]", 
       StyleBox[GridBox[{
          {" ", " ", " ", " "},
          {"\[Delta]", "\[Alpha]", "\[Beta]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  FractionBox[
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", " "},
           {"\[Delta]", "\[Alpha]", "\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCDg[-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
    Editable->False], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{{3.5115978183537292`*^9, 3.5115978332527723`*^9}, 
   3.511630881115691*^9, 3.511631603595593*^9, 3.511723973283937*^9, 
   3.5212760261078987`*^9, 3.5212768436084547`*^9, 3.5212773176963787`*^9, 
   3.521277502342531*^9, 3.521278938766226*^9, 3.521367338190548*^9, 
   3.521370396424741*^9, 3.521440693763968*^9, 3.5214409293279247`*^9, 
   3.5214559146840487`*^9, 3.521461506470345*^9, 3.521507077084654*^9, 
   3.521521003553317*^9, 3.521523022168398*^9, 3.521539071216424*^9, 
   3.5217854939185877`*^9, 3.521797368305517*^9, 3.521804005943574*^9, 
   3.5218833169476767`*^9, 3.521942158141745*^9, 3.521971105884658*^9, 
   3.521971485228454*^9, 3.521971572530921*^9, 3.5219722561322107`*^9, 
   3.521973962691451*^9, 3.522029116915172*^9, 3.5243939895141172`*^9, 
   3.5243963254749002`*^9, 3.524977870667913*^9, 3.524997224637473*^9, 
   3.525068809050211*^9, 3.525070802257392*^9, 3.5250720781634808`*^9, 
   3.525073234129799*^9, 3.525081029685501*^9, 3.525187143186677*^9, 
   3.525240253015656*^9, 3.525243906582733*^9, 3.525397536773142*^9, 
   3.5253986795594463`*^9, 3.525493468072928*^9, 3.525660871934482*^9, 
   3.52566191561579*^9, 3.525662983900023*^9, 3.52567328426116*^9, 
   3.545738876557391*^9, 3.545991139490309*^9, 3.545991483032587*^9, 
   3.546000133632489*^9, 3.546021363388919*^9, 3.54605762215961*^9, 
   3.546064592703405*^9, 3.546091134382595*^9, 3.5463256127849407`*^9, 
   3.548247337881508*^9, 3.548404555369115*^9, 3.5484812531363983`*^9, 
   3.548511433309623*^9, 3.5485258122275257`*^9, 3.5485678774447002`*^9, 
   3.548571059205864*^9, 3.548575013081339*^9, 3.5485915930298634`*^9, 
   3.548662099779055*^9, 3.5487001231619596`*^9, 3.548756255918223*^9, 
   3.548911247639596*^9, 3.548930612474753*^9, 3.548960800243567*^9, 
   3.549002182752077*^9, 3.5490208690810423`*^9, 3.549043543923691*^9, 
   3.549047030557535*^9, 3.549086277516871*^9, 3.549096276143401*^9, 
   3.549260308972273*^9, 3.549272928808633*^9, 3.549305076147599*^9, 
   3.549305293017556*^9, 3.549305802772813*^9, 3.549358884634445*^9, 
   3.549433149862554*^9, 3.549462315674238*^9, 3.549540248971734*^9, 
   3.550921587494583*^9, 3.550990718928158*^9, 3.5509964263377733`*^9, 
   3.550996594425967*^9, 3.5553472019477158`*^9, 3.55739210474384*^9, 
   3.5574031526403103`*^9, 3.557466464318859*^9, 3.557579381940214*^9, 
   3.557635959910989*^9, 3.558441141867714*^9, 3.558549888472624*^9, 
   3.5600077427806063`*^9, 3.560044414879489*^9, 3.560185500578349*^9, 
   3.56018628797902*^9, 3.560186363445949*^9, 3.560186511171542*^9, 
   3.5602228809280357`*^9, 3.560256425051504*^9, 3.560268931004837*^9, 
   3.560269933032775*^9, 3.560271418234421*^9, 3.560516255638183*^9, 
   3.5605216020210667`*^9, 3.560534290628374*^9, 3.560535151945166*^9, 
   3.560842318547537*^9, 3.560844439084692*^9, 3.561176810235731*^9, 
   3.561210850036269*^9, 3.56126915348413*^9, 3.5612756016432*^9, 
   3.5612769434642763`*^9, 3.561302809596675*^9, 3.561305370258576*^9, 
   3.561308540783619*^9, 3.561308789119484*^9, {3.561360314283266*^9, 
   3.561360069789763*^9}, 3.728115024045792*^9, 3.7312348775659122`*^9},
 CellLabel->
  "Out[233]=",ExpressionUUID->"99176c93-70e8-4177-be95-e48c56e4956f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"RescaledWeylUnphys", ",", 
    RowBox[{"WeylCDg", "[", 
     RowBox[{
      RowBox[{"-", "\[Delta]"}], ",", 
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}]}], "]"}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.511597898737864*^9, 3.511597912949624*^9}, {
  3.5250688138482533`*^9, 3.5250688193982286`*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"f3912017-ae66-4345-9f48-48743abf52aa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"W", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", " "},
           {"\[Delta]", "\[Alpha]", "\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCDg[-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
    Editable->False], "\[Rule]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Delta]", "\[Alpha]", "\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5115978765926437`*^9, 3.511597905395439*^9}, 
   3.5116308811461487`*^9, 3.5116316036367903`*^9, 3.5117239738933697`*^9, 
   3.521276027216711*^9, 3.521276843622528*^9, 3.521277317772798*^9, 
   3.521277502405076*^9, 3.521278938843758*^9, 3.521367338254559*^9, 
   3.521370396446907*^9, 3.521440693781492*^9, 3.5214409299557323`*^9, 
   3.521455914706214*^9, 3.521461507696208*^9, 3.5215070771498833`*^9, 
   3.5215210036642323`*^9, 3.521523022206489*^9, 3.521539071267539*^9, 
   3.5217854939934483`*^9, 3.521797368330839*^9, 3.521804005968935*^9, 
   3.521883316969235*^9, 3.521942158267302*^9, 3.5219711059463863`*^9, 
   3.521971485260487*^9, 3.5219715725506763`*^9, 3.5219722561375637`*^9, 
   3.5219739626966057`*^9, 3.522029116940881*^9, 3.52439398955977*^9, 
   3.524396325484643*^9, 3.5249778707752047`*^9, 3.524997224647028*^9, 
   3.5250688200091143`*^9, 3.525070802262466*^9, 3.52507207816899*^9, 
   3.5250732341605997`*^9, 3.525081029732689*^9, 3.5251871431943083`*^9, 
   3.525240253024066*^9, 3.525243906614101*^9, 3.5253975368038054`*^9, 
   3.525398679585425*^9, 3.525493468102909*^9, 3.525660871964178*^9, 
   3.525661915642559*^9, 3.525662983935439*^9, 3.525673284300096*^9, 
   3.545738876601672*^9, 3.545991139542014*^9, 3.545991483048514*^9, 
   3.546000133651619*^9, 3.5460213634024363`*^9, 3.546057622179213*^9, 
   3.546064592719956*^9, 3.546091134400756*^9, 3.546325612811257*^9, 
   3.54824733789706*^9, 3.5484045553812017`*^9, 3.5484812531693707`*^9, 
   3.5485114333241034`*^9, 3.548525812251981*^9, 3.548567877453277*^9, 
   3.548571059213078*^9, 3.5485750131292753`*^9, 3.5485915930589046`*^9, 
   3.548662099933345*^9, 3.548700123189683*^9, 3.548756255968686*^9, 
   3.548911247646524*^9, 3.54893061248208*^9, 3.5489608002557783`*^9, 
   3.549002182769209*^9, 3.549020869108026*^9, 3.549043543929716*^9, 
   3.54904703056733*^9, 3.54908627755513*^9, 3.549096276155703*^9, 
   3.5492603090411177`*^9, 3.5492729288207207`*^9, 3.5493050761553307`*^9, 
   3.549305293026322*^9, 3.5493058028119593`*^9, 3.549358884671543*^9, 
   3.549433149893606*^9, 3.549462315713889*^9, 3.549540249002145*^9, 
   3.5509215875062838`*^9, 3.550990718962151*^9, 3.550996426398744*^9, 
   3.550996594482403*^9, 3.55534720199363*^9, 3.5573921047635727`*^9, 
   3.557403152670225*^9, 3.557466464327199*^9, 3.5575793819662943`*^9, 
   3.557635959917716*^9, 3.558441141879548*^9, 3.5585498884803*^9, 
   3.560007742794959*^9, 3.5600444148912287`*^9, 3.560185500616089*^9, 
   3.560186287991012*^9, 3.5601863634595623`*^9, 3.560186511183564*^9, 
   3.560222880942161*^9, 3.5602564250654497`*^9, 3.5602689310382433`*^9, 
   3.560269933045002*^9, 3.5602714182641487`*^9, 3.560516255650877*^9, 
   3.560521602037109*^9, 3.560534290639147*^9, 3.560535151952137*^9, 
   3.560842318565113*^9, 3.560844439111781*^9, 3.56117681025392*^9, 
   3.561210850070793*^9, 3.561269153517249*^9, 3.561275601656686*^9, 
   3.561276943478168*^9, 3.561302809636979*^9, 3.561305370295244*^9, 
   3.561308540802908*^9, 3.5613087891359797`*^9, {3.561360314329131*^9, 
   3.5613600698221807`*^9}, 3.728115024074255*^9, 3.731234877593337*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"37e53f2d-3f16-4054-a6e8-f03ffb5bace9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.5115979144145117`*^9, 3.511597919340645*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"f84e1667-acb4-4e1f-b487-dbb6bda00a37"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"W", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", " "},
          {"\[Delta]", "\[Alpha]", "\[Beta]", "\[Gamma]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCDg[-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {" ", " ", " ", " "},
           {"\[Delta]", "\[Alpha]", "\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511597919921481*^9, 3.511630881165825*^9, 3.511631603706134*^9, 
   3.5117239744274*^9, 3.521276028389696*^9, 3.5212768436354113`*^9, 
   3.52127731779847*^9, 3.521277502466531*^9, 3.521278939110765*^9, 
   3.52136733826657*^9, 3.521370396473423*^9, 3.521440693847077*^9, 
   3.5214409301848392`*^9, 3.52145591476796*^9, 3.5214615087558126`*^9, 
   3.521507077158136*^9, 3.521521003725719*^9, 3.521523022228847*^9, 
   3.521539071288464*^9, 3.521785494053254*^9, 3.521797368354652*^9, 
   3.5218040059941053`*^9, 3.5218833169898643`*^9, 3.5219421583998213`*^9, 
   3.5219711059757023`*^9, 3.5219714853702908`*^9, 3.5219715725699253`*^9, 
   3.521972256142374*^9, 3.521973962701741*^9, 3.522029116951303*^9, 
   3.5243939895675573`*^9, 3.5243963254931717`*^9, 3.524977870782259*^9, 
   3.524997224655444*^9, 3.525068821287224*^9, 3.5250708022668533`*^9, 
   3.5250720781741123`*^9, 3.5250732341653748`*^9, 3.525081029740163*^9, 
   3.5251871431995993`*^9, 3.525240253084594*^9, 3.525243906646377*^9, 
   3.525397536829402*^9, 3.5253986796142073`*^9, 3.5254934681337767`*^9, 
   3.5256608719943523`*^9, 3.52566191566892*^9, 3.525662984002357*^9, 
   3.525673284308476*^9, 3.5457388766139297`*^9, 3.545991139555867*^9, 
   3.545991483060471*^9, 3.546000133668933*^9, 3.546021363447269*^9, 
   3.546057622223258*^9, 3.5460645927721987`*^9, 3.546091134414536*^9, 
   3.546325612833024*^9, 3.5482473379109983`*^9, 3.54840455539295*^9, 
   3.548481253197695*^9, 3.548511433336687*^9, 3.5485258122752028`*^9, 
   3.548567877490676*^9, 3.5485710592192183`*^9, 3.54857501326821*^9, 
   3.548591593109538*^9, 3.548662099987287*^9, 3.548700123216579*^9, 
   3.54875625601145*^9, 3.548911247653658*^9, 3.5489306125104923`*^9, 
   3.5489608002848587`*^9, 3.549002182781461*^9, 3.549020869132864*^9, 
   3.549043543935433*^9, 3.549047030575989*^9, 3.549086277649064*^9, 
   3.549096276167623*^9, 3.549260309085535*^9, 3.549272928832416*^9, 
   3.549305076162505*^9, 3.5493052930496264`*^9, 3.549305802830717*^9, 
   3.549358884689094*^9, 3.5494331499273863`*^9, 3.5494623157355413`*^9, 
   3.549540249036569*^9, 3.5509215875203342`*^9, 3.550990718996036*^9, 
   3.5509964264612007`*^9, 3.550996594500196*^9, 3.5553472020055933`*^9, 
   3.557392104813951*^9, 3.557403152677709*^9, 3.55746646433427*^9, 
   3.557579381972506*^9, 3.55763595992379*^9, 3.558441141893998*^9, 
   3.558549888487454*^9, 3.560007742808323*^9, 3.5600444149026546`*^9, 
   3.560185500641798*^9, 3.560186288022798*^9, 3.560186363471303*^9, 
   3.5601865111952477`*^9, 3.5602228809558573`*^9, 3.560256425078636*^9, 
   3.560268931069996*^9, 3.560269933056937*^9, 3.5602714182929983`*^9, 
   3.560516255663473*^9, 3.560521602071666*^9, 3.560534290646317*^9, 
   3.560535151980423*^9, 3.560842318579006*^9, 3.560844439277268*^9, 
   3.561176810268508*^9, 3.561210850104974*^9, 3.5612691535604277`*^9, 
   3.561275601669114*^9, 3.561276943493791*^9, 3.56130280965591*^9, 
   3.561305370308773*^9, 3.561308540816078*^9, 3.561308789150529*^9, {
   3.561360314342291*^9, 3.561360069854385*^9}, 3.728115024105047*^9, 
   3.731234877617448*^9},
 CellLabel->
  "Out[235]=",ExpressionUUID->"5d51a6bc-5874-427b-a1f9-3b01f0e121ca"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"WeylToRescaledWeylUnphys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511632246899225*^9, 3.511632257198635*^9}},
 CellLabel->
  "In[236]:=",ExpressionUUID->"25f5d9c4-8233-4f34-baed-c05fb39c10d1"],

Cell[TextData[{
 "Also ",
 Cell[BoxData[GridBox[{
    {"\[ScriptD]", 
     StyleBox[GridBox[{
        {" ", " ", " ", " "},
        {"d", "a", "b", "c"}
       },
       GridBoxSpacings->{"Columns" -> {
           Offset[0.], {
            Offset[0.034999999999999996`]}, 
           Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.]}}, "RowsIndexed" -> {}}],
      FontSize->9]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.034999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]],
  CellChangeTimes->{3.511597919921481*^9, 3.511630881165825*^9, 
   3.511631603706134*^9, 3.5117239744274*^9, 3.521276028389696*^9, 
   3.5212768436354113`*^9, 3.52127731779847*^9, 3.521277502466531*^9, 
   3.521278939110765*^9, 3.52136733826657*^9, 3.521370396473423*^9}],
 " is traceless"
}], "Text",
 CellChangeTimes->{{3.521372391716404*^9, 3.5213724038254623`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AutomaticRules", "[", 
  RowBox[{"\[ScriptD]", ",", 
   RowBox[{"ApplyRule", "[", 
    RowBox[{
     RowBox[{"\[ScriptD]", "[", 
      RowBox[{"\[Alpha]", ",", 
       RowBox[{"-", "\[Beta]"}], ",", 
       RowBox[{"-", "\[Alpha]"}], ",", 
       RowBox[{"-", "\[Gamma]"}]}], "]"}], "\[Equal]", "0"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5213724126191673`*^9, 3.521372444589096*^9}, {
   3.521372486471056*^9, 3.521372498044716*^9}, 3.521372554203719*^9, {
   3.525068825592784*^9, 3.525068830937799*^9}},
 CellLabel->
  "In[237]:=",ExpressionUUID->"dbc904cb-5d05-4f09-a7a6-0fed4c1cb096"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"   Rules \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", 
     RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}]}], "}"}], 
   "\[InvisibleSpace]", "\<\" have been declared as DownValues for \"\>", 
   "\[InvisibleSpace]", "\[ScriptD]", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm["   Rules ", 
   Shallow[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14}], 
   " have been declared as DownValues for ", $CellContext`\[ScriptD], "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.521372555557674*^9, 3.521440693887764*^9, 3.521440930265304*^9, 
   3.521455914833956*^9, 3.5214615121600857`*^9, 3.521507077229055*^9, 
   3.521521003928857*^9, 3.521523022271044*^9, 3.521539071322748*^9, 
   3.521785494180152*^9, 3.521797368408889*^9, 3.521804006023541*^9, 
   3.5218833170155287`*^9, 3.521942158550578*^9, 3.521971106007937*^9, 
   3.521971485428303*^9, 3.521971572594289*^9, 3.521972256192878*^9, 
   3.521973962749552*^9, 3.522029117035696*^9, 3.5243939896004*^9, 
   3.5243963255470448`*^9, 3.524977870810514*^9, 3.524997224708544*^9, 
   3.525068834984292*^9, 3.52507080231231*^9, 3.525072078217915*^9, 
   3.52507323419716*^9, 3.525081029813312*^9, 3.525187143227436*^9, 
   3.525240253169236*^9, 3.5252439066802588`*^9, 3.525397536857724*^9, 
   3.5253986796465893`*^9, 3.525493468166141*^9, 3.525660872025823*^9, 
   3.52566191569589*^9, 3.5256629840724792`*^9, 3.525673284353162*^9, 
   3.545738876645653*^9, 3.545991139634482*^9, 3.5459914831478767`*^9, 
   3.546000133746834*^9, 3.546021363506521*^9, 3.546057622271799*^9, 
   3.546064592853917*^9, 3.5460911345139008`*^9, 3.546325612884322*^9, 
   3.548247337995892*^9, 3.5484045554582443`*^9, 3.548481253312889*^9, 
   3.548511433383542*^9, 3.548525812315999*^9, 3.5485678775381527`*^9, 
   3.5485710592623663`*^9, 3.548575013301022*^9, 3.548591593169463*^9, 
   3.548662100057468*^9, 3.54870012326588*^9, 3.54875625607307*^9, 
   3.548911247692671*^9, 3.5489306125452547`*^9, 3.548960800323538*^9, 
   3.549002182828247*^9, 3.549020869202662*^9, 3.5490435439716473`*^9, 
   3.549047030613612*^9, 3.5490862777667103`*^9, 3.549096276221487*^9, 
   3.5492603091473083`*^9, 3.549272928885223*^9, 3.549305076199863*^9, 
   3.549305293084051*^9, 3.549305802883713*^9, 3.5493588847392817`*^9, 
   3.5494331499844723`*^9, 3.549462315790558*^9, 3.549540249121512*^9, 
   3.5509215875691223`*^9, 3.550990719037882*^9, 3.5509964265182*^9, 
   3.550996594557568*^9, 3.5553472020486794`*^9, 3.5573921048816433`*^9, 
   3.557403152708906*^9, 3.557466464364647*^9, 3.557579381998233*^9, 
   3.557635959971126*^9, 3.558441141946066*^9, 3.558549888526785*^9, 
   3.560007742860738*^9, 3.560044414956296*^9, 3.560185500720396*^9, 
   3.5601862880806627`*^9, 3.560186363523329*^9, 3.560186511250628*^9, 
   3.5602228810171413`*^9, 3.56025642513059*^9, 3.560268931113449*^9, 
   3.5602699331032248`*^9, 3.560271418334387*^9, 3.560516255736422*^9, 
   3.560521602103683*^9, 3.5605342906916037`*^9, 3.560535152013915*^9, 
   3.560842318625353*^9, 3.5608444393625097`*^9, 3.561176810315728*^9, 
   3.561210850158094*^9, 3.561269153621889*^9, 3.561275601724762*^9, 
   3.56127694357935*^9, 3.561302809727681*^9, 3.561305370368237*^9, 
   3.561308540876988*^9, 3.561308789215394*^9, {3.561360314385324*^9, 
   3.561360069908058*^9}, 3.728115024149939*^9, 3.731234877666604*^9},
 CellLabel->
  "During evaluation of \
In[237]:=",ExpressionUUID->"e5b4458c-482b-4a41-9ced-ed25641441dd"]
}, Open  ]],

Cell["So the integrability condition takes the following form", "Text",
 CellChangeTimes->{{3.511723979582118*^9, 3.511723990471525*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Int1", "/.", 
  RowBox[{"ApplyRule", "@", "WeylToRescaledWeylUnphys"}]}]], "Input",
 CellChangeTimes->{{3.511597850541205*^9, 3.511597866047719*^9}, {
  3.511597924327154*^9, 3.511597928060886*^9}, {3.521440866499034*^9, 
  3.521440866854473*^9}},
 CellLabel->
  "In[238]:=",ExpressionUUID->"3c76da63-bb72-4b51-a5c5-9f50322e538c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.511597866912209*^9, 3.5115979287813396`*^9, 3.511630881184951*^9, 
   3.5116316037457047`*^9, 3.511723993473509*^9, 3.5212760336211452`*^9, 
   3.521276843738324*^9, 3.52127731787893*^9, 3.521277502591288*^9, 
   3.521278939297855*^9, 3.521367338335828*^9, 3.521370396566229*^9, 
   3.521440694072379*^9, {3.5214408675411673`*^9, 3.52144087328094*^9}, 
   3.521440930344005*^9, 3.521455914866474*^9, 3.521461514043556*^9, 
   3.5215070773192043`*^9, 3.521521004030243*^9, 3.521523022306532*^9, 
   3.521539071356224*^9, 3.521785494258234*^9, 3.5217973684406767`*^9, 
   3.521804006061504*^9, 3.521883317050355*^9, 3.5219421585761414`*^9, 
   3.521971106042593*^9, 3.5219714854683743`*^9, 3.521971572636499*^9, 
   3.521972256246212*^9, 3.5219739627917356`*^9, 3.522029117136115*^9, 
   3.524393989618206*^9, 3.524396325605791*^9, 3.524977870847391*^9, 
   3.52499722472917*^9, 3.525068836770824*^9, 3.5250708023585653`*^9, 
   3.52507207826184*^9, 3.52507323422822*^9, 3.525081029871772*^9, 
   3.525187143259115*^9, 3.52524025321172*^9, 3.5252439067232323`*^9, 
   3.525397536890791*^9, 3.5253986796884327`*^9, 3.5254934682154827`*^9, 
   3.5256608720692596`*^9, 3.525661915738206*^9, 3.5256629841097517`*^9, 
   3.525673284411501*^9, 3.545738876705092*^9, 3.545991139737316*^9, 
   3.545991483280731*^9, 3.546000133814356*^9, 3.546021363581367*^9, 
   3.5460576223265057`*^9, 3.546064592916584*^9, 3.546091134669552*^9, 
   3.54632561296039*^9, 3.548247338028236*^9, 3.54840455551338*^9, 
   3.5484812533791437`*^9, 3.548511433436678*^9, 3.548525812365478*^9, 
   3.548567877592209*^9, 3.548571059293686*^9, 3.5485750133355513`*^9, 
   3.548591593194126*^9, 3.5486621001506977`*^9, 3.548700123309433*^9, 
   3.54875625609804*^9, 3.548911247737987*^9, 3.548930612589951*^9, 
   3.5489608003604403`*^9, 3.549002182878007*^9, 3.549020869265233*^9, 
   3.5490435440152407`*^9, 3.5490470306507883`*^9, 3.549086277814218*^9, 
   3.549096276277915*^9, 3.549260309194714*^9, 3.549272928944387*^9, 
   3.549305076233899*^9, 3.549305293133696*^9, 3.549305802919751*^9, 
   3.5493588847878723`*^9, 3.549433150031128*^9, 3.5494623158128357`*^9, 
   3.549540249194509*^9, 3.550921587618412*^9, 3.550990719086397*^9, 
   3.550996426544034*^9, 3.55099659461018*^9, 3.5553472020916033`*^9, 
   3.557392104943256*^9, 3.5574031527386103`*^9, 3.557466464394199*^9, 
   3.557579382022295*^9, 3.557635960048923*^9, 3.55844114198869*^9, 
   3.558549888564047*^9, 3.560007742908353*^9, 3.5600444150007343`*^9, 
   3.560185500772758*^9, 3.5601862881244373`*^9, 3.560186363565974*^9, 
   3.560186511350699*^9, 3.560222881070978*^9, 3.560256425205821*^9, 
   3.560268931156712*^9, 3.560269933140605*^9, 3.560271418373933*^9, 
   3.560516255786263*^9, 3.560521602126253*^9, 3.560534290731535*^9, 
   3.560535152062097*^9, 3.560842318665814*^9, 3.5608444394086246`*^9, 
   3.56117681035676*^9, 3.561210850205037*^9, 3.561269153680681*^9, 
   3.561275601772756*^9, 3.561276943638693*^9, 3.5613028097834253`*^9, 
   3.561305370418614*^9, 3.561308540952236*^9, 3.561308789271405*^9, {
   3.561360314424685*^9, 3.561360069954237*^9}, 3.728115024183174*^9, 
   3.731234877689618*^9},
 CellLabel->
  "Out[238]=",ExpressionUUID->"ebd5e820-95a1-416a-924e-f88ef26bd285"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", 
     RowBox[{"1", "/", 
      RowBox[{"\[CapitalTheta]", "[", "]"}]}]}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.511598019261846*^9, 3.511598031374558*^9}},
 CellLabel->
  "In[239]:=",ExpressionUUID->"3b8bc1ef-3715-4829-b5ca-d8232ceae143"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.511598031695503*^9, 3.511630881207988*^9, 3.511631603796775*^9, 
   3.5117239943355303`*^9, 3.52127603462152*^9, 3.521276843753677*^9, 
   3.52127731796562*^9, 3.5212775026538763`*^9, 3.521278939309752*^9, 
   3.521367338403122*^9, 3.521370396608612*^9, 3.52144069407885*^9, 
   3.5214408739146633`*^9, 3.521440930477681*^9, 3.5214559148956738`*^9, 
   3.521461515267716*^9, 3.521507077332775*^9, 3.521521004101913*^9, 
   3.521523022334804*^9, 3.5215390713846617`*^9, 3.521785494326337*^9, 
   3.521797368466949*^9, 3.521804006098349*^9, 3.52188331715038*^9, 
   3.5219421585951653`*^9, 3.521971106075732*^9, 3.5219714855039253`*^9, 
   3.521971572721815*^9, 3.521972256271305*^9, 3.521973962828354*^9, 
   3.5220291172503567`*^9, 3.52439398965856*^9, 3.524396325650498*^9, 
   3.524977870891605*^9, 3.52499722474065*^9, 3.525068837731503*^9, 
   3.525070802398786*^9, 3.52507207829609*^9, 3.5250732342591667`*^9, 
   3.525081029883346*^9, 3.525187143300639*^9, 3.525240253265008*^9, 
   3.525243906776328*^9, 3.525397536919716*^9, 3.525398679718059*^9, 
   3.525493468247641*^9, 3.52566087209846*^9, 3.525661915771216*^9, 
   3.525662984138443*^9, 3.525673284464299*^9, 3.545738876761455*^9, 
   3.545991139753911*^9, 3.545991483425609*^9, 3.546000133872416*^9, 
   3.5460213636307917`*^9, 3.546057622390253*^9, 3.546064592982111*^9, 
   3.5460911346902037`*^9, 3.5463256130386343`*^9, 3.5482473380489798`*^9, 
   3.548404555558094*^9, 3.548481253421878*^9, 3.5485114334913797`*^9, 
   3.548525812393504*^9, 3.548567877642043*^9, 3.548571059317515*^9, 
   3.5485750133688107`*^9, 3.548591593210025*^9, 3.548662100237661*^9, 
   3.5487001233369827`*^9, 3.5487562561322203`*^9, 3.548911247770369*^9, 
   3.548930612619009*^9, 3.548960800391912*^9, 3.5490021829052687`*^9, 
   3.5490208693185453`*^9, 3.54904354406192*^9, 3.549047030678858*^9, 
   3.549086277874181*^9, 3.5490962762989197`*^9, 3.549260309233968*^9, 
   3.549272928986068*^9, 3.549305076263824*^9, 3.54930529316188*^9, 
   3.5493058029612637`*^9, 3.5493588848279657`*^9, 3.5494331500627203`*^9, 
   3.549462315833601*^9, 3.549540249223772*^9, 3.550921587659107*^9, 
   3.55099071910592*^9, 3.5509964265610323`*^9, 3.5509965946260843`*^9, 
   3.55534720212819*^9, 3.5573921049964647`*^9, 3.557403152767132*^9, 
   3.557466464450245*^9, 3.557579382094495*^9, 3.5576359600803747`*^9, 
   3.5584411420218983`*^9, 3.55854988859499*^9, 3.560007742973558*^9, 
   3.560044415070627*^9, 3.560185500817698*^9, 3.560186288177724*^9, 
   3.560186363634182*^9, 3.560186511391665*^9, 3.560222881114155*^9, 
   3.560256425240118*^9, 3.5602689311900797`*^9, 3.560269933168089*^9, 
   3.560271418403981*^9, 3.560516255804508*^9, 3.560521602180236*^9, 
   3.560534290755851*^9, 3.560535152099061*^9, 3.56084231869623*^9, 
   3.560844439443486*^9, 3.561176810385601*^9, 3.561210850244372*^9, 
   3.5612691537212477`*^9, 3.5612756018136597`*^9, 3.561276943691134*^9, 
   3.5613028098552637`*^9, 3.561305370433464*^9, 3.561308541013912*^9, 
   3.56130878931781*^9, {3.561360314476701*^9, 3.561360069995357*^9}, 
   3.728115024212865*^9, 3.731234877716546*^9},
 CellLabel->
  "Out[239]=",ExpressionUUID->"a400cdc0-3224-4a84-985a-877646026804"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511598034588969*^9, 3.511598037691497*^9}},
 CellLabel->
  "In[240]:=",ExpressionUUID->"e6bce6bc-459c-4356-85f3-4adfd2247aeb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.511598038296688*^9, 3.511630881233757*^9, 3.5116316038352613`*^9, 
   3.511723995303219*^9, 3.5212760355164022`*^9, 3.5212768438338947`*^9, 
   3.521277317977466*^9, 3.5212775027115583`*^9, 3.521278939500469*^9, 
   3.521367338472741*^9, 3.521370396632464*^9, 3.5214406940846357`*^9, 
   3.521440875177659*^9, 3.5214409305496283`*^9, 3.5214559149187613`*^9, 
   3.521461516313389*^9, 3.5215070773474503`*^9, 3.521521004299859*^9, 
   3.521523022376564*^9, 3.521539071407906*^9, 3.521785494390167*^9, 
   3.521797368491332*^9, 3.521804006134953*^9, 3.521883317174486*^9, 
   3.5219421586061163`*^9, 3.5219711060992937`*^9, 3.521971485534993*^9, 
   3.521971572748077*^9, 3.521972256367714*^9, 3.5219739628614683`*^9, 
   3.5220291177109413`*^9, 3.524393989704381*^9, 3.524396325695966*^9, 
   3.524977870918054*^9, 3.524997224750951*^9, 3.5250688386761303`*^9, 
   3.525070802433835*^9, 3.525072078329*^9, 3.525073234289361*^9, 
   3.525081029894823*^9, 3.525187143335251*^9, 3.5252402532784967`*^9, 
   3.525243906820706*^9, 3.525397536978334*^9, 3.525398679745545*^9, 
   3.525493468288175*^9, 3.525660872125605*^9, 3.525661915797879*^9, 
   3.5256629841655617`*^9, 3.5256732845296*^9, 3.545738876809555*^9, 
   3.545991139766286*^9, 3.5459914834396143`*^9, 3.5460001339486732`*^9, 
   3.54602136369319*^9, 3.546057622417657*^9, 3.546064592998672*^9, 
   3.546091134708557*^9, 3.546325613095481*^9, 3.54824733806347*^9, 
   3.548404555572997*^9, 3.548481253478245*^9, 3.548511433506405*^9, 
   3.548525812419778*^9, 3.5485678776590853`*^9, 3.548571059340685*^9, 
   3.548575013380477*^9, 3.548591593243*^9, 3.548662100271946*^9, 
   3.548700123364039*^9, 3.548756256147726*^9, 3.548911247797937*^9, 
   3.548930612627239*^9, 3.548960800410583*^9, 3.549002182942947*^9, 
   3.549020869354835*^9, 3.549043544107277*^9, 3.549047030687295*^9, 
   3.549086277893462*^9, 3.549096276313526*^9, 3.549260309285301*^9, 
   3.549272929001541*^9, 3.5493050762903957`*^9, 3.549305293175166*^9, 
   3.549305803008726*^9, 3.549358884841497*^9, 3.549433150090879*^9, 
   3.549462315854103*^9, 3.549540249253759*^9, 3.550921587671329*^9, 
   3.5509907191214457`*^9, 3.550996426577055*^9, 3.550996594641927*^9, 
   3.555347202167799*^9, 3.557392105017869*^9, 3.5574031527996197`*^9, 
   3.557466464482997*^9, 3.5575793821384897`*^9, 3.557635960174905*^9, 
   3.558441142055428*^9, 3.558549888621319*^9, 3.560007743007794*^9, 
   3.56004441508302*^9, 3.560185500844172*^9, 3.560186288209188*^9, 
   3.560186363666317*^9, 3.560186511410537*^9, 3.5602228811298933`*^9, 
   3.5602564252739067`*^9, 3.5602689313000383`*^9, 3.560269933195344*^9, 
   3.5602714184333553`*^9, 3.560516255820551*^9, 3.560521602194016*^9, 
   3.560534290779378*^9, 3.560535152109007*^9, 3.5608423187242393`*^9, 
   3.560844439467102*^9, 3.561176810416595*^9, 3.561210850261063*^9, 
   3.5612691537423143`*^9, 3.5612756018502073`*^9, 3.5612769437304564`*^9, 
   3.561302809881651*^9, 3.5613053704479733`*^9, 3.561308541077323*^9, 
   3.561308789335443*^9, {3.5613603145119247`*^9, 3.561360070030518*^9}, 
   3.728115024263443*^9, 3.731234877745143*^9},
 CellLabel->
  "Out[240]=",ExpressionUUID->"5589b3ac-2e92-4e2f-843c-38b0152ffee7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf3", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511598115841408*^9, 3.511598120051659*^9}},
 CellLabel->
  "In[241]:=",ExpressionUUID->"ed1cc53d-f314-4ea2-a829-d10b006244cc"],

Cell["For later use, we rewrite this condition as follows:", "Text",
 CellChangeTimes->{{3.5116332042133093`*^9, 3.511633209270039*^9}, {
  3.5116333631486387`*^9, 3.511633369869843*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Conf3", "/.", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptD]", "[", 
     RowBox[{
      RowBox[{"-", "a_"}], ",", 
      RowBox[{"-", "b_"}], ",", 
      RowBox[{"-", "c_"}], ",", 
      RowBox[{"-", "d_"}]}], "]"}], 
    RowBox[{"\[CapitalSigma]Unphys", "[", "d_", "]"}]}], "\[RuleDelayed]", 
   RowBox[{"Hold", "[", 
    RowBox[{
     RowBox[{"\[ScriptD]", "[", 
      RowBox[{
       RowBox[{"-", "a"}], ",", 
       RowBox[{"-", "b"}], ",", 
       RowBox[{"-", "c"}], ",", 
       RowBox[{"-", "d"}]}], "]"}], 
     RowBox[{"\[CapitalSigma]Unphys", "[", "d", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.511632904965987*^9, 3.51163295132904*^9}, {
  3.511633068160316*^9, 3.511633116686139*^9}},
 CellLabel->
  "In[242]:=",ExpressionUUID->"15a07126-58e1-4775-be2b-5dbffd66869a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Hold", "[", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
      Editable->False]}], "]"}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.511633117311895*^9, 3.511633372434965*^9, 3.511723999768525*^9, 
   3.521276057041226*^9, 3.52127684401473*^9, 3.521277317998498*^9, 
   3.521277502727297*^9, 3.5212789396901913`*^9, 3.521367338548184*^9, 
   3.52137039666035*^9, 3.5214406940972013`*^9, 3.5214408807291603`*^9, 
   3.521440930768093*^9, 3.5214559149471703`*^9, 3.521461519315548*^9, 
   3.5215070774192963`*^9, 3.521521004441308*^9, 3.521523022406598*^9, 
   3.521539071436816*^9, 3.521785494461215*^9, 3.5217973685667887`*^9, 
   3.5218040061916313`*^9, 3.521883317246806*^9, 3.5219421588727903`*^9, 
   3.521971106132503*^9, 3.5219714855705633`*^9, 3.521971572855487*^9, 
   3.521972256398807*^9, 3.52197396290604*^9, 3.522029117891691*^9, 
   3.5243939897491293`*^9, 3.524396325746511*^9, 3.5249778709510317`*^9, 
   3.524997224796897*^9, 3.5250688450123243`*^9, 3.525070802469092*^9, 
   3.5250720783404016`*^9, 3.5250732343241*^9, 3.5250810299524937`*^9, 
   3.525187143371064*^9, 3.525240253364326*^9, 3.525243906928009*^9, 
   3.5253975370457563`*^9, 3.5253986797769814`*^9, 3.525493468300488*^9, 
   3.525660872158216*^9, 3.5256619158292913`*^9, 3.525662984244936*^9, 
   3.525673284548902*^9, 3.545738876835445*^9, 3.545991139836389*^9, 
   3.545991483468389*^9, 3.546000134085334*^9, 3.546021363716228*^9, 
   3.546057622471225*^9, 3.5460645930264387`*^9, 3.546091134738603*^9, 
   3.546325613188333*^9, 3.548247338133273*^9, 3.548404555595119*^9, 
   3.548481253545313*^9, 3.548511433556961*^9, 3.548525812460867*^9, 
   3.548567877707261*^9, 3.548571059366679*^9, 3.5485750134100313`*^9, 
   3.548591593267695*^9, 3.548662100336211*^9, 3.548700123399611*^9, 
   3.5487562562427883`*^9, 3.5489112478295*^9, 3.548930612661726*^9, 
   3.548960800448819*^9, 3.549002182974066*^9, 3.54902086942461*^9, 
   3.549043544195606*^9, 3.549047030700395*^9, 3.5490862779288683`*^9, 
   3.5490962763778973`*^9, 3.549260309343237*^9, 3.5492729290265007`*^9, 
   3.549305076322592*^9, 3.549305293204631*^9, 3.5493058030579147`*^9, 
   3.54935888488866*^9, 3.549433150118574*^9, 3.549462315910883*^9, 
   3.5495402493481627`*^9, 3.550921587691476*^9, 3.550990719164488*^9, 
   3.5509964266214323`*^9, 3.5509965946910963`*^9, 3.5553472022263937`*^9, 
   3.557392105055284*^9, 3.5574031528384933`*^9, 3.557466464524652*^9, 
   3.557579382175399*^9, 3.55763596021773*^9, 3.558441142095192*^9, 
   3.558549888653782*^9, 3.5600077430517397`*^9, 3.560044415125906*^9, 
   3.5601855009211273`*^9, 3.56018628826392*^9, 3.56018636370938*^9, 
   3.560186511439382*^9, 3.560222881155965*^9, 3.560256425316852*^9, 
   3.5602689313245077`*^9, 3.560269933232575*^9, 3.560271418457368*^9, 
   3.560516255876532*^9, 3.560521602240801*^9, 3.5605342908076553`*^9, 
   3.560535152128265*^9, 3.5608423187615356`*^9, 3.560844439495026*^9, 
   3.561176810441182*^9, 3.561210850309108*^9, 3.561269153779327*^9, 
   3.561275601892774*^9, 3.561276943757381*^9, 3.561302810001115*^9, 
   3.561305370499834*^9, 3.561308541150146*^9, 3.561308789392281*^9, {
   3.5613603145566196`*^9, 3.561360070090317*^9}, 3.728115024305982*^9, 
   3.731234877777988*^9},
 CellLabel->
  "Out[242]=",ExpressionUUID->"a3d106c0-7030-4f5c-8918-89ab3c8271d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{"Union", "@", 
      RowBox[{"Cases", "[", 
       RowBox[{"%", ",", "_Hold", ",", "Infinity"}], "]"}]}]}], "]"}], "//", 
   "Flatten"}], "//", "ReleaseHold"}]], "Input",
 CellChangeTimes->{{3.5116331193998938`*^9, 3.511633174399396*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"c452eea8-1778-499b-9d74-f5ec7424666f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "\[Rule]", 
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5116331748872643`*^9, 3.511633373109763*^9, 3.5117240005040197`*^9, 
   3.521276058671217*^9, 3.5212768440924587`*^9, 3.5212773180816803`*^9, 
   3.521277502737442*^9, 3.521278939751333*^9, 3.521367338562303*^9, 
   3.521370396684816*^9, 3.5214406941859217`*^9, 3.521440881583499*^9, 
   3.52144093103137*^9, 3.521455914970707*^9, 3.521461521179636*^9, 
   3.521507077488038*^9, 3.521521004516633*^9, 3.521523022445613*^9, 
   3.5215390714755898`*^9, 3.521785494542804*^9, 3.521797368605459*^9, 
   3.521804006229385*^9, 3.521883317274206*^9, 3.521942159078685*^9, 
   3.5219711061572857`*^9, 3.5219714856041737`*^9, 3.5219715728829823`*^9, 
   3.5219722564241943`*^9, 3.521973962940812*^9, 3.522029117999092*^9, 
   3.524393989793796*^9, 3.524396325791428*^9, 3.524977870988549*^9, 
   3.524997224808612*^9, 3.5250688483177977`*^9, 3.525070802503635*^9, 
   3.525072078370572*^9, 3.525073234354187*^9, 3.5250810299641447`*^9, 
   3.5251871433992453`*^9, 3.525240253399561*^9, 3.525243906962475*^9, 
   3.5253975370816708`*^9, 3.5253986798036413`*^9, 3.525493468333041*^9, 
   3.525660872191145*^9, 3.5256619158542967`*^9, 3.525662984273535*^9, 
   3.5256732845624027`*^9, 3.54573887688591*^9, 3.5459911398534613`*^9, 
   3.5459914835427637`*^9, 3.5460001341981573`*^9, 3.546021363761986*^9, 
   3.5460576225012293`*^9, 3.5460645930795403`*^9, 3.546091134796761*^9, 
   3.546325613211349*^9, 3.548247338151106*^9, 3.548404555630887*^9, 
   3.548481253577525*^9, 3.5485114335710087`*^9, 3.5485258124873857`*^9, 
   3.5485678777196608`*^9, 3.5485710593910847`*^9, 3.548575013444319*^9, 
   3.548591593283985*^9, 3.54866210037403*^9, 3.5487001234275827`*^9, 
   3.548756256259706*^9, 3.5489112478573933`*^9, 3.5489306127050133`*^9, 
   3.548960800465377*^9, 3.549002182998885*^9, 3.549020869460815*^9, 
   3.549043544242366*^9, 3.549047030725759*^9, 3.5490862779771214`*^9, 
   3.549096276418318*^9, 3.549260309390401*^9, 3.549272929066946*^9, 
   3.549305076351554*^9, 3.5493052932388563`*^9, 3.549305803088162*^9, 
   3.549358884905541*^9, 3.549433150132854*^9, 3.549462315941657*^9, 
   3.5495402493626337`*^9, 3.550921587722166*^9, 3.55099071918126*^9, 
   3.550996426638363*^9, 3.5509965947358313`*^9, 3.555347202261958*^9, 
   3.557392105108241*^9, 3.557403152870013*^9, 3.5574664645572166`*^9, 
   3.557579382212075*^9, 3.557635960250119*^9, 3.558441142159542*^9, 
   3.558549888688414*^9, 3.56000774308644*^9, 3.560044415142089*^9, 
   3.560185500947836*^9, 3.560186288297409*^9, 3.560186363741651*^9, 
   3.5601865114563093`*^9, 3.560222881201888*^9, 3.560256425354354*^9, 
   3.560268931358987*^9, 3.5602699332656097`*^9, 3.56027141848701*^9, 
   3.560516255891041*^9, 3.5605216022562323`*^9, 3.560534290832615*^9, 
   3.560535152155942*^9, 3.560842318778275*^9, 3.5608444395342503`*^9, 
   3.561176810470564*^9, 3.561210850345639*^9, 3.5612691538336773`*^9, 
   3.5612756019285097`*^9, 3.56127694379049*^9, 3.56130281002383*^9, 
   3.561305370516388*^9, 3.561308541235362*^9, 3.5613087894410067`*^9, {
   3.561360314609158*^9, 3.561360070127092*^9}, 3.728115024335147*^9, 
   3.731234877804779*^9},
 CellLabel->
  "Out[243]=",ExpressionUUID->"ca930467-7200-4cfb-88d3-3e451c166187"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.511633176765079*^9, 3.5116331813991623`*^9}},
 CellLabel->
  "In[244]:=",ExpressionUUID->"2e15768a-9dca-4051-923b-02c435f9ee91"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {" ", " ", " ", " "},
           {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Delta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5116331819852543`*^9, 3.5116333738768187`*^9, 3.511724001222966*^9, 
   3.5212760597702208`*^9, 3.521276844113146*^9, 3.521277318094124*^9, 
   3.521277502797913*^9, 3.521278939764909*^9, 3.521367338627265*^9, 
   3.521370396708445*^9, 3.521440694285128*^9, 3.521440882380472*^9, 
   3.52144093109356*^9, 3.521455915009468*^9, 3.52146152270647*^9, 
   3.521507077562724*^9, 3.521521004583439*^9, 3.5215230224716682`*^9, 
   3.521539071498969*^9, 3.521785494609297*^9, 3.5217973686307583`*^9, 
   3.521804006256363*^9, 3.5218833173006687`*^9, 3.521942159143306*^9, 
   3.521971106188842*^9, 3.521971485635269*^9, 3.5219715729088917`*^9, 
   3.521972256471353*^9, 3.521973962974306*^9, 3.522029118478372*^9, 
   3.524393989886672*^9, 3.5243963258359423`*^9, 3.524977871019759*^9, 
   3.52499722481921*^9, 3.525068849345767*^9, 3.525070802550359*^9, 
   3.525072078377296*^9, 3.5250732343841248`*^9, 3.525081030009589*^9, 
   3.525187143424794*^9, 3.5252402534136887`*^9, 3.525243906995729*^9, 
   3.525397537111434*^9, 3.525398679831108*^9, 3.525493468360055*^9, 
   3.5256608722174788`*^9, 3.525661915880145*^9, 3.525662984299777*^9, 
   3.525673284603722*^9, 3.545738876941762*^9, 3.545991139868085*^9, 
   3.545991483565281*^9, 3.546000134251256*^9, 3.546021363775379*^9, 
   3.546057622516589*^9, 3.546064593095796*^9, 3.546091134813354*^9, 
   3.546325613233631*^9, 3.5482473381642447`*^9, 3.548404555672657*^9, 
   3.5484812535855827`*^9, 3.548511433607827*^9, 3.548525812517276*^9, 
   3.548567877729948*^9, 3.548571059416671*^9, 3.548575013477817*^9, 
   3.548591593298747*^9, 3.548662100392775*^9, 3.548700123454965*^9, 
   3.548756256291666*^9, 3.548911247891321*^9, 3.54893061271509*^9, 
   3.5489608004782248`*^9, 3.549002183023572*^9, 3.549020869476254*^9, 
   3.549043544295096*^9, 3.549047030750945*^9, 3.5490862780071087`*^9, 
   3.549096276440852*^9, 3.5492603094170313`*^9, 3.549272929082436*^9, 
   3.5493050763798037`*^9, 3.549305293263152*^9, 3.549305803138977*^9, 
   3.549358884919959*^9, 3.549433150161961*^9, 3.549462315963292*^9, 
   3.5495402493765078`*^9, 3.550921587735424*^9, 3.550990719196353*^9, 
   3.5509964266537333`*^9, 3.550996594796668*^9, 3.5553472022973824`*^9, 
   3.557392105132433*^9, 3.557403152929968*^9, 3.557466464594789*^9, 
   3.557579382234133*^9, 3.557635960281131*^9, 3.558441142191456*^9, 
   3.558549888698299*^9, 3.5600077431207027`*^9, 3.560044415156456*^9, 
   3.5601855009754553`*^9, 3.560186288327511*^9, 3.560186363773407*^9, 
   3.5601865114960527`*^9, 3.560222881244615*^9, 3.560256425387952*^9, 
   3.56026893137449*^9, 3.560269933292638*^9, 3.560271418499696*^9, 
   3.560516255904956*^9, 3.560521602270145*^9, 3.5605342908547993`*^9, 
   3.560535152183909*^9, 3.560842318793303*^9, 3.56084443957024*^9, 
   3.561176810486186*^9, 3.561210850381917*^9, 3.561269153854987*^9, 
   3.5612756019639053`*^9, 3.561276943808135*^9, 3.561302810047184*^9, 
   3.561305370529003*^9, 3.5613085412923803`*^9, 3.5613087894896383`*^9, {
   3.5613603146441936`*^9, 3.561360070145542*^9}, 3.728115024368919*^9, 
   3.731234877835455*^9},
 CellLabel->
  "Out[244]=",ExpressionUUID->"adb464f2-01ff-4569-89ad-ee368a046a34"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReConf3", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511633377253141*^9, 3.511633383883349*^9}},
 CellLabel->
  "In[245]:=",ExpressionUUID->"82408dab-85b4-488e-a99b-0a7dfad50b5d"],

Cell["\<\
We compute now the covariant divergence of the rescaled Weyl tensor:\
\>", "Text",
 CellChangeTimes->{{3.511632174102665*^9, 3.5116321790551567`*^9}, {
  3.511633389569553*^9, 3.5116334040985107`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CDg", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
   RowBox[{"\[ScriptD]", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Delta]"}]}], "]"}]}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
     RowBox[{"\[ScriptD]", "[", 
      RowBox[{"\[Alpha]", ",", 
       RowBox[{"-", "\[Beta]"}], ",", 
       RowBox[{"-", "\[Gamma]"}], ",", 
       RowBox[{"-", "\[Delta]"}]}], "]"}]}], "/.", 
    RowBox[{"ApplyRule", "@", "RescaledWeylUnphys"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.511632184403347*^9, 3.511632223154098*^9}, {
  3.525068854012672*^9, 3.525068874086753*^9}},
 CellLabel->
  "In[246]:=",ExpressionUUID->"8e9fa4f3-94b6-41a1-ab57-2c472b608f6d"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {"\[Alpha]", " ", " ", " "},
           {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {
          RowBox[{"W", "[", "\[Del]", "]"}], 
          StyleBox[GridBox[{
             {"\[Alpha]", " ", " ", " "},
             {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`WeylCDg[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]]],
     Editable->False], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "-", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"W", "[", "\[Del]", "]"}], 
          StyleBox[GridBox[{
             {"\[Alpha]", " ", " ", " "},
             {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCDg[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]]}]}]], "Output",
 CellChangeTimes->{{3.511632199303956*^9, 3.5116322239080343`*^9}, {
   3.511632314617484*^9, 3.51163232786919*^9}, 3.511632407137575*^9, 
   3.5116334107395678`*^9, 3.511724005937011*^9, 3.5212760619564457`*^9, 
   3.521276844199966*^9, 3.521277318126371*^9, 3.521277502862029*^9, 
   3.5212789398058662`*^9, 3.521367338659265*^9, 3.5213703967436447`*^9, 
   3.5214406943560963`*^9, 3.521440931254438*^9, 3.521455915126583*^9, 
   3.521461525945497*^9, 3.521507077597804*^9, 3.521521004615922*^9, 
   3.521523022509067*^9, 3.52153907159002*^9, 3.5217854947391167`*^9, 
   3.5217973686665697`*^9, 3.521804006294779*^9, 3.521883317351556*^9, 
   3.521942159326091*^9, 3.521971106246914*^9, 3.521971485686018*^9, 
   3.521971572975428*^9, 3.5219722565181837`*^9, 3.521973963012398*^9, 
   3.522029118601501*^9, 3.524393989936034*^9, 3.524396325894453*^9, 
   3.5249778710656233`*^9, 3.5249972248462667`*^9, 3.525069022033328*^9, 
   3.525070802600122*^9, 3.5250720784123507`*^9, 3.5250732344311743`*^9, 
   3.5250810300721807`*^9, 3.525187143464387*^9, 3.525240253457337*^9, 
   3.525243907031168*^9, 3.525397537156063*^9, 3.525398679872149*^9, 
   3.5254934684112673`*^9, 3.525660872266182*^9, 3.5256619159247293`*^9, 
   3.5256629844413357`*^9, 3.5256732846625977`*^9, 3.5457388770114613`*^9, 
   3.545991139963328*^9, 3.545991483636015*^9, 3.546000134356328*^9, 
   3.54602136383084*^9, 3.546057622581457*^9, 3.5460645931552563`*^9, 
   3.54609113487411*^9, 3.546325613346456*^9, 3.548247338314459*^9, 
   3.548404555742202*^9, 3.548481253633603*^9, 3.548511433656334*^9, 
   3.548525812557135*^9, 3.548567877775503*^9, 3.548571059445451*^9, 
   3.5485750135085783`*^9, 3.5485915933939466`*^9, 3.548662100444352*^9, 
   3.548700123510281*^9, 3.548756256357234*^9, 3.5489112479229927`*^9, 
   3.548930612753504*^9, 3.5489608005450993`*^9, 3.549002183053426*^9, 
   3.549020869532298*^9, 3.549043544355257*^9, 3.549047030783627*^9, 
   3.5490862780724983`*^9, 3.549096276495322*^9, 3.549260309462143*^9, 
   3.549272929138833*^9, 3.549305076411797*^9, 3.5493052933130693`*^9, 
   3.5493058032024307`*^9, 3.5493588849853077`*^9, 3.549433150224243*^9, 
   3.549462316025003*^9, 3.549540249433846*^9, 3.5509215877749662`*^9, 
   3.550990719253211*^9, 3.5509964267113132`*^9, 3.550996594859659*^9, 
   3.555347202366599*^9, 3.557392105205804*^9, 3.557403152967578*^9, 
   3.557466464672325*^9, 3.5575793822771807`*^9, 3.557635960328568*^9, 
   3.558441142235524*^9, 3.558549888730033*^9, 3.560007743169261*^9, 
   3.5600444152025146`*^9, 3.560185501049642*^9, 3.5601862883816423`*^9, 
   3.560186363817258*^9, 3.560186511551819*^9, 3.560222881305656*^9, 
   3.560256425436269*^9, 3.5602689314256563`*^9, 3.5602699333342*^9, 
   3.5602714185415783`*^9, 3.560516255967084*^9, 3.560521602303171*^9, 
   3.5605342908886414`*^9, 3.560535152213889*^9, 3.560842318833482*^9, 
   3.560844439616762*^9, 3.5611768105271387`*^9, 3.561210850441637*^9, 
   3.561269153911056*^9, 3.5612756020629807`*^9, 3.561276943857072*^9, 
   3.5613028101370163`*^9, 3.5613053705751343`*^9, 3.561308541360855*^9, 
   3.561308789551216*^9, {3.56136031470186*^9, 3.561360070222845*^9}, 
   3.7281150244174137`*^9, 3.731234877881674*^9},
 CellLabel->
  "Out[246]=",ExpressionUUID->"ebe78a05-dc2f-44d4-90b8-4668c6323f60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CovDivWeylUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5116324013876677`*^9, 3.5116324057324057`*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"d6657fc8-b9e5-4140-b263-6a5bee1e65a7"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {"\[Alpha]", " ", " ", " "},
           {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{"W", "[", "\[Del]", "]"}], 
           StyleBox[GridBox[{
              {"\[Alpha]", " ", " ", " "},
              {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCDg[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]],
       Editable->False]}], 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Delta]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Delta]][
       $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.5116324077272587`*^9, 3.511633421978973*^9, 3.511724006785816*^9, 
   3.52127606270776*^9, 3.5212768443077507`*^9, 3.521277318198807*^9, 
   3.52127750292632*^9, 3.521278939934927*^9, 3.521367338774416*^9, 
   3.5213703968057203`*^9, 3.521440694481855*^9, 3.521440931373185*^9, 
   3.5214559151922903`*^9, 3.5214615274011793`*^9, 3.521507077662533*^9, 
   3.521521004722786*^9, 3.521523022571135*^9, 3.521539071655654*^9, 
   3.521785494852158*^9, 3.5217973687209187`*^9, 3.521804006355453*^9, 
   3.521883317427576*^9, 3.521942159400176*^9, 3.5219711063024483`*^9, 
   3.5219714857259617`*^9, 3.5219715730346737`*^9, 3.521972256593261*^9, 
   3.52197396308123*^9, 3.52202911875485*^9, 3.524393990030341*^9, 
   3.524396325986561*^9, 3.5249778711359587`*^9, 3.524997224926804*^9, 
   3.525069022960903*^9, 3.52507080267071*^9, 3.5250720784785223`*^9, 
   3.525073234494748*^9, 3.52508103017428*^9, 3.5251871435106363`*^9, 
   3.525240253561602*^9, 3.525243907098792*^9, 3.525397537225216*^9, 
   3.525398679938899*^9, 3.525493468474783*^9, 3.525660872333295*^9, 
   3.525661915988143*^9, 3.525662984485388*^9, 3.5256732847617693`*^9, 
   3.5457388771044607`*^9, 3.545991140039188*^9, 3.545991483744516*^9, 
   3.546000134505995*^9, 3.546021363953903*^9, 3.546057622679881*^9, 
   3.546064593253564*^9, 3.546091134962924*^9, 3.546325613473093*^9, 
   3.548247338431327*^9, 3.548404555824998*^9, 3.548481253708271*^9, 
   3.5485114337337646`*^9, 3.548525812639616*^9, 3.548567877827168*^9, 
   3.548571059491832*^9, 3.5485750135773573`*^9, 3.5485915934700947`*^9, 
   3.548662100615253*^9, 3.548700123574279*^9, 3.548756256455022*^9, 
   3.5489112479925413`*^9, 3.548930612803069*^9, 3.548960800613617*^9, 
   3.549002183102706*^9, 3.5490208696274643`*^9, 3.549043544416705*^9, 
   3.549047030911076*^9, 3.549086278154057*^9, 3.5490962765661087`*^9, 
   3.5492603095348186`*^9, 3.5492729292331877`*^9, 3.549305076473517*^9, 
   3.549305293378927*^9, 3.54930580330054*^9, 3.5493588850819073`*^9, 
   3.549433150295479*^9, 3.549462316092132*^9, 3.549540249503265*^9, 
   3.55092158785295*^9, 3.550990719312361*^9, 3.550996426772591*^9, 
   3.5509965950067577`*^9, 3.555347202457172*^9, 3.5573921053150473`*^9, 
   3.557403153041746*^9, 3.557466464745677*^9, 3.557579382351473*^9, 
   3.557635960395687*^9, 3.558441142321775*^9, 3.558549888800235*^9, 
   3.5600077432445393`*^9, 3.5600444152733173`*^9, 3.560185501144001*^9, 
   3.5601862885277452`*^9, 3.5601863639046383`*^9, 3.560186511646461*^9, 
   3.5602228813809147`*^9, 3.5602564255098867`*^9, 3.560268931515751*^9, 
   3.560269933406644*^9, 3.56027141862661*^9, 3.560516256036607*^9, 
   3.560521602384816*^9, 3.560534290951322*^9, 3.5605351522814283`*^9, 
   3.560842318911813*^9, 3.5608444397069263`*^9, 3.561176810612359*^9, 
   3.561210850534938*^9, 3.561269154009096*^9, 3.561275602160524*^9, 
   3.561276943966408*^9, 3.561302810212295*^9, 3.56130537064937*^9, 
   3.561308541479452*^9, 3.561308789656521*^9, {3.561360314805766*^9, 
   3.56136007031231*^9}, 3.728115024497847*^9, 3.7312348779527407`*^9},
 CellLabel->
  "Out[247]=",ExpressionUUID->"a4823ad2-6660-4ddf-a9d3-c18e7353eee4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "WeylToRescaledWeylUnphys"}]}]], "Input",
 CellChangeTimes->{{3.5116323081889133`*^9, 3.51163231293579*^9}},
 CellLabel->
  "In[248]:=",ExpressionUUID->"f68768ac-fe22-4f1a-b887-31a41895af34"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {"\[Alpha]", " ", " ", " "},
           {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {"\[Alpha]", " ", " ", " "},
              {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Alpha]][
        $CellContext`\[CapitalTheta][]],
       Editable->False]}], 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Delta]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Delta]][
       $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.511632315682618*^9, 3.511632412663649*^9, 3.511633423587625*^9, 
   3.511724007425754*^9, 3.521276063412839*^9, 3.521276844395591*^9, 
   3.521277318373954*^9, 3.521277502997265*^9, 3.5212789401513233`*^9, 
   3.5213673388427477`*^9, 3.521370396847781*^9, 3.521440694616213*^9, 
   3.521440931460514*^9, 3.52145591521983*^9, 3.521461528671628*^9, 
   3.521507077735751*^9, 3.521521004804247*^9, 3.521523022619875*^9, 
   3.521539071680575*^9, 3.521785494923705*^9, 3.521797368753558*^9, 
   3.521804006391431*^9, 3.521883317453907*^9, 3.521942159477914*^9, 
   3.5219711063312387`*^9, 3.5219714857672586`*^9, 3.521971573070364*^9, 
   3.5219722566189528`*^9, 3.521973963146187*^9, 3.522029118904203*^9, 
   3.524393990090951*^9, 3.5243963260527687`*^9, 3.524977871173439*^9, 
   3.524997224999895*^9, 3.5250690236066*^9, 3.525070802712686*^9, 
   3.525072078517735*^9, 3.5250732345311728`*^9, 3.5250810302384233`*^9, 
   3.525187143555834*^9, 3.5252402535993977`*^9, 3.525243907153563*^9, 
   3.525397537253997*^9, 3.525398679965839*^9, 3.525493468515285*^9, 
   3.525660872378695*^9, 3.5256619160263*^9, 3.5256629845212*^9, 
   3.52567328481775*^9, 3.5457388771603403`*^9, 3.545991140141769*^9, 
   3.545991483869115*^9, 3.546000134651228*^9, 3.546021364022532*^9, 
   3.546057622723597*^9, 3.54606459333429*^9, 3.546091135016923*^9, 
   3.5463256135682917`*^9, 3.548247338499847*^9, 3.548404555850114*^9, 
   3.548481253737585*^9, 3.548511433781446*^9, 3.548525812672727*^9, 
   3.5485678778817167`*^9, 3.548571059524572*^9, 3.548575013612526*^9, 
   3.5485915934954777`*^9, 3.54866210067299*^9, 3.548700123607483*^9, 
   3.548756256506194*^9, 3.5489112480332937`*^9, 3.548930612843384*^9, 
   3.548960800717147*^9, 3.549002183138163*^9, 3.549020869679513*^9, 
   3.549043544452818*^9, 3.549047030950706*^9, 3.549086278201187*^9, 
   3.549096276615509*^9, 3.549260309583078*^9, 3.549272929292338*^9, 
   3.5493050765013323`*^9, 3.549305293413262*^9, 3.549305803341016*^9, 
   3.549358885138937*^9, 3.549433150323524*^9, 3.549462316140973*^9, 
   3.54954024954536*^9, 3.550921587899819*^9, 3.5509907193742123`*^9, 
   3.5509964268197002`*^9, 3.550996595054598*^9, 3.555347202492244*^9, 
   3.5573921053779783`*^9, 3.557403153071128*^9, 3.557466464784597*^9, 
   3.557579382385455*^9, 3.557635960436446*^9, 3.558441142364797*^9, 
   3.5585498888354588`*^9, 3.56000774329003*^9, 3.560044415310678*^9, 
   3.560185501189707*^9, 3.5601862885702753`*^9, 3.5601863639480886`*^9, 
   3.560186511689267*^9, 3.560222881434607*^9, 3.560256425555228*^9, 
   3.560268931559432*^9, 3.56026993350874*^9, 3.5602714186955023`*^9, 
   3.56051625609874*^9, 3.560521602407851*^9, 3.560534290990795*^9, 
   3.560535152340604*^9, 3.560842318951294*^9, 3.5608444397433767`*^9, 
   3.56117681065317*^9, 3.561210850582868*^9, 3.561269154057198*^9, 
   3.561275602207406*^9, 3.5612769440217333`*^9, 3.561302810258377*^9, 
   3.561305370723192*^9, 3.561308541521556*^9, 3.5613087896991243`*^9, {
   3.5613603148549137`*^9, 3.5613600703578463`*^9}, 3.728115024531156*^9, 
   3.731234877974924*^9},
 CellLabel->
  "Out[248]=",ExpressionUUID->"102f1932-14c8-432e-9fab-0dee80203863"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CDg\[CapitalTheta]"}]}]], "Input",
 CellChangeTimes->{{3.5115926854104643`*^9, 3.511592693134261*^9}, {
  3.511632454877164*^9, 3.511632457797282*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"302f223e-851c-449c-8a1a-6d3396f941f1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {"\[Alpha]", " ", " ", " "},
           {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {"\[Alpha]", " ", " ", " "},
              {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
       Editable->False]}], 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Delta]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Delta]][
       $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{{3.511632449262041*^9, 3.511632458911706*^9}, 
   3.511633426275756*^9, 3.5117240079801893`*^9, 3.521276064172944*^9, 
   3.521276844501155*^9, 3.521277318507761*^9, 3.5212775030579567`*^9, 
   3.5212789402427588`*^9, 3.5213673389686003`*^9, 3.521370396893579*^9, 
   3.521440694681573*^9, 3.521440931540894*^9, 3.521455915263146*^9, 
   3.521461529956277*^9, 3.521507077807482*^9, 3.521521004885962*^9, 
   3.5215230226505833`*^9, 3.521539071735571*^9, 3.521785494990871*^9, 
   3.521797368778633*^9, 3.521804006420961*^9, 3.521883317479589*^9, 
   3.521942159630831*^9, 3.521971106365572*^9, 3.521971485824946*^9, 
   3.521971573100717*^9, 3.5219722566470137`*^9, 3.521973963181389*^9, 
   3.5220291191711884`*^9, 3.524393990131731*^9, 3.524396326105756*^9, 
   3.5249778712317753`*^9, 3.524997225013905*^9, 3.525069024240658*^9, 
   3.525070802777905*^9, 3.525072078555588*^9, 3.525073234607895*^9, 
   3.525081030297144*^9, 3.525187143586898*^9, 3.525240253632929*^9, 
   3.525243907210202*^9, 3.525397537286709*^9, 3.5253986799958277`*^9, 
   3.525493468547295*^9, 3.5256608724432163`*^9, 3.525661916058395*^9, 
   3.5256629845550632`*^9, 3.525673284866013*^9, 3.545738877222707*^9, 
   3.545991140206457*^9, 3.545991483945382*^9, 3.546000134711198*^9, 
   3.54602136407964*^9, 3.546057622789422*^9, 3.5460645934602833`*^9, 
   3.546091135084941*^9, 3.546325613654841*^9, 3.5482473385737762`*^9, 
   3.548404555869038*^9, 3.548481253777512*^9, 3.5485114338326473`*^9, 
   3.548525812701375*^9, 3.548567878028475*^9, 3.548571059548381*^9, 
   3.5485750136446047`*^9, 3.548591593537017*^9, 3.548662100714491*^9, 
   3.5487001236421843`*^9, 3.548756256555279*^9, 3.548911248068934*^9, 
   3.5489306128839693`*^9, 3.548960800746908*^9, 3.549002183167314*^9, 
   3.549020869728599*^9, 3.549043544484188*^9, 3.5490470309798117`*^9, 
   3.549086278242599*^9, 3.5490962766564837`*^9, 3.549260309616529*^9, 
   3.549272929343433*^9, 3.549305076530511*^9, 3.5493052934433947`*^9, 
   3.5493058033772097`*^9, 3.549358885192658*^9, 3.549433150353321*^9, 
   3.54946231619862*^9, 3.549540249610649*^9, 3.550921587974216*^9, 
   3.5509907194243*^9, 3.550996426839932*^9, 3.5509965951122723`*^9, 
   3.555347202542858*^9, 3.557392105432625*^9, 3.557403153122642*^9, 
   3.557466464824257*^9, 3.5575793824158497`*^9, 3.557635960471793*^9, 
   3.558441142400179*^9, 3.558549888865087*^9, 3.5600077433289003`*^9, 
   3.560044415347205*^9, 3.560185501230242*^9, 3.560186288666827*^9, 
   3.560186363980855*^9, 3.56018651173179*^9, 3.560222881481996*^9, 
   3.5602564255934143`*^9, 3.560268931593048*^9, 3.560269933539063*^9, 
   3.560271418728241*^9, 3.560516256146206*^9, 3.5605216024277573`*^9, 
   3.5605342910164747`*^9, 3.5605351523690033`*^9, 3.560842318984681*^9, 
   3.5608444397851543`*^9, 3.561176810689905*^9, 3.561210850624755*^9, 
   3.561269154098357*^9, 3.56127560224966*^9, 3.561276944057728*^9, 
   3.561302810298585*^9, 3.5613053707730227`*^9, 3.56130854157703*^9, 
   3.561308789748405*^9, {3.56136031489434*^9, 3.561360070396792*^9}, 
   3.728115024561892*^9, 3.731234878001243*^9},
 CellLabel->
  "Out[249]=",ExpressionUUID->"7c67c92a-9043-4886-84ff-6bbcae1bbe86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ReConf3"}]}]], "Input",
 CellChangeTimes->{{3.511633427721367*^9, 3.511633436267809*^9}},
 CellLabel->
  "In[250]:=",ExpressionUUID->"2615e7f0-dd12-4d68-bdca-1404c4304e6f"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {"\[Alpha]", " ", " ", " "},
           {" ", "\[Beta]", "\[Gamma]", "\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Gamma]][
        $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Delta]]],
       
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Delta]][
        $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
       
       Editable->False]}], 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]]}], "+", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Delta]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Delta]][
       $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]]}]}]], "Output",
 CellChangeTimes->{
  3.511633437669244*^9, 3.511724008513618*^9, 3.521276065307076*^9, 
   3.521276844647152*^9, 3.521277318733186*^9, 3.5212775031694*^9, 
   3.521278940373702*^9, 3.521367339094117*^9, 3.521370396956254*^9, 
   3.521440694841845*^9, 3.521440931666438*^9, 3.521455915319475*^9, 
   3.5214615310292883`*^9, 3.521507077933297*^9, 3.521521005006102*^9, 
   3.5215230226904716`*^9, 3.521539071795575*^9, 3.521785495105434*^9, 
   3.5217973688370447`*^9, 3.5218040064798117`*^9, 3.521883317547195*^9, 
   3.521942159773827*^9, 3.5219711064238853`*^9, 3.5219714858887863`*^9, 
   3.521971573159153*^9, 3.52197225670646*^9, 3.52197396327326*^9, 
   3.5220291195013447`*^9, 3.524393990213756*^9, 3.5243963262042513`*^9, 
   3.524977871295082*^9, 3.524997225098796*^9, 3.525069024973662*^9, 
   3.525070802818495*^9, 3.525072078620154*^9, 3.525073234671494*^9, 
   3.5250810304149857`*^9, 3.525187143650951*^9, 3.5252402537360497`*^9, 
   3.525243907275208*^9, 3.525397537355671*^9, 3.525398680090508*^9, 
   3.525493468624619*^9, 3.5256608725114403`*^9, 3.525661916128151*^9, 
   3.525662984617756*^9, 3.5256732849653177`*^9, 3.545738877336501*^9, 
   3.545991140342019*^9, 3.5459914840740833`*^9, 3.546000134821075*^9, 
   3.5460213642147703`*^9, 3.546057622925186*^9, 3.5460645935714273`*^9, 
   3.546091135210684*^9, 3.546325613748124*^9, 3.548247338697083*^9, 
   3.548404555934886*^9, 3.548481253846931*^9, 3.5485114339217587`*^9, 
   3.548525812762718*^9, 3.5485678781524277`*^9, 3.548571059607407*^9, 
   3.5485750136948137`*^9, 3.548591593641305*^9, 3.5486621008140173`*^9, 
   3.548700123705447*^9, 3.548756256639324*^9, 3.548911248135681*^9, 
   3.5489306129638033`*^9, 3.548960800810182*^9, 3.549002183235999*^9, 
   3.549020869788348*^9, 3.5490435445765657`*^9, 3.549047031039845*^9, 
   3.549086278303536*^9, 3.549096276754594*^9, 3.549260309672421*^9, 
   3.549272929449049*^9, 3.549305076597929*^9, 3.549305293491323*^9, 
   3.549305803427697*^9, 3.549358885261219*^9, 3.549433150412757*^9, 
   3.549462316265414*^9, 3.549540249713786*^9, 3.550921588052664*^9, 
   3.550990719518786*^9, 3.550996426911076*^9, 3.550996595216263*^9, 
   3.555347202636127*^9, 3.5573921055185423`*^9, 3.557403153198073*^9, 
   3.557466464901366*^9, 3.557579382477622*^9, 3.557635960540639*^9, 
   3.5584411424850407`*^9, 3.558549888925856*^9, 3.560007743416718*^9, 
   3.56004441542064*^9, 3.560185501321945*^9, 3.560186288792832*^9, 
   3.56018636406638*^9, 3.560186511824039*^9, 3.560222881578844*^9, 
   3.560256425680456*^9, 3.560268931679987*^9, 3.560269933619347*^9, 
   3.5602714187972393`*^9, 3.560516256236321*^9, 3.560521602512385*^9, 
   3.560534291080695*^9, 3.560535152431572*^9, 3.560842319067562*^9, 
   3.5608444398747663`*^9, 3.561176810774658*^9, 3.561210850716818*^9, 
   3.5612691541806793`*^9, 3.561275602341407*^9, 3.5612769441467648`*^9, 
   3.5613028103778343`*^9, 3.56130537089354*^9, 3.56130854223473*^9, 
   3.561308789851211*^9, {3.561360314970566*^9, 3.561360070481949*^9}, 
   3.728115024653502*^9, 3.73123487807673*^9},
 CellLabel->
  "Out[250]=",ExpressionUUID->"947e2b9f-3892-4d57-87ac-e82d628ba8e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511633439431449*^9, 3.511633444643456*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"443418fa-e104-47f8-b051-04c39787ed18"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Alpha]"},
           {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.5116334451909523`*^9, 3.511724009036647*^9, 3.521276066249948*^9, 
   3.5212768447296467`*^9, 3.521277318807588*^9, 3.521277503227501*^9, 
   3.521278940454998*^9, 3.5213673391863823`*^9, 3.521370397013647*^9, 
   3.521440694847999*^9, 3.5214409317631083`*^9, 3.5214559153530617`*^9, 
   3.521461534219998*^9, 3.521507078013743*^9, 3.521521005077442*^9, 
   3.52152302272292*^9, 3.521539071830997*^9, 3.521785495178931*^9, 
   3.521797368858265*^9, 3.5218040065065413`*^9, 3.5218833175928307`*^9, 
   3.521942159862275*^9, 3.521971106487742*^9, 3.521971485929349*^9, 
   3.521971573188964*^9, 3.5219722567598*^9, 3.5219739633153887`*^9, 
   3.522029119709223*^9, 3.5243939902628517`*^9, 3.524396326257948*^9, 
   3.524977871327807*^9, 3.5249972251454477`*^9, 3.525069025831504*^9, 
   3.5250708028596163`*^9, 3.525072078693716*^9, 3.5250732347086983`*^9, 
   3.525081030474736*^9, 3.5251871436841087`*^9, 3.5252402537734623`*^9, 
   3.525243907309469*^9, 3.525397537392899*^9, 3.5253986801242647`*^9, 
   3.525493468660432*^9, 3.525660872543785*^9, 3.525661916158293*^9, 
   3.525662984659094*^9, 3.52567328498317*^9, 3.545738877398645*^9, 
   3.545991140415884*^9, 3.545991484160925*^9, 3.5460001348745127`*^9, 
   3.54602136430155*^9, 3.546057622975507*^9, 3.546064593632585*^9, 
   3.546091135266436*^9, 3.5463256138155003`*^9, 3.548247338724049*^9, 
   3.548404556002339*^9, 3.5484812538859777`*^9, 3.5485114339651613`*^9, 
   3.548525812808455*^9, 3.5485678782314672`*^9, 3.548571059641934*^9, 
   3.548575013730839*^9, 3.54859159370026*^9, 3.54866210090361*^9, 
   3.548700123743485*^9, 3.548756256689906*^9, 3.5489112481684217`*^9, 
   3.548930613002102*^9, 3.548960800840008*^9, 3.549002183285449*^9, 
   3.549020869839254*^9, 3.549043544611058*^9, 3.549047031120666*^9, 
   3.5490862783585043`*^9, 3.549096276804076*^9, 3.549260309722397*^9, 
   3.549272929502996*^9, 3.549305076646112*^9, 3.549305293529306*^9, 
   3.549305803464477*^9, 3.5493588853170156`*^9, 3.5494331504480133`*^9, 
   3.549462316303565*^9, 3.549540249752583*^9, 3.550921588086874*^9, 
   3.5509907195714207`*^9, 3.550996426976049*^9, 3.5509965952686033`*^9, 
   3.5553472026790457`*^9, 3.557392105577273*^9, 3.557403153238011*^9, 
   3.5574664649406557`*^9, 3.557579382537878*^9, 3.5576359605719633`*^9, 
   3.5584411425277243`*^9, 3.558549888960045*^9, 3.560007743458312*^9, 
   3.560044415464262*^9, 3.560185501483527*^9, 3.560186288840042*^9, 
   3.560186364108029*^9, 3.560186511871711*^9, 3.560222881654467*^9, 
   3.560256425721225*^9, 3.560268931721841*^9, 3.5602699336491833`*^9, 
   3.560271418836347*^9, 3.5605162562812634`*^9, 3.5605216025643377`*^9, 
   3.5605342911109333`*^9, 3.56053515246362*^9, 3.5608423190954103`*^9, 
   3.5608444399815083`*^9, 3.56117681081142*^9, 3.56121085075517*^9, 
   3.5612691542342176`*^9, 3.561275602386622*^9, 3.5612769442019033`*^9, 
   3.561302810422226*^9, 3.561305370969178*^9, 3.5613085424244947`*^9, 
   3.5613087899059067`*^9, {3.5613603150225477`*^9, 3.561360070527062*^9}, 
   3.7281150246802807`*^9, 3.7312348780965757`*^9},
 CellLabel->
  "Out[251]=",ExpressionUUID->"0b2ba483-ec48-4d64-87db-83bd2a51f1e0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf4", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.511633447370109*^9, 3.511633451124939*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"119baa12-2336-44ea-9a41-d69c00babe48"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Integrability conditions of ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], "s"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`a][
     $CellContext`sUnphys[]],
    Editable->False], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`b],
     Editable->False]}]}]], "Output",
  CellChangeTimes->{{3.511593145016152*^9, 3.511593158475444*^9}, 
    3.511596759921166*^9, 3.511630879597372*^9, 3.511631598506164*^9}],
 " \[Implies] identically fulfilled."
}], "Subsubsection",
 CellChangeTimes->{{3.511594198489758*^9, 3.511594204801227*^9}, {
  3.511598067672428*^9, 3.5115980862310658`*^9}, {3.5116346530428467`*^9, 
  3.511634678145894*^9}, {3.511634868332984*^9, 3.511634877291209*^9}}],

Cell[TextData[{
 "As the connection \[Del] has no torsion,  the quantity ",
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "b"], 
     SubscriptBox["\[Del]", "a"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`b][
    $CellContext`CDg[-$CellContext`a][
     $CellContext`sUnphys[]]],
   Editable->False]], "Output",
  CellChangeTimes->{3.511724091420569*^9}],
 " must be symmetric in the indices b,a"
}], "Text",
 CellChangeTimes->{{3.511724068034786*^9, 3.5117241286459007`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0", "==", 
  RowBox[{
   RowBox[{
    RowBox[{"CDg", "[", 
     RowBox[{"-", "\[Beta]"}], "]"}], "@", 
    RowBox[{
     RowBox[{"CDg", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
     RowBox[{"sUnphys", "[", "]"}]}]}], "-", 
   RowBox[{
    RowBox[{"CDg", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], "[", 
    RowBox[{
     RowBox[{
      RowBox[{"CDg", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}], "@", 
      RowBox[{"sUnphys", "[", "]"}]}], "/.", 
     RowBox[{"ApplyRule", "@", "CDgSUnphys"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.511634126127357*^9, 3.511634188009295*^9}, {
  3.525069034192473*^9, 3.525069042209793*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"7c17e230-5d22-49f6-82d7-3d3fa609deae"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Gamma]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Beta]"], 
      SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Beta]][
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.511634123057123*^9, {3.51163417821917*^9, 3.5116341890864363`*^9}, 
   3.511724054568062*^9, 3.5117241315954514`*^9, 3.521276073796184*^9, 
   3.5212768488296967`*^9, 3.521277318900652*^9, 3.521277503301745*^9, 
   3.521278940544383*^9, 3.5213673597967443`*^9, 3.521370397777382*^9, 
   3.5214406949243937`*^9, 3.5214409318539677`*^9, 3.5214559153816233`*^9, 
   3.521461540603207*^9, 3.5215070781633987`*^9, 3.521521005171706*^9, 
   3.521523022755261*^9, 3.5215390723477917`*^9, 3.52178549531008*^9, 
   3.521797368940619*^9, 3.5218040065674343`*^9, 3.5218833176487207`*^9, 
   3.521942159990973*^9, 3.521971106566695*^9, 3.5219714859666357`*^9, 
   3.5219715732589197`*^9, 3.521972256828554*^9, 3.521973963356122*^9, 
   3.522029119956422*^9, 3.5243939903144903`*^9, 3.524396326309847*^9, 
   3.5249778713611927`*^9, 3.524997225202845*^9, 3.525069043460211*^9, 
   3.525070802899222*^9, 3.525072078736083*^9, 3.525073234923592*^9, 
   3.525081030538785*^9, 3.525187143721045*^9, 3.525240253816889*^9, 
   3.5252439073499193`*^9, 3.525397537482901*^9, 3.52539868015915*^9, 
   3.525493468696712*^9, 3.525660872581976*^9, 3.525661916197246*^9, 
   3.525662984704897*^9, 3.5256732850050793`*^9, 3.545738877543605*^9, 
   3.5459911404452744`*^9, 3.5459914842378073`*^9, 3.5460001360962467`*^9, 
   3.546021364387013*^9, 3.54605762303946*^9, 3.5460645937185707`*^9, 
   3.546091135404286*^9, 3.54632561393466*^9, 3.54824733875322*^9, 
   3.548404556051506*^9, 3.548481253936702*^9, 3.548511434020919*^9, 
   3.5485258128555927`*^9, 3.548567878298751*^9, 3.548571059706973*^9, 
   3.548575013767395*^9, 3.548591594151249*^9, 3.548662100990755*^9, 
   3.548700123782661*^9, 3.548756256791238*^9, 3.548911248205558*^9, 
   3.548930613063191*^9, 3.548960800919631*^9, 3.549002183319463*^9, 
   3.5490208698882017`*^9, 3.549043544651561*^9, 3.549047031176764*^9, 
   3.549086278432157*^9, 3.549096276860738*^9, 3.549260309773477*^9, 
   3.54927292956292*^9, 3.549305076701807*^9, 3.5493052935651073`*^9, 
   3.549305803525733*^9, 3.549358885415098*^9, 3.5494331505242157`*^9, 
   3.549462316342187*^9, 3.549540249832293*^9, 3.550921588135475*^9, 
   3.5509907196364117`*^9, 3.550996427094977*^9, 3.5509965953219147`*^9, 
   3.555347202741976*^9, 3.557392105649267*^9, 3.5574031533527308`*^9, 
   3.5574664649922743`*^9, 3.55757938259009*^9, 3.557635960615431*^9, 
   3.5584411425722446`*^9, 3.558549889028916*^9, 3.5600077435025663`*^9, 
   3.56004441551118*^9, 3.560185501532308*^9, 3.560186288927453*^9, 
   3.560186364154701*^9, 3.5601865120280533`*^9, 3.560222881711447*^9, 
   3.560256425765058*^9, 3.560268931767061*^9, 3.560269933688374*^9, 
   3.560271418878499*^9, 3.560516256350853*^9, 3.560521602647867*^9, 
   3.56053429121723*^9, 3.560535152500125*^9, 3.560842319137566*^9, 
   3.5608444400341187`*^9, 3.561176810855358*^9, 3.5612108508058558`*^9, 
   3.561269154294229*^9, 3.561275602436037*^9, 3.561276944249035*^9, 
   3.5613028104991007`*^9, 3.561305371012404*^9, 3.56130854255689*^9, 
   3.561308790003767*^9, {3.56136031507344*^9, 3.561360070582065*^9}, 
   3.728115024726695*^9, 3.731234878129978*^9},
 CellLabel->
  "Out[253]=",ExpressionUUID->"ff422597-97e4-443b-9981-3b45b3651560"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "CDgSUnphys"}]}]], "Input",
 CellChangeTimes->{{3.511634073467722*^9, 3.5116340776819487`*^9}, {
  3.511634195015901*^9, 3.511634200108426*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"3c565dfc-f0d4-4c3e-a2b2-3606a8c7d766"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Gamma]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Gamma]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.511634063658517*^9, 3.511634078278307*^9}, 
   3.511634200854971*^9, 3.511724132118771*^9, 3.521276074636231*^9, 
   3.521276849014674*^9, 3.521277318975943*^9, 3.521277503367662*^9, 
   3.521278940645805*^9, 3.521367359948269*^9, 3.521370397813012*^9, 
   3.5214406950080147`*^9, 3.521440931963325*^9, 3.521455915431851*^9, 
   3.5214615416378927`*^9, 3.521507078185655*^9, 3.5215210052637*^9, 
   3.521523022785802*^9, 3.521539072385088*^9, 3.521785495382115*^9, 
   3.5217973689702263`*^9, 3.52180400659723*^9, 3.5218833176783133`*^9, 
   3.521942160076542*^9, 3.521971106597261*^9, 3.521971486019598*^9, 
   3.521971573302792*^9, 3.5219722568677387`*^9, 3.521973963393339*^9, 
   3.522029120044548*^9, 3.524393990384488*^9, 3.524396326366406*^9, 
   3.524977871394239*^9, 3.524997225253961*^9, 3.525069044677651*^9, 
   3.525070802935411*^9, 3.525072078777875*^9, 3.525073234970498*^9, 
   3.5250810305965443`*^9, 3.525187143757504*^9, 3.525240253871025*^9, 
   3.5252439073878613`*^9, 3.525397537512454*^9, 3.5253986801912413`*^9, 
   3.5254934687411203`*^9, 3.525660872616022*^9, 3.5256619162358017`*^9, 
   3.5256629847425413`*^9, 3.5256732850609217`*^9, 3.545738877568347*^9, 
   3.545991140467059*^9, 3.54599148432893*^9, 3.54600013627221*^9, 
   3.5460213644347897`*^9, 3.546057623099024*^9, 3.546064593746674*^9, 
   3.54609113547427*^9, 3.546325614002397*^9, 3.548247338775301*^9, 
   3.548404556100898*^9, 3.5484812539729567`*^9, 3.548511434063272*^9, 
   3.548525812886716*^9, 3.548567878356851*^9, 3.5485710597535753`*^9, 
   3.548575013802928*^9, 3.548591594283793*^9, 3.548662101036314*^9, 
   3.548700123814994*^9, 3.548756256930564*^9, 3.548911248241255*^9, 
   3.548930613109345*^9, 3.548960800948823*^9, 3.5490021833592863`*^9, 
   3.549020869937924*^9, 3.5490435446885433`*^9, 3.54904703120839*^9, 
   3.5490862784529867`*^9, 3.549096276910925*^9, 3.549260309798479*^9, 
   3.5492729296211567`*^9, 3.549305076735351*^9, 3.5493052936116247`*^9, 
   3.5493058035523663`*^9, 3.549358885467993*^9, 3.549433150545306*^9, 
   3.549462316364867*^9, 3.549540249877934*^9, 3.550921588171372*^9, 
   3.550990719687681*^9, 3.5509964271459637`*^9, 3.55099659537428*^9, 
   3.555347202783453*^9, 3.5573921057095537`*^9, 3.55740315340275*^9, 
   3.557466465036491*^9, 3.557579382618248*^9, 3.5576359606564198`*^9, 
   3.558441142610886*^9, 3.55854988906173*^9, 3.560007743546316*^9, 
   3.560044415551991*^9, 3.560185501560328*^9, 3.56018628896838*^9, 
   3.560186364193519*^9, 3.560186512070629*^9, 3.5602228817626753`*^9, 
   3.5602564258094254`*^9, 3.560268931806238*^9, 3.560269933722225*^9, 
   3.560271418914353*^9, 3.560516256393549*^9, 3.560521602693962*^9, 
   3.560534291249996*^9, 3.5605351525355597`*^9, 3.560842319175435*^9, 
   3.560844440077754*^9, 3.5611768108946123`*^9, 3.56121085084829*^9, 
   3.561269154338037*^9, 3.561275602479677*^9, 3.561276944329706*^9, 
   3.5613028105427427`*^9, 3.56130537105501*^9, 3.5613085427113733`*^9, 
   3.561308790056429*^9, {3.561360315130217*^9, 3.5613600706268063`*^9}, 
   3.728115024762044*^9, 3.73123487816226*^9},
 CellLabel->
  "Out[254]=",ExpressionUUID->"2e9fe5fc-b197-49e7-9be2-d136955042e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "Conf1"}]}]], "Input",
 CellChangeTimes->{{3.5115926854104643`*^9, 3.511592693134261*^9}},
 CellLabel->
  "In[255]:=",ExpressionUUID->"b808507f-3455-4425-87fc-657119b6bceb"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Gamma]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["s",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`sUnphys[],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {"\[Gamma]", " "},
               {" ", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[$CellContext`\[Gamma], -$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Gamma]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["s",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`sUnphys[],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {"\[Gamma]", " "},
               {" ", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[$CellContext`\[Gamma], -$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.5116342489673033`*^9, 3.51172413274998*^9, 3.5212760752212133`*^9, 
   3.521276849140016*^9, 3.5212773191157303`*^9, 3.521277503436926*^9, 
   3.521278940738927*^9, 3.521367360023541*^9, 3.521370397848301*^9, 
   3.521440695102038*^9, 3.5214409320393753`*^9, 3.521455915484722*^9, 
   3.521461542698707*^9, 3.521507078212287*^9, 3.5215210053551188`*^9, 
   3.521523022819385*^9, 3.521539072422957*^9, 3.521785495458014*^9, 
   3.5217973690032988`*^9, 3.521804006629414*^9, 3.521883317711115*^9, 
   3.5219421601682167`*^9, 3.521971106628334*^9, 3.5219714860567713`*^9, 
   3.521971573338243*^9, 3.52197225689962*^9, 3.521973963432757*^9, 
   3.522029120173259*^9, 3.524393990442185*^9, 3.524396326388341*^9, 
   3.524977871430729*^9, 3.5249972253100348`*^9, 3.525069045311755*^9, 
   3.5250708029750032`*^9, 3.525072078817697*^9, 3.525073235026599*^9, 
   3.5250810306545*^9, 3.525187143819193*^9, 3.525240253911721*^9, 
   3.5252439074294786`*^9, 3.525397537549749*^9, 3.52539868022528*^9, 
   3.525493468783752*^9, 3.525660872654319*^9, 3.525661916271756*^9, 
   3.5256629847773943`*^9, 3.5256732851162033`*^9, 3.545738877598344*^9, 
   3.545991140541911*^9, 3.545991484491288*^9, 3.54600013642725*^9, 
   3.546021364548567*^9, 3.546057623159172*^9, 3.546064593781377*^9, 
   3.546091135592564*^9, 3.546325614046419*^9, 3.5482473388548822`*^9, 
   3.5484045561511383`*^9, 3.5484812540086737`*^9, 3.54851143411884*^9, 
   3.548525812919134*^9, 3.5485678784103317`*^9, 3.5485710597915697`*^9, 
   3.548575013839753*^9, 3.548591594335183*^9, 3.548662101093855*^9, 
   3.548700123864398*^9, 3.548756256974539*^9, 3.548911248287409*^9, 
   3.5489306131476994`*^9, 3.548960800987232*^9, 3.5490021833965893`*^9, 
   3.549020870043831*^9, 3.5490435447274*^9, 3.5490470312437277`*^9, 
   3.549086278498155*^9, 3.549096276966269*^9, 3.549260309846352*^9, 
   3.549272931658407*^9, 3.549305076773526*^9, 3.54930529364555*^9, 
   3.549305803588335*^9, 3.549358885526165*^9, 3.549433150590383*^9, 
   3.549462316404716*^9, 3.549540249925406*^9, 3.550921588220085*^9, 
   3.550990719738431*^9, 3.550996427177772*^9, 3.5509965954295464`*^9, 
   3.55534720283939*^9, 3.5573921057730627`*^9, 3.557403153444489*^9, 
   3.5574664650750504`*^9, 3.55757938264972*^9, 3.5576359606988773`*^9, 
   3.558441142654517*^9, 3.558549889103835*^9, 3.560007743596282*^9, 
   3.560044415591703*^9, 3.560185501607498*^9, 3.5601862890145807`*^9, 
   3.5601863642492037`*^9, 3.5601865121190357`*^9, 3.5602228818204193`*^9, 
   3.560256425858639*^9, 3.560268931851066*^9, 3.560269933761023*^9, 
   3.560271418955113*^9, 3.560516256451336*^9, 3.5605216027269697`*^9, 
   3.5605342913129*^9, 3.560535152568469*^9, 3.560842319219729*^9, 
   3.56084444012359*^9, 3.5611768109316874`*^9, 3.561210850925399*^9, 
   3.56126915438552*^9, 3.561275602529975*^9, 3.56127694439198*^9, 
   3.561302810628521*^9, 3.561305371103405*^9, 3.561308542947834*^9, 
   3.561308790128426*^9, {3.561360315181958*^9, 3.561360070677351*^9}, 
   3.728115024798334*^9, 3.731234878193428*^9},
 CellLabel->
  "Out[255]=",ExpressionUUID->"d6130288-b8c4-4d8c-8e1c-577792c576fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511634256027487*^9, 3.5116342591724787`*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"724d8bb5-17ca-4260-9d0b-3aa9737677b4"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511634259831635*^9, 3.511724133546548*^9, 3.521276075777493*^9, 
   3.521276849308036*^9, 3.521277319209324*^9, 3.521277503466434*^9, 
   3.5212789408246307`*^9, 3.521367360173629*^9, 3.521370397888665*^9, 
   3.521440695164261*^9, 3.5214409321353693`*^9, 3.521455915511528*^9, 
   3.521461543663843*^9, 3.521507078244834*^9, 3.521521005444511*^9, 
   3.5215230228848667`*^9, 3.521539072461647*^9, 3.5217854955431232`*^9, 
   3.521797369043239*^9, 3.52180400669411*^9, 3.52188331773661*^9, 
   3.52194216029986*^9, 3.521971106676877*^9, 3.521971486104589*^9, 
   3.521971573380568*^9, 3.521972256937804*^9, 3.521973963467333*^9, 
   3.522029120349988*^9, 3.524393990575922*^9, 3.52439632642667*^9, 
   3.524977871471805*^9, 3.524997225380258*^9, 3.525069045832467*^9, 
   3.525070803110413*^9, 3.5250720788748417`*^9, 3.5250732350770283`*^9, 
   3.525081030735112*^9, 3.525187143865058*^9, 3.52524025395612*^9, 
   3.525243907477291*^9, 3.525397537605159*^9, 3.525398680268672*^9, 
   3.525493468827141*^9, 3.5256608727130737`*^9, 3.525661916314513*^9, 
   3.525662984823195*^9, 3.525673285157691*^9, 3.545738877666404*^9, 
   3.545991140580202*^9, 3.5459914846127157`*^9, 3.546000136550302*^9, 
   3.546021364625396*^9, 3.546057623224766*^9, 3.5460645938507338`*^9, 
   3.546091135746346*^9, 3.546325614151701*^9, 3.548247338926318*^9, 
   3.5484045561866217`*^9, 3.54848125406092*^9, 3.54851143418672*^9, 
   3.5485258129662457`*^9, 3.548567878471785*^9, 3.548571059828167*^9, 
   3.548575013892857*^9, 3.548591594400117*^9, 3.5486621011600857`*^9, 
   3.54870012390742*^9, 3.548756257031335*^9, 3.548911248317006*^9, 
   3.54893061320068*^9, 3.5489608010292997`*^9, 3.5490021834422092`*^9, 
   3.549020870140214*^9, 3.549043544825935*^9, 3.5490470312921677`*^9, 
   3.54908627855415*^9, 3.549096277033455*^9, 3.5492603099039288`*^9, 
   3.549272931745575*^9, 3.5493050768163548`*^9, 3.549305293701153*^9, 
   3.5493058036342783`*^9, 3.549358885583508*^9, 3.549433150618081*^9, 
   3.5494623164435463`*^9, 3.549540249973349*^9, 3.550921588283175*^9, 
   3.5509907198282013`*^9, 3.550996427260559*^9, 3.550996595513582*^9, 
   3.555347202902274*^9, 3.55739210584587*^9, 3.557403153489043*^9, 
   3.557466465130329*^9, 3.557579382693521*^9, 3.557635960751381*^9, 
   3.558441142709497*^9, 3.558549889149221*^9, 3.5600077436545258`*^9, 
   3.560044415648189*^9, 3.560185501667963*^9, 3.560186289055993*^9, 
   3.560186364289504*^9, 3.56018651218032*^9, 3.560222881887616*^9, 
   3.5602564259147997`*^9, 3.5602689318922787`*^9, 3.560269933810388*^9, 
   3.560271419006702*^9, 3.56051625655933*^9, 3.560521602760037*^9, 
   3.5605342913514347`*^9, 3.560535152611994*^9, 3.560842319288659*^9, 
   3.5608444401812572`*^9, 3.561176810983176*^9, 3.5612108510014668`*^9, 
   3.561269154430106*^9, 3.561275602583564*^9, 3.561276944474668*^9, 
   3.5613028107013817`*^9, 3.56130537116273*^9, 3.5613085431985807`*^9, 
   3.56130879021135*^9, {3.5613603152233343`*^9, 3.561360070722602*^9}, 
   3.728115024832615*^9, 3.731234878218664*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"9bf31716-6dfd-4b1c-80fc-a025a9852902"]
}, Open  ]],

Cell["\<\
This relation is implied by one of the conformal field equations as we \
explicitly check\
\>", "Text",
 CellChangeTimes->{{3.51163478676548*^9, 3.511634820121976*^9}, {
  3.5116348574320908`*^9, 3.511634863552985*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", 
     RowBox[{"\[CapitalSigma]Unphys", "[", "\[Beta]", "]"}]}], "]"}], "&"}], "/@",
   "Conf3"}]], "Input",
 CellChangeTimes->{{3.511634824011141*^9, 3.511634847587039*^9}, {
  3.52506905209667*^9, 3.5250690528747168`*^9}},
 CellLabel->
  "In[257]:=",ExpressionUUID->"1d0f77eb-9de8-4ef9-a56b-5bfb5980289b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Beta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
    Editable->False], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}], ")"}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.511634316158669*^9, 3.5116348484447737`*^9, 3.511724137627471*^9, 
   3.521276076869102*^9, 3.5212768495218067`*^9, 3.521277319289674*^9, 
   3.52127750347645*^9, 3.5212789409215393`*^9, 3.521367360291106*^9, 
   3.521370397916861*^9, 3.521440695232174*^9, 3.521440932265877*^9, 
   3.521455915536859*^9, 3.5214615458659067`*^9, 3.521507078259396*^9, 
   3.521521005508533*^9, 3.521523022944366*^9, 3.5215390724897537`*^9, 
   3.521785495604225*^9, 3.52179736906713*^9, 3.521804006720531*^9, 
   3.521883317762088*^9, 3.52194216040915*^9, 3.52197110671383*^9, 
   3.5219714861363688`*^9, 3.521971573409079*^9, 3.5219722569645844`*^9, 
   3.521973963532411*^9, 3.522029120727829*^9, 3.5243939906198683`*^9, 
   3.524396326470339*^9, 3.524977871502668*^9, 3.524997225422831*^9, 
   3.525069056641149*^9, 3.525070803145316*^9, 3.5250720789083443`*^9, 
   3.525073235113698*^9, 3.525081030789366*^9, 3.525187143897581*^9, 
   3.525240253989992*^9, 3.525243907519038*^9, 3.525397537648122*^9, 
   3.525398680302504*^9, 3.525493468859888*^9, 3.525660872740539*^9, 
   3.525661916340623*^9, 3.525662984858347*^9, 3.5256732852031517`*^9, 
   3.545738877741503*^9, 3.545991140596142*^9, 3.54599148468613*^9, 
   3.546000136632237*^9, 3.5460213646843367`*^9, 3.546057623265932*^9, 
   3.546064593872322*^9, 3.546091135767355*^9, 3.546325614192884*^9, 
   3.54824733900111*^9, 3.548404556204042*^9, 3.548481254106223*^9, 
   3.548511434208531*^9, 3.54852581299372*^9, 3.5485678785094557`*^9, 
   3.548571059860416*^9, 3.548575013933894*^9, 3.548591594447791*^9, 
   3.548662101178879*^9, 3.5487001239438143`*^9, 3.548756257112104*^9, 
   3.548911248349633*^9, 3.548930613249159*^9, 3.548960801065998*^9, 
   3.54900218347108*^9, 3.549020870389997*^9, 3.5490435448569202`*^9, 
   3.549047031317893*^9, 3.549086278629835*^9, 3.5490962770767317`*^9, 
   3.549260309992321*^9, 3.5492729317977467`*^9, 3.549305076848549*^9, 
   3.549305293713916*^9, 3.549305803669464*^9, 3.549358885600891*^9, 
   3.549433150650025*^9, 3.549462316466775*^9, 3.549540250005991*^9, 
   3.550921588325436*^9, 3.550990719873864*^9, 3.550996427357362*^9, 
   3.550996595572303*^9, 3.555347202966304*^9, 3.557392105900716*^9, 
   3.5574031535215473`*^9, 3.557466465164959*^9, 3.5575793827417507`*^9, 
   3.55763596081012*^9, 3.558441142742268*^9, 3.558549889181636*^9, 
   3.5600077436909447`*^9, 3.560044415687643*^9, 3.5601855017068987`*^9, 
   3.5601862890900793`*^9, 3.560186364321842*^9, 3.5601865122166348`*^9, 
   3.5602228819056787`*^9, 3.5602564259507093`*^9, 3.560268931925393*^9, 
   3.56026993383832*^9, 3.560271419036968*^9, 3.5605162566067944`*^9, 
   3.5605216027736397`*^9, 3.5605342913803043`*^9, 3.56053515264284*^9, 
   3.560842319318646*^9, 3.560844440215273*^9, 3.561176811015953*^9, 
   3.561210851018577*^9, 3.561269154498954*^9, 3.561275602622085*^9, 
   3.561276944509334*^9, 3.561302810720829*^9, 3.5613053712086773`*^9, 
   3.561308543256028*^9, 3.5613087902543373`*^9, {3.561360315259911*^9, 
   3.5613600707602577`*^9}, 3.7281150248645067`*^9, 3.731234878254277*^9},
 CellLabel->
  "Out[257]=",ExpressionUUID->"fb61422d-4a87-4fbf-be0a-5d9a405bbbac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.511634849761825*^9, 3.511634852682412*^9}},
 CellLabel->
  "In[258]:=",ExpressionUUID->"bcef7114-00cc-4591-b912-21da5c20a6d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.5116348532939577`*^9, 3.511724138355907*^9, 3.521276077557701*^9, 
   3.521276849769568*^9, 3.521277319363412*^9, 3.521277503560058*^9, 
   3.521278941001279*^9, 3.521367360403632*^9, 3.521370397969829*^9, 
   3.521440695238525*^9, 3.521440932330812*^9, 3.521455915568054*^9, 
   3.521461546943718*^9, 3.5215070783369837`*^9, 3.521521005610903*^9, 
   3.521523022977145*^9, 3.521539072523342*^9, 3.521785495683152*^9, 
   3.5217973691277437`*^9, 3.521804006767655*^9, 3.521883317794299*^9, 
   3.521942160487206*^9, 3.5219711067449827`*^9, 3.5219714862339487`*^9, 
   3.521971573444413*^9, 3.521972256997363*^9, 3.5219739635714893`*^9, 
   3.522029120839932*^9, 3.524393990671486*^9, 3.524396326491274*^9, 
   3.5249778715391483`*^9, 3.5249972254774723`*^9, 3.525069057568568*^9, 
   3.5250708031865788`*^9, 3.525072078949452*^9, 3.5250732351510897`*^9, 
   3.525081030846607*^9, 3.525187143927287*^9, 3.5252402540308943`*^9, 
   3.5252439075601187`*^9, 3.525397537686448*^9, 3.525398680337657*^9, 
   3.52549346889966*^9, 3.5256608727824993`*^9, 3.525661916377976*^9, 
   3.525662984897213*^9, 3.5256732852535143`*^9, 3.545738877806855*^9, 
   3.5459911406728983`*^9, 3.545991484774356*^9, 3.546000136703473*^9, 
   3.54602136471686*^9, 3.546057623313426*^9, 3.546064593942381*^9, 
   3.546091135818223*^9, 3.546325614231599*^9, 3.548247339069665*^9, 
   3.548404556245091*^9, 3.548481254150255*^9, 3.5485114342495327`*^9, 
   3.548525813046887*^9, 3.5485678785489283`*^9, 3.5485710598855333`*^9, 
   3.54857501397717*^9, 3.548591594499897*^9, 3.548662101216045*^9, 
   3.548700123983021*^9, 3.548756257157898*^9, 3.548911248385116*^9, 
   3.548930613291195*^9, 3.548960801101522*^9, 3.549002183505372*^9, 
   3.549020870663212*^9, 3.549043544895913*^9, 3.549047031351121*^9, 
   3.5490862786826897`*^9, 3.5490962771172447`*^9, 3.549260310035611*^9, 
   3.549272931847456*^9, 3.549305076891045*^9, 3.5493052937368937`*^9, 
   3.549305803702909*^9, 3.549358885627442*^9, 3.549433150678009*^9, 
   3.549462316504394*^9, 3.549540250048152*^9, 3.550921588361906*^9, 
   3.550990719923809*^9, 3.550996427438117*^9, 3.550996595619212*^9, 
   3.555347203017*^9, 3.557392105957869*^9, 3.557403153550362*^9, 
   3.557466465219327*^9, 3.557579382779196*^9, 3.557635960839272*^9, 
   3.558441142788108*^9, 3.558549889220983*^9, 3.560007743739264*^9, 
   3.560044415735017*^9, 3.5601855017704372`*^9, 3.560186289132679*^9, 
   3.560186364361074*^9, 3.560186512283572*^9, 3.560222881953547*^9, 
   3.560256425998362*^9, 3.560268931971231*^9, 3.560269933878628*^9, 
   3.560271419079583*^9, 3.560516256664496*^9, 3.560521602817111*^9, 
   3.5605342914120626`*^9, 3.560535152669589*^9, 3.560842319361128*^9, 
   3.560844440264193*^9, 3.561176811050218*^9, 3.561210851058771*^9, 
   3.561269154548839*^9, 3.561275602662201*^9, 3.561276944587821*^9, 
   3.561302810761372*^9, 3.5613053712479477`*^9, 3.561308543567511*^9, 
   3.5613087903038073`*^9, {3.561360315309517*^9, 3.5613600708039618`*^9}, 
   3.728115024900725*^9, 3.7312348782873697`*^9},
 CellLabel->
  "Out[258]=",ExpressionUUID->"fc153bf6-4e0a-47fb-b0b2-5c3278464f0b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Summary (set of  \"metric conformal field equations\")", "Subsubsection",
 CellChangeTimes->{{3.5116334549624767`*^9, 3.511633456394369*^9}, {
  3.511634934956191*^9, 3.5116349518375463`*^9}, {3.511723884800748*^9, 
  3.5117238891850224`*^9}}],

Cell["We introduce the expression", "Text",
 CellChangeTimes->{{3.511724379408758*^9, 3.5117243870175467`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"conf2", "=", 
  RowBox[{"RiemannUnphysToSchoutenUnphys", "/.", 
   RowBox[{"ApplyRule", "@", "WeylToRescaledWeylUnphys"}]}]}]], "Input",
 CellChangeTimes->{{3.511724320286901*^9, 3.511724339400827*^9}},
 CellLabel->
  "In[259]:=",ExpressionUUID->"3acc42fb-7697-4c07-9159-15d2c06c2133"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.511724294105372*^9, {3.511724326512691*^9, 3.511724342085958*^9}, 
   3.521276085045429*^9, 3.52127685469349*^9, 3.521277321819007*^9, 
   3.521277503587503*^9, 3.521278941247514*^9, 3.521367368258213*^9, 
   3.521370407967703*^9, 3.5214406953221188`*^9, 3.521440932411224*^9, 
   3.5214559156045103`*^9, 3.521461553678803*^9, 3.521507083467268*^9, 
   3.521521005958108*^9, 3.52152302301805*^9, 3.521539074047762*^9, 
   3.5217854958293333`*^9, 3.521797370428358*^9, 3.521804006812605*^9, 
   3.5218833178445787`*^9, 3.5219421605841503`*^9, 3.5219711067713947`*^9, 
   3.521971486276108*^9, 3.521971573482995*^9, 3.521972257033545*^9, 
   3.52197396361185*^9, 3.522029120954874*^9, 3.524393992573825*^9, 
   3.524396326516906*^9, 3.524977871578339*^9, 3.524997225539084*^9, 
   3.5250690654137163`*^9, 3.5250708032379923`*^9, 3.525072078993332*^9, 
   3.525073235220274*^9, 3.5250810309082737`*^9, 3.5251871439688883`*^9, 
   3.525240254091382*^9, 3.525243907594866*^9, 3.5253975377330503`*^9, 
   3.52539868037393*^9, 3.5254934689387617`*^9, 3.5256608728209*^9, 
   3.5256619164157467`*^9, 3.5256629849433804`*^9, 3.525673285315975*^9, 
   3.545738877885235*^9, 3.5459911407191057`*^9, 3.5459914848038797`*^9, 
   3.546000136846843*^9, 3.546021364745851*^9, 3.546057623387137*^9, 
   3.546064594011592*^9, 3.546091135911511*^9, 3.5463256142760983`*^9, 
   3.54824733915876*^9, 3.548404556296331*^9, 3.548481254199172*^9, 
   3.5485114343124037`*^9, 3.5485258130874157`*^9, 3.548567878603251*^9, 
   3.548571059917838*^9, 3.548575014034237*^9, 3.548591594575687*^9, 
   3.548662101285654*^9, 3.548700124052515*^9, 3.548756257212728*^9, 
   3.548911248435964*^9, 3.548930613344355*^9, 3.548960801152595*^9, 
   3.549002183552765*^9, 3.549020870736044*^9, 3.549043544945014*^9, 
   3.549047031391838*^9, 3.549086278736456*^9, 3.549096277153191*^9, 
   3.5492603100672417`*^9, 3.549272931898106*^9, 3.549305076936408*^9, 
   3.549305293774592*^9, 3.549305803743976*^9, 3.549358885658196*^9, 
   3.5494331507246923`*^9, 3.549462316546432*^9, 3.549540250097309*^9, 
   3.5509215884181747`*^9, 3.550990719974009*^9, 3.5509964274973097`*^9, 
   3.5509965956743517`*^9, 3.555347203063147*^9, 3.557392106020707*^9, 
   3.557403153594397*^9, 3.5574664652665033`*^9, 3.557579382812825*^9, 
   3.557635960892128*^9, 3.558441142833788*^9, 3.5585498892554903`*^9, 
   3.560007743785678*^9, 3.5600444157828207`*^9, 3.56018550184511*^9, 
   3.560186289180517*^9, 3.5601863644073353`*^9, 3.5601865123326283`*^9, 
   3.5602228820143213`*^9, 3.560256426044202*^9, 3.5602689320175323`*^9, 
   3.560269933912448*^9, 3.560271419122316*^9, 3.560516256727491*^9, 
   3.560521602871418*^9, 3.5605342914498997`*^9, 3.5605351527107363`*^9, 
   3.560842319399807*^9, 3.560844440304982*^9, 3.5611768110995398`*^9, 
   3.5612108511096478`*^9, 3.561269154612217*^9, 3.561275602712541*^9, 
   3.5612769446399117`*^9, 3.561302810814357*^9, 3.5613053712919807`*^9, 
   3.56130854361166*^9, 3.5613087903603897`*^9, {3.561360315391171*^9, 
   3.561360070860269*^9}, 3.728115024934433*^9, 3.731234878320635*^9},
 CellLabel->
  "Out[259]=",ExpressionUUID->"c18c6f04-99b6-42ef-b876-afb51afb1c20"]
}, Open  ]],

Cell["This is the list of \"metric conformal field equations\" ", "Text",
 CellChangeTimes->{{3.5116334591322403`*^9, 3.511633480382038*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MetricConformalEquations", "=", 
  RowBox[{"{", 
   RowBox[{
   "CDg\[CapitalTheta]", ",", "Conf1", ",", "conf2", ",", "CDgSUnphys", ",", 
    "Conf3", ",", "Conf4"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.511633522603067*^9, 3.511633523904608*^9}, {
  3.511633554941551*^9, 3.511633613253496*^9}, {3.5117243516271267`*^9, 
  3.51172435566781*^9}, {3.5212777850788803`*^9, 3.521277793506399*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"baeb3e29-0c1d-4703-866f-27af8ad94e03"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], "\[Equal]", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Beta]][
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Delta]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[Delta]", 
           StyleBox[GridBox[{
              {" ", "\[Delta]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", "\[Delta]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Gamma]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", "\[Delta]"},
              {"\[Alpha]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", "\[Delta]"},
              {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
      Editable->False]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Alpha]][
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CDg[-$CellContext`\[Gamma]][
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", "\[Alpha]"},
             {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CDg[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
     Editable->False], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.511633520993539*^9, 3.511633613804769*^9, 3.511724356499177*^9, 
   3.5212760864630957`*^9, 3.521276854842757*^9, 3.521277324185348*^9, 
   3.521277503613187*^9, 3.52127779469453*^9, 3.5212789415105333`*^9, 
   3.521367368394391*^9, 3.521370408031704*^9, 3.521440695389297*^9, 
   3.5214409324796677`*^9, 3.5214559156398153`*^9, 3.521461555759469*^9, 
   3.521507085006239*^9, 3.521521009311696*^9, 3.5215230230559587`*^9, 
   3.521539074101409*^9, 3.5217854959126883`*^9, 3.521797370479816*^9, 
   3.521804006847267*^9, 3.521883317902183*^9, 3.5219421606523933`*^9, 
   3.521971106807974*^9, 3.521971486380533*^9, 3.52197157351766*^9, 
   3.5219722570883493`*^9, 3.521973963649737*^9, 3.52202912109343*^9, 
   3.524393992676263*^9, 3.5243963265447073`*^9, 3.524977871612713*^9, 
   3.5249972256048613`*^9, 3.52506907135229*^9, 3.525070803285102*^9, 
   3.525072079036924*^9, 3.525073235276528*^9, 3.525081030975898*^9, 
   3.525187144057197*^9, 3.525240254139584*^9, 3.525243907639146*^9, 
   3.525397537766656*^9, 3.52539868041108*^9, 3.525493468981805*^9, 
   3.5256608728660383`*^9, 3.5256619164489393`*^9, 3.525662984984189*^9, 
   3.525673285394367*^9, 3.545738877926482*^9, 3.545991140746035*^9, 
   3.545991484830805*^9, 3.5460001369743567`*^9, 3.5460213648048763`*^9, 
   3.546057623459612*^9, 3.546064594060082*^9, 3.54609113598691*^9, 
   3.546325614372693*^9, 3.548247339236351*^9, 3.548404556393244*^9, 
   3.548481254247656*^9, 3.548511434386424*^9, 3.548525813126917*^9, 
   3.548567878663443*^9, 3.548571059959325*^9, 3.5485750140875874`*^9, 
   3.548591594636072*^9, 3.548662101376683*^9, 3.54870012408974*^9, 
   3.5487562572767143`*^9, 3.5489112484777412`*^9, 3.548930613391727*^9, 
   3.54896080123281*^9, 3.549002183594823*^9, 3.549020870797151*^9, 
   3.5490435449824533`*^9, 3.549047031420628*^9, 3.54908627884691*^9, 
   3.5490962771896772`*^9, 3.549260310098908*^9, 3.549272931931149*^9, 
   3.5493050769899282`*^9, 3.5493052938145313`*^9, 3.549305803789742*^9, 
   3.549358885724573*^9, 3.549433150768828*^9, 3.549462316594645*^9, 
   3.549540250150923*^9, 3.550921588460026*^9, 3.550990720035494*^9, 
   3.550996427566307*^9, 3.55099659572998*^9, 3.555347203108198*^9, 
   3.557392106096109*^9, 3.557403153638666*^9, 3.557466465359563*^9, 
   3.557579382872293*^9, 3.557635960950569*^9, 3.558441142877836*^9, 
   3.558549889307744*^9, 3.5600077438442287`*^9, 3.560044415830208*^9, 
   3.5601855019371977`*^9, 3.5601862892265453`*^9, 3.560186364451788*^9, 
   3.560186512379895*^9, 3.560222882080434*^9, 3.560256426102215*^9, 
   3.560268932062353*^9, 3.560269933951906*^9, 3.5602714191635942`*^9, 
   3.560516256808154*^9, 3.560521602924658*^9, 3.5605342914874153`*^9, 
   3.5605351527722197`*^9, 3.560842319454533*^9, 3.560844440351153*^9, 
   3.5611768111711683`*^9, 3.5612108511586323`*^9, 3.561269154673641*^9, 
   3.561275602760255*^9, 3.561276944713258*^9, 3.561302810864971*^9, 
   3.561305371389175*^9, 3.561308543740992*^9, 3.561308790418758*^9, {
   3.561360315452229*^9, 3.56136007091945*^9}, 3.728115024979789*^9, 
   3.7312348783595257`*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"ed12ea19-b679-4e81-a3d7-96800069b87f"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["The extended conformal field equations", "Subsection",
 CellChangeTimes->{{3.521276957921382*^9, 
  3.521276965533889*^9}},ExpressionUUID->"58986b10-2d12-48f7-aa8c-\
1893e8221ff3"],

Cell["\<\
We write next the metric conformal field equations in terms of the Weyl \
connection. This yields the so called \"extended conformal field equations\". \
\>", "Text",
 CellChangeTimes->{{3.52136802098615*^9, 3.5213680380908823`*^9}, {
  3.521434372523831*^9, 3.521434391009582*^9}}],

Cell[CellGroupData[{

Cell[BoxData["RiemannWeylToRiemannUnphysWeylCD"], "Input",
 CellLabel->
  "In[261]:=",ExpressionUUID->"438cd96b-897f-495e-9a78-f04b44a6effe"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", "\[Del]", "]"}], 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Delta]"},
           {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RiemannCDg[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
        
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       Editable->False], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Beta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521508784314764*^9, 3.521514171335741*^9, 3.521521021541851*^9, 
   3.521523062526936*^9, 3.52153907847922*^9, 3.521785516250223*^9, 
   3.5217973822490664`*^9, 3.521804017366212*^9, 3.521883327635413*^9, 
   3.521942169334695*^9, 3.521971131060938*^9, 3.521971488507236*^9, 
   3.521971584866905*^9, 3.521972287259891*^9, 3.5219739749775553`*^9, 
   3.5220291212787323`*^9, 3.524394003686071*^9, 3.524396331598007*^9, 
   3.524977898935359*^9, 3.52499724066112*^9, 3.525069166303791*^9, 
   3.5250708033328876`*^9, 3.525072079362577*^9, 3.525073245222619*^9, 
   3.5250810310458937`*^9, 3.525187144109421*^9, 3.525240254844676*^9, 
   3.525243907756233*^9, 3.525397544556223*^9, 3.525398680473219*^9, 
   3.525493469021516*^9, 3.525660872935543*^9, 3.525661916490906*^9, 
   3.5256629850454693`*^9, 3.525673285454278*^9, 3.54573887796793*^9, 
   3.545991140887704*^9, 3.545991484923088*^9, 3.546000160559149*^9, 
   3.546021364927816*^9, 3.546057623537149*^9, 3.546064594156102*^9, 
   3.5460911360804768`*^9, 3.5463256144256887`*^9, 3.5482473393954372`*^9, 
   3.5484045564730988`*^9, 3.548481254303381*^9, 3.54851143447439*^9, 
   3.54852581318159*^9, 3.5485678787354403`*^9, 3.548571060018708*^9, 
   3.548575014261486*^9, 3.54859159577242*^9, 3.548662101449087*^9, 
   3.548700124146895*^9, 3.5487562573401747`*^9, 3.54891124853957*^9, 
   3.5489306134716454`*^9, 3.548960801294916*^9, 3.5490021836498547`*^9, 
   3.549020870891946*^9, 3.5490435450693693`*^9, 3.549047031481925*^9, 
   3.549086278925557*^9, 3.54909627723389*^9, 3.549260310194168*^9, 
   3.5492729319659157`*^9, 3.549305077058895*^9, 3.549305293872711*^9, 
   3.549305803862167*^9, 3.549358885817513*^9, 3.549433150837675*^9, 
   3.549462316653554*^9, 3.5495402502148848`*^9, 3.550921588495965*^9, 
   3.5509907201266947`*^9, 3.550996427662488*^9, 3.550996595774982*^9, 
   3.555347240912925*^9, 3.5573921061758623`*^9, 3.5574031537019587`*^9, 
   3.557466472145052*^9, 3.557579387683766*^9, 3.557635977483423*^9, 
   3.558441142949895*^9, 3.5585498893735933`*^9, 3.560007743926447*^9, 
   3.5600444159053087`*^9, 3.560185502104114*^9, 3.560186289303952*^9, 
   3.560186364525896*^9, 3.56018651248071*^9, 3.560222882182519*^9, 
   3.56025642618307*^9, 3.56026893217375*^9, 3.560269933988658*^9, 
   3.560271419229423*^9, 3.560516256901495*^9, 3.5605216030117073`*^9, 
   3.560534291544298*^9, 3.5605351528346233`*^9, 3.5608423194996977`*^9, 
   3.560844440425891*^9, 3.561176811214229*^9, 3.561210851203977*^9, 
   3.561269175038372*^9, 3.56127560284048*^9, 3.561276944766655*^9, 
   3.561302854559908*^9, 3.5613053714662724`*^9, 3.561308543789666*^9, 
   3.5613087904683113`*^9, {3.561360315537911*^9, 3.56136007099446*^9}, 
   3.728115025351143*^9, 3.731234878398901*^9},
 CellLabel->
  "Out[261]=",ExpressionUUID->"e5ed12eb-877f-4254-b824-7615944d9a13"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RiemannWeylToRiemannUnphysWeylCD", "/.", 
  RowBox[{"ApplyRule", "@", "conf2"}]}]], "Input",
 CellChangeTimes->{{3.521367943582646*^9, 3.5213679505438747`*^9}},
 CellLabel->
  "In[262]:=",ExpressionUUID->"8c90777a-4ce2-4e52-ad00-64c52f461ad1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
        
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       Editable->False], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Beta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521367926179145*^9, 3.5213679657576733`*^9, {3.521368660093598*^9, 
   3.521368680168006*^9}, 3.521370423388404*^9, 3.521440700206489*^9, 
   3.521440933648238*^9, 3.5214559345484467`*^9, 3.521461561211425*^9, 
   3.52150730239012*^9, 3.521514171940783*^9, 3.521521024088273*^9, 
   3.521523062601371*^9, 3.521539079979597*^9, 3.521785516987123*^9, 
   3.52179738310921*^9, 3.521804017451128*^9, 3.5218833289797163`*^9, 
   3.521942169861629*^9, 3.521971131141095*^9, 3.521971488598132*^9, 
   3.521971585009709*^9, 3.521972288600161*^9, 3.521973975077656*^9, 
   3.522029121477242*^9, 3.524394004493734*^9, 3.524396331683579*^9, 
   3.52497789968537*^9, 3.524997241430942*^9, 3.5250691673737183`*^9, 
   3.52507080341339*^9, 3.525072079402937*^9, 3.525073245321575*^9, 
   3.525081031093505*^9, 3.525187144162528*^9, 3.525240254892467*^9, 
   3.525243907823564*^9, 3.525397544687325*^9, 3.525398680528709*^9, 
   3.525493469074177*^9, 3.525660873000449*^9, 3.5256619165448217`*^9, 
   3.5256629850951433`*^9, 3.525673285555503*^9, 3.545738878090777*^9, 
   3.545991141014427*^9, 3.5459914850476723`*^9, 3.546000161224842*^9, 
   3.5460213650207863`*^9, 3.5460576236164503`*^9, 3.546064594255292*^9, 
   3.54609113615169*^9, 3.546325614511283*^9, 3.548247440185465*^9, 
   3.54840455656427*^9, 3.548481254406555*^9, 3.5485114345352583`*^9, 
   3.548525813237808*^9, 3.5485678787990513`*^9, 3.548571060073223*^9, 
   3.548575014296337*^9, 3.548591595885231*^9, 3.548662101505797*^9, 
   3.548700124200066*^9, 3.548756257405642*^9, 3.548911248596208*^9, 
   3.548930613539411*^9, 3.548960801343247*^9, 3.549002183703175*^9, 
   3.5490208709600277`*^9, 3.549043545123197*^9, 3.549047031540585*^9, 
   3.549086278981152*^9, 3.549096277310295*^9, 3.549260310263083*^9, 
   3.549272932008987*^9, 3.549305077113446*^9, 3.5493052939258633`*^9, 
   3.549305803906231*^9, 3.5493588858827*^9, 3.549433150885593*^9, 
   3.549462316722433*^9, 3.549540250262287*^9, 3.550921588538199*^9, 
   3.550990720229636*^9, 3.550996427743286*^9, 3.550996595857765*^9, 
   3.555347241028266*^9, 3.557392106247191*^9, 3.557403153763269*^9, 
   3.557466472272767*^9, 3.557579387763403*^9, 3.5576359776856737`*^9, 
   3.5584411430200872`*^9, 3.558549889431723*^9, 3.560007744009267*^9, 
   3.5600444159748917`*^9, 3.560185502204032*^9, 3.560186289373898*^9, 
   3.5601863645937433`*^9, 3.5601865125517797`*^9, 3.560222882262002*^9, 
   3.56025642626575*^9, 3.560268932225072*^9, 3.5602699340526323`*^9, 
   3.5602714192973537`*^9, 3.560516256996181*^9, 3.560521603093361*^9, 
   3.5605342916009197`*^9, 3.560535152884797*^9, 3.5608423195770206`*^9, 
   3.560844440499549*^9, 3.561176811293092*^9, 3.56121085125741*^9, 
   3.561269175177855*^9, 3.5612756029149723`*^9, 3.561276944821512*^9, 
   3.561302854723463*^9, 3.5613053715543327`*^9, 3.561308543870371*^9, 
   3.5613087906017733`*^9, {3.5613603156230717`*^9, 3.561360071078796*^9}, 
   3.728115025443898*^9, 3.731234878449432*^9},
 CellLabel->
  "Out[262]=",ExpressionUUID->"32570309-cf19-450a-bc03-184fb3d7e06a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5213679742168713`*^9, 3.521367978347417*^9}},
 CellLabel->
  "In[263]:=",ExpressionUUID->"9bda6ada-e96d-4d4d-94f5-4d41609f6b65"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Beta]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Beta], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]"},
            {"\[CurlyEpsilon]", "\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][$CellContext`\[Delta]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521367979071497*^9, {3.5213686609896803`*^9, 3.521368680774321*^9}, 
   3.5213704244890842`*^9, 3.521440700840899*^9, 3.52144093429316*^9, 
   3.521455936129036*^9, 3.521461567290668*^9, 3.5215073033037157`*^9, 
   3.521514172723051*^9, 3.521521025684153*^9, 3.521523062658186*^9, 
   3.5215390809889*^9, 3.521785517828657*^9, 3.521797383708536*^9, 
   3.521804017516386*^9, 3.5218833299953823`*^9, 3.52194217035763*^9, 
   3.521971131200966*^9, 3.521971488664925*^9, 3.5219715850748577`*^9, 
   3.5219722904966497`*^9, 3.521973975140593*^9, 3.5220291218135347`*^9, 
   3.524394005141899*^9, 3.524396331800096*^9, 3.5249779002114677`*^9, 
   3.524997242251627*^9, 3.525069168019733*^9, 3.5250708034830427`*^9, 
   3.525072079466887*^9, 3.525073245385828*^9, 3.525081031148747*^9, 
   3.525187144219636*^9, 3.525240254963256*^9, 3.525243907867136*^9, 
   3.525397544748473*^9, 3.525398680586453*^9, 3.5254934691422443`*^9, 
   3.525660873048311*^9, 3.525661916631113*^9, 3.525662985152709*^9, 
   3.525673285678113*^9, 3.5457388781865263`*^9, 3.545991141094631*^9, 
   3.5459914851877823`*^9, 3.546000161661721*^9, 3.546021365085669*^9, 
   3.546057623712219*^9, 3.546064594354944*^9, 3.546091136222453*^9, 
   3.546325614631784*^9, 3.5482474411664248`*^9, 3.548404556645913*^9, 
   3.548481254545195*^9, 3.548511434626788*^9, 3.5485258133002453`*^9, 
   3.548567878844013*^9, 3.548571060123897*^9, 3.548575014359037*^9, 
   3.548591595955626*^9, 3.5486621015728807`*^9, 3.548700124257676*^9, 
   3.548756257463315*^9, 3.548911248658742*^9, 3.5489306136021757`*^9, 
   3.548960801398501*^9, 3.54900218376705*^9, 3.549020871055368*^9, 
   3.549043545166154*^9, 3.549047031603676*^9, 3.549086279036318*^9, 
   3.5490962773906517`*^9, 3.54926031032928*^9, 3.549272932082713*^9, 
   3.549305077177244*^9, 3.5493052939844933`*^9, 3.549305803971188*^9, 
   3.549358885985366*^9, 3.549433150947855*^9, 3.54946231678096*^9, 
   3.549540250313251*^9, 3.5509215886000967`*^9, 3.550990720296751*^9, 
   3.55099642782915*^9, 3.550996595928115*^9, 3.555347241120908*^9, 
   3.557392106341552*^9, 3.5574031538290157`*^9, 3.557466472344182*^9, 
   3.557579387842203*^9, 3.5576359777924747`*^9, 3.558441143084119*^9, 
   3.5585498894976397`*^9, 3.560007744096806*^9, 3.560044416054667*^9, 
   3.5601855023107*^9, 3.560186289454906*^9, 3.5601863646719646`*^9, 
   3.560186512633506*^9, 3.560222882356773*^9, 3.560256426352656*^9, 
   3.5602689323053417`*^9, 3.560269934126058*^9, 3.560271419358945*^9, 
   3.560516257105451*^9, 3.560521603182605*^9, 3.56053429166745*^9, 
   3.5605351529402037`*^9, 3.5608423196590147`*^9, 3.560844440584551*^9, 
   3.561176811375017*^9, 3.561210851323781*^9, 3.5612691752935963`*^9, 
   3.561275602998317*^9, 3.561276944906069*^9, 3.561302854858729*^9, 
   3.561305371622385*^9, 3.5613085439469767`*^9, 3.5613087907050953`*^9, {
   3.561360315717168*^9, 3.561360071169744*^9}, 3.7281150255402203`*^9, 
   3.731234878554379*^9},
 CellLabel->
  "Out[263]=",ExpressionUUID->"d0fce82a-f55a-440e-beb9-6ee621845d39"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"HoldPattern", "@", 
        RowBox[{"delta", "[", "__", "]"}]}], ",", 
       RowBox[{"Unphysicalg", "[", "__", "]"}]}], "}"}], ",", "Simplify"}], 
    "]"}], "&"}], "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5215073692170267`*^9, 3.521507431224394*^9}},
 CellLabel->
  "In[264]:=",ExpressionUUID->"0175d895-3c95-4534-af90-d1e9b9ae0490"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "^"], "]"}], 
       StyleBox[GridBox[{
          {" ", " ", " ", "\[Delta]"},
          {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`RiemannWeylCD[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
       Editable->False], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]", 
         StyleBox[GridBox[{
            {" ", "\[Delta]"},
            {"\[Alpha]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Alpha]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", "\[Delta]"},
              {"\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], $CellContext`\[Delta]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {"\[Delta]", " ", " "},
               {" ", "\[Beta]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], \
-$CellContext`\[Beta], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", "\[Delta]"},
               {"\[CurlyEpsilon]", "\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][$CellContext`\[Delta]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.5215073882789803`*^9, 3.521507401965125*^9}, 
   3.521507431993072*^9, 3.521514173819956*^9, 3.521521032082726*^9, 
   3.521523062714512*^9, 3.5215390818579893`*^9, 3.521785518777491*^9, 
   3.5217973842564163`*^9, 3.52180401755891*^9, 3.521883331189086*^9, 
   3.521942170821644*^9, 3.521971131262793*^9, 3.521971488837634*^9, 
   3.52197158513813*^9, 3.52197229219775*^9, 3.521973975251587*^9, 
   3.522029122359276*^9, 3.5243940057882*^9, 3.524396331895502*^9, 
   3.524977900701733*^9, 3.5249972427781057`*^9, 3.525069169036685*^9, 
   3.525070803532559*^9, 3.52507207951464*^9, 3.525073245436965*^9, 
   3.525081031211012*^9, 3.525187144250958*^9, 3.525240255012136*^9, 
   3.52524390792822*^9, 3.525397544796542*^9, 3.525398680622719*^9, 
   3.525493469178207*^9, 3.52566087308747*^9, 3.52566191666278*^9, 
   3.525662985185172*^9, 3.5256732857353687`*^9, 3.545738878246887*^9, 
   3.545991141191813*^9, 3.5459914853032007`*^9, 3.546000162183894*^9, 
   3.546021365168026*^9, 3.5460576237887707`*^9, 3.546064594419262*^9, 
   3.5460911362587233`*^9, 3.5463256147061768`*^9, 3.548247441878065*^9, 
   3.548404556693615*^9, 3.5484812546181173`*^9, 3.548511434683079*^9, 
   3.5485258133320217`*^9, 3.548567878898119*^9, 3.548571060160334*^9, 
   3.5485750144092007`*^9, 3.5485915959804688`*^9, 3.548662101643655*^9, 
   3.548700124291544*^9, 3.548756257492036*^9, 3.548911248696068*^9, 
   3.5489306136395884`*^9, 3.5489608014699*^9, 3.549002183809733*^9, 
   3.549020871133398*^9, 3.549043545201859*^9, 3.54904703163878*^9, 
   3.549086279084054*^9, 3.5490962774198303`*^9, 3.5492603103761797`*^9, 
   3.549272932132866*^9, 3.549305077212666*^9, 3.549305294022956*^9, 
   3.5493058040099*^9, 3.5493588860417013`*^9, 3.549433150992*^9, 
   3.5494623168267927`*^9, 3.549540250356711*^9, 3.550921588643029*^9, 
   3.550990720355094*^9, 3.550996427974969*^9, 3.550996595985608*^9, 
   3.55534724117596*^9, 3.55739210640965*^9, 3.557403153865048*^9, 
   3.557466472387196*^9, 3.557579387886869*^9, 3.557635977842292*^9, 
   3.558441143126589*^9, 3.558549889531335*^9, 3.560007744147155*^9, 
   3.560044416102593*^9, 3.56018550236296*^9, 3.560186289499708*^9, 
   3.560186364714355*^9, 3.560186512686842*^9, 3.560222882416634*^9, 
   3.560256426401758*^9, 3.560268932348455*^9, 3.560269934163335*^9, 
   3.5602714193989077`*^9, 3.5605162571555758`*^9, 3.560521603235964*^9, 
   3.560534291705965*^9, 3.560535152976125*^9, 3.5608423196988*^9, 
   3.5608444406247177`*^9, 3.561176811420959*^9, 3.5612108513704367`*^9, 
   3.5612691753365183`*^9, 3.561275603053076*^9, 3.5612769449447927`*^9, 
   3.561302854896497*^9, 3.561305371667964*^9, 3.561308544005995*^9, 
   3.56130879075491*^9, {3.561360315763083*^9, 3.561360071255068*^9}, 
   3.728115025583106*^9, 3.731234878593196*^9},
 CellLabel->
  "Out[264]=",ExpressionUUID->"38bbb1f0-a3a2-4dcf-8835-5bc4abf58106"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"conf2Weyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521368682728867*^9, 3.521368692327085*^9}},
 CellLabel->
  "In[265]:=",ExpressionUUID->"2e245b94-f60d-4e2b-8501-9465718bedad"],

Cell[CellGroupData[{

Cell[TextData[{
 "Equation ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "a"], "\[CapitalTheta]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`a][
     $CellContext`\[CapitalTheta][]],
    Editable->False], "\[Equal]", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->9]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`a],
    Editable->False]}]], "Output",
  CellChangeTimes->{{3.521277339020455*^9, 3.5212773873878803`*^9}, 
    3.521277557274631*^9, 3.5212776995937157`*^9, {3.521277753435549*^9, 
    3.521277775963327*^9}, 3.521278944611724*^9, 3.521367599497094*^9}]
}], "Subsubsection",
 CellChangeTimes->{{3.521368149469947*^9, 3.5213681578989677`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "CDg\[CapitalTheta]"}]], "Input",
 CellChangeTimes->{{3.521277334579237*^9, 3.521277386252728*^9}, 
   3.521277554595015*^9},
 CellLabel->
  "In[266]:=",ExpressionUUID->"e75cc9a8-8dfe-4ffb-b997-0167a03d5b61"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`\[CapitalTheta][]],
   Editable->False], "\[Equal]", 
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[CapitalSigma]", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
   Editable->False]}]], "Output",
 CellChangeTimes->{{3.521277339020455*^9, 3.5212773873878803`*^9}, 
   3.521277557274631*^9, 3.5212776995937157`*^9, {3.521277753435549*^9, 
   3.521277775963327*^9}, 3.521278944611724*^9, 3.521367599497094*^9, 
   3.521370428480463*^9, 3.521440706974622*^9, 3.521440938820488*^9, 
   3.5214559442453127`*^9, 3.521461694303207*^9, 3.521511288445119*^9, 
   3.521521063634386*^9, 3.52152306279568*^9, 3.521539094010646*^9, 
   3.521785526186479*^9, 3.521797390660269*^9, 3.5218040175894203`*^9, 
   3.521883458265897*^9, 3.521942188928104*^9, 3.521971131343111*^9, 
   3.521971488902567*^9, 3.521971585230253*^9, 3.521972303270268*^9, 
   3.5219739753245564`*^9, 3.522029122799451*^9, 3.5243940155535603`*^9, 
   3.5243963320055943`*^9, 3.524977909087741*^9, 3.524997249557802*^9, 
   3.525069175482504*^9, 3.5250708035714607`*^9, 3.525072079550345*^9, 
   3.5250732548647537`*^9, 3.5250810312334223`*^9, 3.525187144284401*^9, 
   3.5252402550615788`*^9, 3.525243907967984*^9, 3.5253975448319063`*^9, 
   3.5253986806525183`*^9, 3.525493469212161*^9, 3.525660873118816*^9, 
   3.5256619166945*^9, 3.5256629852153378`*^9, 3.5256732857785*^9, 
   3.545738878430571*^9, 3.545991141309711*^9, 3.545991488690456*^9, 
   3.5460001637582693`*^9, 3.546021365188417*^9, 3.546057623870487*^9, 
   3.546064594481669*^9, 3.546091136313285*^9, 3.546325614811509*^9, 
   3.548247469693619*^9, 3.5484045567395353`*^9, 3.548481254756085*^9, 
   3.5485114347363243`*^9, 3.5485258134194098`*^9, 3.548567878956194*^9, 
   3.548571060224511*^9, 3.548575014448718*^9, 3.5485915959992847`*^9, 
   3.54866210169785*^9, 3.548700124326107*^9, 3.54875625751291*^9, 
   3.548911248737979*^9, 3.548930613674614*^9, 3.548960801482793*^9, 
   3.5490021838217697`*^9, 3.5490208712000847`*^9, 3.549043545231756*^9, 
   3.5490470316711283`*^9, 3.549086279120181*^9, 3.549096277441101*^9, 
   3.549260310441641*^9, 3.5492729321760893`*^9, 3.54930507724165*^9, 
   3.549305294054572*^9, 3.5493058040441628`*^9, 3.549358886089388*^9, 
   3.549433151055216*^9, 3.5494623168796587`*^9, 3.5495402504084997`*^9, 
   3.550921588683756*^9, 3.550990720411398*^9, 3.550996428014022*^9, 
   3.5509965960471487`*^9, 3.555347241194631*^9, 3.5573921064724083`*^9, 
   3.5574031539045467`*^9, 3.5574664724301853`*^9, 3.5575793879222183`*^9, 
   3.55763597787357*^9, 3.558441143165012*^9, 3.558549889560492*^9, 
   3.560007744187356*^9, 3.560044416121669*^9, 3.56018550249087*^9, 
   3.5601862895400953`*^9, 3.560186364752989*^9, 3.5601865127701674`*^9, 
   3.560222882465884*^9, 3.560256426442354*^9, 3.560268932387328*^9, 
   3.560269934182743*^9, 3.5602714194345093`*^9, 3.560516257199408*^9, 
   3.5605216032625647`*^9, 3.560534291752713*^9, 3.560535153010501*^9, 
   3.560842319734416*^9, 3.5608444406659393`*^9, 3.561176811442109*^9, 
   3.561210851420164*^9, 3.561269175412405*^9, 3.561275603101584*^9, 
   3.561276944995598*^9, 3.561302854953149*^9, 3.561305371722945*^9, 
   3.56130854405604*^9, 3.5613087907842607`*^9, {3.5613603158059483`*^9, 
   3.561360071359366*^9}, 3.728115025622478*^9, 3.731234878625779*^9},
 CellLabel->
  "Out[266]=",ExpressionUUID->"0a779b39-022b-479d-9fd2-ddc209bc723f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDgWeyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521277702113418*^9, 3.521277705163664*^9}, {
  3.5212777550595922`*^9, 3.5212777596540194`*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"bda43598-199e-46de-8d7e-fe549342903f"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Equation ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "b"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`b][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`a]],
    Editable->False], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->9]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`a],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`b],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox["s",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`sUnphys[],
        Editable->False], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {"c"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->9]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][$CellContext`c],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[CapitalSigma]", 
             StyleBox[GridBox[{
                {" "},
                {"c"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->9]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalSigma]Unphys[-$CellContext`c],
         Editable->False]}]}], ")"}]}]}]}]], "Output",
  CellChangeTimes->{{3.521281707690879*^9, 3.5212817246160393`*^9}, 
    3.5213676239811287`*^9, 3.521368214120039*^9}]
}], "Subsubsection",
 CellChangeTimes->{{3.521368234868271*^9, 3.521368261255464*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MetricConformalEquations", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.521277808940556*^9, 3.521277811791339*^9}},
 CellLabel->
  "In[268]:=",ExpressionUUID->"feb784da-7ee9-4fb4-a248-820da264d6ee"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521277812642845*^9, 3.521278946831592*^9, 3.521367601629425*^9, 
   3.521368183697814*^9, 3.521370428549642*^9, 3.521440707095106*^9, 
   3.521440938979456*^9, 3.5214559443094273`*^9, 3.521461704438546*^9, 
   3.5214617791751223`*^9, 3.521511294625592*^9, 3.521521070086639*^9, 
   3.5215230628306427`*^9, 3.5215390975256033`*^9, 3.521785526330529*^9, 
   3.521797390730445*^9, 3.521804017596716*^9, 3.52188345951121*^9, 
   3.5219421890813093`*^9, 3.52197113137951*^9, 3.521971488910242*^9, 
   3.521971585237335*^9, 3.521972303340104*^9, 3.521973975331916*^9, 
   3.5220291228591948`*^9, 3.524394015612626*^9, 3.524396332060423*^9, 
   3.5249779092705727`*^9, 3.5249972496778708`*^9, 3.5250691820618353`*^9, 
   3.525070803605955*^9, 3.525072079557548*^9, 3.5250732549463453`*^9, 
   3.5250810312476*^9, 3.525187144291259*^9, 3.5252402550707827`*^9, 
   3.5252439079749737`*^9, 3.525397544842904*^9, 3.5253986806629343`*^9, 
   3.5254934692223463`*^9, 3.5256608731300488`*^9, 3.525661916703252*^9, 
   3.525662985223768*^9, 3.52567328579347*^9, 3.54573887848358*^9, 
   3.545991141331956*^9, 3.545991489633691*^9, 3.5460001645470953`*^9, 
   3.546021365243984*^9, 3.546057623898777*^9, 3.5460645945073853`*^9, 
   3.546091136339733*^9, 3.546325614894268*^9, 3.548247470581627*^9, 
   3.548404556757114*^9, 3.5484812547990513`*^9, 3.5485114347818413`*^9, 
   3.548525813434002*^9, 3.5485678789725847`*^9, 3.54857106025245*^9, 
   3.548575014481395*^9, 3.548591596039093*^9, 3.548662101748198*^9, 
   3.548700124338945*^9, 3.548756257556694*^9, 3.548911248813818*^9, 
   3.548930613686741*^9, 3.548960801499929*^9, 3.5490021838341703`*^9, 
   3.549020871223134*^9, 3.549043545245139*^9, 3.549047031682912*^9, 
   3.549086279179529*^9, 3.5490962774915333`*^9, 3.549260310484983*^9, 
   3.549272932218158*^9, 3.549305077273533*^9, 3.549305294070137*^9, 
   3.5493058040931807`*^9, 3.549358886110092*^9, 3.549433151104643*^9, 
   3.549462316994862*^9, 3.549540250432537*^9, 3.550921588721463*^9, 
   3.5509907204330463`*^9, 3.550996428036491*^9, 3.5509965960942574`*^9, 
   3.555347241215403*^9, 3.557392106537395*^9, 3.557403153954373*^9, 
   3.557466472489338*^9, 3.557579387956856*^9, 3.55763597790727*^9, 
   3.558441143186592*^9, 3.558549889591132*^9, 3.5600077442124453`*^9, 
   3.560044416140738*^9, 3.560185502579151*^9, 3.560186289559317*^9, 
   3.560186364792171*^9, 3.5601865127895823`*^9, 3.5602228824896803`*^9, 
   3.560256426465117*^9, 3.5602689324067707`*^9, 3.5602699342022676`*^9, 
   3.560271419456234*^9, 3.560516257222908*^9, 3.560521603282517*^9, 
   3.5605342917882442`*^9, 3.5605351530230303`*^9, 3.5608423197564983`*^9, 
   3.560844440705234*^9, 3.561176811466381*^9, 3.5612108514482927`*^9, 
   3.561269175437355*^9, 3.5612756031225843`*^9, 3.561276945026466*^9, 
   3.561302854972685*^9, 3.5613053717674503`*^9, 3.561308544078034*^9, 
   3.561308790838613*^9, {3.561360315830412*^9, 3.5613600714448338`*^9}, 
   3.72811502566119*^9, 3.731234878658935*^9},
 CellLabel->
  "Out[268]=",ExpressionUUID->"1be6650c-0a62-4577-829a-56da899d714d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{3.521277820860289*^9},
 CellLabel->
  "In[269]:=",ExpressionUUID->"cecabbc5-92f7-4e78-b3ae-8e1b5e7fa191"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"\[Del]", ",", 
            OverscriptBox["\[Del]", "^"]}], "]"}], 
          StyleBox[GridBox[{
             {"\[Gamma]", " ", " "},
             {" ", "\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Gamma], -$CellContext`\
\[Beta], -$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.5212778221286173`*^9, 3.521278948057638*^9, 3.521367602729027*^9, 
   3.5213681850400476`*^9, 3.5213704285809097`*^9, 3.521440707176601*^9, 
   3.521440939064258*^9, 3.5214559443166523`*^9, 3.5214617157259693`*^9, 
   3.521461780256132*^9, 3.5215112958119287`*^9, 3.521521071070465*^9, 
   3.521523062864975*^9, 3.521539097594939*^9, 3.5217855264168863`*^9, 
   3.521797390764323*^9, 3.521804017623742*^9, 3.521883459577715*^9, 
   3.521942189163023*^9, 3.5219711314250402`*^9, 3.5219714889459333`*^9, 
   3.5219715852695704`*^9, 3.5219723033735*^9, 3.521973975375187*^9, 
   3.52202912293493*^9, 3.5243940156580877`*^9, 3.524396332114561*^9, 
   3.5249779093699913`*^9, 3.5249972496909857`*^9, 3.5250691833273983`*^9, 
   3.525070803640123*^9, 3.52507207968929*^9, 3.525073254985853*^9, 
   3.525081031259652*^9, 3.5251871443172207`*^9, 3.5252402551040497`*^9, 
   3.5252439080078773`*^9, 3.5253975448728456`*^9, 3.525398680691901*^9, 
   3.525493469250123*^9, 3.525660873159685*^9, 3.525661916730424*^9, 
   3.5256629852502413`*^9, 3.5256732858338127`*^9, 3.545738878533821*^9, 
   3.545991141394217*^9, 3.545991489712521*^9, 3.546000164572089*^9, 
   3.5460213652654552`*^9, 3.5460576239216013`*^9, 3.5460645945607758`*^9, 
   3.5460911364009867`*^9, 3.5463256149396343`*^9, 3.548247470664012*^9, 
   3.5484045567857513`*^9, 3.548481254839274*^9, 3.548511434798716*^9, 
   3.548525813459656*^9, 3.548567879009489*^9, 3.548571060274579*^9, 
   3.548575014518087*^9, 3.548591596053191*^9, 3.5486621017900333`*^9, 
   3.548700124364963*^9, 3.548756257575786*^9, 3.548911248842684*^9, 
   3.5489306137150908`*^9, 3.5489608015384274`*^9, 3.549002183858303*^9, 
   3.549020871240427*^9, 3.549043545271872*^9, 3.549047031712858*^9, 
   3.549086279201791*^9, 3.5490962775076313`*^9, 3.54926031055313*^9, 
   3.549272932261345*^9, 3.549305077299328*^9, 3.54930529409544*^9, 
   3.549305804112205*^9, 3.549358886153719*^9, 3.549433151132964*^9, 
   3.549462317023868*^9, 3.549540250468856*^9, 3.5509215887337427`*^9, 
   3.5509907204723787`*^9, 3.550996428078105*^9, 3.550996596113055*^9, 
   3.5553472412584457`*^9, 3.5573921065628233`*^9, 3.557403154004435*^9, 
   3.557466472527547*^9, 3.5575793879926434`*^9, 3.557635977941599*^9, 
   3.558441143220276*^9, 3.558549889616968*^9, 3.560007744248405*^9, 
   3.560044416175445*^9, 3.560185502616637*^9, 3.5601862895988283`*^9, 
   3.5601863648091516`*^9, 3.560186512825275*^9, 3.560222882534897*^9, 
   3.560256426500709*^9, 3.560268932440337*^9, 3.5602699342342243`*^9, 
   3.560271419486972*^9, 3.560516257240748*^9, 3.5605216033214893`*^9, 
   3.560534291813517*^9, 3.5605351530514383`*^9, 3.560842319786119*^9, 
   3.560844440742588*^9, 3.561176811498361*^9, 3.56121085146563*^9, 
   3.5612691754564123`*^9, 3.561275603178031*^9, 3.56127694506915*^9, 
   3.5613028550064297`*^9, 3.561305371802856*^9, 3.561308544123784*^9, 
   3.5613087908790007`*^9, {3.561360315883841*^9, 3.56136007149632*^9}, 
   3.728115025691351*^9, 3.731234878690304*^9},
 CellLabel->
  "Out[269]=",ExpressionUUID->"810ec48c-2aa8-4605-8523-ed99dd67aa5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.5212778711517353`*^9, 3.521277875529296*^9}},
 CellLabel->
  "In[270]:=",ExpressionUUID->"cb3dc926-f3c9-41f8-9944-acff365730d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Gamma]", "\[Delta]"},
            {"\[Beta]", "\[Alpha]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\[Alpha], \
$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521277876518921*^9, 3.521278949653701*^9, 3.5213676037082453`*^9, 
   3.521368185661178*^9, 3.521370428617394*^9, 3.521440707263735*^9, 
   3.5214409391793737`*^9, 3.521455944348947*^9, 3.5214617188269567`*^9, 
   3.521461781067271*^9, 3.521511296510516*^9, 3.5215210718924828`*^9, 
   3.5215230629026814`*^9, 3.521539097636187*^9, 3.521785526449236*^9, 
   3.5217973908031597`*^9, 3.5218040176637506`*^9, 3.521883459616275*^9, 
   3.521942189265707*^9, 3.52197113146903*^9, 3.521971488979867*^9, 
   3.5219715853020287`*^9, 3.521972303403508*^9, 3.5219739754070253`*^9, 
   3.5220291231637774`*^9, 3.524394015707121*^9, 3.5243963321908827`*^9, 
   3.524977909408461*^9, 3.524997249708453*^9, 3.525069183934737*^9, 
   3.525070803679516*^9, 3.525072079730023*^9, 3.5250732550240726`*^9, 
   3.5250810313222923`*^9, 3.525187144344697*^9, 3.5252402551391363`*^9, 
   3.525243908043273*^9, 3.525397544907156*^9, 3.5253986807373657`*^9, 
   3.525493469287307*^9, 3.525660873190673*^9, 3.5256619167553177`*^9, 
   3.525662985282898*^9, 3.5256732858820763`*^9, 3.545738878590993*^9, 
   3.545991141419626*^9, 3.545991489809367*^9, 3.5460001646534843`*^9, 
   3.546021365314093*^9, 3.546057623976561*^9, 3.5460645945902033`*^9, 
   3.546091136474025*^9, 3.546325615008462*^9, 3.54824747076571*^9, 
   3.548404556815748*^9, 3.5484812548876343`*^9, 3.548511434821961*^9, 
   3.548525813490629*^9, 3.54856787905508*^9, 3.548571060310038*^9, 
   3.548575014548118*^9, 3.548591596095563*^9, 3.548662101836432*^9, 
   3.5487001244667664`*^9, 3.548756257612934*^9, 3.5489112488766003`*^9, 
   3.548930613852791*^9, 3.548960801567955*^9, 3.5490021839285383`*^9, 
   3.549020871263981*^9, 3.549043545304985*^9, 3.549047031744149*^9, 
   3.549086279222159*^9, 3.549096277553314*^9, 3.549260310594887*^9, 
   3.5492729323062468`*^9, 3.549305077331849*^9, 3.549305294123102*^9, 
   3.549305804130947*^9, 3.5493588861845417`*^9, 3.549433151171261*^9, 
   3.5494623170488234`*^9, 3.549540250504684*^9, 3.55092158877036*^9, 
   3.550990720523678*^9, 3.5509964290341473`*^9, 3.550996596165656*^9, 
   3.555347241308161*^9, 3.557392106619121*^9, 3.557403154049416*^9, 
   3.557466472570545*^9, 3.557579388035235*^9, 3.557635977978636*^9, 
   3.558441143260497*^9, 3.558549889655611*^9, 3.560007744292276*^9, 
   3.5600444162180843`*^9, 3.560185502667762*^9, 3.560186289641419*^9, 
   3.560186364845598*^9, 3.560186512868758*^9, 3.560222882582366*^9, 
   3.560256426543571*^9, 3.560268932477231*^9, 3.560269934272317*^9, 
   3.5602714195244503`*^9, 3.5605162573156776`*^9, 3.560521603376793*^9, 
   3.5605342918421717`*^9, 3.560535153077207*^9, 3.560842319824006*^9, 
   3.560844440787237*^9, 3.561176811531109*^9, 3.561210851599475*^9, 
   3.561269175527364*^9, 3.561275603222348*^9, 3.561276945122623*^9, 
   3.561302855052318*^9, 3.561305371849334*^9, 3.561308544169862*^9, 
   3.561308790927307*^9, {3.561360315931756*^9, 3.5613600715749407`*^9}, 
   3.728115025726892*^9, 3.731234878720578*^9},
 CellLabel->
  "Out[270]=",ExpressionUUID->"71dcde67-a4fa-42c2-bef8-e1d46df1c224"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "SchoutenUnphysicalToSchoutenWeyl"}]}]], "Input",
 CellChangeTimes->{{3.521277886955303*^9, 3.52127789329135*^9}, 
   3.521278539902755*^9},
 CellLabel->
  "In[271]:=",ExpressionUUID->"7dcbf4ed-20ae-4730-b942-494bc62bda38"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Gamma]", "\[Delta]"},
            {"\[Beta]", "\[Alpha]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\[Alpha], \
$CellContext`\[Gamma], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521278557718747*^9, {3.521278603595907*^9, 3.521278611932104*^9}, 
   3.52127895094455*^9, 3.521367604854802*^9, 3.52136818633331*^9, 
   3.521370428668552*^9, 3.521440707356703*^9, 3.521440939245254*^9, 
   3.521455944385335*^9, 3.521461721438951*^9, 3.521461782118443*^9, 
   3.521511297182386*^9, 3.521521072718506*^9, 3.5215230629479322`*^9, 
   3.5215390976885843`*^9, 3.52178552653389*^9, 3.521797390848954*^9, 
   3.5218040177014647`*^9, 3.521883459662519*^9, 3.521942189337232*^9, 
   3.5219711315196543`*^9, 3.521971489021195*^9, 3.5219715853428802`*^9, 
   3.521972303448633*^9, 3.5219739754480667`*^9, 3.5220291232529173`*^9, 
   3.524394015762293*^9, 3.524396332262302*^9, 3.524977909452324*^9, 
   3.524997249734576*^9, 3.5250691845404453`*^9, 3.525070803719295*^9, 
   3.525072079777454*^9, 3.5250732550709543`*^9, 3.525081031389888*^9, 
   3.525187144451766*^9, 3.52524025518493*^9, 3.525243908089471*^9, 
   3.5253975449509487`*^9, 3.525398680777968*^9, 3.525493469325192*^9, 
   3.525660873234873*^9, 3.5256619167931337`*^9, 3.525662985333818*^9, 
   3.525673285948902*^9, 3.545738878661295*^9, 3.545991141494089*^9, 
   3.545991489925906*^9, 3.5460001647541437`*^9, 3.546021365398267*^9, 
   3.5460576240292673`*^9, 3.546064594630917*^9, 3.5460911365827713`*^9, 
   3.546325615093133*^9, 3.5482474708738422`*^9, 3.548404556854363*^9, 
   3.548481254949564*^9, 3.548511434876548*^9, 3.548525813531768*^9, 
   3.548567879101109*^9, 3.548571060347414*^9, 3.5485750145900183`*^9, 
   3.548591596147621*^9, 3.548662101903544*^9, 3.5487001245086412`*^9, 
   3.5487562576604853`*^9, 3.548911248929324*^9, 3.548930613920562*^9, 
   3.5489608016051807`*^9, 3.54900218397152*^9, 3.549020871329356*^9, 
   3.549043545347438*^9, 3.5490470317793293`*^9, 3.54908627927386*^9, 
   3.549096277607761*^9, 3.549260310666799*^9, 3.549272932366991*^9, 
   3.549305077376071*^9, 3.549305294163802*^9, 3.549305804166111*^9, 
   3.5493588862179956`*^9, 3.549433151209483*^9, 3.549462317093294*^9, 
   3.549540250551118*^9, 3.550921588806273*^9, 3.550990720565721*^9, 
   3.550996429093033*^9, 3.550996596230702*^9, 3.555347241366273*^9, 
   3.5573921066834393`*^9, 3.557403154091646*^9, 3.557466472621011*^9, 
   3.557579388095064*^9, 3.557635978025878*^9, 3.558441143316183*^9, 
   3.558549889704072*^9, 3.560007744340814*^9, 3.5600444162690573`*^9, 
   3.5601855027235117`*^9, 3.560186289692396*^9, 3.560186364894*^9, 
   3.560186512920278*^9, 3.5602228826464167`*^9, 3.560256426591837*^9, 
   3.560268932527322*^9, 3.5602699343165083`*^9, 3.560271419572616*^9, 
   3.560516258691155*^9, 3.5605216034335546`*^9, 3.560534291884637*^9, 
   3.560535153107232*^9, 3.560842319876753*^9, 3.560844440837571*^9, 
   3.561176811582613*^9, 3.561210851644651*^9, 3.5612691756063004`*^9, 
   3.561275603275251*^9, 3.5612769451935453`*^9, 3.56130285512407*^9, 
   3.5613053719035473`*^9, 3.56130854425054*^9, 3.561308791019492*^9, {
   3.561360316001708*^9, 3.561360071660343*^9}, 3.728115025766987*^9, 
   3.731234878755299*^9},
 CellLabel->
  "Out[271]=",ExpressionUUID->"30a85f42-e46b-44dc-9af1-14c2be05076e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"%", ",", 
    RowBox[{
     RowBox[{"WeylCD", "[", 
      RowBox[{"-", "\[Beta]"}], "]"}], "@", 
     RowBox[{"\[CapitalSigma]Unphys", "[", 
      RowBox[{"-", "\[Alpha]"}], "]"}]}]}], "]"}], "//", "Flatten"}]], "Input",\

 CellChangeTimes->{{3.5212785742484293`*^9, 3.52127859764257*^9}, {
  3.521278646926207*^9, 3.521278647052936*^9}, {3.525069187025795*^9, 
  3.525069190037924*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"b7f35771-876e-47cf-8c72-133ca63f90a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Beta]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
    Editable->False], "\[Rule]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox["s",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`sUnphys[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"S", 
            StyleBox[GridBox[{
               {" ", " ", "\[Gamma]", "\[Delta]"},
               {"\[Beta]", "\[Alpha]", " ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`SUnphysical[-$CellContext`\[Beta], \
-$CellContext`\[Alpha], $CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False], ")"}]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.521278598576638*^9, 3.5212786060428343`*^9}, 
   3.521278651994973*^9, 3.521278952226042*^9, 3.5213676080784273`*^9, 
   3.521368186991703*^9, 3.521370428711705*^9, 3.5214407074560213`*^9, 
   3.5214409393398247`*^9, 3.521455944426436*^9, 3.521461783997295*^9, 
   3.5215112978854856`*^9, 3.5215210735983257`*^9, 3.521523063005845*^9, 
   3.521539097741611*^9, 3.521785526619245*^9, 3.521797390991844*^9, 
   3.521804017741898*^9, 3.52188345970545*^9, 3.521942189459251*^9, 
   3.5219711315759478`*^9, 3.521971489055893*^9, 3.521971585382601*^9, 
   3.521972303487873*^9, 3.521973975486792*^9, 3.5220291234883633`*^9, 
   3.524394015809823*^9, 3.5243963323641*^9, 3.524977909492236*^9, 
   3.524997249755494*^9, 3.525069190921777*^9, 3.525070803805789*^9, 
   3.525072079815139*^9, 3.525073255122901*^9, 3.525081031410976*^9, 
   3.5251871444830647`*^9, 3.525240255262871*^9, 3.525243908126233*^9, 
   3.5253975450042553`*^9, 3.525398680820554*^9, 3.525493469362789*^9, 
   3.525660873275309*^9, 3.525661916825617*^9, 3.5256629853693132`*^9, 
   3.52567328600568*^9, 3.545738878719769*^9, 3.545991141575145*^9, 
   3.54599148997464*^9, 3.546000164857924*^9, 3.546021365453244*^9, 
   3.54605762406316*^9, 3.546064594664174*^9, 3.5460911366461067`*^9, 
   3.5463256151758537`*^9, 3.5482474710469*^9, 3.5484045569017487`*^9, 
   3.548481255006959*^9, 3.548511434904069*^9, 3.548525813568214*^9, 
   3.5485678791598454`*^9, 3.5485710603794003`*^9, 3.5485750146287203`*^9, 
   3.5485915961920843`*^9, 3.5486621019644833`*^9, 3.5487001245422564`*^9, 
   3.54875625770916*^9, 3.548911248979616*^9, 3.548930614424477*^9, 
   3.548960801672543*^9, 3.549002184005323*^9, 3.549020872279602*^9, 
   3.549043545384104*^9, 3.54904703181044*^9, 3.549086279297843*^9, 
   3.549096277657337*^9, 3.549260310717381*^9, 3.5492729324116287`*^9, 
   3.549305077413177*^9, 3.5493052942113533`*^9, 3.549305804187477*^9, 
   3.5493588862483788`*^9, 3.5494331512414217`*^9, 3.549462317143654*^9, 
   3.549540250598312*^9, 3.550921588853786*^9, 3.550990720593522*^9, 
   3.5509964291139317`*^9, 3.5509965962859383`*^9, 3.555347241417005*^9, 
   3.557392106740395*^9, 3.557403154144135*^9, 3.5574664726597557`*^9, 
   3.557579388143808*^9, 3.557635978061706*^9, 3.558441143362567*^9, 
   3.55854988974465*^9, 3.560007744389204*^9, 3.5600444163121233`*^9, 
   3.56018550277721*^9, 3.560186289735524*^9, 3.560186364935121*^9, 
   3.5601865129641*^9, 3.5602228827036963`*^9, 3.5602564266397657`*^9, 
   3.560268932568799*^9, 3.5602699343554564`*^9, 3.560271419607355*^9, 
   3.560516258804104*^9, 3.560521603491497*^9, 3.560534291918743*^9, 
   3.56053515314914*^9, 3.5608423199208593`*^9, 3.5608444408763742`*^9, 
   3.561176811626033*^9, 3.561210851693206*^9, 3.5612691756369133`*^9, 
   3.561275603320003*^9, 3.561276945234976*^9, 3.56130285516711*^9, 
   3.561305371947604*^9, 3.5613085443325853`*^9, 3.561308791064056*^9, {
   3.561360316045849*^9, 3.561360071712612*^9}, 3.72811502580442*^9, 
   3.7312348787840014`*^9},
 CellLabel->
  "Out[272]=",ExpressionUUID->"6d9f643d-c13c-49b1-84d9-1ac38ee2cc7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.521278655681807*^9, 3.5212786602114887`*^9}},
 CellLabel->
  "In[273]:=",ExpressionUUID->"2e04bf8e-bacf-46e2-a7e8-64e74a429fcc"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[CurlyEpsilon]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[CurlyEpsilon]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"S", 
           StyleBox[GridBox[{
              {" ", " ", "\[Gamma]", "\[Delta]"},
              {"\[Beta]", "\[Alpha]", " ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`SUnphysical[-$CellContext`\[Beta], \
-$CellContext`\[Alpha], $CellContext`\[Gamma], $CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
        Editable->False], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5212786612534437`*^9, 3.521278953921666*^9, 3.521367611269404*^9, 
   3.521368187952146*^9, 3.5213704287678823`*^9, 3.5214407075504293`*^9, 
   3.5214409394236517`*^9, 3.52145594446488*^9, 3.5214617874877033`*^9, 
   3.521511298550757*^9, 3.521521075312664*^9, 3.521523063044503*^9, 
   3.5215390977786903`*^9, 3.521785526723631*^9, 3.52179739103244*^9, 
   3.521804017774252*^9, 3.521883459801285*^9, 3.521942189545299*^9, 
   3.521971131612637*^9, 3.521971489091968*^9, 3.5219715854299603`*^9, 
   3.521972303538587*^9, 3.521973975520116*^9, 3.522029123569579*^9, 
   3.524394015855047*^9, 3.5243963325739717`*^9, 3.524977909528286*^9, 
   3.524997249809452*^9, 3.525069192069648*^9, 3.5250708038411207`*^9, 
   3.525072079851933*^9, 3.525073255163615*^9, 3.5250810314295*^9, 
   3.52518714450467*^9, 3.525240255303438*^9, 3.525243908166613*^9, 
   3.525397545041699*^9, 3.5253986808519382`*^9, 3.525493469397114*^9, 
   3.52566087331181*^9, 3.525661916857202*^9, 3.525662985402553*^9, 
   3.525673286055846*^9, 3.545738878778617*^9, 3.545991141596496*^9, 
   3.545991490006948*^9, 3.546000165028578*^9, 3.546021365517795*^9, 
   3.546057624093252*^9, 3.5460645947275057`*^9, 3.546091136714102*^9, 
   3.546325615203418*^9, 3.548247471226606*^9, 3.5484045569436207`*^9, 
   3.5484812550575027`*^9, 3.548511434928596*^9, 3.548525813601564*^9, 
   3.54856787921939*^9, 3.548571060417454*^9, 3.548575014664308*^9, 
   3.5485915962332907`*^9, 3.548662102008958*^9, 3.548700124579999*^9, 
   3.548756257753786*^9, 3.548911249038129*^9, 3.5489306145168657`*^9, 
   3.548960801778775*^9, 3.549002184036583*^9, 3.5490208724142513`*^9, 
   3.549043545424664*^9, 3.549047031837538*^9, 3.549086279328053*^9, 
   3.549096277705039*^9, 3.549260310765237*^9, 3.549272932433426*^9, 
   3.54930507744622*^9, 3.5493052942443857`*^9, 3.549305804207931*^9, 
   3.549358886298004*^9, 3.549433151278685*^9, 3.54946231720545*^9, 
   3.549540250643528*^9, 3.5509215888975353`*^9, 3.550990720617897*^9, 
   3.550996429131897*^9, 3.550996596342291*^9, 3.555347241464779*^9, 
   3.557392106795002*^9, 3.557403154173457*^9, 3.557466472697301*^9, 
   3.557579388185429*^9, 3.557635978102363*^9, 3.558441143410058*^9, 
   3.558549889781184*^9, 3.560007744434307*^9, 3.5600444163513327`*^9, 
   3.560185502807172*^9, 3.5601862897770777`*^9, 3.560186364972576*^9, 
   3.560186513005055*^9, 3.56022288275782*^9, 3.5602564266840487`*^9, 
   3.560268932606697*^9, 3.56026993438979*^9, 3.5602714196420116`*^9, 
   3.560516258864766*^9, 3.560521603516407*^9, 3.560534291947091*^9, 
   3.560535153182415*^9, 3.5608423199582777`*^9, 3.5608444409180393`*^9, 
   3.5611768116684933`*^9, 3.561210851782996*^9, 3.561269175678974*^9, 
   3.561275603358781*^9, 3.561276945291649*^9, 3.561302855216765*^9, 
   3.561305371993754*^9, 3.561308544426484*^9, 3.561308791111823*^9, {
   3.561360316093423*^9, 3.561360071764776*^9}, 3.728115025838544*^9, 
   3.731234878814199*^9},
 CellLabel->
  "Out[273]=",ExpressionUUID->"0260f93f-b2b5-45f9-b5e4-a7e6e7b4cf14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5212786631199417`*^9, 3.52127866634232*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"bd913faf-0929-4349-8f45-2a0d4b73d08c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Beta]", "\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521278667405879*^9, 3.52127895582224*^9, 3.52136761323412*^9, 
   3.521368188778471*^9, 3.521370428819962*^9, 3.52144070763892*^9, 
   3.521440939573678*^9, 3.521455944528401*^9, 3.521461788926487*^9, 
   3.521511299229978*^9, 3.521521076363305*^9, 3.5215230630971327`*^9, 
   3.5215390978307056`*^9, 3.5217855268171453`*^9, 3.5217973910857973`*^9, 
   3.521804017818302*^9, 3.5218834598380623`*^9, 3.52194218962963*^9, 
   3.5219711316696253`*^9, 3.521971489141712*^9, 3.5219715854803467`*^9, 
   3.521972303571583*^9, 3.521973975570496*^9, 3.522029123718834*^9, 
   3.5243940159227962`*^9, 3.524396332650641*^9, 3.5249779095802794`*^9, 
   3.52499724987875*^9, 3.5250691928509417`*^9, 3.525070803874363*^9, 
   3.5250720798881474`*^9, 3.5250732552239*^9, 3.5250810314648542`*^9, 
   3.525187144596519*^9, 3.5252402553581*^9, 3.525243908220861*^9, 
   3.525397545098645*^9, 3.525398680898243*^9, 3.5254934694478073`*^9, 
   3.525660873364201*^9, 3.525661916903431*^9, 3.525662985446466*^9, 
   3.525673286135344*^9, 3.545738878851668*^9, 3.545991141673251*^9, 
   3.545991490128462*^9, 3.546000165222662*^9, 3.546021365578907*^9, 
   3.546057624144269*^9, 3.546064594797286*^9, 3.546091136812921*^9, 
   3.546325615251885*^9, 3.5482474713411283`*^9, 3.548404557015628*^9, 
   3.548481255101757*^9, 3.5485114349702873`*^9, 3.548525813647235*^9, 
   3.548567879331243*^9, 3.548571060458583*^9, 3.548575014714829*^9, 
   3.548591596307948*^9, 3.548662102079625*^9, 3.5487001246513777`*^9, 
   3.54875625783068*^9, 3.5489112490938377`*^9, 3.548930614555818*^9, 
   3.548960801847357*^9, 3.549002184088786*^9, 3.549020872465137*^9, 
   3.5490435454732647`*^9, 3.5490470318797197`*^9, 3.549086279390684*^9, 
   3.5490962777826*^9, 3.54926031083635*^9, 3.549272932483884*^9, 
   3.549305077492296*^9, 3.549305294272766*^9, 3.5493058042435427`*^9, 
   3.549358886351759*^9, 3.5494331513227386`*^9, 3.549462317257329*^9, 
   3.549540250681952*^9, 3.550921588963468*^9, 3.550990720688119*^9, 
   3.550996429167694*^9, 3.5509965964015827`*^9, 3.555347241519367*^9, 
   3.557392106857205*^9, 3.557403154224683*^9, 3.5574664727406197`*^9, 
   3.557579388240221*^9, 3.557635978152609*^9, 3.558441143475265*^9, 
   3.558549889827845*^9, 3.560007744501521*^9, 3.5600444164139223`*^9, 
   3.560185502868375*^9, 3.560186289839159*^9, 3.560186365031662*^9, 
   3.560186513052196*^9, 3.5602228828192987`*^9, 3.560256426749898*^9, 
   3.56026893266673*^9, 3.560269934444545*^9, 3.560271419698729*^9, 
   3.560516258951832*^9, 3.5605216035626793`*^9, 3.560534291989399*^9, 
   3.560535153231472*^9, 3.560842320019844*^9, 3.5608444409866247`*^9, 
   3.561176811732641*^9, 3.561210851856037*^9, 3.561269175746868*^9, 
   3.561275603423217*^9, 3.561276945342052*^9, 3.561302855278219*^9, 
   3.561305372062772*^9, 3.561308544502268*^9, 3.5613087911805*^9, {
   3.561360316166585*^9, 3.561360071836182*^9}, 3.728115025878035*^9, 
   3.731234878873272*^9},
 CellLabel->
  "Out[274]=",ExpressionUUID->"1604448f-317d-4f81-aea9-cee8c7b1b3b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5212789585926123`*^9, 3.5212789634234533`*^9}},
 CellLabel->
  "In[275]:=",ExpressionUUID->"2c7d6052-07f3-44e3-9f24-613da2f29883"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Delta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521278964425599*^9, 3.521367615433571*^9, 3.521368189921917*^9, 
   3.521370428875959*^9, 3.521440707784741*^9, 3.521440939676578*^9, 
   3.521455944586233*^9, 3.521461792367944*^9, 3.521511299927333*^9, 
   3.521521079002138*^9, 3.521523063152192*^9, 3.5215390978953543`*^9, 
   3.5217855269390287`*^9, 3.52179739115545*^9, 3.521804017866263*^9, 
   3.521883459900791*^9, 3.5219421897162952`*^9, 3.521971131722534*^9, 
   3.521971489205348*^9, 3.5219715855362587`*^9, 3.521972303623769*^9, 
   3.5219739756198673`*^9, 3.522029123791768*^9, 3.524394016003416*^9, 
   3.524396332883048*^9, 3.5249779096186733`*^9, 3.524997249961186*^9, 
   3.525069193711076*^9, 3.5250708039310503`*^9, 3.525072079945998*^9, 
   3.525073255277893*^9, 3.525081031505492*^9, 3.525187144654559*^9, 
   3.525240255401243*^9, 3.525243908279253*^9, 3.525397545131003*^9, 
   3.525398680959096*^9, 3.5254934694996433`*^9, 3.525660873417581*^9, 
   3.525661916952261*^9, 3.525662985491479*^9, 3.525673286222671*^9, 
   3.5457388788968973`*^9, 3.545991141771597*^9, 3.545991490249997*^9, 
   3.546000165361964*^9, 3.546021365647067*^9, 3.546057624228695*^9, 
   3.5460645948990498`*^9, 3.546091136911656*^9, 3.546325615301387*^9, 
   3.548247471486196*^9, 3.548404557083871*^9, 3.548481255172565*^9, 
   3.548511435045063*^9, 3.548525813692423*^9, 3.5485678793730288`*^9, 
   3.5485710605368567`*^9, 3.5485750147604647`*^9, 3.548591596364231*^9, 
   3.548662102154587*^9, 3.5487001247062263`*^9, 3.548756257913557*^9, 
   3.548911249155355*^9, 3.548930614636509*^9, 3.5489608018961573`*^9, 
   3.549002184128599*^9, 3.5490208725432377`*^9, 3.549043545528722*^9, 
   3.549047031928993*^9, 3.549086279453116*^9, 3.549096277866147*^9, 
   3.5492603109101458`*^9, 3.549272932536325*^9, 3.549305077548465*^9, 
   3.549305294314027*^9, 3.5493058042943697`*^9, 3.549358886430848*^9, 
   3.549433151369172*^9, 3.549462317302627*^9, 3.5495402507408752`*^9, 
   3.550921589033341*^9, 3.550990720767145*^9, 3.5509964292204523`*^9, 
   3.550996596474551*^9, 3.555347241588955*^9, 3.5573921069326077`*^9, 
   3.5574031542737417`*^9, 3.5574664728012238`*^9, 3.557579388286277*^9, 
   3.5576359782002573`*^9, 3.5584411435376472`*^9, 3.5585498898774147`*^9, 
   3.560007744572151*^9, 3.560044416475967*^9, 3.5601855029322443`*^9, 
   3.5601862898855467`*^9, 3.560186365076535*^9, 3.560186513114871*^9, 
   3.560222882900044*^9, 3.560256426823289*^9, 3.560268932727243*^9, 
   3.560269934560981*^9, 3.560271419755776*^9, 3.560516259030057*^9, 
   3.5605216036416893`*^9, 3.560534292045382*^9, 3.560535153281187*^9, 
   3.56084232008575*^9, 3.560844441054056*^9, 3.5611768117975807`*^9, 
   3.561210851971985*^9, 3.5612691758326893`*^9, 3.561275603487379*^9, 
   3.5612769454657*^9, 3.561302855361699*^9, 3.5613053721329536`*^9, 
   3.561308544570718*^9, 3.5613087912488527`*^9, {3.561360316239912*^9, 
   3.561360071909953*^9}, 3.728115025926997*^9, 3.7312348788992443`*^9},
 CellLabel->
  "Out[275]=",ExpressionUUID->"366dcd38-e559-4b3b-8695-de5e288916ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5212789739699697`*^9, 3.521278980195071*^9}},
 CellLabel->
  "In[276]:=",ExpressionUUID->"6611f575-6f93-4329-bc6f-a8d851c8544e"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521278980958427*^9, 3.52136761625318*^9, 3.521368190735667*^9, 
   3.521370428935141*^9, 3.521440707904915*^9, 3.521440939794845*^9, 
   3.5214559446455297`*^9, 3.521461793685828*^9, 3.521511300728899*^9, 
   3.521521079733109*^9, 3.521523063210589*^9, 3.5215390979596*^9, 
   3.521785527051639*^9, 3.5217973912099257`*^9, 3.521804017898562*^9, 
   3.521883459959281*^9, 3.52194218982115*^9, 3.52197113178123*^9, 
   3.521971489258254*^9, 3.52197158560395*^9, 3.5219723036781197`*^9, 
   3.5219739756762753`*^9, 3.522029123939713*^9, 3.524394016089692*^9, 
   3.524396332980503*^9, 3.52497790967632*^9, 3.524997250053906*^9, 
   3.525069194589869*^9, 3.525070803981801*^9, 3.525072079998949*^9, 
   3.525073255333632*^9, 3.5250810315454807`*^9, 3.5251871447111998`*^9, 
   3.52524025545751*^9, 3.525243908335585*^9, 3.525397545187385*^9, 
   3.5253986810088043`*^9, 3.5254934695553493`*^9, 3.525660873477325*^9, 
   3.52566191698333*^9, 3.5256629855408983`*^9, 3.525673286279544*^9, 
   3.5457388789679413`*^9, 3.545991141820389*^9, 3.54599149034107*^9, 
   3.546000165483873*^9, 3.546021365771626*^9, 3.5460576243316317`*^9, 
   3.5460645949659*^9, 3.546091137019409*^9, 3.546325615384898*^9, 
   3.548247471593481*^9, 3.548404557137229*^9, 3.548481255241499*^9, 
   3.548511435101359*^9, 3.548525813741453*^9, 3.5485678794330053`*^9, 
   3.548571060586801*^9, 3.5485750148143806`*^9, 3.548591596408746*^9, 
   3.548662102291924*^9, 3.548700124761945*^9, 3.548756257991847*^9, 
   3.5489112492113333`*^9, 3.548930614701269*^9, 3.548960801946086*^9, 
   3.549002184247809*^9, 3.549020872590234*^9, 3.54904354557892*^9, 
   3.54904703196496*^9, 3.5490862795264063`*^9, 3.549096277949545*^9, 
   3.549260310970276*^9, 3.549272932616069*^9, 3.549305077589449*^9, 
   3.549305294357367*^9, 3.5493058043462353`*^9, 3.5493588865122347`*^9, 
   3.5494331514501133`*^9, 3.549462317353074*^9, 3.549540250801056*^9, 
   3.550921589102977*^9, 3.550990720819865*^9, 3.550996429278385*^9, 
   3.550996596549603*^9, 3.5553472416644583`*^9, 3.557392107014469*^9, 
   3.557403154322013*^9, 3.557466472863906*^9, 3.557579388348077*^9, 
   3.5576359782523613`*^9, 3.5584411435891848`*^9, 3.558549889934371*^9, 
   3.560007744633172*^9, 3.560044416543272*^9, 3.5601855030103283`*^9, 
   3.560186289953657*^9, 3.560186365143222*^9, 3.5601865131918087`*^9, 
   3.5602228829829617`*^9, 3.560256426885446*^9, 3.560268932777416*^9, 
   3.560269934622163*^9, 3.56027141981889*^9, 3.560516259115856*^9, 
   3.5605216037135477`*^9, 3.560534292085181*^9, 3.560535153329279*^9, 
   3.5608423201549673`*^9, 3.560844441124628*^9, 3.56117681186875*^9, 
   3.561210852049753*^9, 3.561269175924354*^9, 3.5612756035640574`*^9, 
   3.5612769455202217`*^9, 3.561302855433909*^9, 3.5613053722142763`*^9, 
   3.5613085446485853`*^9, 3.5613087913257236`*^9, {3.561360316321868*^9, 
   3.561360071989871*^9}, 3.728115025969891*^9, 3.731234878940462*^9},
 CellLabel->
  "Out[276]=",ExpressionUUID->"6bf3861d-fc18-4b35-964d-579219c77d87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplification", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521279003867227*^9, 3.521279007093844*^9}},
 CellLabel->
  "In[277]:=",ExpressionUUID->"d96a5d9c-0c32-4441-8ed1-012ba5f0f6a0"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["L", "^"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521279008102433*^9, 3.52136761778975*^9, 3.521368192160083*^9, 
   3.5213704289779673`*^9, 3.5214407080490303`*^9, 3.5214409399171352`*^9, 
   3.521455944712659*^9, 3.521461795767824*^9, 3.521511302495907*^9, 
   3.521521081529983*^9, 3.521523063290511*^9, 3.521539098049789*^9, 
   3.5217855271375093`*^9, 3.5217973912811823`*^9, 3.5218040179767847`*^9, 
   3.52188346002918*^9, 3.521942189900502*^9, 3.521971131851344*^9, 
   3.5219714893226633`*^9, 3.521971585674632*^9, 3.52197230374831*^9, 
   3.521973975743105*^9, 3.522029124151314*^9, 3.5243940161424417`*^9, 
   3.524396333077442*^9, 3.524977909743573*^9, 3.524997250145246*^9, 
   3.525069195418426*^9, 3.52507080405013*^9, 3.5250720800630713`*^9, 
   3.5250732554057903`*^9, 3.525081031643958*^9, 3.525187144778047*^9, 
   3.5252402555251923`*^9, 3.525243908410947*^9, 3.52539754525876*^9, 
   3.525398681060938*^9, 3.52549346960778*^9, 3.525660873546616*^9, 
   3.525661917050549*^9, 3.5256629855912037`*^9, 3.525673286394664*^9, 
   3.545738879151877*^9, 3.5459911419608383`*^9, 3.5459914905759373`*^9, 
   3.546000165637542*^9, 3.546021365890545*^9, 3.546057624460815*^9, 
   3.546064595100252*^9, 3.546091137214775*^9, 3.546325615513979*^9, 
   3.5482474717728148`*^9, 3.548404557236085*^9, 3.548481255320662*^9, 
   3.548511435205799*^9, 3.54852581381279*^9, 3.548567879510833*^9, 
   3.54857106065968*^9, 3.548575014868379*^9, 3.548591596487157*^9, 
   3.548662102407844*^9, 3.5487001248349323`*^9, 3.548756258097143*^9, 
   3.548911249281949*^9, 3.548930614779673*^9, 3.548960802019562*^9, 
   3.549002184420257*^9, 3.5490208726942463`*^9, 3.5490435456480913`*^9, 
   3.549047032032075*^9, 3.549086279687851*^9, 3.549096278040004*^9, 
   3.549260311047003*^9, 3.549272932718192*^9, 3.549305077659643*^9, 
   3.549305294421067*^9, 3.54930580440489*^9, 3.5493588866001463`*^9, 
   3.549433151515645*^9, 3.549462317419592*^9, 3.549540250866777*^9, 
   3.550921589201397*^9, 3.550990720907434*^9, 3.550996429361066*^9, 
   3.550996596692568*^9, 3.555347241769631*^9, 3.557392107125883*^9, 
   3.557403154388341*^9, 3.5574664729490232`*^9, 3.5575793884251957`*^9, 
   3.5576359783228607`*^9, 3.558441143684223*^9, 3.558549890006358*^9, 
   3.560007744736185*^9, 3.560044416640429*^9, 3.560185503219756*^9, 
   3.56018629005202*^9, 3.5601863652394247`*^9, 3.560186513290278*^9, 
   3.560222883094625*^9, 3.560256426996674*^9, 3.560268932874333*^9, 
   3.560269934713768*^9, 3.560271419911458*^9, 3.56051625922677*^9, 
   3.560521603817485*^9, 3.560534292151156*^9, 3.5605351533963757`*^9, 
   3.560842320254603*^9, 3.5608444412059507`*^9, 3.561176811967677*^9, 
   3.56121085216444*^9, 3.561269176013733*^9, 3.5612756036691*^9, 
   3.5612769456638727`*^9, 3.561302855514822*^9, 3.561305372329351*^9, 
   3.5613085447647457`*^9, 3.56130879141285*^9, {3.561360316431426*^9, 
   3.561360072125825*^9}, 3.728115026031886*^9, 3.731234878988413*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"174ac09a-deed-43f6-a7f1-c0d343ecbc60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "WeylCD\[ScriptF]"}]}]], "Input",
 CellChangeTimes->{{3.521281572870008*^9, 3.521281588594952*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"84fa4d51-a3ed-4af4-9f04-fcb2dbab53be"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["L", "^"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.521281584208044*^9, 3.521281589165916*^9}, 
   3.521367620169355*^9, 3.521368193140893*^9, 3.521370429038007*^9, 
   3.521440708213881*^9, 3.521440940214563*^9, 3.5214559447632*^9, 
   3.5214617977307577`*^9, 3.5215113042293177`*^9, 3.521521085724043*^9, 
   3.521523063374708*^9, 3.521539098090775*^9, 3.521785527303258*^9, 
   3.521797391328044*^9, 3.521804018014143*^9, 3.521883460068616*^9, 
   3.521942190011485*^9, 3.521971131900978*^9, 3.521971489358292*^9, 
   3.521971585710527*^9, 3.521972303796229*^9, 3.521973975786318*^9, 
   3.52202912423461*^9, 3.524394016211461*^9, 3.524396333151198*^9, 
   3.5249779097851963`*^9, 3.524997250223702*^9, 3.52506919691514*^9, 
   3.525070804094099*^9, 3.525072080143301*^9, 3.525073255451247*^9, 
   3.525081031712689*^9, 3.525187144827882*^9, 3.525240255576706*^9, 
   3.525243908451764*^9, 3.5253975452994967`*^9, 3.5253986811000757`*^9, 
   3.525493469657702*^9, 3.5256608735821867`*^9, 3.5256619170866423`*^9, 
   3.525662985633033*^9, 3.525673286458119*^9, 3.5457388792210083`*^9, 
   3.545991142045704*^9, 3.545991490666607*^9, 3.546000165684163*^9, 
   3.546021365966866*^9, 3.546057624507391*^9, 3.546064595230548*^9, 
   3.5460911372934504`*^9, 3.546325615594293*^9, 3.548247471859769*^9, 
   3.548404557275797*^9, 3.548481255411263*^9, 3.548511435267638*^9, 
   3.5485258138618*^9, 3.548567879566496*^9, 3.54857106069865*^9, 
   3.548575014906551*^9, 3.548591596568697*^9, 3.5486621025177927`*^9, 
   3.5487001248753357`*^9, 3.54875625816778*^9, 3.548911249328133*^9, 
   3.5489306148357563`*^9, 3.548960802061186*^9, 3.549002184542981*^9, 
   3.549020872754971*^9, 3.549043545689724*^9, 3.549047032072338*^9, 
   3.5490862797385387`*^9, 3.549096278112241*^9, 3.5492603110921392`*^9, 
   3.549272932776208*^9, 3.5493050777015457`*^9, 3.54930529446189*^9, 
   3.54930580444479*^9, 3.5493588866687517`*^9, 3.5494331515625267`*^9, 
   3.549462317464127*^9, 3.5495402509231853`*^9, 3.5509215892445297`*^9, 
   3.55099072097439*^9, 3.550996429404592*^9, 3.550996596744369*^9, 
   3.555347241820161*^9, 3.557392107211227*^9, 3.5574031544406633`*^9, 
   3.557466472994481*^9, 3.5575793884800777`*^9, 3.5576359783616657`*^9, 
   3.558441143732881*^9, 3.558549890065528*^9, 3.560007744797401*^9, 
   3.560044416684115*^9, 3.560185503276321*^9, 3.560186290108824*^9, 
   3.5601863652885303`*^9, 3.56018651333473*^9, 3.5602228831895227`*^9, 
   3.560256427059043*^9, 3.5602689329238243`*^9, 3.560269934750897*^9, 
   3.56027141995757*^9, 3.560516259276973*^9, 3.560521603874332*^9, 
   3.560534292198491*^9, 3.560535153437986*^9, 3.56084232032723*^9, 
   3.560844441256472*^9, 3.561176812016117*^9, 3.5612108522255697`*^9, 
   3.5612691761052713`*^9, 3.5612756037123938`*^9, 3.561276945714074*^9, 
   3.5613028555754967`*^9, 3.561305372375164*^9, 3.561308544830551*^9, 
   3.561308791471314*^9, {3.561360316495858*^9, 3.561360072200869*^9}, 
   3.7281150260672703`*^9, 3.731234879015354*^9},
 CellLabel->
  "Out[278]=",ExpressionUUID->"c3be7e44-19b9-4331-97bf-d4b7a04da6d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5212815938473883`*^9, 3.521281603070524*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"fea259df-e0ed-4cdf-aaa3-8cdb1bedd142"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Gamma]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.52128160353645*^9, 3.521367621562495*^9, 3.521368198783123*^9, 
   3.521370429079932*^9, 3.521440708298561*^9, 3.521440940278891*^9, 
   3.521455944795998*^9, 3.521461799598612*^9, 3.521511305424837*^9, 
   3.5215210883882236`*^9, 3.5215230634269876`*^9, 3.521539098143944*^9, 
   3.521785527457046*^9, 3.5217973913981133`*^9, 3.5218040180533543`*^9, 
   3.521883460116393*^9, 3.521942190198628*^9, 3.52197113194967*^9, 
   3.521971489406221*^9, 3.5219715857545033`*^9, 3.5219723038464117`*^9, 
   3.521973975846779*^9, 3.522029124352757*^9, 3.524394016274884*^9, 
   3.524396333235737*^9, 3.524977909830531*^9, 3.5249972503269577`*^9, 
   3.525069197918885*^9, 3.5250708041507893`*^9, 3.525072080187438*^9, 
   3.525073255498019*^9, 3.525081031785623*^9, 3.525187144868739*^9, 
   3.525240255623295*^9, 3.525243908499525*^9, 3.5253975453536673`*^9, 
   3.525398681141775*^9, 3.525493469715877*^9, 3.525660873632885*^9, 
   3.525661917129263*^9, 3.525662985676277*^9, 3.525673286518118*^9, 
   3.5457388792958727`*^9, 3.545991142132654*^9, 3.545991490782744*^9, 
   3.5460001657284317`*^9, 3.546021366080489*^9, 3.5460576245504847`*^9, 
   3.546064595307391*^9, 3.5460911374024067`*^9, 3.546325615637171*^9, 
   3.548247471961047*^9, 3.5484045573055058`*^9, 3.548481255469109*^9, 
   3.548511435343017*^9, 3.548525813906999*^9, 3.5485678796196632`*^9, 
   3.548571060742889*^9, 3.548575014961141*^9, 3.548591596650222*^9, 
   3.5486621025780163`*^9, 3.548700124922841*^9, 3.548756258234927*^9, 
   3.5489112493751907`*^9, 3.5489306148932133`*^9, 3.548960802103228*^9, 
   3.549002184680212*^9, 3.5490208728255167`*^9, 3.549043545743966*^9, 
   3.549047032129223*^9, 3.549086279794878*^9, 3.549096278174308*^9, 
   3.5492603111467323`*^9, 3.549272932834874*^9, 3.5493050777445107`*^9, 
   3.549305294508379*^9, 3.54930580449277*^9, 3.54935888673769*^9, 
   3.549433151605976*^9, 3.549462317503981*^9, 3.549540250979239*^9, 
   3.550921589301385*^9, 3.550990721039125*^9, 3.550996429451139*^9, 
   3.550996596812237*^9, 3.555347241887455*^9, 3.557392107280512*^9, 
   3.557403154469644*^9, 3.557466473042213*^9, 3.5575793885340023`*^9, 
   3.557635978416534*^9, 3.558441143787087*^9, 3.558549890112331*^9, 
   3.560007744855802*^9, 3.560044416738813*^9, 3.560185503340569*^9, 
   3.560186290165483*^9, 3.560186365342148*^9, 3.5601865133921547`*^9, 
   3.560222883256978*^9, 3.560256427121368*^9, 3.560268932977991*^9, 
   3.560269934799594*^9, 3.560271420007873*^9, 3.560516259324407*^9, 
   3.5605216039355793`*^9, 3.560534292238182*^9, 3.560535153484857*^9, 
   3.56084232038015*^9, 3.560844441312387*^9, 3.561176812070443*^9, 
   3.561210852298625*^9, 3.561269176198197*^9, 3.561275603770587*^9, 
   3.561276945768134*^9, 3.5613028556600122`*^9, 3.561305372447659*^9, 
   3.561308544912404*^9, 3.561308791541485*^9, {3.561360316590168*^9, 
   3.5613600722662687`*^9}, 3.728115026111189*^9, 3.7312348790502653`*^9},
 CellLabel->
  "Out[279]=",ExpressionUUID->"0d810900-f04a-4ff3-8889-cb54459ba9fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplification", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521281702820423*^9, 3.5212817239903603`*^9}},
 CellLabel->
  "In[280]:=",ExpressionUUID->"9d713dc3-85ce-4101-a1c0-6689af6b8fb4"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Beta]][
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Gamma]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
        Editable->False]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.521281707690879*^9, 3.5212817246160393`*^9}, 
   3.5213676239811287`*^9, 3.521368214120039*^9, 3.521370429128373*^9, 
   3.5214407084282103`*^9, 3.521440940397833*^9, 3.521455944841909*^9, 
   3.521461807097033*^9, 3.521511306837941*^9, 3.5215210895211782`*^9, 
   3.521523063497959*^9, 3.521539098199686*^9, 3.521785527495038*^9, 
   3.52179739145848*^9, 3.5218040180959377`*^9, 3.521883460162889*^9, 
   3.5219421902974854`*^9, 3.521971132010198*^9, 3.521971489454938*^9, 
   3.521971585813143*^9, 3.5219723039057417`*^9, 3.521973975900313*^9, 
   3.5220291244585648`*^9, 3.524394016300806*^9, 3.524396333316564*^9, 
   3.524977909882388*^9, 3.524997250407606*^9, 3.525069198766657*^9, 
   3.52507080420361*^9, 3.5250720802400303`*^9, 3.525073255552384*^9, 
   3.525081031865904*^9, 3.5251871449237127`*^9, 3.525240255662065*^9, 
   3.525243908546568*^9, 3.525397545405353*^9, 3.525398681191146*^9, 
   3.525493469763714*^9, 3.5256608736827707`*^9, 3.525661917172352*^9, 
   3.525662985754897*^9, 3.525673286553432*^9, 3.545738879369272*^9, 
   3.54599114220837*^9, 3.545991490867003*^9, 3.546000165777131*^9, 
   3.546021366159637*^9, 3.546057624609591*^9, 3.5460645953921547`*^9, 
   3.546091137459968*^9, 3.546325615714588*^9, 3.54824747225844*^9, 
   3.548404557374443*^9, 3.548481255525364*^9, 3.548511435383813*^9, 
   3.548525814031131*^9, 3.548567879658512*^9, 3.54857106086798*^9, 
   3.548575015013454*^9, 3.548591596719315*^9, 3.5486621026345167`*^9, 
   3.548700124974962*^9, 3.548756258295102*^9, 3.5489112494253273`*^9, 
   3.548930614940989*^9, 3.548960802146346*^9, 3.549002184825234*^9, 
   3.549020872876356*^9, 3.5490435457863407`*^9, 3.549047032171711*^9, 
   3.549086279849489*^9, 3.549096278248035*^9, 3.549260311215906*^9, 
   3.549272932906095*^9, 3.549305077788508*^9, 3.5493052945352488`*^9, 
   3.549305804543398*^9, 3.5493588868445873`*^9, 3.549433151651176*^9, 
   3.549462317550606*^9, 3.5495402510361137`*^9, 3.5509215893657837`*^9, 
   3.550990721089769*^9, 3.550996429485227*^9, 3.550996596887781*^9, 
   3.555347241953477*^9, 3.557392107355071*^9, 3.557403154518158*^9, 
   3.557466473095489*^9, 3.557579388571879*^9, 3.557635978463381*^9, 
   3.558441143830716*^9, 3.55854989016221*^9, 3.560007744950695*^9, 
   3.5600444167973824`*^9, 3.5601855034079533`*^9, 3.560186290225189*^9, 
   3.5601863653993587`*^9, 3.560186513497489*^9, 3.560222883327818*^9, 
   3.560256427218649*^9, 3.5602689330217943`*^9, 3.56026993485214*^9, 
   3.5602714200621357`*^9, 3.560516259368085*^9, 3.560521604038076*^9, 
   3.560534292279584*^9, 3.560535153531851*^9, 3.5608423204371443`*^9, 
   3.560844441371126*^9, 3.561176812129032*^9, 3.5612108523674173`*^9, 
   3.561269176247222*^9, 3.561275603856879*^9, 3.561276945826865*^9, 
   3.561302855738537*^9, 3.5613053725546207`*^9, 3.561308544971642*^9, 
   3.561308791609988*^9, {3.5613603166570463`*^9, 3.56136007233193*^9}, 
   3.728115026149585*^9, 3.731234879078587*^9},
 CellLabel->
  "Out[280]=",ExpressionUUID->"9900cf70-4764-4abe-95a5-63d8944f84a3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf1Weyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5212819283941107`*^9, 3.521281966900589*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"a9d4c4d6-d44d-4d76-9e2f-e4bf67fac343"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Equation ",
 Cell[BoxData[
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "a"], "s"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`a][
     $CellContext`sUnphys[]],
    Editable->False], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`a, -$CellContext`b],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`b],
     Editable->False]}]}]], "Output",
  CellChangeTimes->{
   3.5212818156646433`*^9, {3.52128197863909*^9, 3.521281984240295*^9}, 
    3.52136764443935*^9, 3.521368303705055*^9, 3.5213704291936483`*^9, 
    3.521440708450926*^9, 3.5214409407068443`*^9, 3.521455944880837*^9, 
    3.5214618239681177`*^9, 3.521511332131768*^9}]
}], "Subsubsection",
 CellChangeTimes->{{3.521368299432321*^9, 3.52136830075956*^9}, {
  3.52136887973263*^9, 3.521368880084476*^9}, {3.52151138672993*^9, 
  3.521511391322731*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MetricConformalEquations", "[", 
  RowBox[{"[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.521281774020873*^9, 3.5212817784630632`*^9}},
 CellLabel->
  "In[282]:=",ExpressionUUID->"a10d3593-51ed-489e-b9eb-b5d90362335c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Beta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.521281776049098*^9, 3.52128177908538*^9}, {
   3.52128197810186*^9, 3.521281983717392*^9}, 3.521367643732121*^9, 
   3.521368302847457*^9, 3.5213704291659946`*^9, 3.521440708442115*^9, 
   3.521440940643806*^9, 3.521455944876039*^9, 3.521461822778215*^9, 
   3.5215113314086*^9, 3.521521098410985*^9, 3.521523063532024*^9, 
   3.521539099375978*^9, 3.521785527510042*^9, 3.521797391494707*^9, 
   3.521804018132975*^9, 3.521883460965777*^9, 3.52194219038057*^9, 
   3.521971132045495*^9, 3.521971489489011*^9, 3.521971585850449*^9, 
   3.521972303941244*^9, 3.5219739759398518`*^9, 3.522029124583536*^9, 
   3.5243940163124313`*^9, 3.5243963333649197`*^9, 3.524977909932871*^9, 
   3.52499725046273*^9, 3.525069208023024*^9, 3.525070804240834*^9, 
   3.525072080274782*^9, 3.525073255587986*^9, 3.525081031915202*^9, 
   3.5251871449815893`*^9, 3.525240255769785*^9, 3.525243908586268*^9, 
   3.5253975454640503`*^9, 3.52539868122031*^9, 3.5254934697958117`*^9, 
   3.525660873714148*^9, 3.525661917202077*^9, 3.5256629858044243`*^9, 
   3.5256732865786743`*^9, 3.545738879404358*^9, 3.545991142293182*^9, 
   3.545991491060321*^9, 3.546000166004445*^9, 3.5460213661821947`*^9, 
   3.546057624677174*^9, 3.546064595448866*^9, 3.5460911375328493`*^9, 
   3.5463256157530212`*^9, 3.5482474723011103`*^9, 3.548404557463202*^9, 
   3.548481255572727*^9, 3.5485114354558687`*^9, 3.5485258141401787`*^9, 
   3.548567879717279*^9, 3.548571060899741*^9, 3.548575015053187*^9, 
   3.548591596784363*^9, 3.5486621027530937`*^9, 3.5487001250194187`*^9, 
   3.5487562583894043`*^9, 3.548911249455142*^9, 3.5489306149789553`*^9, 
   3.548960802201046*^9, 3.5490021848604107`*^9, 3.5490208729272003`*^9, 
   3.5490435458157597`*^9, 3.549047032200493*^9, 3.549086279903891*^9, 
   3.549096278285078*^9, 3.549260311247772*^9, 3.54927293299531*^9, 
   3.5493050778219833`*^9, 3.549305294565186*^9, 3.54930580460041*^9, 
   3.5493588868974247`*^9, 3.5494331516842327`*^9, 3.5494623175936937`*^9, 
   3.549540251084795*^9, 3.550921589410286*^9, 3.550990721181119*^9, 
   3.5509964295244007`*^9, 3.550996596910627*^9, 3.555347242048419*^9, 
   3.5573921074194183`*^9, 3.557403154554201*^9, 3.5574664731349792`*^9, 
   3.5575793886155863`*^9, 3.5576359785233107`*^9, 3.558441143869145*^9, 
   3.55854989019494*^9, 3.5600077449918623`*^9, 3.560044416837452*^9, 
   3.560185503467758*^9, 3.5601862903025103`*^9, 3.560186365438158*^9, 
   3.5601865135421677`*^9, 3.5602228833779297`*^9, 3.560256427260127*^9, 
   3.560268933061598*^9, 3.560269934885387*^9, 3.560271420098359*^9, 
   3.5605162594190083`*^9, 3.5605216040932503`*^9, 3.5605342923064547`*^9, 
   3.5605351535628023`*^9, 3.560842320474547*^9, 3.560844441445024*^9, 
   3.561176812179031*^9, 3.561210852464237*^9, 3.561269176296021*^9, 
   3.561275603900405*^9, 3.5612769458659*^9, 3.5613028557576323`*^9, 
   3.5613053726026793`*^9, 3.5613085450508833`*^9, 3.561308791631052*^9, {
   3.561360316698782*^9, 3.561360072353841*^9}, 3.7281150261882057`*^9, 
   3.731234879107544*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"faab510c-6c6c-4311-9e22-5a51cf35ea5d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.521281797037157*^9, 3.521281815005529*^9}},
 CellLabel->
  "In[283]:=",ExpressionUUID->"04696e92-3190-496e-9866-f2733efcf772"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Beta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5212818156646433`*^9, {3.52128197863909*^9, 3.521281984240295*^9}, 
   3.52136764443935*^9, 3.521368303705055*^9, 3.5213704291936483`*^9, 
   3.521440708450926*^9, 3.5214409407068443`*^9, 3.521455944880837*^9, 
   3.5214618239681177`*^9, 3.521511332131768*^9, 3.5215210991719007`*^9, 
   3.521523063609034*^9, 3.5215390994432592`*^9, 3.5217855275761137`*^9, 
   3.521797391499914*^9, 3.5218040181375437`*^9, 3.5218834609981003`*^9, 
   3.52194219046094*^9, 3.521971132050208*^9, 3.521971489493354*^9, 
   3.521971585854813*^9, 3.521972303983465*^9, 3.521973975944047*^9, 
   3.522029124742228*^9, 3.524394016319681*^9, 3.5243963333734417`*^9, 
   3.524977909936821*^9, 3.524997250471335*^9, 3.525069208702124*^9, 
   3.5250708042455378`*^9, 3.525072080305674*^9, 3.52507325562228*^9, 
   3.525081031928268*^9, 3.5251871449894953`*^9, 3.525240255776464*^9, 
   3.525243908592276*^9, 3.5253975454950933`*^9, 3.525398681227059*^9, 
   3.525493469802586*^9, 3.5256608737197113`*^9, 3.5256619172294703`*^9, 
   3.5256629858300533`*^9, 3.5256732866420918`*^9, 3.5457388794489317`*^9, 
   3.545991142359597*^9, 3.54599149113264*^9, 3.546000166113298*^9, 
   3.54602136619525*^9, 3.546057624717216*^9, 3.5460645954653397`*^9, 
   3.546091137549335*^9, 3.5463256157716837`*^9, 3.548247472370413*^9, 
   3.548404557473812*^9, 3.5484812556362677`*^9, 3.548511435469408*^9, 
   3.548525814178529*^9, 3.548567879757094*^9, 3.548571060908353*^9, 
   3.548575015061438*^9, 3.548591596889172*^9, 3.548662102766891*^9, 
   3.5487001250571938`*^9, 3.548756258420041*^9, 3.548911249463825*^9, 
   3.5489306150116034`*^9, 3.548960802228858*^9, 3.5490021848774443`*^9, 
   3.5490208729378*^9, 3.549043545823353*^9, 3.549047032208166*^9, 
   3.549086279938974*^9, 3.549096278298193*^9, 3.5492603112786818`*^9, 
   3.549272933007251*^9, 3.5493050778298397`*^9, 3.5493052945741463`*^9, 
   3.549305804618181*^9, 3.5493588869117804`*^9, 3.5494331516940613`*^9, 
   3.549462317616194*^9, 3.549540251097556*^9, 3.5509215894235153`*^9, 
   3.5509907211933203`*^9, 3.550996429624771*^9, 3.55099659692488*^9, 
   3.555347242089098*^9, 3.557392107437356*^9, 3.557403154561957*^9, 
   3.557466473147958*^9, 3.557579388626302*^9, 3.557635978552231*^9, 
   3.558441143882963*^9, 3.558549890202922*^9, 3.5600077450073147`*^9, 
   3.560044416903296*^9, 3.5601855035133963`*^9, 3.5601862903143263`*^9, 
   3.56018636545068*^9, 3.560186513557365*^9, 3.560222883392201*^9, 
   3.5602564272749968`*^9, 3.560268933074832*^9, 3.560269934897584*^9, 
   3.560271420110443*^9, 3.560516259461742*^9, 3.560521604105218*^9, 
   3.560534292327758*^9, 3.560535153570422*^9, 3.5608423204905148`*^9, 
   3.560844441488874*^9, 3.56117681219447*^9, 3.561210852525371*^9, 
   3.561269176310348*^9, 3.561275603913422*^9, 3.561276945879508*^9, 
   3.561302855771975*^9, 3.5613053726148977`*^9, 3.5613085451124573`*^9, 
   3.561308791644804*^9, {3.561360316712365*^9, 3.561360072367577*^9}, 
   3.7281150262210283`*^9, 3.731234879134276*^9},
 CellLabel->
  "Out[283]=",ExpressionUUID->"1ac6659c-b784-4616-aa85-b30e32cade1e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDgSUnphysWeyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5212819860927362`*^9, 3.521282005512294*^9}},
 CellLabel->
  "In[284]:=",ExpressionUUID->"1b1b9b48-9947-4571-ad02-95727a79747f"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Equation ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"c", "a", "b", "d"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->9]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`c, -$CellContext`a, \
-$CellContext`b, -$CellContext`d],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"d"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][$CellContext`d],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"c", "a", "b", "d"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`c, -$CellContext`a, \
-$CellContext`b, -$CellContext`d],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"d"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`d],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "a"], GridBox[{
         {
          OverscriptBox["L", "^"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"b", "c"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`a][
      $CellContext`LWeylg[-$CellContext`b, -$CellContext`c]],
     Editable->False], "-", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "c"], GridBox[{
         {
          OverscriptBox["L", "^"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`c][
      $CellContext`LWeylg[-$CellContext`a, -$CellContext`b]],
     Editable->False]}], "\[Equal]", "0"}]], "Output",
  CellChangeTimes->{3.521368809976459*^9, 3.5213688441690693`*^9}]
}], "Subsubsection",
 CellChangeTimes->{3.521511361335359*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MetricConformalEquations", "[", 
  RowBox[{"[", "5", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5212820234443007`*^9, 3.521282023906535*^9}},
 CellLabel->
  "In[285]:=",ExpressionUUID->"831d0887-9f53-41c1-bcce-b2697a73dd84"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CDg[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{{3.521282021212062*^9, 3.5212820245151863`*^9}, 
   3.521367646099161*^9, 3.521368304842279*^9, 3.521370429240817*^9, 
   3.521440708536983*^9, 3.521440940769487*^9, 3.521455944913328*^9, 
   3.521461826919784*^9, 3.521511364215053*^9, 3.52151141270652*^9, 
   3.521521114435235*^9, 3.521523063656261*^9, 3.5215391011979513`*^9, 
   3.521785527594192*^9, 3.521797391533751*^9, 3.521804018166833*^9, 
   3.521883462262871*^9, 3.52194219054397*^9, 3.521971132086776*^9, 
   3.5219714895307207`*^9, 3.521971585891206*^9, 3.521972304038106*^9, 
   3.5219739759798717`*^9, 3.522029124827573*^9, 3.524394016375558*^9, 
   3.5243963334265957`*^9, 3.524977909972004*^9, 3.524997250523747*^9, 
   3.525069217966839*^9, 3.525070804287175*^9, 3.525072080350149*^9, 
   3.525073255632959*^9, 3.525081031948245*^9, 3.525187145032914*^9, 
   3.525240255811943*^9, 3.5252439086317263`*^9, 3.52539754553069*^9, 
   3.5253986812566633`*^9, 3.525493469833857*^9, 3.525660873749523*^9, 
   3.525661917245344*^9, 3.52566298586152*^9, 3.5256732866584377`*^9, 
   3.545738879560268*^9, 3.545991142384562*^9, 3.545991491464932*^9, 
   3.5460001663160543`*^9, 3.5460213662472553`*^9, 3.546057624747426*^9, 
   3.546064595526647*^9, 3.5460911376103363`*^9, 3.546325615845133*^9, 
   3.548247472526709*^9, 3.5484045574913797`*^9, 3.5484812557023153`*^9, 
   3.548511435510854*^9, 3.548525814192718*^9, 3.5485678798257437`*^9, 
   3.54857106096551*^9, 3.54857501510679*^9, 3.548591596931718*^9, 
   3.548662102790786*^9, 3.548700125108687*^9, 3.548756258458557*^9, 
   3.548911249477004*^9, 3.548930615071948*^9, 3.548960802269795*^9, 
   3.5490021849115953`*^9, 3.549020872981449*^9, 3.5490435458529377`*^9, 
   3.5490470322411633`*^9, 3.549086279956044*^9, 3.5490962783504133`*^9, 
   3.549260311347241*^9, 3.549272933026396*^9, 3.549305077859383*^9, 
   3.5493052946047153`*^9, 3.549305804667677*^9, 3.5493588869599648`*^9, 
   3.549433151721842*^9, 3.549462317661249*^9, 3.549540251144743*^9, 
   3.550921589461051*^9, 3.550990721238586*^9, 3.55099642975254*^9, 
   3.5509965969711323`*^9, 3.555347242148325*^9, 3.557392107501958*^9, 
   3.5574031545752172`*^9, 3.5574664731871157`*^9, 3.55757938866365*^9, 
   3.557635978563691*^9, 3.558441143954174*^9, 3.558549890235032*^9, 
   3.560007745050511*^9, 3.560044416922983*^9, 3.5601855036091003`*^9, 
   3.560186290333581*^9, 3.5601863655089817`*^9, 3.5601865136022997`*^9, 
   3.560222883444089*^9, 3.560256427319838*^9, 3.560268933132289*^9, 
   3.560269934931789*^9, 3.5602714201471777`*^9, 3.560516259509705*^9, 
   3.560521604148251*^9, 3.560534292341222*^9, 3.5605351536695642`*^9, 
   3.560842320532103*^9, 3.560844441515513*^9, 3.56117681223435*^9, 
   3.561210852604238*^9, 3.561269176350758*^9, 3.561275603956517*^9, 
   3.561276945919961*^9, 3.561302855821488*^9, 3.561305372656996*^9, 
   3.5613085451874027`*^9, 3.5613087916983757`*^9, {3.561360316756981*^9, 
   3.5613600724132557`*^9}, 3.728115026277556*^9, 3.731234879169567*^9},
 CellLabel->
  "Out[285]=",ExpressionUUID->"beeeacc0-fb34-471c-b95b-f8c3cc138bdc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.5212820356784782`*^9, 3.5212820487508593`*^9}},
 CellLabel->
  "In[286]:=",ExpressionUUID->"d7f1bce8-b675-4786-8a55-17028fec2473"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Delta]", " ", " "},
            {" ", "\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521282049353097*^9, 3.5213676469777308`*^9, 3.521368305408214*^9, 
   3.521370429276273*^9, 3.521440708628459*^9, 3.521440940837616*^9, 
   3.5214559449486713`*^9, 3.521461833705822*^9, 3.5215114134487667`*^9, 
   3.521521115489985*^9, 3.5215230637145853`*^9, 3.521539101275793*^9, 
   3.5217855276205683`*^9, 3.521797391569089*^9, 3.521804018208933*^9, 
   3.521883462337997*^9, 3.521942190569363*^9, 3.521971132159019*^9, 
   3.5219714896034527`*^9, 3.521971585965084*^9, 3.521972304075129*^9, 
   3.521973976015119*^9, 3.5220291249233103`*^9, 3.524394016425633*^9, 
   3.524396333492426*^9, 3.5249779100104647`*^9, 3.5249972505924892`*^9, 
   3.5250692187194653`*^9, 3.525070804325551*^9, 3.525072080399454*^9, 
   3.525073255676032*^9, 3.525081032004233*^9, 3.525187145073936*^9, 
   3.525240255853163*^9, 3.52524390866754*^9, 3.5253975455821877`*^9, 
   3.5253986812902193`*^9, 3.5254934698728456`*^9, 3.5256608738139887`*^9, 
   3.525661917274643*^9, 3.525662985893448*^9, 3.525673286709175*^9, 
   3.5457388796341333`*^9, 3.54599114240821*^9, 3.545991491553746*^9, 
   3.546000166403369*^9, 3.546021366310305*^9, 3.5460576248096523`*^9, 
   3.5460645955603123`*^9, 3.546091137651922*^9, 3.546325615876601*^9, 
   3.548247472550449*^9, 3.5484045575272408`*^9, 3.548481255766788*^9, 
   3.548511435542367*^9, 3.548525814224956*^9, 3.548567879872485*^9, 
   3.548571061005027*^9, 3.548575015170517*^9, 3.5485915969899263`*^9, 
   3.5486621028186073`*^9, 3.548700125153082*^9, 3.5487562584890957`*^9, 
   3.548911249516232*^9, 3.548930615118045*^9, 3.54896080230895*^9, 
   3.5490021849449673`*^9, 3.549020873029991*^9, 3.5490435458849783`*^9, 
   3.549047032270958*^9, 3.5490862799964113`*^9, 3.5490962784002743`*^9, 
   3.549260311384922*^9, 3.549272933069233*^9, 3.5493050778978157`*^9, 
   3.549305294633219*^9, 3.549305804687912*^9, 3.5493588870164537`*^9, 
   3.5494331517492437`*^9, 3.549462317692203*^9, 3.549540251183961*^9, 
   3.550921589502221*^9, 3.5509907212882643`*^9, 3.550996429788856*^9, 
   3.550996597025414*^9, 3.5553472421941223`*^9, 3.557392107556785*^9, 
   3.55740315461137*^9, 3.557466473247952*^9, 3.55757938870155*^9, 
   3.557635978595532*^9, 3.558441143991626*^9, 3.55854989026552*^9, 
   3.560007745096216*^9, 3.5600444169613457`*^9, 3.560185503681267*^9, 
   3.5601862903767653`*^9, 3.560186365546667*^9, 3.560186513642209*^9, 
   3.560222883496434*^9, 3.560256427369116*^9, 3.560268933206642*^9, 
   3.560269934962652*^9, 3.5602714201820993`*^9, 3.560516259549168*^9, 
   3.56052160417726*^9, 3.560534292372684*^9, 3.560535153706752*^9, 
   3.560842320597755*^9, 3.560844441554867*^9, 3.56117681227881*^9, 
   3.5612108526539993`*^9, 3.561269176398755*^9, 3.561275603995475*^9, 
   3.56127694595634*^9, 3.561302855866967*^9, 3.561305372697665*^9, 
   3.561308545264844*^9, 3.561308791747159*^9, {3.561360316800668*^9, 
   3.56136007244425*^9}, 3.728115026317834*^9, 3.73123487919781*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"1a731752-577f-4485-b03e-a55054f07c20"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.5212778711517353`*^9, 3.521277875529296*^9}},
 CellLabel->
  "In[287]:=",ExpressionUUID->"feb740c8-4148-4bf9-93ee-5ce0909c1edf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
            {"\[Alpha]", "\[Beta]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
            {"\[Alpha]", "\[Gamma]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
            {"\[Gamma]", "\[Alpha]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[Delta]", "\[CurlyEpsilon]"},
            {"\[Gamma]", "\[Beta]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Gamma], -$CellContext`\[Beta], \
$CellContext`\[Delta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521277876518921*^9, 3.521278949653701*^9, 3.5212820796551332`*^9, 
   3.521367659562818*^9, 3.521368306132311*^9, 3.521370429319256*^9, 
   3.5214407087189293`*^9, 3.521440940938589*^9, 3.5214559450003357`*^9, 
   3.521461835267804*^9, 3.521511414354155*^9, 3.521521116191949*^9, 
   3.5215230637731667`*^9, 3.5215391013229437`*^9, 3.521785527719555*^9, 
   3.521797391672818*^9, 3.521804018244033*^9, 3.521883462380783*^9, 
   3.521942190658403*^9, 3.521971132215394*^9, 3.521971489662199*^9, 
   3.521971586016818*^9, 3.5219723041168547`*^9, 3.521973976091239*^9, 
   3.522029124999555*^9, 3.524394016489471*^9, 3.5243963335581017`*^9, 
   3.5249779100548363`*^9, 3.524997250753867*^9, 3.525069219321332*^9, 
   3.525070804372746*^9, 3.5250720804322443`*^9, 3.5250732557144117`*^9, 
   3.5250810320431128`*^9, 3.5251871451673727`*^9, 3.52524025590412*^9, 
   3.525243908788033*^9, 3.525397545672542*^9, 3.525398681322083*^9, 
   3.525493469915221*^9, 3.5256608738657627`*^9, 3.5256619173110657`*^9, 
   3.525662985942231*^9, 3.525673286779361*^9, 3.545738879701933*^9, 
   3.545991142488406*^9, 3.5459914916483393`*^9, 3.546000166597101*^9, 
   3.546021366377919*^9, 3.5460576248817787`*^9, 3.546064595603381*^9, 
   3.5460911377173157`*^9, 3.546325615914364*^9, 3.548247472641227*^9, 
   3.548404557584196*^9, 3.548481255829481*^9, 3.548511435602656*^9, 
   3.548525814257976*^9, 3.5485678799417267`*^9, 3.548571061099215*^9, 
   3.548575015219811*^9, 3.548591597041892*^9, 3.5486621028770313`*^9, 
   3.5487001251973047`*^9, 3.548756258525011*^9, 3.5489112495849752`*^9, 
   3.548930615177414*^9, 3.548960802350075*^9, 3.549002184988501*^9, 
   3.5490208730844803`*^9, 3.549043545929141*^9, 3.5490470323116007`*^9, 
   3.549086280037424*^9, 3.54909627846343*^9, 3.549260311426655*^9, 
   3.549272933122807*^9, 3.549305077938547*^9, 3.549305294675488*^9, 
   3.549305804724016*^9, 3.5493588870821533`*^9, 3.549433151789199*^9, 
   3.549462317738245*^9, 3.549540251275646*^9, 3.550921589570355*^9, 
   3.550990721352083*^9, 3.550996429815138*^9, 3.550996597086775*^9, 
   3.555347242251541*^9, 3.557392107621235*^9, 3.557403154651278*^9, 
   3.5574664732922897`*^9, 3.55757938877526*^9, 3.557635978632986*^9, 
   3.558441144040307*^9, 3.558549890306003*^9, 3.560007745153701*^9, 
   3.560044417004182*^9, 3.5601855037550783`*^9, 3.560186290418684*^9, 
   3.5601863655871468`*^9, 3.560186513698799*^9, 3.560222883562224*^9, 
   3.560256427429976*^9, 3.560268933249155*^9, 3.560269935006289*^9, 
   3.560271420255933*^9, 3.560516259615275*^9, 3.560521604205694*^9, 
   3.5605342924017572`*^9, 3.5605351537504873`*^9, 3.560842320643709*^9, 
   3.5608444415987453`*^9, 3.5611768123315287`*^9, 3.56121085272186*^9, 
   3.561269176473303*^9, 3.5612756040597897`*^9, 3.5612769460056257`*^9, 
   3.5613028559493237`*^9, 3.561305372751236*^9, 3.5613085453634157`*^9, 
   3.561308791808147*^9, {3.561360316859839*^9, 3.561360072495919*^9}, 
   3.728115026363666*^9, 3.731234879227419*^9},
 CellLabel->
  "Out[287]=",ExpressionUUID->"73dcb972-3d32-4736-9783-9ed252645658"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5212789585926123`*^9, 3.5212789634234533`*^9}},
 CellLabel->
  "In[288]:=",ExpressionUUID->"51d94f08-b3df-4afb-b128-bacb5fbd40b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Delta]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Beta]],
      Editable->False]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Delta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[Delta]", "\[CurlyEpsilon]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Gamma]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.52128214021456*^9, 3.521367661103725*^9, 3.521368306729828*^9, 
   3.521370429383134*^9, 3.521440708809593*^9, 3.5214409410299892`*^9, 
   3.5214559450453453`*^9, 3.5214618376697598`*^9, 3.521511415367449*^9, 
   3.521521117302143*^9, 3.52152306384858*^9, 3.521539101397644*^9, 
   3.52178552782854*^9, 3.521797391769011*^9, 3.521804018298526*^9, 
   3.521883462449771*^9, 3.5219421907739363`*^9, 3.521971132291109*^9, 
   3.521971489721491*^9, 3.52197158608361*^9, 3.521972304179985*^9, 
   3.5219739761504602`*^9, 3.522029125206333*^9, 3.52439401656774*^9, 
   3.524396333666663*^9, 3.5249779101148853`*^9, 3.524997250841563*^9, 
   3.5250692198387423`*^9, 3.525070804416019*^9, 3.525072080499877*^9, 
   3.525073255790783*^9, 3.5250810321251*^9, 3.5251871452352743`*^9, 
   3.525240255975885*^9, 3.525243908853136*^9, 3.525397545734161*^9, 
   3.5253986813771057`*^9, 3.5254934699870863`*^9, 3.525660873945568*^9, 
   3.5256619173746758`*^9, 3.525662986014511*^9, 3.52567328685954*^9, 
   3.545738879827834*^9, 3.545991142551023*^9, 3.5459914917719517`*^9, 
   3.5460001667543383`*^9, 3.5460213664533167`*^9, 3.5460576250159388`*^9, 
   3.546064595723577*^9, 3.5460911378552723`*^9, 3.5463256159888077`*^9, 
   3.548247472757923*^9, 3.548404557670774*^9, 3.548481255902565*^9, 
   3.548511435682741*^9, 3.5485258143219213`*^9, 3.548567880014617*^9, 
   3.5485710611411743`*^9, 3.548575015282387*^9, 3.548591597125174*^9, 
   3.5486621029647923`*^9, 3.5487001252369413`*^9, 3.5487562586166162`*^9, 
   3.548911249656867*^9, 3.548930615250751*^9, 3.548960802418428*^9, 
   3.549002185059153*^9, 3.549020873164015*^9, 3.54904354597915*^9, 
   3.5490470323627567`*^9, 3.549086280087935*^9, 3.549096278572302*^9, 
   3.549260311494796*^9, 3.5492729331764593`*^9, 3.549305078008003*^9, 
   3.5493052947290993`*^9, 3.5493058047867317`*^9, 3.549358887163673*^9, 
   3.549433151882753*^9, 3.549462317806315*^9, 3.54954025135638*^9, 
   3.550921589644586*^9, 3.550990721465513*^9, 3.5509964298656*^9, 
   3.5509965971391573`*^9, 3.555347242338875*^9, 3.557392107714878*^9, 
   3.5574031547252073`*^9, 3.557466473356511*^9, 3.557579388854931*^9, 
   3.557635978694792*^9, 3.558441144118218*^9, 3.558549890376198*^9, 
   3.5600077452372513`*^9, 3.56004441708416*^9, 3.5601855038542013`*^9, 
   3.560186290500592*^9, 3.5601863656645803`*^9, 3.560186513779204*^9, 
   3.560222883700988*^9, 3.560256427551137*^9, 3.560268933317078*^9, 
   3.5602699350814047`*^9, 3.560271420330484*^9, 3.5605162596993027`*^9, 
   3.560521604260648*^9, 3.560534292465583*^9, 3.560535153806168*^9, 
   3.560842320742126*^9, 3.560844441679385*^9, 3.561176812426738*^9, 
   3.5612108528128557`*^9, 3.561269176558496*^9, 3.561275604144476*^9, 
   3.561276946080267*^9, 3.5613028560330553`*^9, 3.561305372842991*^9, 
   3.5613085455811167`*^9, 3.561308791919147*^9, {3.5613603169662027`*^9, 
   3.561360072600069*^9}, 3.7281150264444523`*^9, 3.731234879266205*^9},
 CellLabel->
  "Out[288]=",ExpressionUUID->"fdbb3d64-f1f0-480d-ae8e-9e74ca63dfe8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5212821449642982`*^9, 3.521282153474102*^9}},
 CellLabel->
  "In[289]:=",ExpressionUUID->"195ae5fd-8412-4857-b46b-9d195c6de273"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521282153932189*^9, 3.521367662050345*^9, 3.5213683075420732`*^9, 
   3.521370429447871*^9, 3.521440709170439*^9, 3.521440941110083*^9, 
   3.521455945110671*^9, 3.521461838867407*^9, 3.521511416570951*^9, 
   3.521521118276775*^9, 3.52152306393097*^9, 3.5215391015404463`*^9, 
   3.521785527948806*^9, 3.521797391838636*^9, 3.52180401836242*^9, 
   3.521883462516654*^9, 3.521942190912221*^9, 3.521971132361846*^9, 
   3.521971489788151*^9, 3.5219715861452637`*^9, 3.521972304260707*^9, 
   3.521973976245616*^9, 3.522029125279306*^9, 3.52439401662925*^9, 
   3.524396333795594*^9, 3.524977910201174*^9, 3.524997250923843*^9, 
   3.525069220573296*^9, 3.525070804481762*^9, 3.525072080578855*^9, 
   3.5250732558753366`*^9, 3.5250810322197027`*^9, 3.525187145301667*^9, 
   3.5252402560922422`*^9, 3.525243908920205*^9, 3.525397545796887*^9, 
   3.525398681444482*^9, 3.525493470062396*^9, 3.525660874045189*^9, 
   3.525661917444377*^9, 3.525662986102581*^9, 3.5256732869631653`*^9, 
   3.5457388799390078`*^9, 3.54599114266992*^9, 3.545991491913509*^9, 
   3.5460001669402857`*^9, 3.5460213665228233`*^9, 3.546057625106238*^9, 
   3.546064595803005*^9, 3.54609113799201*^9, 3.5463256161107397`*^9, 
   3.548247472886216*^9, 3.548404557740409*^9, 3.5484812559804983`*^9, 
   3.54851143577971*^9, 3.548525814386175*^9, 3.548567880086411*^9, 
   3.548571061214884*^9, 3.548575015350437*^9, 3.548591597194525*^9, 
   3.548662103041335*^9, 3.5487001253026943`*^9, 3.548756258743169*^9, 
   3.54891124972129*^9, 3.548930615298753*^9, 3.548960802494803*^9, 
   3.549002185126575*^9, 3.549020873242386*^9, 3.5490435460430937`*^9, 
   3.5490470324195957`*^9, 3.54908628015961*^9, 3.549096278647676*^9, 
   3.5492603115414457`*^9, 3.549272933269547*^9, 3.549305078104642*^9, 
   3.549305294790201*^9, 3.5493058048530416`*^9, 3.549358887268003*^9, 
   3.549433151965385*^9, 3.5494623178701677`*^9, 3.5495402514332037`*^9, 
   3.550921589723386*^9, 3.550990721559907*^9, 3.5509964299233217`*^9, 
   3.550996597197175*^9, 3.555347242410068*^9, 3.557392107789665*^9, 
   3.5574031547729607`*^9, 3.557466473423522*^9, 3.557579388907344*^9, 
   3.557635978757699*^9, 3.558441144203128*^9, 3.5585498904706306`*^9, 
   3.560007745329019*^9, 3.560044417173848*^9, 3.560185503960019*^9, 
   3.560186290588978*^9, 3.560186365750751*^9, 3.560186513913343*^9, 
   3.5602228838200197`*^9, 3.5602564277017803`*^9, 3.5602689334028683`*^9, 
   3.560269935161927*^9, 3.560271420413196*^9, 3.5605162598048477`*^9, 
   3.560521604332374*^9, 3.560534292527149*^9, 3.5605351538996067`*^9, 
   3.560842320840053*^9, 3.5608444417506742`*^9, 3.56117681251466*^9, 
   3.56121085291558*^9, 3.5612691766615677`*^9, 3.561275604235956*^9, 
   3.5612769461703176`*^9, 3.561302856113493*^9, 3.561305372963208*^9, 
   3.561308545820472*^9, 3.5613087919976892`*^9, {3.5613603170716887`*^9, 
   3.5613600726983967`*^9}, 3.728115026499405*^9, 3.73123487931684*^9},
 CellLabel->
  "Out[289]=",ExpressionUUID->"5dd76e97-fd51-4847-9d2b-c2ab102e445e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"exp", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521462401819934*^9, 3.52146240991735*^9}},
 CellLabel->
  "In[290]:=",ExpressionUUID->"072fb12c-3e8b-4d5e-8ce4-6570b75c2580"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"exp", ",", 
     RowBox[{
      RowBox[{"WeylCD", "[", 
       RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
      RowBox[{"LUnphysg", "[", 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], ",", 
        RowBox[{"-", "\[Gamma]"}]}], "]"}]}]}], "]"}], "//", "Flatten"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.52146247540872*^9, 3.5214625259891777`*^9}, {
  3.5214625619391193`*^9, 3.5214625684274178`*^9}, {3.5250692235846643`*^9, 
  3.525069229366543*^9}},
 CellLabel->
  "In[291]:=",ExpressionUUID->"1abb98f7-3542-4db0-ba74-bc78a0c8d453"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
    Editable->False], "\[Rule]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Gamma]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][$CellContext`\[Delta]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][$CellContext`\[Delta]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Gamma]][
      $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.521462526645666*^9, 3.5214625704076014`*^9, 3.521462641592101*^9, 
   3.52151142269298*^9, 3.521521122157919*^9, 3.5215230639751883`*^9, 
   3.5215391015848293`*^9, 3.521785527989538*^9, 3.521797391897023*^9, 
   3.521804018509828*^9, 3.521883462571755*^9, 3.521942191027396*^9, 
   3.521971132418652*^9, 3.5219714898570147`*^9, 3.5219715861918592`*^9, 
   3.521972304338993*^9, 3.521973976311705*^9, 3.522029125383617*^9, 
   3.524394016689351*^9, 3.52439633386618*^9, 3.5249779102479153`*^9, 
   3.5249972509564133`*^9, 3.5250692302733603`*^9, 3.525070804539975*^9, 
   3.525072080645665*^9, 3.525073255973659*^9, 3.525081032294455*^9, 
   3.525187145358755*^9, 3.525240256185636*^9, 3.525243908967862*^9, 
   3.525397545874896*^9, 3.525398681520946*^9, 3.525493470122459*^9, 
   3.525660874095787*^9, 3.525661917500551*^9, 3.525662986148986*^9, 
   3.525673287050446*^9, 3.545738880031489*^9, 3.545991142755876*^9, 
   3.545991492027048*^9, 3.5460001670682592`*^9, 3.5460213666204853`*^9, 
   3.54605762519543*^9, 3.546064595895237*^9, 3.5460911380748167`*^9, 
   3.5463256162148533`*^9, 3.548247473066724*^9, 3.548404557839046*^9, 
   3.5484812560483103`*^9, 3.548511435858536*^9, 3.548525814443068*^9, 
   3.548567880173299*^9, 3.548571061254678*^9, 3.548575015387953*^9, 
   3.548591597269783*^9, 3.548662103101738*^9, 3.548700125378125*^9, 
   3.548756259442988*^9, 3.548911249768993*^9, 3.5489306153563023`*^9, 
   3.5489608025877132`*^9, 3.549002185179269*^9, 3.549020873279656*^9, 
   3.549043546117382*^9, 3.549047032500987*^9, 3.549086280207245*^9, 
   3.549096278722865*^9, 3.54926031165423*^9, 3.549272933326247*^9, 
   3.549305078145649*^9, 3.549305294825173*^9, 3.549305804942692*^9, 
   3.549358887345715*^9, 3.549433152035791*^9, 3.5494623179180117`*^9, 
   3.549540251497058*^9, 3.550921589776993*^9, 3.5509907216236057`*^9, 
   3.550996429999728*^9, 3.5509965972773027`*^9, 3.555347242479026*^9, 
   3.5573921078709183`*^9, 3.5574031548202057`*^9, 3.5574664734779587`*^9, 
   3.5575793889770937`*^9, 3.557635978809746*^9, 3.558441144263749*^9, 
   3.558549890523785*^9, 3.560007745397526*^9, 3.560044417226226*^9, 
   3.560185504053741*^9, 3.560186290650779*^9, 3.56018636581069*^9, 
   3.560186513995282*^9, 3.560222883956375*^9, 3.5602564277826023`*^9, 
   3.560268933462179*^9, 3.560269935216544*^9, 3.560271420460711*^9, 
   3.560516259921728*^9, 3.5605216044059687`*^9, 3.56053429260351*^9, 
   3.560535153951064*^9, 3.560842320909532*^9, 3.56084444181173*^9, 
   3.561176812567975*^9, 3.56121085302853*^9, 3.5612691767339897`*^9, 
   3.561275604287848*^9, 3.561276946233362*^9, 3.561302856176196*^9, 
   3.561305373015192*^9, 3.5613085460772533`*^9, 3.561308792106533*^9, {
   3.561360317142818*^9, 3.5613600727716703`*^9}, 3.728115026559317*^9, 
   3.731234879356996*^9},
 CellLabel->
  "Out[291]=",ExpressionUUID->"ec23ee8c-b96f-4410-926f-ded353f4e9c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.521462658361415*^9, 3.521462663149321*^9}},
 CellLabel->
  "In[292]:=",ExpressionUUID->"9ace7f3a-0104-45bd-bdb3-60231e762ad3"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"L", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Beta]", "\[Gamma]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Gamma], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521462663907082*^9, 3.52151142376233*^9, 3.521521122976684*^9, 
   3.521523064016828*^9, 3.5215391016235323`*^9, 3.521785528071087*^9, 
   3.521797391944038*^9, 3.521804018543683*^9, 3.521883462610654*^9, 
   3.521942191202779*^9, 3.5219711324608793`*^9, 3.5219714898951797`*^9, 
   3.521971586229714*^9, 3.521972304380858*^9, 3.521973976352017*^9, 
   3.522029125464452*^9, 3.52439401670183*^9, 3.524396333933194*^9, 
   3.524977910283551*^9, 3.524997250975342*^9, 3.525069231295287*^9, 
   3.5250708045842047`*^9, 3.5250720807122383`*^9, 3.5250732560138807`*^9, 
   3.5250810323574877`*^9, 3.525187145396912*^9, 3.5252402562318277`*^9, 
   3.525243909007168*^9, 3.525397545910783*^9, 3.52539868155214*^9, 
   3.525493470159045*^9, 3.525660874135502*^9, 3.525661917532894*^9, 
   3.525662986179228*^9, 3.525673287103902*^9, 3.545738880101943*^9, 
   3.54599114284128*^9, 3.545991492058811*^9, 3.54600016715653*^9, 
   3.546021366676921*^9, 3.546057625274688*^9, 3.546064595950329*^9, 
   3.546091138208219*^9, 3.546325616294951*^9, 3.54824747314573*^9, 
   3.5484045578826437`*^9, 3.548481256085465*^9, 3.5485114359144907`*^9, 
   3.548525814475367*^9, 3.548567880222397*^9, 3.548571061286276*^9, 
   3.548575015424906*^9, 3.548591597313086*^9, 3.548662103151464*^9, 
   3.5487001254086246`*^9, 3.5487562595891542`*^9, 3.548911249906147*^9, 
   3.548930615404789*^9, 3.548960802630123*^9, 3.5490021852160463`*^9, 
   3.549020873297134*^9, 3.549043546151573*^9, 3.54904703252967*^9, 
   3.549086280256742*^9, 3.549096278771545*^9, 3.549260311689682*^9, 
   3.549272933381517*^9, 3.549305078179495*^9, 3.5493052948653603`*^9, 
   3.549305804963516*^9, 3.5493588873762197`*^9, 3.549433152066568*^9, 
   3.5494623179540777`*^9, 3.549540251541857*^9, 3.550921589814678*^9, 
   3.550990721674756*^9, 3.550996430040688*^9, 3.550996597331438*^9, 
   3.555347242526504*^9, 3.5573921079257183`*^9, 3.557403154858859*^9, 
   3.557466473517515*^9, 3.557579389032486*^9, 3.557635978842984*^9, 
   3.558441144302302*^9, 3.558549890559506*^9, 3.560007745443377*^9, 
   3.560044417266827*^9, 3.560185504156349*^9, 3.5601862906888847`*^9, 
   3.560186365846497*^9, 3.560186514037478*^9, 3.560222884005445*^9, 
   3.560256427828026*^9, 3.560268933500629*^9, 3.560269935254768*^9, 
   3.56027142049794*^9, 3.5605162599571533`*^9, 3.560521604452136*^9, 
   3.560534292683507*^9, 3.5605351539840097`*^9, 3.560842320959499*^9, 
   3.560844441850699*^9, 3.5611768126094112`*^9, 3.561210853071371*^9, 
   3.5612691767813387`*^9, 3.561275604333102*^9, 3.5612769462717752`*^9, 
   3.56130285624551*^9, 3.561305373082316*^9, 3.561308546155478*^9, 
   3.561308792192725*^9, {3.561360317206521*^9, 3.561360073912364*^9}, 
   3.7281150265984383`*^9, 3.7312348793848257`*^9},
 CellLabel->
  "Out[292]=",ExpressionUUID->"2455802b-e15d-45f3-92fd-762e7c00e299"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"WeylCDLUnphysg", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521462669824945*^9, 3.521462690909758*^9}},
 CellLabel->
  "In[293]:=",ExpressionUUID->"91678d11-938b-485a-848e-56ae08eb5dca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"exp", "/.", 
  RowBox[{"ApplyRule", "@", "SchoutenUnphysicalToSchoutenWeyl"}]}]], "Input",
 CellChangeTimes->{{3.5212824865084963`*^9, 3.521282491050685*^9}, {
  3.5214624185593357`*^9, 3.521462419206909*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"d21ac0bb-8e40-40da-9027-3ab4939dd290"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Delta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Delta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Gamma]", "\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Alpha]][
          $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Beta]]],
         Editable->False], ")"}]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][$CellContext`\[Delta]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {" "},
                    {"\[Delta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}]}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[-$CellContext`\[Alpha]][
             $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
            Editable->False], ")"}]}], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Delta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][-$CellContext`\[Delta]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {"\[Delta]"},
                    {" "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}]}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[-$CellContext`\[Alpha]][
             $CellContext`\[ScriptF][$CellContext`\[Delta]]],
            Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], 
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`WeylCD[-$CellContext`\[Gamma]][
      $CellContext`\[ScriptF][-$CellContext`\[Beta]]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], \
-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Gamma]][
        $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
       Editable->False]}], ")"}]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Delta]],
        Editable->False], " ", 
       RowBox[{"(", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Beta]", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Gamma]][
          $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Alpha]]],
         Editable->False], ")"}]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][$CellContext`\[Delta]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {" "},
                    {"\[Delta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}]}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[-$CellContext`\[Gamma]][
             $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
            Editable->False], ")"}]}], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Delta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][-$CellContext`\[Delta]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {"\[Delta]"},
                    {" "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}]}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[-$CellContext`\[Gamma]][
             $CellContext`\[ScriptF][$CellContext`\[Delta]]],
            Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], 
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Delta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Delta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Delta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Delta], -$CellContext`\[Gamma]],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Delta]][
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
       Editable->False]}], ")"}]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521282491885984*^9, 3.521367663236766*^9, 3.521368308898047*^9, 
   3.521370429564331*^9, 3.521440709410038*^9, 3.52144094126551*^9, 
   3.5214559452227783`*^9, 3.521461841043749*^9, 3.521511433163001*^9, 
   3.521513934145651*^9, 3.521514004676733*^9, 3.521521126023026*^9, 
   3.52152306411584*^9, 3.5215391017148323`*^9, 3.5217855281782503`*^9, 
   3.5217973920359373`*^9, 3.521804018621372*^9, 3.5218834627037067`*^9, 
   3.521942191327483*^9, 3.521971132555408*^9, 3.521971489979137*^9, 
   3.521971586274939*^9, 3.5219723044562197`*^9, 3.5219739764373913`*^9, 
   3.5220291255913973`*^9, 3.5243940167541437`*^9, 3.5243963340426693`*^9, 
   3.524977910347989*^9, 3.524997251086508*^9, 3.5250692326099463`*^9, 
   3.52507080465871*^9, 3.525072080787828*^9, 3.525073256108349*^9, 
   3.525081032496478*^9, 3.525187145458186*^9, 3.5252402563802433`*^9, 
   3.525243909079009*^9, 3.525397545981371*^9, 3.5253986815996637`*^9, 
   3.525493470253972*^9, 3.525660874223424*^9, 3.5256619176242533`*^9, 
   3.525662986263987*^9, 3.525673287204206*^9, 3.545738880240993*^9, 
   3.5459911429836407`*^9, 3.545991492190832*^9, 3.546000167386351*^9, 
   3.546021366789813*^9, 3.546057625412627*^9, 3.546064596125725*^9, 
   3.54609113834403*^9, 3.5463256163953543`*^9, 3.548247473228982*^9, 
   3.548404557977974*^9, 3.548481256188191*^9, 3.548511436054727*^9, 
   3.5485258145678673`*^9, 3.548567880366661*^9, 3.5485710613877287`*^9, 
   3.548575015499693*^9, 3.548591597406732*^9, 3.548662103306787*^9, 
   3.548700125515809*^9, 3.54875625970252*^9, 3.548911250013109*^9, 
   3.548930615499742*^9, 3.548960802716971*^9, 3.549002185908094*^9, 
   3.549020873403413*^9, 3.549043546244316*^9, 3.549047032602882*^9, 
   3.54908628036172*^9, 3.549096278879407*^9, 3.5492603118130817`*^9, 
   3.549272933481737*^9, 3.5493050782647657`*^9, 3.549305294932674*^9, 
   3.549305805027136*^9, 3.549358887477879*^9, 3.5494331521745*^9, 
   3.549462318042913*^9, 3.549540251625742*^9, 3.550921589910755*^9, 
   3.550990721820026*^9, 3.550996430163122*^9, 3.5509965974405737`*^9, 
   3.555347242634693*^9, 3.5573921080278597`*^9, 3.557403154931638*^9, 
   3.557466473608646*^9, 3.557579389145105*^9, 3.557635978913362*^9, 
   3.558441144400476*^9, 3.558549890651806*^9, 3.5600077455831347`*^9, 
   3.5600444173691463`*^9, 3.5601855042759247`*^9, 3.560186290789143*^9, 
   3.560186365943543*^9, 3.560186514149085*^9, 3.560222884152339*^9, 
   3.560256427969154*^9, 3.560268933598823*^9, 3.560269935335083*^9, 
   3.560271420593728*^9, 3.560516260087434*^9, 3.5605216045210657`*^9, 
   3.560534292868964*^9, 3.5605351540720787`*^9, 3.560842321101173*^9, 
   3.560844441952223*^9, 3.5611768127448063`*^9, 3.561210853197165*^9, 
   3.561269176938532*^9, 3.561275604496513*^9, 3.561276946355398*^9, 
   3.5613028563932877`*^9, 3.56130537319485*^9, 3.561308546332117*^9, 
   3.561308792284581*^9, {3.561360317349195*^9, 3.561360074118619*^9}, 
   3.728115026679515*^9, 3.731234879450549*^9},
 CellLabel->
  "Out[294]=",ExpressionUUID->"cf770780-ec38-4faf-8a8d-29e3b8f4e09d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5212789585926123`*^9, 3.5212789634234533`*^9}, 
   3.521461846488806*^9},
 CellLabel->
  "In[295]:=",ExpressionUUID->"2633e782-8427-4289-bec6-9c4e508f430d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"MakeRule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[ScriptF]", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}], ",", 
       RowBox[{"\[ScriptF]", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}]}], "}"}], ",", 
     RowBox[{"MetricOn", "\[Rule]", "All"}], ",", 
     RowBox[{"ContractMetrics", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.521280847627549*^9, 3.521280883568212*^9}, 
   3.5212826147768393`*^9, {3.525069235400814*^9, 3.525069238441011*^9}},
 CellLabel->
  "In[296]:=",ExpressionUUID->"4e9fc9f5-6482-4c21-8921-e60146966948"],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"ApplyRuleN", "@", "WeylCDUnphysicalg"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5212809479816*^9, 3.5212809516798077`*^9}, 
   3.521281408046175*^9, 3.521282619133254*^9},
 CellLabel->
  "In[297]:=",ExpressionUUID->"7774956f-6d72-4840-8fa4-ffa70326686c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5212809010708647`*^9, 3.521280913301993*^9}},
 CellLabel->
  "In[298]:=",ExpressionUUID->"4957a8a2-f970-4974-a1d4-fbc324fa5a0b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {"\[Delta]", " "},
            {" ", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[$CellContext`\[Delta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {"\[Delta]", " "},
            {" ", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[$CellContext`\[Delta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], 
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`WeylCD[-$CellContext`\[Gamma]][
      $CellContext`\[ScriptF][-$CellContext`\[Beta]]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], 
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Delta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Delta]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521280913965547*^9, 3.5212809704747133`*^9, 3.521281372776829*^9, 
   3.5212814176793423`*^9, 3.521282621450651*^9, 3.5213676682199507`*^9, 
   3.5213683138851843`*^9, 3.5213704299821587`*^9, 3.52144070967353*^9, 
   3.521440941906736*^9, 3.521455945597252*^9, 3.5214618516364317`*^9, 
   3.5215114370116043`*^9, 3.521513936967808*^9, 3.5215140076140757`*^9, 
   3.521521129583961*^9, 3.521523064261551*^9, 3.521539101951713*^9, 
   3.5217855284300117`*^9, 3.521797392196926*^9, 3.521804018844309*^9, 
   3.521883462930044*^9, 3.521942191626679*^9, 3.521971132700635*^9, 
   3.52197149018832*^9, 3.5219715864859343`*^9, 3.521972304655843*^9, 
   3.521973976647675*^9, 3.522029126004717*^9, 3.524394017006261*^9, 
   3.524396334273292*^9, 3.5249779104778423`*^9, 3.524997251276828*^9, 
   3.5250692407310123`*^9, 3.525070804786141*^9, 3.52507208092509*^9, 
   3.525073256254107*^9, 3.525081032714273*^9, 3.525187145623138*^9, 
   3.525240256597797*^9, 3.525243909225162*^9, 3.525397546151716*^9, 
   3.525398681743734*^9, 3.525493470415111*^9, 3.525660874371478*^9, 
   3.525661917768175*^9, 3.525662986407785*^9, 3.525673287457547*^9, 
   3.545738880634284*^9, 3.5459911432283573`*^9, 3.545991492542033*^9, 
   3.5460001678577213`*^9, 3.546021367028151*^9, 3.546057625678438*^9, 
   3.546064596420477*^9, 3.54609113860583*^9, 3.546325616753456*^9, 
   3.548247473530707*^9, 3.548404558161825*^9, 3.5484812563657846`*^9, 
   3.548511436286975*^9, 3.54852581480198*^9, 3.54856788058997*^9, 
   3.548571061578808*^9, 3.548575015681082*^9, 3.548591597650695*^9, 
   3.5486621035591793`*^9, 3.548700125674244*^9, 3.5487562600302553`*^9, 
   3.548911250259918*^9, 3.548930615731311*^9, 3.548960802886779*^9, 
   3.5490021860987377`*^9, 3.5490208736057377`*^9, 3.549043546401513*^9, 
   3.549047032746752*^9, 3.549086280528296*^9, 3.5490962791132*^9, 
   3.549260312058642*^9, 3.54927293369733*^9, 3.549305078418818*^9, 
   3.5493052950810432`*^9, 3.5493058052090054`*^9, 3.549358887702714*^9, 
   3.549433152366913*^9, 3.549462318227352*^9, 3.549540251800049*^9, 
   3.550921590096691*^9, 3.550990722054779*^9, 3.55099643035135*^9, 
   3.5509965976433153`*^9, 3.5553472428731117`*^9, 3.5573921082552137`*^9, 
   3.557403155085083*^9, 3.5574664737907763`*^9, 3.5575793893303747`*^9, 
   3.557635979074654*^9, 3.558441144611701*^9, 3.558549890816505*^9, 
   3.560007745821484*^9, 3.560044417582449*^9, 3.560185504601466*^9, 
   3.560186291004382*^9, 3.560186366157201*^9, 3.5601865145421*^9, 
   3.56022288458081*^9, 3.560256428207753*^9, 3.560268933811757*^9, 
   3.560269935543642*^9, 3.560271420813303*^9, 3.5605162603665257`*^9, 
   3.5605216047333317`*^9, 3.560534293031392*^9, 3.560535154227366*^9, 
   3.5608423213587713`*^9, 3.560844442161995*^9, 3.561176812976377*^9, 
   3.561210853440721*^9, 3.5612691771803827`*^9, 3.561275604735139*^9, 
   3.561276946607264*^9, 3.561302856723135*^9, 3.5613053734575167`*^9, 
   3.56130854721439*^9, 3.56130879253132*^9, {3.561360317598337*^9, 
   3.561360074332911*^9}, 3.7281150268329782`*^9, 3.73123487956839*^9},
 CellLabel->
  "Out[298]=",ExpressionUUID->"0011a52b-c673-4113-81e4-fdd36ae4ce3e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "SortCovDs"}]], "Input",
 CellChangeTimes->{{3.521512895479286*^9, 3.521512898937957*^9}},
 CellLabel->
  "In[299]:=",ExpressionUUID->"364715f9-185e-43ee-8a59-d328a7fc53b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", 
          OverscriptBox["\[Del]", "^"], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Delta]"},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RiemannWeylCD[-$CellContext`\[Gamma], \
-$CellContext`\[Alpha], -$CellContext`\[Beta], $CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {"\[Delta]", " "},
            {" ", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[$CellContext`\[Delta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {"\[Delta]", " "},
            {" ", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[$CellContext`\[Delta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Beta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], 
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptF][-$CellContext`\[Beta]]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], 
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]]],
    Editable->False], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Delta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Delta]][
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]]],
      Editable->False], ")"}]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521512899616282*^9, 3.5215139424328136`*^9, 3.521514008539424*^9, 
   3.521521131268795*^9, 3.5215230643245077`*^9, 3.52153910201056*^9, 
   3.5217855285547037`*^9, 3.521797392257815*^9, 3.5218040188942137`*^9, 
   3.521883462990118*^9, 3.521942191761546*^9, 3.5219711327486362`*^9, 
   3.521971490230722*^9, 3.521971586531095*^9, 3.52197230471763*^9, 
   3.521973976698276*^9, 3.5220291260736113`*^9, 3.5243940170869904`*^9, 
   3.52439633434468*^9, 3.524977910522596*^9, 3.52499725136583*^9, 
   3.525069241676113*^9, 3.5250708048706284`*^9, 3.525072080972967*^9, 
   3.52507325631666*^9, 3.525081032804454*^9, 3.52518714569576*^9, 
   3.5252402566469307`*^9, 3.5252439092665157`*^9, 3.5253975461924133`*^9, 
   3.525398681788271*^9, 3.525493470462661*^9, 3.525660874420903*^9, 
   3.525661917808728*^9, 3.525662986458477*^9, 3.525673287544546*^9, 
   3.545738880740394*^9, 3.545991143338372*^9, 3.5459914926618567`*^9, 
   3.5460001679759398`*^9, 3.546021367174142*^9, 3.546057625778365*^9, 
   3.546064596532696*^9, 3.546091138711104*^9, 3.546325616842469*^9, 
   3.548247473731776*^9, 3.548404558225527*^9, 3.5484812564648857`*^9, 
   3.548511436375355*^9, 3.548525814846599*^9, 3.548567880651588*^9, 
   3.548571061621633*^9, 3.548575015723085*^9, 3.548591597722764*^9, 
   3.548662103669159*^9, 3.548700125722048*^9, 3.5487562601459017`*^9, 
   3.548911250320834*^9, 3.548930615814399*^9, 3.5489608029400806`*^9, 
   3.5490021861343737`*^9, 3.549020873670733*^9, 3.549043546460186*^9, 
   3.549047032788289*^9, 3.549086280597818*^9, 3.549096279185861*^9, 
   3.549260312119296*^9, 3.549272933775694*^9, 3.549305078470717*^9, 
   3.5493052951136217`*^9, 3.54930580525439*^9, 3.549358887777328*^9, 
   3.5494331524225893`*^9, 3.5494623182814493`*^9, 3.54954025186574*^9, 
   3.550921590154961*^9, 3.550990722136999*^9, 3.5509964304147663`*^9, 
   3.550996597732778*^9, 3.555347242941395*^9, 3.5573921083697844`*^9, 
   3.557403155128394*^9, 3.557466473846242*^9, 3.557579389397389*^9, 
   3.5576359791240463`*^9, 3.558441144665827*^9, 3.558549890862462*^9, 
   3.5600077459029007`*^9, 3.560044417643382*^9, 3.560185504698729*^9, 
   3.560186291056326*^9, 3.560186366208091*^9, 3.560186514660061*^9, 
   3.56022288466038*^9, 3.560256428319231*^9, 3.560268933863549*^9, 
   3.560269935656755*^9, 3.5602714208859797`*^9, 3.5605162604514303`*^9, 
   3.560521604796867*^9, 3.560534293086605*^9, 3.560535154262085*^9, 
   3.560842321456202*^9, 3.560844442221963*^9, 3.561176813053144*^9, 
   3.561210853491441*^9, 3.561269177279657*^9, 3.561275604798873*^9, 
   3.561276946658667*^9, 3.561302856817841*^9, 3.561305373587438*^9, 
   3.561308547315485*^9, 3.5613087925980463`*^9, {3.5613603177013617`*^9, 
   3.561360074399225*^9}, 3.72811502687707*^9, 3.7312348796007357`*^9},
 CellLabel->
  "Out[299]=",ExpressionUUID->"2519fff9-35f8-474a-9070-ddf2d258cc97"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"ApplyRule", "@", "conf2Weyl"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5215129561107492`*^9, 3.521512961884441*^9}},
 CellLabel->
  "In[300]:=",ExpressionUUID->"f7837fed-83e2-443a-830c-dba24d75dbdc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"ApplyRuleN", "@", "WeylCD\[ScriptF]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.521512043831258*^9, 3.5215120619394493`*^9}, 
   3.521512104514928*^9},
 CellLabel->
  "In[301]:=",ExpressionUUID->"98533298-efb8-49ba-9d35-9105c1d3a5a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"MakeRule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[ScriptF]", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}], ",", 
       RowBox[{"\[ScriptF]", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}]}], "}"}], ",", 
     RowBox[{"MetricOn", "\[Rule]", "All"}], ",", 
     RowBox[{"ContractMetrics", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.521512106831457*^9, 3.521512158365871*^9}, {
  3.5250692446977158`*^9, 3.525069247247711*^9}},
 CellLabel->
  "In[302]:=",ExpressionUUID->"af0bc295-c78a-46da-ab0d-47d23875ef79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"ApplyRuleN", "@", "WeylCDUnphysicalg"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5214621782668047`*^9, 3.521462194854664*^9}},
 CellLabel->
  "In[303]:=",ExpressionUUID->"f9c26b70-a6ea-45fa-adc9-34676db970d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"ApplyRuleN", "@", "WeylCD\[ScriptF]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.521512043831258*^9, 3.5215120619394493`*^9}, 
   3.521512104514928*^9},
 CellLabel->
  "In[304]:=",ExpressionUUID->"23e1f11f-80c0-443b-8092-027db1f1d59f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.521368805993338*^9, 3.521368843726982*^9}},
 CellLabel->
  "In[305]:=",ExpressionUUID->"7b608c28-7d56-4cde-8828-1b209d36b5ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " "},
            {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], -$CellContext`\
\[Gamma], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {" ", " ", " "},
            {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521368809976459*^9, 3.5213688441690693`*^9, 3.521370430312676*^9, 
   3.521440710069828*^9, 3.521440942619093*^9, 3.521455945943036*^9, 
   3.521461914360395*^9, 3.52151144283735*^9, 3.521512200967*^9, {
   3.521512239004031*^9, 3.521512263796846*^9}, 3.521512789180402*^9, 
   3.521512965558343*^9, 3.5215139461625347`*^9, 3.52151401191047*^9, 
   3.52152113573044*^9, 3.521523064523491*^9, 3.5215391021978083`*^9, 
   3.521785528852483*^9, 3.521797392447407*^9, 3.5218040191516027`*^9, 
   3.5218834632644787`*^9, 3.521942192163178*^9, 3.521971132989025*^9, 
   3.521971490559779*^9, 3.521971586915477*^9, 3.521972304923545*^9, 
   3.5219739770075283`*^9, 3.5220291265036917`*^9, 3.52439401736928*^9, 
   3.524396334614703*^9, 3.5249779107049103`*^9, 3.5249972516381083`*^9, 
   3.525069249653142*^9, 3.525070805067267*^9, 3.525072081274207*^9, 
   3.5250732566002913`*^9, 3.5250810330479183`*^9, 3.525187145962652*^9, 
   3.525240256827284*^9, 3.525243909457923*^9, 3.52539754640588*^9, 
   3.5253986819752407`*^9, 3.525493470660921*^9, 3.525660874613592*^9, 
   3.5256619180186996`*^9, 3.5256629866534777`*^9, 3.5256732878489943`*^9, 
   3.545738881008366*^9, 3.5459911436501617`*^9, 3.545991493001153*^9, 
   3.546000168376596*^9, 3.5460213674938707`*^9, 3.546057626133531*^9, 
   3.546064596851769*^9, 3.546091139054595*^9, 3.546325617181356*^9, 
   3.548247474067956*^9, 3.548404558556177*^9, 3.548481256663871*^9, 
   3.548511436683337*^9, 3.548525815178954*^9, 3.548567881056826*^9, 
   3.5485710618365107`*^9, 3.548575015969084*^9, 3.5485915980382*^9, 
   3.548662103998666*^9, 3.548700125940679*^9, 3.548756260613852*^9, 
   3.548911250535878*^9, 3.548930616107356*^9, 3.5489608031543627`*^9, 
   3.549002186336411*^9, 3.5490208739659033`*^9, 3.5490435466493607`*^9, 
   3.549047032994728*^9, 3.549086280898094*^9, 3.549096279520068*^9, 
   3.5492603124391203`*^9, 3.5492729340654917`*^9, 3.5493050786847754`*^9, 
   3.54930529533431*^9, 3.5493058054840927`*^9, 3.549358888103166*^9, 
   3.549433152745479*^9, 3.54946231852665*^9, 3.549540252100572*^9, 
   3.550921590443906*^9, 3.550990722468244*^9, 3.550996430665963*^9, 
   3.550996597995652*^9, 3.5553472432846413`*^9, 3.557392108697112*^9, 
   3.557403155350737*^9, 3.557466474152259*^9, 3.557579389625309*^9, 
   3.5576359793356237`*^9, 3.558441144961198*^9, 3.558549891071391*^9, 
   3.560007746237629*^9, 3.560044417957531*^9, 3.5601855051585827`*^9, 
   3.5601862913528547`*^9, 3.560186366502952*^9, 3.56018651503894*^9, 
   3.560222884970181*^9, 3.5602564286249943`*^9, 3.560268934162991*^9, 
   3.560269935944644*^9, 3.560271421276702*^9, 3.560516260846095*^9, 
   3.560521605113638*^9, 3.560534293392769*^9, 3.560535154452125*^9, 
   3.560842321756008*^9, 3.560844442504648*^9, 3.5611768133668118`*^9, 
   3.5612108538874397`*^9, 3.561269177601041*^9, 3.5612756051552763`*^9, 
   3.561276946955368*^9, 3.561302857209441*^9, 3.561305374103899*^9, 
   3.561308548248911*^9, 3.5613087931440907`*^9, {3.5613603180164433`*^9, 
   3.5613600746961*^9}, 3.728115027164136*^9, 3.731234879832646*^9},
 CellLabel->
  "Out[305]=",ExpressionUUID->"2613742e-cd2b-45f9-83fb-08418ff3da98"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{"\[ScriptD]", "[", "__", "]"}], ",", "Simplify"}], "]"}], "&"}], 
  "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521511505345536*^9, 3.521511541564147*^9}},
 CellLabel->
  "In[306]:=",ExpressionUUID->"0033caa5-8845-4ec5-80be-0b4ab35d777f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", " "},
               {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", " "},
               {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {"\[Delta]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][$CellContext`\[Delta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
       Editable->False]}], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521511542229725*^9, 3.521521147873838*^9, 3.521523064562462*^9, 
   3.521539102235999*^9, 3.52178552891969*^9, 3.521797392482995*^9, 
   3.521804019186112*^9, 3.5218834632985477`*^9, 3.52194219236928*^9, 
   3.5219711330256023`*^9, 3.5219714907209597`*^9, 3.52197158700416*^9, 
   3.521972304969728*^9, 3.521973977056327*^9, 3.522029126588592*^9, 
   3.524394017413486*^9, 3.524396334658606*^9, 3.524977910741585*^9, 
   3.524997251739006*^9, 3.525069253521489*^9, 3.525070805103801*^9, 
   3.525072081320115*^9, 3.52507325663556*^9, 3.525081033127842*^9, 
   3.525187145972987*^9, 3.5252402568608847`*^9, 3.525243909495133*^9, 
   3.525397546438097*^9, 3.525398682034816*^9, 3.5254934706962843`*^9, 
   3.5256608746472816`*^9, 3.52566191805054*^9, 3.525662986686064*^9, 
   3.525673287899899*^9, 3.545738881066865*^9, 3.5459911437177067`*^9, 
   3.545991493084056*^9, 3.546000168447604*^9, 3.5460213675445023`*^9, 
   3.546057626177803*^9, 3.546064596902853*^9, 3.546091139110194*^9, 
   3.54632561725702*^9, 3.5482474741404543`*^9, 3.5484045586550417`*^9, 
   3.548481256700283*^9, 3.548511436728198*^9, 3.548525815226788*^9, 
   3.548567881096072*^9, 3.54857106186143*^9, 3.5485750160011873`*^9, 
   3.5485915980823193`*^9, 3.548662104044566*^9, 3.548700125973208*^9, 
   3.548756260686204*^9, 3.548911250589542*^9, 3.548930616144054*^9, 
   3.548960803190534*^9, 3.549002186370153*^9, 3.549020874017016*^9, 
   3.5490435466838818`*^9, 3.5490470330301867`*^9, 3.549086281381257*^9, 
   3.549096279566133*^9, 3.549260312473192*^9, 3.549272934150523*^9, 
   3.5493050787176113`*^9, 3.549305295364374*^9, 3.5493058055041037`*^9, 
   3.5493588881539907`*^9, 3.549433152782999*^9, 3.549462318554571*^9, 
   3.549540252145351*^9, 3.550921590474597*^9, 3.5509907225189667`*^9, 
   3.5509964307084723`*^9, 3.550996598042427*^9, 3.555347243327774*^9, 
   3.557392108750168*^9, 3.5574031553809147`*^9, 3.557466474187999*^9, 
   3.557579389663425*^9, 3.557635979370476*^9, 3.5584411450290937`*^9, 
   3.558549891111453*^9, 3.560007746274438*^9, 3.560044418031337*^9, 
   3.5601855052255507`*^9, 3.560186291425812*^9, 3.560186366575143*^9, 
   3.560186515078279*^9, 3.560222885011053*^9, 3.560256428660528*^9, 
   3.560268934273988*^9, 3.560269935974098*^9, 3.560271421340271*^9, 
   3.560516260970806*^9, 3.560521605203937*^9, 3.560534293425639*^9, 
   3.560535154480253*^9, 3.56084232178617*^9, 3.560844442577684*^9, 
   3.561176813397924*^9, 3.561210853906406*^9, 3.561269177637382*^9, 
   3.561275605192131*^9, 3.561276946990345*^9, 3.5613028572572803`*^9, 
   3.561305374140427*^9, 3.561308548790821*^9, 3.561308793233836*^9, {
   3.561360318053746*^9, 3.561360074733235*^9}, 3.728115027201744*^9, 
   3.731234879887926*^9},
 CellLabel->
  "Out[306]=",ExpressionUUID->"ad338d26-0981-4325-9869-ae70e8cdb1a9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf3Weyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521283248173086*^9, 3.5212832560941*^9}},
 CellLabel->
  "In[307]:=",ExpressionUUID->"044a933f-0b30-44d7-be96-150a870efaae"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Equation ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"\[Alpha]", "\[Beta]", "\[Delta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Alpha]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][$CellContext`\[Alpha]],
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", "\[Alpha]"},
             {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
     Editable->False]}], "\[Equal]", "0"}]], "Output",
  CellChangeTimes->{
   3.5213728623563957`*^9, 3.521440710740941*^9, 3.521440943381341*^9, 
    3.521455946273967*^9, 3.521463056083313*^9, 3.5215212429788847`*^9, 
    3.521523065011758*^9, 3.521539103270831*^9, 3.521785529442123*^9, 
    3.521797392885998*^9, 3.5218040194972486`*^9, 3.521883463935288*^9, 
    3.521942193122717*^9, 3.5219711334739103`*^9, 3.521971491042881*^9, 
    3.5219715873040133`*^9, 3.52197230531353*^9, 3.521973977541779*^9, 
    3.522029127100482*^9, 3.524394017916472*^9, 3.524396335137892*^9, 
    3.524977911043043*^9, 3.5249972519961863`*^9, 3.525069294753933*^9, 
    3.5250708053943453`*^9, 3.5250720816293592`*^9, 3.525073256982889*^9, 
    3.525081033607562*^9, 3.525187146391654*^9, 3.525240257134659*^9, 
    3.525243909890867*^9, 3.525397546788513*^9, 3.52539868231721*^9, 
    3.5254934710087833`*^9, 3.525660874920971*^9, 3.5256619183144293`*^9, 
    3.5256629869544497`*^9, 3.5256732882441797`*^9, 3.5457388815910053`*^9, 
    3.5459911441506357`*^9, 3.545991493706791*^9, 3.546000169256064*^9, 
    3.546021367874091*^9, 3.546057626650807*^9, 3.5460645974074583`*^9, 
    3.546091139638504*^9, 3.546325617840641*^9, 3.548247475210184*^9, 
    3.548404558924966*^9, 3.54848125706804*^9, 3.548511437131053*^9, 
    3.548525815477203*^9, 3.5485678815081882`*^9, 3.548571062209395*^9, 
    3.548575016313377*^9, 3.548591598401115*^9, 3.548662104537045*^9, 
    3.548700126356866*^9, 3.548756261122506*^9, 3.548911250881795*^9, 
    3.548930616545601*^9, 3.54896080355647*^9, 3.549002186676*^9, 
    3.54902087443426*^9, 3.549043546948481*^9, 3.549047033594413*^9, 
    3.549086281900717*^9, 3.549096279911725*^9, 3.5492603128358727`*^9, 
    3.5492729345549927`*^9, 3.549305078998797*^9, 3.549305295623765*^9, 
    3.5493058058004637`*^9, 3.549358888574799*^9, 3.549433153134717*^9, 
    3.5494623190726643`*^9, 3.5495402524897614`*^9, 3.550921590772328*^9, 
    3.550990722871902*^9, 3.550996431028076*^9, 3.5509965984383583`*^9, 
    3.555347243716772*^9, 3.5573921092018137`*^9, 3.557403155703183*^9, 
    3.557466474561458*^9, 3.557579390086629*^9, 3.5576359796988783`*^9, 
    3.558441145357388*^9, 3.558549891392839*^9, 3.560007746659048*^9, 
    3.560044418371352*^9, 3.560185505535948*^9, 3.560186291750629*^9, 
    3.560186366882729*^9, 3.560186515565133*^9, 3.5602228854252787`*^9, 
    3.560256429035132*^9, 3.560268934641411*^9, 3.560269936287623*^9, 
    3.560271421660935*^9, 3.560516261490357*^9, 3.5605216055390387`*^9, 
    3.56053429369711*^9, 3.56053515476114*^9, 3.560842322135244*^9, 
    3.560844442923882*^9, 3.561176813756003*^9, 3.5612108542458763`*^9, 
    3.561269178237426*^9, 3.5612756055747423`*^9, 3.5612769473564053`*^9, 
    3.561302857632983*^9, 3.561305374599146*^9, 3.561308549789908*^9, 
    3.561308793764044*^9, {3.561360318448265*^9, 3.561360075114924*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.521372953678392*^9, 3.521372956097031*^9}, {
  3.686031804787943*^9, 3.68603181923774*^9}, {3.686031859414378*^9, 
  3.686031861290866*^9}}],

Cell[CellGroupData[{

Cell[BoxData["Conf4"], "Input",
 CellLabel->
  "In[308]:=",ExpressionUUID->"ec442664-7405-4af1-ac09-15e0c0e1520d"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "\[Alpha]"], GridBox[{
       {"\[ScriptD]", 
        StyleBox[GridBox[{
           {" ", " ", " ", "\[Alpha]"},
           {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CDg[-$CellContext`\[Alpha]][
    $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
   Editable->False], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521283458288445*^9, 3.521370435419259*^9, 3.5213722127459908`*^9, 
   3.5213722589662333`*^9, 3.521372647125963*^9, 3.521440710184349*^9, 
   3.521440942794846*^9, 3.521455946024817*^9, 3.52146304744562*^9, 
   3.5215212355509977`*^9, 3.521523064710085*^9, 3.521539102944232*^9, 
   3.5217855289876966`*^9, 3.521797392517029*^9, 3.5218040192229967`*^9, 
   3.52188346355907*^9, 3.5219421925200663`*^9, 3.521971133126011*^9, 
   3.5219714907297792`*^9, 3.521971587041512*^9, 3.521972305000553*^9, 
   3.521973977212112*^9, 3.522029126680612*^9, 3.524394017463381*^9, 
   3.524396334742279*^9, 3.524977910779346*^9, 3.524997251752603*^9, 
   3.52506926214219*^9, 3.5250708051372023`*^9, 3.525072081366598*^9, 
   3.525073256672698*^9, 3.5250810331851063`*^9, 3.5251871459873123`*^9, 
   3.5252402568861647`*^9, 3.5252439095049067`*^9, 3.525397546472698*^9, 
   3.52539868207115*^9, 3.525493470730647*^9, 3.5256608746819763`*^9, 
   3.52566191807865*^9, 3.5256629867193413`*^9, 3.525673287949628*^9, 
   3.5457388811196747`*^9, 3.545991143797584*^9, 3.5459914932276907`*^9, 
   3.546000168647229*^9, 3.546021367566392*^9, 3.546057626249488*^9, 
   3.546064596972596*^9, 3.546091139150928*^9, 3.546325617361627*^9, 
   3.5482474742994823`*^9, 3.548404558733309*^9, 3.548481256741969*^9, 
   3.548511436781211*^9, 3.548525815254674*^9, 3.548567881194331*^9, 
   3.54857106192139*^9, 3.548575016036092*^9, 3.5485915981222973`*^9, 
   3.548662104086779*^9, 3.5487001260385942`*^9, 3.548756260736471*^9, 
   3.54891125062101*^9, 3.548930616189307*^9, 3.5489608032185507`*^9, 
   3.549002186422233*^9, 3.549020874062932*^9, 3.549043546712206*^9, 
   3.549047033162979*^9, 3.549086281540162*^9, 3.5490962796140633`*^9, 
   3.549260312497308*^9, 3.549272934192687*^9, 3.549305078748757*^9, 
   3.549305295393298*^9, 3.549305805537939*^9, 3.5493588882043123`*^9, 
   3.549433152853894*^9, 3.549462318585848*^9, 3.549540252167942*^9, 
   3.550921590515973*^9, 3.550990722561652*^9, 3.550996430749606*^9, 
   3.550996598089904*^9, 3.5553472433757772`*^9, 3.557392108781561*^9, 
   3.557403155415592*^9, 3.557466474264661*^9, 3.557579389698388*^9, 
   3.5576359794045563`*^9, 3.5584411450722227`*^9, 3.558549891142705*^9, 
   3.5600077463139057`*^9, 3.560044418071251*^9, 3.560185505263543*^9, 
   3.560186291444001*^9, 3.560186366595561*^9, 3.5601865150967617`*^9, 
   3.560222885055636*^9, 3.56025642869942*^9, 3.560268934321741*^9, 
   3.560269936007251*^9, 3.56027142137591*^9, 3.560516261044739*^9, 
   3.560521605253582*^9, 3.560534293454063*^9, 3.560535154494067*^9, 
   3.560842321821806*^9, 3.560844442617422*^9, 3.5611768134341583`*^9, 
   3.561210853933617*^9, 3.561269177695676*^9, 3.5612756052356663`*^9, 
   3.561276947040604*^9, 3.561302857301236*^9, 3.561305374184904*^9, 
   3.561308548917235*^9, 3.561308793282927*^9, {3.561360318096099*^9, 
   3.561360074774221*^9}, 3.72811502723391*^9, 3.731234879911957*^9},
 CellLabel->
  "Out[308]=",ExpressionUUID->"06a12e23-b5c7-4531-aff8-00c16b00062a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeCovD", "[", 
    RowBox[{"#", ",", "CDg", ",", "WeylCD"}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.5212820356784782`*^9, 3.5212820487508593`*^9}},
 CellLabel->
  "In[309]:=",ExpressionUUID->"e76e02c7-9b9b-410c-9b77-087c066d48f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[Alpha]", " ", " "},
            {" ", "\[Alpha]", "\[CurlyEpsilon]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Alpha], -$CellContext`\
\[Alpha], -$CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[CurlyEpsilon]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[CurlyEpsilon]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[CurlyEpsilon], $CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], -$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"\[Del]", ",", 
           OverscriptBox["\[Del]", "^"]}], "]"}], 
         StyleBox[GridBox[{
            {"\[CurlyEpsilon]", " ", " "},
            {" ", "\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`ChristoffelCDgWeylCD[$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[CurlyEpsilon]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[CurlyEpsilon], -$CellContext`\
\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521282049353097*^9, 3.5213676469777308`*^9, 3.521368305408214*^9, 
   3.521370429276273*^9, 3.5213722608643293`*^9, 3.521372648307156*^9, 
   3.521440710488327*^9, 3.52144094281149*^9, 3.5214559460589952`*^9, 
   3.5214630486571198`*^9, 3.521521236335857*^9, 3.521523064757259*^9, 
   3.521539102988295*^9, 3.5217855290628033`*^9, 3.521797392567356*^9, 
   3.521804019263846*^9, 3.521883463608835*^9, 3.521942192614604*^9, 
   3.521971133200665*^9, 3.521971490806242*^9, 3.521971587070017*^9, 
   3.521972305031344*^9, 3.521973977278565*^9, 3.52202912674841*^9, 
   3.524394017518916*^9, 3.5243963347877617`*^9, 3.524977910811698*^9, 
   3.524997251770184*^9, 3.525069263060071*^9, 3.525070805168605*^9, 
   3.525072081398038*^9, 3.525073256710094*^9, 3.525081033242795*^9, 
   3.525187146026688*^9, 3.525240256914527*^9, 3.525243909538547*^9, 
   3.525397546505823*^9, 3.525398682100647*^9, 3.525493470762146*^9, 
   3.525660874710805*^9, 3.525661918104619*^9, 3.525662986749731*^9, 
   3.525673287970353*^9, 3.5457388811818733`*^9, 3.545991143832027*^9, 
   3.545991493296526*^9, 3.546000168726872*^9, 3.546021367589075*^9, 
   3.546057626308123*^9, 3.54606459700283*^9, 3.54609113918008*^9, 
   3.546325617433119*^9, 3.548247474384931*^9, 3.5484045587526083`*^9, 
   3.548481256778893*^9, 3.5485114368225193`*^9, 3.548525815284869*^9, 
   3.548567881241338*^9, 3.548571061950816*^9, 3.548575016069805*^9, 
   3.548591598141212*^9, 3.548662104133605*^9, 3.548700126075633*^9, 
   3.548756260785202*^9, 3.548911250650352*^9, 3.5489306162267103`*^9, 
   3.548960803251418*^9, 3.549002186468492*^9, 3.549020874117301*^9, 
   3.549043546740016*^9, 3.549047033194354*^9, 3.549086281586117*^9, 
   3.549096279638134*^9, 3.549260312533699*^9, 3.5492729342297*^9, 
   3.549305078777645*^9, 3.549305295419766*^9, 3.549305805557686*^9, 
   3.549358888253889*^9, 3.549433152899571*^9, 3.549462318634397*^9, 
   3.5495402522035646`*^9, 3.550921590566415*^9, 3.5509907226088667`*^9, 
   3.550996430784114*^9, 3.550996598136549*^9, 3.555347243420429*^9, 
   3.557392108836708*^9, 3.5574031554512444`*^9, 3.557466474303417*^9, 
   3.557579389740518*^9, 3.5576359794389143`*^9, 3.558441145107031*^9, 
   3.558549891169805*^9, 3.560007746355734*^9, 3.560044418111807*^9, 
   3.560185505297057*^9, 3.560186291480879*^9, 3.56018636661574*^9, 
   3.560186515137891*^9, 3.560222885099985*^9, 3.5602564287396507`*^9, 
   3.56026893436401*^9, 3.560269936038424*^9, 3.560271421408586*^9, 
   3.560516261075409*^9, 3.560521605273851*^9, 3.560534293479539*^9, 
   3.560535154530018*^9, 3.5608423218566437`*^9, 3.560844442656234*^9, 
   3.5611768134724207`*^9, 3.561210854008315*^9, 3.56126917773783*^9, 
   3.561275605277092*^9, 3.561276947078122*^9, 3.5613028573438597`*^9, 
   3.561305374223948*^9, 3.5613085490206842`*^9, 3.561308793329413*^9, {
   3.56136031813888*^9, 3.561360074810738*^9}, 3.728115027349587*^9, 
   3.7312348799419813`*^9},
 CellLabel->
  "Out[309]=",ExpressionUUID->"3fa582ec-366c-4d97-a3ab-d1e4f1920d85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.5212778711517353`*^9, 3.521277875529296*^9}},
 CellLabel->
  "In[310]:=",ExpressionUUID->"5130d36a-af13-4d17-8073-39045b5c613d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"S", 
          StyleBox[GridBox[{
             {" ", " ", "\[Alpha]", "\[Zeta]"},
             {"\[Alpha]", "\[CurlyEpsilon]", " ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Alpha], $CellContext`\[Zeta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[CurlyEpsilon]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[CurlyEpsilon]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
            {"\[Alpha]", "\[Beta]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[CurlyEpsilon], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
            {"\[Alpha]", "\[Gamma]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Gamma], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], -$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"S", 
         StyleBox[GridBox[{
            {" ", " ", "\[CurlyEpsilon]", "\[Zeta]"},
            {"\[Alpha]", "\[Delta]", " ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`SUnphysical[-$CellContext`\[Alpha], -$CellContext`\[Delta], \
$CellContext`\[CurlyEpsilon], $CellContext`\[Zeta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[CurlyEpsilon]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[CurlyEpsilon], -$CellContext`\
\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521277876518921*^9, 3.521278949653701*^9, 3.5212820796551332`*^9, 
   3.521367659562818*^9, 3.521368306132311*^9, 3.521370429319256*^9, 
   3.5213722652968073`*^9, 3.521372649186657*^9, 3.521440710574183*^9, 
   3.521440942894953*^9, 3.521455946101763*^9, 3.52146304986727*^9, 
   3.5215212371663227`*^9, 3.521523064806863*^9, 3.521539103037795*^9, 
   3.521785529147176*^9, 3.521797392609929*^9, 3.5218040193006*^9, 
   3.52188346365169*^9, 3.5219421927105637`*^9, 3.521971133243917*^9, 
   3.521971490846037*^9, 3.521971587100049*^9, 3.521972305070331*^9, 
   3.521973977320882*^9, 3.5220291268309307`*^9, 3.5243940175731697`*^9, 
   3.5243963348578033`*^9, 3.5249779108450403`*^9, 3.5249972518239307`*^9, 
   3.525069263891157*^9, 3.525070805201088*^9, 3.525072081447592*^9, 
   3.525073256745534*^9, 3.525081033305958*^9, 3.525187146085993*^9, 
   3.525240256964287*^9, 3.525243909585956*^9, 3.525397546545899*^9, 
   3.52539868213174*^9, 3.525493470823987*^9, 3.525660874753586*^9, 
   3.5256619181516933`*^9, 3.5256629867925453`*^9, 3.525673287998974*^9, 
   3.545738881254245*^9, 3.545991143901453*^9, 3.5459914933742933`*^9, 
   3.546000168817411*^9, 3.54602136764063*^9, 3.546057626383353*^9, 
   3.5460645970773363`*^9, 3.546091139251088*^9, 3.546325617503645*^9, 
   3.548247474415534*^9, 3.548404558777397*^9, 3.548481256833617*^9, 
   3.5485114368816423`*^9, 3.548525815321868*^9, 3.5485678813041697`*^9, 
   3.548571061985973*^9, 3.5485750161168222`*^9, 3.5485915981663218`*^9, 
   3.54866210419353*^9, 3.5487001261275063`*^9, 3.5487562608534613`*^9, 
   3.548911250694663*^9, 3.5489306163483067`*^9, 3.548960803294351*^9, 
   3.549002186503977*^9, 3.5490208741662807`*^9, 3.549043546770499*^9, 
   3.549047033234345*^9, 3.549086281638227*^9, 3.5490962796702633`*^9, 
   3.5492603126068296`*^9, 3.549272934287396*^9, 3.549305078817594*^9, 
   3.549305295464675*^9, 3.549305805601728*^9, 3.549358888316485*^9, 
   3.549433152948147*^9, 3.549462318688713*^9, 3.54954025227621*^9, 
   3.550921590616926*^9, 3.550990722672431*^9, 3.550996430834095*^9, 
   3.5509965981928263`*^9, 3.5553472434765987`*^9, 3.5573921088943853`*^9, 
   3.557403155492375*^9, 3.5574664743515673`*^9, 3.557579389887464*^9, 
   3.5576359794717607`*^9, 3.558441145153281*^9, 3.55854989121321*^9, 
   3.560007746409519*^9, 3.560044418159873*^9, 3.560185505339842*^9, 
   3.560186291521476*^9, 3.5601863666622972`*^9, 3.560186515188489*^9, 
   3.560222885157831*^9, 3.5602564287928457`*^9, 3.5602689344160337`*^9, 
   3.5602699360803223`*^9, 3.560271421452106*^9, 3.560516261149466*^9, 
   3.560521605299959*^9, 3.56053429350872*^9, 3.560535154582141*^9, 
   3.560842321909255*^9, 3.5608444427007008`*^9, 3.561176813522894*^9, 
   3.561210854053754*^9, 3.5612691778235283`*^9, 3.561275605320465*^9, 
   3.561276947129631*^9, 3.561302857410624*^9, 3.561305374308466*^9, 
   3.561308549109193*^9, 3.5613087933895493`*^9, {3.561360318184969*^9, 
   3.561360074860124*^9}, 3.728115027477306*^9, 3.731234879973715*^9},
 CellLabel->
  "Out[310]=",ExpressionUUID->"ca469f39-f9f9-4773-a85f-267afc5b6a3e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.5212789585926123`*^9, 3.5212789634234533`*^9}},
 CellLabel->
  "In[311]:=",ExpressionUUID->"6b2ff62e-e810-4e55-b085-b35a3c761269"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], \
$CellContext`\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Beta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Beta], $CellContext`\[Zeta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Beta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Beta], \
-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Zeta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[CurlyEpsilon], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Gamma]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Gamma], $CellContext`\[Zeta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Gamma], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Zeta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[CurlyEpsilon]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], -$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\[Zeta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Delta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[CurlyEpsilon]"},
               {"\[Alpha]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Alpha], $CellContext`\
\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[Delta]", 
            StyleBox[GridBox[{
               {" ", "\[Zeta]"},
               {"\[Delta]", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\[Zeta]],
        Editable->False]}], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]", "\[Zeta]"},
               {" ", " "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[CurlyEpsilon]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[CurlyEpsilon], -$CellContext`\
\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Zeta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Zeta]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.52128214021456*^9, 3.521367661103725*^9, 3.521368306729828*^9, 
   3.521370429383134*^9, 3.521372269482403*^9, 3.521372650881049*^9, 
   3.5214407106279297`*^9, 3.521440942998801*^9, 3.521455946164073*^9, 
   3.521463050989291*^9, 3.5215212377186613`*^9, 3.521523064856495*^9, 
   3.521539103123396*^9, 3.52178552925602*^9, 3.521797392673407*^9, 
   3.5218040193587303`*^9, 3.521883463713788*^9, 3.521942192800557*^9, 
   3.521971133320222*^9, 3.521971490902141*^9, 3.521971587177096*^9, 
   3.521972305133366*^9, 3.521973977385496*^9, 3.52202912695467*^9, 
   3.524394017658122*^9, 3.524396334958544*^9, 3.524977910906352*^9, 
   3.524997251889647*^9, 3.525069264590819*^9, 3.5250708052379932`*^9, 
   3.525072081502417*^9, 3.5250732568165827`*^9, 3.5250810334110537`*^9, 
   3.525187146188593*^9, 3.5252402570169697`*^9, 3.525243909652453*^9, 
   3.525397546598403*^9, 3.5253986821884403`*^9, 3.525493470883749*^9, 
   3.52566087481341*^9, 3.52566191820506*^9, 3.525662986845521*^9, 
   3.5256732880574017`*^9, 3.545738881366485*^9, 3.545991143988069*^9, 
   3.545991493528438*^9, 3.546000168952845*^9, 3.546021367712631*^9, 
   3.5460576264805*^9, 3.546064597168746*^9, 3.546091139373556*^9, 
   3.546325617674337*^9, 3.548247474471067*^9, 3.548404558821981*^9, 
   3.548481256915954*^9, 3.548511436985681*^9, 3.548525815362794*^9, 
   3.5485678813694077`*^9, 3.5485710620389433`*^9, 3.548575016188591*^9, 
   3.548591598233953*^9, 3.5486621043783817`*^9, 3.548700126230466*^9, 
   3.5487562609503927`*^9, 3.548911250755891*^9, 3.548930616419093*^9, 
   3.5489608033942623`*^9, 3.549002186560052*^9, 3.549020874255333*^9, 
   3.549043546833424*^9, 3.549047033334202*^9, 3.54908628171568*^9, 
   3.549096279754661*^9, 3.549260312683997*^9, 3.549272934370347*^9, 
   3.549305078881958*^9, 3.549305295517692*^9, 3.549305805664576*^9, 
   3.549358888402854*^9, 3.54943315300524*^9, 3.549462318745813*^9, 
   3.549540252344092*^9, 3.550921590685883*^9, 3.550990722760371*^9, 
   3.550996430902063*^9, 3.550996598279563*^9, 3.5553472435570793`*^9, 
   3.5573921089851847`*^9, 3.557403155544471*^9, 3.557466474392377*^9, 
   3.557579389957807*^9, 3.557635979525721*^9, 3.558441145224265*^9, 
   3.558549891273604*^9, 3.560007746497508*^9, 3.560044418233121*^9, 
   3.560185505407583*^9, 3.560186291595549*^9, 3.560186366734799*^9, 
   3.560186515291109*^9, 3.560222885276557*^9, 3.5602564288806667`*^9, 
   3.5602689344882927`*^9, 3.560269936147073*^9, 3.560271421520728*^9, 
   3.560516261266491*^9, 3.560521605379266*^9, 3.560534293562891*^9, 
   3.560535154642056*^9, 3.5608423219929533`*^9, 3.560844442776808*^9, 
   3.5611768136087627`*^9, 3.5612108541244926`*^9, 3.561269177959733*^9, 
   3.561275605398739*^9, 3.56127694720296*^9, 3.5613028574831953`*^9, 
   3.5613053744168043`*^9, 3.5613085492673483`*^9, 3.561308793491889*^9, {
   3.56136031827496*^9, 3.561360074935614*^9}, 3.728115027614532*^9, 
   3.7312348800121813`*^9},
 CellLabel->
  "Out[311]=",ExpressionUUID->"2039fe0d-87d6-4f97-9315-350568562098"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5212821449642982`*^9, 3.521282153474102*^9}},
 CellLabel->
  "In[312]:=",ExpressionUUID->"6fb5d75a-02ea-4020-8798-86f66e6d229d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Beta]", "\[Delta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Delta]", "\[Beta]", "\[Gamma]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521282153932189*^9, 3.521367662050345*^9, 3.5213683075420732`*^9, 
   3.521370429447871*^9, 3.521372274086505*^9, 3.5213726527057447`*^9, 
   3.521440710639824*^9, 3.521440943181505*^9, 3.521455946197918*^9, 
   3.521463052392418*^9, 3.521521238576736*^9, 3.521523064927351*^9, 
   3.5215391031838417`*^9, 3.5217855293258677`*^9, 3.521797392735539*^9, 
   3.521804019406806*^9, 3.521883463765723*^9, 3.5219421929231777`*^9, 
   3.521971133385201*^9, 3.5219714909584217`*^9, 3.521971587231822*^9, 
   3.521972305195899*^9, 3.521973977446336*^9, 3.522029127048732*^9, 
   3.524394017814291*^9, 3.524396334998742*^9, 3.5249779109620323`*^9, 
   3.524997251958212*^9, 3.5250692653850603`*^9, 3.525070805289888*^9, 
   3.5250720815547123`*^9, 3.525073256871532*^9, 3.525081033491024*^9, 
   3.525187146272669*^9, 3.5252402570627813`*^9, 3.5252439097076893`*^9, 
   3.525397546694912*^9, 3.52539868224079*^9, 3.525493470935335*^9, 
   3.525660874862782*^9, 3.525661918256692*^9, 3.5256629868977537`*^9, 
   3.525673288126823*^9, 3.545738881423259*^9, 3.545991144100904*^9, 
   3.545991493605295*^9, 3.54600016907895*^9, 3.5460213678055487`*^9, 
   3.546057626538012*^9, 3.546064597223415*^9, 3.546091139466988*^9, 
   3.546325617751392*^9, 3.548247474894663*^9, 3.548404558882971*^9, 
   3.548481256975315*^9, 3.548511437029688*^9, 3.548525815409993*^9, 
   3.548567881429864*^9, 3.5485710620995493`*^9, 3.548575016240391*^9, 
   3.54859159827402*^9, 3.548662104430255*^9, 3.548700126281332*^9, 
   3.548756261022534*^9, 3.548911250810327*^9, 3.5489306164545193`*^9, 
   3.548960803482257*^9, 3.549002186615912*^9, 3.549020874295755*^9, 
   3.549043546882708*^9, 3.54904703341153*^9, 3.549086281793125*^9, 
   3.549096279798689*^9, 3.5492603127500763`*^9, 3.549272934447998*^9, 
   3.549305078936409*^9, 3.549305295566649*^9, 3.549305805722363*^9, 
   3.549358888471404*^9, 3.549433153059641*^9, 3.549462318793336*^9, 
   3.549540252407918*^9, 3.5509215907263308`*^9, 3.55099072280396*^9, 
   3.5509964309620047`*^9, 3.5509965983261337`*^9, 3.555347243614107*^9, 
   3.557392109078804*^9, 3.557403155594602*^9, 3.557466474480565*^9, 
   3.557579390012991*^9, 3.557635979612496*^9, 3.558441145273247*^9, 
   3.558549891323614*^9, 3.560007746565852*^9, 3.560044418282579*^9, 
   3.560185505469157*^9, 3.5601862916636047`*^9, 3.560186366800074*^9, 
   3.560186515443544*^9, 3.560222885330103*^9, 3.560256428948469*^9, 
   3.560268934556176*^9, 3.5602699362097282`*^9, 3.560271421583426*^9, 
   3.560516261321644*^9, 3.560521605426116*^9, 3.560534293637035*^9, 
   3.560535154690927*^9, 3.5608423220569468`*^9, 3.560844442834379*^9, 
   3.561176813674472*^9, 3.561210854189946*^9, 3.561269178034093*^9, 
   3.561275605470311*^9, 3.561276947270349*^9, 3.561302857542202*^9, 
   3.561305374469439*^9, 3.561308549478602*^9, 3.5613087936024027`*^9, {
   3.5613603183477783`*^9, 3.56136007502304*^9}, 3.728115027685872*^9, 
   3.731234880047009*^9},
 CellLabel->
  "Out[312]=",ExpressionUUID->"8c00af35-96aa-4660-bf67-b5c2283463d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"\[ScriptD]", "[", 
    RowBox[{
     RowBox[{"-", "\[Gamma]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Delta]"}], ",", 
     RowBox[{"-", "\[Alpha]"}]}], "]"}], "\[Rule]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"\[ScriptD]", "[", 
      RowBox[{
       RowBox[{"-", "\[Beta]"}], ",", 
       RowBox[{"-", "\[Delta]"}], ",", 
       RowBox[{"-", "\[Gamma]"}], ",", 
       RowBox[{"-", "\[Alpha]"}]}], "]"}]}], "-", 
    RowBox[{"\[ScriptD]", "[", 
     RowBox[{
      RowBox[{"-", "\[Delta]"}], ",", 
      RowBox[{"-", "\[Gamma]"}], ",", 
      RowBox[{"-", "\[Beta]"}], ",", 
      RowBox[{"-", "\[Alpha]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.521372658587183*^9, 3.521372737210037*^9}, {
  3.5213728455975637`*^9, 3.521372851787785*^9}, {3.5250692670619164`*^9, 
  3.525069292278688*^9}},
 CellLabel->
  "In[313]:=",ExpressionUUID->"0314f48e-d223-4c2e-85ea-0c40354b60c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptD]", 
          StyleBox[GridBox[{
             {" ", " ", " ", " "},
             {"\[Delta]", "\[Beta]", "\[Gamma]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Beta], \
-$CellContext`\[Gamma], -$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptD]", 
            StyleBox[GridBox[{
               {" ", " ", " ", " "},
               {"\[Beta]", "\[Delta]", "\[Gamma]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptD][-$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma], -$CellContext`\[Alpha]],
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Delta]", "\[Gamma]", "\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False]}], ")"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.521372854806172*^9, 3.521440710651649*^9, 3.5214409432574377`*^9, 
   3.521455946231244*^9, 3.521463055014557*^9, 3.52152124221135*^9, 
   3.521523064971096*^9, 3.521539103224135*^9, 3.5217855294130697`*^9, 
   3.521797392834428*^9, 3.52180401945842*^9, 3.521883463799222*^9, 
   3.52194219300399*^9, 3.521971133428927*^9, 3.521971490998146*^9, 
   3.5219715872681913`*^9, 3.521972305225697*^9, 3.521973977492012*^9, 
   3.52202912707024*^9, 3.5243940178566713`*^9, 3.5243963350503063`*^9, 
   3.524977911000388*^9, 3.52499725197134*^9, 3.525069293421048*^9, 
   3.525070805335847*^9, 3.525072081587936*^9, 3.5250732569031076`*^9, 
   3.525081033537575*^9, 3.525187146323265*^9, 3.525240257100149*^9, 
   3.5252439098394947`*^9, 3.525397546737824*^9, 3.525398682269292*^9, 
   3.525493470966591*^9, 3.5256608748920813`*^9, 3.525661918285283*^9, 
   3.5256629869272842`*^9, 3.525673288177046*^9, 3.54573888147748*^9, 
   3.545991144118413*^9, 3.545991493637388*^9, 3.546000169174635*^9, 
   3.546021367820178*^9, 3.546057626596056*^9, 3.546064597328816*^9, 
   3.54609113955949*^9, 3.546325617773076*^9, 3.548247475111483*^9, 
   3.5484045588980627`*^9, 3.5484812570078783`*^9, 3.548511437072859*^9, 
   3.548525815435574*^9, 3.548567881469458*^9, 3.5485710621385098`*^9, 
   3.5485750162739487`*^9, 3.548591598350503*^9, 3.548662104484004*^9, 
   3.548700126312387*^9, 3.548756261069312*^9, 3.548911250843238*^9, 
   3.548930616496269*^9, 3.548960803518977*^9, 3.549002186645381*^9, 
   3.549020874348065*^9, 3.5490435469099503`*^9, 3.549047033455963*^9, 
   3.549086281839199*^9, 3.5490962798513927`*^9, 3.549260312788752*^9, 
   3.549272934499146*^9, 3.549305078969145*^9, 3.54930529559543*^9, 
   3.549305805758559*^9, 3.549358888514573*^9, 3.549433153089497*^9, 
   3.549462319027457*^9, 3.549540252448895*^9, 3.550921590741884*^9, 
   3.550990722822505*^9, 3.5509964309778976`*^9, 3.550996598380019*^9, 
   3.555347243658024*^9, 3.5573921091359167`*^9, 3.557403155628153*^9, 
   3.557466474514559*^9, 3.5575793900443287`*^9, 3.5576359796477337`*^9, 
   3.558441145307275*^9, 3.5585498913559647`*^9, 3.560007746603393*^9, 
   3.560044418319998*^9, 3.560185505499873*^9, 3.560186291698777*^9, 
   3.5601863668337383`*^9, 3.56018651551262*^9, 3.5602228853711576`*^9, 
   3.5602564289851*^9, 3.5602689345909843`*^9, 3.560269936238475*^9, 
   3.560271421614091*^9, 3.5605162614267*^9, 3.560521605477786*^9, 
   3.560534293668826*^9, 3.560535154721443*^9, 3.560842322087544*^9, 
   3.5608444428696833`*^9, 3.561176813708199*^9, 3.56121085420798*^9, 
   3.561269178143314*^9, 3.561275605506435*^9, 3.561276947304606*^9, 
   3.561302857589076*^9, 3.5613053745372887`*^9, 3.5613085495420322`*^9, 
   3.5613087936518373`*^9, {3.561360318388549*^9, 3.561360075061638*^9}, 
   3.728115027733716*^9, 3.731234880074238*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"49bd2223-54e3-4b7e-b28f-3a1c900c0f1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521372857863446*^9, 3.521372861495571*^9}},
 CellLabel->
  "In[314]:=",ExpressionUUID->"5f2b6583-110d-4ba7-a61a-23946286d973"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Alpha]", "\[Beta]", "\[Delta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", "\[Alpha]"},
            {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[ScriptD][-$CellContext`\[Delta], -$CellContext`\[Gamma], \
-$CellContext`\[Beta], $CellContext`\[Alpha]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.5213728623563957`*^9, 3.521440710740941*^9, 3.521440943381341*^9, 
   3.521455946273967*^9, 3.521463056083313*^9, 3.5215212429788847`*^9, 
   3.521523065011758*^9, 3.521539103270831*^9, 3.521785529442123*^9, 
   3.521797392885998*^9, 3.5218040194972486`*^9, 3.521883463935288*^9, 
   3.521942193122717*^9, 3.5219711334739103`*^9, 3.521971491042881*^9, 
   3.5219715873040133`*^9, 3.52197230531353*^9, 3.521973977541779*^9, 
   3.522029127100482*^9, 3.524394017916472*^9, 3.524396335137892*^9, 
   3.524977911043043*^9, 3.5249972519961863`*^9, 3.525069294753933*^9, 
   3.5250708053943453`*^9, 3.5250720816293592`*^9, 3.525073256982889*^9, 
   3.525081033607562*^9, 3.525187146391654*^9, 3.525240257134659*^9, 
   3.525243909890867*^9, 3.525397546788513*^9, 3.52539868231721*^9, 
   3.5254934710087833`*^9, 3.525660874920971*^9, 3.5256619183144293`*^9, 
   3.5256629869544497`*^9, 3.5256732882441797`*^9, 3.5457388815910053`*^9, 
   3.5459911441506357`*^9, 3.545991493706791*^9, 3.546000169256064*^9, 
   3.546021367874091*^9, 3.546057626650807*^9, 3.5460645974074583`*^9, 
   3.546091139638504*^9, 3.546325617840641*^9, 3.548247475210184*^9, 
   3.548404558924966*^9, 3.54848125706804*^9, 3.548511437131053*^9, 
   3.548525815477203*^9, 3.5485678815081882`*^9, 3.548571062209395*^9, 
   3.548575016313377*^9, 3.548591598401115*^9, 3.548662104537045*^9, 
   3.548700126356866*^9, 3.548756261122506*^9, 3.548911250881795*^9, 
   3.548930616545601*^9, 3.54896080355647*^9, 3.549002186676*^9, 
   3.54902087443426*^9, 3.549043546948481*^9, 3.549047033594413*^9, 
   3.549086281900717*^9, 3.549096279911725*^9, 3.5492603128358727`*^9, 
   3.5492729345549927`*^9, 3.549305078998797*^9, 3.549305295623765*^9, 
   3.5493058058004637`*^9, 3.549358888574799*^9, 3.549433153134717*^9, 
   3.5494623190726643`*^9, 3.5495402524897614`*^9, 3.550921590772328*^9, 
   3.550990722871902*^9, 3.550996431028076*^9, 3.5509965984383583`*^9, 
   3.555347243716772*^9, 3.5573921092018137`*^9, 3.557403155703183*^9, 
   3.557466474561458*^9, 3.557579390086629*^9, 3.5576359796988783`*^9, 
   3.558441145357388*^9, 3.558549891392839*^9, 3.560007746659048*^9, 
   3.560044418371352*^9, 3.560185505535948*^9, 3.560186291750629*^9, 
   3.560186366882729*^9, 3.560186515565133*^9, 3.5602228854252787`*^9, 
   3.560256429035132*^9, 3.560268934641411*^9, 3.560269936287623*^9, 
   3.560271421660935*^9, 3.560516261490357*^9, 3.5605216055390387`*^9, 
   3.56053429369711*^9, 3.56053515476114*^9, 3.560842322135244*^9, 
   3.560844442923882*^9, 3.561176813756003*^9, 3.5612108542458763`*^9, 
   3.561269178237426*^9, 3.5612756055747423`*^9, 3.5612769473564053`*^9, 
   3.561302857632983*^9, 3.561305374599146*^9, 3.561308549789908*^9, 
   3.561308793764044*^9, {3.561360318448265*^9, 3.561360075114924*^9}, 
   3.7281150277971067`*^9, 3.7312348801021748`*^9},
 CellLabel->
  "Out[314]=",ExpressionUUID->"19372f96-0bd2-4c62-89c2-73d9d85a1f86"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf4Weyl", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5213729222785997`*^9, 3.521372927870335*^9}},
 CellLabel->
  "In[315]:=",ExpressionUUID->"1a67118f-dfe1-4b21-a0a7-8ec3b2d80b0f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Summary", "Subsubsection",
 CellChangeTimes->{{3.521283368297267*^9, 3.521283369560667*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExtendedConformalEqs", "=", 
  RowBox[{"{", 
   RowBox[{
   "CDgWeyl", ",", "Conf1Weyl", ",", "CDgSUnphysWeyl", ",", "Conf3Weyl", ",", 
    "WeylCD\[ScriptF]", ",", "Conf4Weyl"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5212833720505323`*^9, 3.521283481464986*^9}, 
   3.5213690005539207`*^9, 3.5213690315379868`*^9, {3.521373108637616*^9, 
   3.52137310971166*^9}, {3.521373255028282*^9, 3.5213732647800217`*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"fcefe51c-4df3-4a81-949d-d29049cf1556"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], "\[Equal]", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox["s",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`sUnphys[],
         Editable->False], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Gamma]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[CapitalSigma]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
          Editable->False]}]}], ")"}]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
      Editable->False]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Gamma], \
-$CellContext`\[Alpha], -$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][$CellContext`\[Delta]],
           Editable->False]}], " ", 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]}], "-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[CapitalSigma]", 
             StyleBox[GridBox[{
                {"\[Delta]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
         Editable->False]}], ")"}]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"L", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
         
         Editable->False]}], "-", 
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["L", "^"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False]}], "-", 
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Beta]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {"\[Gamma]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][$CellContext`\[Gamma]],
         Editable->False]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Beta]", "\[Delta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", "\[Alpha]"},
              {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptD][-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]]],
      Editable->False]}], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.521283463417489*^9, 3.5212834822752953`*^9}, {
   3.521369020919394*^9, 3.521369032574095*^9}, 3.521370430588995*^9, 
   3.521371946600065*^9, {3.521373248460949*^9, 3.5213732751884737`*^9}, 
   3.521440712801641*^9, 3.52144094516859*^9, 3.52145595032168*^9, 
   3.521463065052513*^9, 3.521521249864739*^9, 3.521523065066818*^9, 
   3.521539107902499*^9, 3.521785529605359*^9, 3.521797395598648*^9, 
   3.5218040195367727`*^9, 3.5218834663564653`*^9, 3.5219421950917387`*^9, 
   3.5219711335658293`*^9, 3.521971491086244*^9, 3.521971587344912*^9, 
   3.521972308162573*^9, 3.52197397759109*^9, 3.522029127258911*^9, 
   3.5243940179412193`*^9, 3.524396335343041*^9, 3.524977911088673*^9, 
   3.524997252035996*^9, 3.525069308800235*^9, 3.525070805445121*^9, 
   3.52507208167514*^9, 3.525073257068973*^9, 3.525081033685423*^9, 
   3.5251871466393414`*^9, 3.525240257180826*^9, 3.525243909943754*^9, 
   3.525397546876803*^9, 3.525398682359456*^9, 3.525493471065165*^9, 
   3.525660875039061*^9, 3.525661918356267*^9, 3.525662986997139*^9, 
   3.525673288329069*^9, 3.545738881721076*^9, 3.5459911442544394`*^9, 
   3.545991497388143*^9, 3.5460001693267813`*^9, 3.546021367974215*^9, 
   3.5460576267173777`*^9, 3.5460645975009193`*^9, 3.5460911397302933`*^9, 
   3.546325617958449*^9, 3.548247478426765*^9, 3.548404558984008*^9, 
   3.548481257140588*^9, 3.548511437212254*^9, 3.548525815530751*^9, 
   3.54856788163034*^9, 3.548571062282096*^9, 3.54857501638476*^9, 
   3.548591598469782*^9, 3.548662104616096*^9, 3.548700126407179*^9, 
   3.5487562611779413`*^9, 3.54891125094309*^9, 3.548930616816177*^9, 
   3.548960803609508*^9, 3.549002186726759*^9, 3.549020874505786*^9, 
   3.549043547009107*^9, 3.549047033684617*^9, 3.54908628202339*^9, 
   3.549096279990913*^9, 3.549260312915084*^9, 3.549272934623749*^9, 
   3.549305079082551*^9, 3.549305295672194*^9, 3.5493058058409653`*^9, 
   3.5493588886593447`*^9, 3.5494331531962347`*^9, 3.549462319125977*^9, 
   3.549540252565847*^9, 3.550921590836204*^9, 3.550990722923757*^9, 
   3.550996431194221*^9, 3.5509965985081873`*^9, 3.555347243783745*^9, 
   3.557392109276025*^9, 3.557403155832522*^9, 3.557466474613791*^9, 
   3.55757939014305*^9, 3.557635979743043*^9, 3.558441145415661*^9, 
   3.558549891476694*^9, 3.560007746737453*^9, 3.560044418431466*^9, 
   3.560185505587603*^9, 3.5601862918105707`*^9, 3.5601863669407663`*^9, 
   3.560186515662133*^9, 3.56022288550751*^9, 3.560256429112754*^9, 
   3.560268934699744*^9, 3.5602699363403397`*^9, 3.5602714217156487`*^9, 
   3.5605162616047*^9, 3.560521605618223*^9, 3.560534293753325*^9, 
   3.5605351548093357`*^9, 3.560842322209544*^9, 3.560844442992362*^9, 
   3.5611768138314734`*^9, 3.561210854310823*^9, 3.561269178337982*^9, 
   3.561275605639381*^9, 3.561276947445951*^9, 3.561302857714527*^9, 
   3.561305374661797*^9, 3.561308550059741*^9, 3.5613087938697968`*^9, {
   3.561360318531023*^9, 3.5613600751881237`*^9}, 3.728115027903432*^9, 
   3.7312348801727753`*^9},
 CellLabel->
  "Out[316]=",ExpressionUUID->"73e787da-7afe-4e45-930b-85921d118770"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Extended conformal field equations in terms of  ",
 Cell[BoxData[GridBox[{
    {"d", 
     StyleBox[GridBox[{
        {" "},
        {"\[Delta]"}
       },
       GridBoxSpacings->{"Columns" -> {
           Offset[0.], {
            Offset[0.034999999999999996`]}, 
           Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.]}}, "RowsIndexed" -> {}}],
      FontSize->9]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.034999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]], "Output",
  CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBGIbnSWz5tq8cnywYdlSEK22vWk1iBZSZvgCohU2xf8A
0U8q5cTmAWmV8M+KIFpSNuvVEiC9Q3zOyyNAWqBTZf1RIP3mBlfXWSD9YvGZ
h662rxy7Qm0WewPpmrVF9/yA9E3jmpWlQLrsyuLYSSA6YHP5AiAtsiJlCYhu
KsnZAKKrUhl5FgLpsG6z2yC65NeLE3uAtN2eoy32Tq8csyreLHUA0gtZhHbH
OL9ylFnUJJAGpGf80fbpBNJRRet/geglWuGzu4B0WIqKbjeQzphh/rMPSM9j
Czt5CEhvalDfcQekPuVAwz0g7XE4vlXT5ZVjnKevsBaQ7ud6Eh0BpP+YJUuu
AtIiFWdmg+iSzCTF1UB6pQqP5gYgDQBlfqCf
   "]]
}], "Subsubsection",
 CellChangeTimes->{{3.521523208238681*^9, 3.5215232271689034`*^9}, {
  3.545484002559499*^9, 3.545484009435171*^9}}],

Cell["It is convenient to introduce here a new variable.", "Text",
 CellChangeTimes->{{3.521441646523143*^9, 3.521441657650681*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"d\[Theta]S", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], ",", "M4", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<d\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.521441660650399*^9, 3.521441683932869*^9}, {
   3.521441954517953*^9, 3.521441956263193*^9}, {3.521442051697126*^9, 
   3.521442053062458*^9}, {3.5250693346304007`*^9, 3.5250693989947853`*^9}, 
   3.5250719597302713`*^9},
 CellLabel->
  "In[317]:=",ExpressionUUID->"0cb359c6-4c68-4fcf-bf68-609140a422c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"d\[Theta]S", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`d\[Theta]S[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.521441685849505*^9, 3.5214419585430613`*^9, 3.52144205384793*^9, 
   3.5214559535755033`*^9, 3.521521483423715*^9, 3.521523065109394*^9, 
   3.521539152271838*^9, 3.5217856142299643`*^9, 3.521797401809102*^9, 
   3.521804019579414*^9, 3.52188346777455*^9, 3.521942252958321*^9, 
   3.521971133597496*^9, 3.521971491117161*^9, 3.521971587384074*^9, 
   3.521972319984673*^9, 3.521973977652307*^9, 3.522029127271789*^9, 
   3.52439402208934*^9, 3.524396335379401*^9, 3.524978136494978*^9, 
   3.524997252074257*^9, {3.525069373418066*^9, 3.525069399808051*^9}, 
   3.5250708054765472`*^9, 3.525072081705562*^9, 3.5250732571017113`*^9, 
   3.525081033728272*^9, 3.525187146678309*^9, 3.525240257210499*^9, 
   3.525243909978335*^9, 3.5253975469466057`*^9, 3.525398682384721*^9, 
   3.5254934710915833`*^9, 3.525660875071245*^9, 3.525661918380762*^9, 
   3.525662987024074*^9, 3.5256732883673573`*^9, 3.545738885348049*^9, 
   3.545991157549809*^9, 3.545991500621895*^9, 3.546000174464823*^9, 
   3.546021368022656*^9, 3.5460576267331047`*^9, 3.546064597546425*^9, 
   3.546091139776128*^9, 3.5463256180235567`*^9, 3.548247489766267*^9, 
   3.548404558995757*^9, 3.548481257177133*^9, 3.5485114372445393`*^9, 
   3.548525815553316*^9, 3.548567881661771*^9, 3.5485710623045893`*^9, 
   3.548575016423945*^9, 3.548591598511161*^9, 3.548662104655731*^9, 
   3.5487001264387836`*^9, 3.5487562611917877`*^9, 3.548911250968453*^9, 
   3.5489306168518887`*^9, 3.548960803616946*^9, 3.5490021867539797`*^9, 
   3.549020874547103*^9, 3.5490435470346813`*^9, 3.5490470337281923`*^9, 
   3.549086282074811*^9, 3.5490962800349283`*^9, 3.5492603129501266`*^9, 
   3.5492729346679373`*^9, 3.549305079107533*^9, 3.549305295696157*^9, 
   3.549305805858979*^9, 3.549358888695944*^9, 3.549433153226363*^9, 
   3.549462319152676*^9, 3.549540252602831*^9, 3.550921590868504*^9, 
   3.550990722960658*^9, 3.550996431206787*^9, 3.55099659855198*^9, 
   3.555347243825059*^9, 3.557392109357984*^9, 3.557403155861451*^9, 
   3.557466474682534*^9, 3.55757939018512*^9, 3.557635979774029*^9, 
   3.558441145446629*^9, 3.558549891516823*^9, 3.560007746771014*^9, 
   3.560044418464074*^9, 3.560185505616002*^9, 3.560186291843676*^9, 
   3.5601863669717007`*^9, 3.560186515696128*^9, 3.560222885542688*^9, 
   3.5602564291446733`*^9, 3.560268934731415*^9, 3.5602699363662863`*^9, 
   3.560271421743939*^9, 3.560516261629815*^9, 3.560521605652356*^9, 
   3.560534293777288*^9, 3.560535154875887*^9, 3.56084232223637*^9, 
   3.5608444430302763`*^9, 3.561176813858679*^9, 3.561210854342814*^9, 
   3.5612691783774643`*^9, 3.561275605675137*^9, 3.561276947458273*^9, 
   3.56130285775327*^9, 3.5613053746954107`*^9, 3.5613085501096478`*^9, 
   3.561308793908328*^9, {3.5613603185638037`*^9, 3.5613600752213707`*^9}, 
   3.728115027913962*^9, 3.7312348801961737`*^9},
 CellLabel->
  "During evaluation of \
In[317]:=",ExpressionUUID->"1d8598fe-f8bb-4e32-acf6-092bb2539b33"]
}, Open  ]],

Cell["By definition", "Text",
 CellChangeTimes->{{3.5214416878383503`*^9, 3.521441689570876*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Defined\[Theta]S", "=", 
  RowBox[{
   RowBox[{"d\[Theta]S", "[", 
    RowBox[{"-", "\[Delta]"}], "]"}], "==", 
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptF]", "[", 
      RowBox[{"-", "\[Delta]"}], "]"}], 
     RowBox[{"\[CapitalTheta]", "[", "]"}]}], "+", 
    RowBox[{"\[CapitalSigma]Unphys", "[", 
     RowBox[{"-", "\[Delta]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.521440961491284*^9, 3.52144098050594*^9}, {
  3.5214416911198997`*^9, 3.521441695536336*^9}, {3.5214417258891497`*^9, 
  3.52144173041197*^9}, {3.521441963032523*^9, 3.5214419666778507`*^9}, {
  3.521442057099865*^9, 3.521442060968788*^9}, {3.525069403794159*^9, 
  3.525069408743997*^9}, {3.525071976556095*^9, 3.5250719774508467`*^9}},
 CellLabel->
  "In[318]:=",ExpressionUUID->"dae4da3f-b912-43bd-b9bc-33526b2ec7fe"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"d", 
       StyleBox[GridBox[{
          {" "},
          {"\[Delta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5214409811303997`*^9, 3.521441069209091*^9, 3.521441116084857*^9, 
   3.521441696004281*^9, 3.521441730990494*^9, 3.521441968952379*^9, 
   3.5214420636043873`*^9, 3.521455955316052*^9, 3.5215214848778954`*^9, 
   3.5215230651417313`*^9, 3.5215391523389797`*^9, 3.521785614395008*^9, 
   3.521797401885442*^9, 3.5218040195836773`*^9, 3.521883467881329*^9, 
   3.521942253119685*^9, 3.521971133603572*^9, 3.5219714911455173`*^9, 
   3.521971587389222*^9, 3.5219723200436373`*^9, 3.521973977704509*^9, 
   3.522029127280573*^9, 3.524394022179229*^9, 3.524396335389699*^9, 
   3.524978136563065*^9, 3.5249972520822887`*^9, 3.525069409374584*^9, 
   3.525070805482709*^9, 3.525072090723955*^9, 3.525073257137248*^9, 
   3.5250810337373543`*^9, 3.525187146688308*^9, 3.52524025723446*^9, 
   3.52524391001225*^9, 3.525397546992588*^9, 3.525398682415206*^9, 
   3.525493471126289*^9, 3.525660875100462*^9, 3.525661918389658*^9, 
   3.5256629870753727`*^9, 3.525673288379475*^9, 3.545738885484295*^9, 
   3.545991157671404*^9, 3.545991500785345*^9, 3.546000174625634*^9, 
   3.5460213680356503`*^9, 3.546057626750203*^9, 3.546064597564207*^9, 
   3.5460911397948847`*^9, 3.5463256180513697`*^9, 3.5482474898916397`*^9, 
   3.5484045590071583`*^9, 3.54848125718978*^9, 3.548511437259699*^9, 
   3.548525815576057*^9, 3.548567881697699*^9, 3.548571062312941*^9, 
   3.548575016456452*^9, 3.548591598542251*^9, 3.548662104702142*^9, 
   3.548700126470142*^9, 3.548756261211522*^9, 3.5489112509762506`*^9, 
   3.548930616866145*^9, 3.548960803624783*^9, 3.54900218676044*^9, 
   3.5490208745595417`*^9, 3.5490435470477943`*^9, 3.5490470337842817`*^9, 
   3.549086282093812*^9, 3.549096280052836*^9, 3.54926031296796*^9, 
   3.549272934682189*^9, 3.54930507911709*^9, 3.549305295705076*^9, 
   3.549305805893218*^9, 3.5493588887101383`*^9, 3.549433153251329*^9, 
   3.549462319160946*^9, 3.549540252617392*^9, 3.5509215908823442`*^9, 
   3.550990722979672*^9, 3.550996431219112*^9, 3.550996598567502*^9, 
   3.555347243840015*^9, 3.557392109404084*^9, 3.557403155869166*^9, 
   3.5574664746891117`*^9, 3.557579390220592*^9, 3.557635979783368*^9, 
   3.558441145458714*^9, 3.5585498915252047`*^9, 3.5600077467895823`*^9, 
   3.560044418476246*^9, 3.560185505630213*^9, 3.560186291855941*^9, 
   3.560186366983959*^9, 3.5601865157109823`*^9, 3.560222885559794*^9, 
   3.560256429163331*^9, 3.560268934745289*^9, 3.560269936379118*^9, 
   3.560271421756241*^9, 3.560516261662088*^9, 3.560521605668599*^9, 
   3.560534293787826*^9, 3.560535154885701*^9, 3.560842322254318*^9, 
   3.5608444430461473`*^9, 3.56117681387499*^9, 3.5612108543599453`*^9, 
   3.561269178394951*^9, 3.561275605709113*^9, 3.561276947472767*^9, 
   3.561302857820684*^9, 3.561305374710743*^9, 3.561308550123013*^9, 
   3.561308793921761*^9, {3.5613603185796556`*^9, 3.561360075255884*^9}, 
   3.7281150279399548`*^9, 3.731234880223585*^9},
 CellLabel->
  "Out[318]=",ExpressionUUID->"fe0e1e84-e529-40bb-98eb-a3a618951d41"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{"\[CapitalSigma]Unphys", "[", 
      RowBox[{"-", "\[Delta]"}], "]"}]}], "]"}], "//", "Flatten"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.5214417342661257`*^9, 3.521441755945675*^9}, {
  3.5250694152142344`*^9, 3.525069415874907*^9}},
 CellLabel->
  "In[319]:=",ExpressionUUID->"46b25126-6fe0-46d0-8556-52b13de7f72f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
    Editable->False], "\[Rule]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
     Editable->False], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`\[Delta]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.521441760234206*^9, 3.521441970474827*^9, 3.521442075751655*^9, 
   3.521455956449651*^9, 3.521521485900971*^9, 3.521523065173819*^9, 
   3.521539152379036*^9, 3.5217856144175253`*^9, 3.521797401915058*^9, 
   3.521804019615341*^9, 3.521883467910988*^9, 3.521942253143365*^9, 
   3.521971133634213*^9, 3.521971491175439*^9, 3.5219715874302692`*^9, 
   3.5219723200760202`*^9, 3.521973977735697*^9, 3.5220291273424473`*^9, 
   3.5243940222347107`*^9, 3.524396335399665*^9, 3.524978136614332*^9, 
   3.5249972520909977`*^9, 3.525069416694989*^9, 3.525070805519478*^9, 
   3.525072090831111*^9, 3.525073257174152*^9, 3.5250810337811947`*^9, 
   3.525187146724551*^9, 3.5252402572599154`*^9, 3.52524391004419*^9, 
   3.525397547025817*^9, 3.525398682444705*^9, 3.525493471153895*^9, 
   3.525660875129366*^9, 3.525661918416321*^9, 3.525662987103455*^9, 
   3.525673288422373*^9, 3.545738885530519*^9, 3.545991157732644*^9, 
   3.545991500852192*^9, 3.546000174710129*^9, 3.546021368147415*^9, 
   3.546057626790514*^9, 3.546064597582509*^9, 3.546091139813656*^9, 
   3.5463256180736856`*^9, 3.5482474899490423`*^9, 3.5484045590565453`*^9, 
   3.548481257221036*^9, 3.548511437272335*^9, 3.548525815602829*^9, 
   3.548567881745111*^9, 3.54857106233889*^9, 3.548575016484473*^9, 
   3.548591598585026*^9, 3.548662104719451*^9, 3.548700126537237*^9, 
   3.548756261249543*^9, 3.548911250984923*^9, 3.548930616902917*^9, 
   3.548960803657411*^9, 3.54900218678792*^9, 3.54902087457286*^9, 
   3.54904354709886*^9, 3.549047033823525*^9, 3.5490862821298933`*^9, 
   3.549096280070394*^9, 3.54926031298341*^9, 3.5492729347170467`*^9, 
   3.549305079145977*^9, 3.5493052957142143`*^9, 3.549305805960773*^9, 
   3.54935888875406*^9, 3.5494331532895737`*^9, 3.5494623191921797`*^9, 
   3.5495402526347*^9, 3.550921590894828*^9, 3.5509907229975853`*^9, 
   3.55099643125051*^9, 3.550996598606658*^9, 3.555347243855988*^9, 
   3.557392109452526*^9, 3.557403155876751*^9, 3.557466474725375*^9, 
   3.5575793902495127`*^9, 3.557635979810555*^9, 3.558441145490624*^9, 
   3.55854989154974*^9, 3.560007746823646*^9, 3.5600444185098343`*^9, 
   3.56018550564528*^9, 3.560186291890326*^9, 3.560186367016251*^9, 
   3.560186515745214*^9, 3.560222885579673*^9, 3.5602564291959887`*^9, 
   3.560268934758972*^9, 3.5602699364060307`*^9, 3.5602714217861013`*^9, 
   3.560516261711157*^9, 3.560521605683606*^9, 3.560534293813541*^9, 
   3.560535154918606*^9, 3.560842322270401*^9, 3.560844443083589*^9, 
   3.56117681390664*^9, 3.5612108543771057`*^9, 3.5612691784107447`*^9, 
   3.561275605751676*^9, 3.5612769475052643`*^9, 3.561302857835884*^9, 
   3.561305374726123*^9, 3.56130855016082*^9, 3.5613087939654083`*^9, {
   3.561360318613987*^9, 3.561360075294505*^9}, 3.728115027969122*^9, 
   3.7312348802531776`*^9},
 CellLabel->
  "Out[319]=",ExpressionUUID->"b65f5bd8-f484-4da0-baae-dc3589398c9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.521441766485173*^9, 3.52144177051643*^9}},
 CellLabel->
  "In[320]:=",ExpressionUUID->"e6b657c1-539c-4d43-b587-5690c850bae0"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[CapitalSigma]", 
       StyleBox[GridBox[{
          {" "},
          {"\[Delta]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521441771091844*^9, 3.5214419718482656`*^9, 3.521442076463222*^9, 
   3.521455957509591*^9, 3.521521486832918*^9, 3.5215230652058764`*^9, 
   3.521539152434114*^9, 3.5217856145135098`*^9, 3.521797401965166*^9, 
   3.5218040196401577`*^9, 3.521883467939403*^9, 3.5219422533195047`*^9, 
   3.521971133666563*^9, 3.521971491204418*^9, 3.521971587454959*^9, 
   3.521972320082075*^9, 3.5219739777960567`*^9, 3.5220291274049187`*^9, 
   3.524394022280364*^9, 3.524396335408668*^9, 3.524978136656448*^9, 
   3.524997252097991*^9, 3.5250694189949636`*^9, 3.525070805553205*^9, 
   3.525072090871676*^9, 3.525073257211381*^9, 3.525081033824194*^9, 
   3.525187146757936*^9, 3.5252402573226967`*^9, 3.52524391007596*^9, 
   3.525397547058326*^9, 3.5253986824785852`*^9, 3.5254934711883917`*^9, 
   3.525660875159143*^9, 3.5256619184240437`*^9, 3.5256629871348143`*^9, 
   3.525673288463973*^9, 3.545738885574922*^9, 3.545991157808138*^9, 
   3.545991500933176*^9, 3.546000174725644*^9, 3.546021368161228*^9, 
   3.546057626818591*^9, 3.5460645976305227`*^9, 3.546091139829368*^9, 
   3.5463256180931377`*^9, 3.548247490021356*^9, 3.548404559107812*^9, 
   3.548481257260165*^9, 3.5485114372844467`*^9, 3.548525815625991*^9, 
   3.5485678818121843`*^9, 3.548571062360979*^9, 3.548575016584881*^9, 
   3.548591598618284*^9, 3.548662104738399*^9, 3.548700126578545*^9, 
   3.548756261262033*^9, 3.5489112509954643`*^9, 3.54893061694521*^9, 
   3.548960803682293*^9, 3.549002186853519*^9, 3.549020874609617*^9, 
   3.5490435471150293`*^9, 3.5490470338919573`*^9, 3.549086282143887*^9, 
   3.549096280109767*^9, 3.549260312996859*^9, 3.5492729347279377`*^9, 
   3.549305079172249*^9, 3.549305295722775*^9, 3.549305805979898*^9, 
   3.549358888766861*^9, 3.5494331533158693`*^9, 3.549462319269908*^9, 
   3.549540252647847*^9, 3.550921590907339*^9, 3.5509907230355377`*^9, 
   3.5509964312616653`*^9, 3.550996598619174*^9, 3.5553472438993587`*^9, 
   3.557392109498477*^9, 3.557403155884288*^9, 3.557466474760131*^9, 
   3.557579390276249*^9, 3.557635979840437*^9, 3.558441145502393*^9, 
   3.5585498915762777`*^9, 3.560007746837641*^9, 3.5600444185215883`*^9, 
   3.560185505659952*^9, 3.560186291924245*^9, 3.560186367047573*^9, 
   3.5601865157585897`*^9, 3.5602228855940104`*^9, 3.560256429210125*^9, 
   3.560268934771035*^9, 3.560269936432444*^9, 3.56027142181496*^9, 
   3.56051626173713*^9, 3.56052160569646*^9, 3.560534293836524*^9, 
   3.560535154927535*^9, 3.560842322284112*^9, 3.5608444430958433`*^9, 
   3.561176813921157*^9, 3.561210854393084*^9, 3.5612691784245462`*^9, 
   3.561275605765965*^9, 3.56127694754603*^9, 3.561302857848228*^9, 
   3.561305374738328*^9, 3.561308550182352*^9, 3.561308793983856*^9, {
   3.561360318644536*^9, 3.561360075328702*^9}, 3.72811502799629*^9, 
   3.7312348802825317`*^9},
 CellLabel->
  "Out[320]=",ExpressionUUID->"70bc1592-4e68-4197-a653-f4e831fbabed"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalSigma]UnphysTod\[Theta]S", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5214417758149557`*^9, 3.521441783576571*^9}, {
   3.52144197413798*^9, 3.521441975146874*^9}, {3.52144208038741*^9, 
   3.5214420812155247`*^9}, 3.5250719804289427`*^9},
 CellLabel->
  "In[321]:=",ExpressionUUID->"a73d5acf-1987-4d7e-b4ab-2901920aa3b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDgWeyl", "/.", 
  RowBox[{"ApplyRule", "@", "\[CapitalSigma]UnphysTod\[Theta]S"}]}]], "Input",\

 CellChangeTimes->{{3.521442577802765*^9, 3.521442587226328*^9}, 
   3.525071984644588*^9},
 CellLabel->
  "In[322]:=",ExpressionUUID->"d762ee4c-66a9-428d-bed0-9b74db6e65f1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`\[CapitalTheta][]],
   Editable->False], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
    Editable->False], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.5214425906501703`*^9, 3.5214559595165243`*^9, 3.521521489184423*^9, 
   3.521523065244912*^9, 3.5215391524904823`*^9, 3.521785614690598*^9, 
   3.521797402024078*^9, 3.521804019668524*^9, 3.5218834680441017`*^9, 
   3.521942253487503*^9, 3.521971133723523*^9, 3.521971491236712*^9, 
   3.5219715875000153`*^9, 3.5219723201543093`*^9, 3.521973977831139*^9, 
   3.5220291274849777`*^9, 3.5243940223724422`*^9, 3.524396335531085*^9, 
   3.524978136729979*^9, 3.5249972521420727`*^9, 3.525069440959757*^9, 
   3.525070805588706*^9, 3.525072090916239*^9, 3.52507325725421*^9, 
   3.525081033878196*^9, 3.525187146798243*^9, 3.525240257349132*^9, 
   3.525243910111392*^9, 3.5253975470964327`*^9, 3.525398682534627*^9, 
   3.525493471216271*^9, 3.525660875191298*^9, 3.5256619184518642`*^9, 
   3.525662987164488*^9, 3.525673288514578*^9, 3.545738885628789*^9, 
   3.545991157837179*^9, 3.545991501009598*^9, 3.5460001748055067`*^9, 
   3.546021368216313*^9, 3.54605762687638*^9, 3.5460645976603413`*^9, 
   3.546091139893593*^9, 3.546325618177422*^9, 3.548247490091896*^9, 
   3.548404559147767*^9, 3.548481257302709*^9, 3.548511437327895*^9, 
   3.54852581565523*^9, 3.5485678818485413`*^9, 3.548571062386146*^9, 
   3.5485750166312723`*^9, 3.548591598668523*^9, 3.54866210478437*^9, 
   3.548700126681397*^9, 3.548756261309561*^9, 3.548911251036214*^9, 
   3.5489306169840517`*^9, 3.548960803714601*^9, 3.549002186886146*^9, 
   3.5490208746307793`*^9, 3.5490435471469183`*^9, 3.549047033996902*^9, 
   3.549086282250914*^9, 3.549096280137327*^9, 3.549260313042551*^9, 
   3.5492729347769003`*^9, 3.549305079201375*^9, 3.549305295753186*^9, 
   3.549305806036654*^9, 3.549358888812459*^9, 3.5494331533475533`*^9, 
   3.549462319322912*^9, 3.549540252703824*^9, 3.5509215909505672`*^9, 
   3.550990723068322*^9, 3.550996431306748*^9, 3.550996598672058*^9, 
   3.555347243947855*^9, 3.5573921095565453`*^9, 3.557403155925992*^9, 
   3.55746647479902*^9, 3.557579390311886*^9, 3.557635979874549*^9, 
   3.558441145542088*^9, 3.558549891605427*^9, 3.5600077468801537`*^9, 
   3.560044418561866*^9, 3.5601855057003307`*^9, 3.560186291968512*^9, 
   3.560186367086933*^9, 3.560186515783722*^9, 3.5602228856422663`*^9, 
   3.5602564292820177`*^9, 3.560268934813566*^9, 3.560269936466528*^9, 
   3.5602714218528557`*^9, 3.560516261780983*^9, 3.5605216057408257`*^9, 
   3.560534293869574*^9, 3.56053515495961*^9, 3.5608423223229723`*^9, 
   3.5608444431378803`*^9, 3.561176813956827*^9, 3.561210854438802*^9, 
   3.561269178467437*^9, 3.561275605808167*^9, 3.561276947591813*^9, 
   3.56130285789684*^9, 3.561305374784553*^9, 3.5613085502086163`*^9, 
   3.561308794029935*^9, {3.56136031868862*^9, 3.5613600753770323`*^9}, 
   3.7281150280364*^9, 3.7312348803177423`*^9},
 CellLabel->
  "Out[322]=",ExpressionUUID->"44d1886e-adc2-4ac5-9042-cabd6fcecbda"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDgWeyld\[Theta]S", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521442618853055*^9, 3.5214426216927843`*^9}, 
   3.5250719861697283`*^9},
 CellLabel->
  "In[323]:=",ExpressionUUID->"8ae12e9e-2efe-415b-98f6-1ca49d56e003"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"WeylCD", "[", 
   RowBox[{"-", "\[Alpha]"}], "]"}], "/@", "Defined\[Theta]S"}]], "Input",
 CellChangeTimes->{{3.52144107258494*^9, 3.521441077971389*^9}, {
   3.521441790007681*^9, 3.5214417975246887`*^9}, {3.521441986946005*^9, 
   3.521441988616848*^9}, {3.521442083195204*^9, 3.521442084115549*^9}, {
   3.52506944362845*^9, 3.525069445362708*^9}, 3.525071987952252*^9},
 CellLabel->
  "In[324]:=",ExpressionUUID->"5793b79a-4fa0-44c6-81db-c3a2b25108af"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521441078805167*^9, 3.52144111665668*^9, 3.521441797982689*^9, 
   3.5214419893625*^9, 3.521442084754553*^9, 3.521455961155714*^9, 
   3.521521496764204*^9, 3.521523065358986*^9, 3.5215391525531683`*^9, 
   3.521785614842327*^9, 3.5217974020931997`*^9, 3.521804019696596*^9, 
   3.521883468078725*^9, 3.5219422536410017`*^9, 3.521971133760273*^9, 
   3.521971491269766*^9, 3.521971587544703*^9, 3.521972320213523*^9, 
   3.521973977871224*^9, 3.522029127557291*^9, 3.524394022459693*^9, 
   3.524396335607525*^9, 3.5249781367980623`*^9, 3.52499725215477*^9, 
   3.5250694460488873`*^9, 3.525070805625915*^9, 3.525072091018695*^9, 
   3.5250732572935467`*^9, 3.5250810338924847`*^9, 3.52518714685153*^9, 
   3.5252402573765593`*^9, 3.525243910146916*^9, 3.525397547130601*^9, 
   3.5253986825635567`*^9, 3.525493471246747*^9, 3.525660875224161*^9, 
   3.52566191848059*^9, 3.52566298720336*^9, 3.525673288530889*^9, 
   3.545738885688531*^9, 3.545991157905553*^9, 3.54599150103717*^9, 
   3.546000174983931*^9, 3.546021368240835*^9, 3.546057626913273*^9, 
   3.546064597688389*^9, 3.546091139919939*^9, 3.54632561821972*^9, 
   3.548247490175354*^9, 3.5484045591882677`*^9, 3.548481257319717*^9, 
   3.548511437381547*^9, 3.548525815686056*^9, 3.548567881867193*^9, 
   3.548571062399497*^9, 3.548575016663974*^9, 3.548591598688796*^9, 
   3.548662104829792*^9, 3.548700126716749*^9, 3.548756261335251*^9, 
   3.5489112510704517`*^9, 3.54893061708801*^9, 3.548960803729149*^9, 
   3.549002186930171*^9, 3.54902087468749*^9, 3.549043547161954*^9, 
   3.549047034061413*^9, 3.5490862822659283`*^9, 3.54909628018401*^9, 
   3.549260313067731*^9, 3.549272934823579*^9, 3.549305079233842*^9, 
   3.5493052957692127`*^9, 3.54930580609367*^9, 3.549358888885316*^9, 
   3.54943315337917*^9, 3.549462319363063*^9, 3.549540252757205*^9, 
   3.5509215909992723`*^9, 3.550990723112461*^9, 3.55099643134832*^9, 
   3.550996598758264*^9, 3.555347243998163*^9, 3.557392109622794*^9, 
   3.5574031559850073`*^9, 3.557466474836649*^9, 3.557579390352138*^9, 
   3.5576359799108152`*^9, 3.558441145582017*^9, 3.558549891642104*^9, 
   3.56000774695463*^9, 3.5600444186029177`*^9, 3.560185505740263*^9, 
   3.5601862919887466`*^9, 3.560186367128723*^9, 3.560186515825941*^9, 
   3.5602228856905727`*^9, 3.560256429325375*^9, 3.560268934854932*^9, 
   3.5602699364902687`*^9, 3.5602714218735037`*^9, 3.560516261853812*^9, 
   3.560521605786449*^9, 3.5605342939009438`*^9, 3.560535154991948*^9, 
   3.560842322361238*^9, 3.560844443181979*^9, 3.561176813996542*^9, 
   3.561210854467483*^9, 3.561269178515779*^9, 3.5612756058729067`*^9, 
   3.56127694761545*^9, 3.561302857958054*^9, 3.5613053748391237`*^9, 
   3.561308550258848*^9, 3.561308794077425*^9, {3.561360318716206*^9, 
   3.561360075421328*^9}, 3.728115028070705*^9, 3.731234880346636*^9},
 CellLabel->
  "Out[324]=",ExpressionUUID->"3683a63d-a15d-4452-9c96-98dcbb41f91b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "CDgWeyl"}]}]], "Input",
 CellChangeTimes->{{3.52144109961061*^9, 3.521441111526256*^9}},
 CellLabel->
  "In[325]:=",ExpressionUUID->"da88b312-8c1a-4315-9079-b040ce5ae7dc"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptF][-$CellContext`\[Delta]]],
      Editable->False], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.521441107622081*^9, 3.521441117211503*^9}, 
   3.5214418035492907`*^9, 3.521441995423904*^9, 3.5214420859874487`*^9, 
   3.521455961793208*^9, 3.52152149786967*^9, 3.521523065393806*^9, 
   3.521539152611125*^9, 3.5217856149964333`*^9, 3.521797402143957*^9, 
   3.521804019722295*^9, 3.52188346811108*^9, 3.5219422538810368`*^9, 
   3.521971133791976*^9, 3.5219714913021317`*^9, 3.521971587588934*^9, 
   3.5219723202699614`*^9, 3.521973977910407*^9, 3.52202912757195*^9, 
   3.524394022530895*^9, 3.524396335678699*^9, 3.524978136851685*^9, 
   3.52499725216461*^9, 3.525069448603807*^9, 3.525070805663032*^9, 
   3.525072091063444*^9, 3.525073257326125*^9, 3.525081033937166*^9, 
   3.525187146890016*^9, 3.525240257402584*^9, 3.525243910184305*^9, 
   3.525397547165007*^9, 3.525398682599841*^9, 3.525493471272244*^9, 
   3.52566087525825*^9, 3.525661918505538*^9, 3.525662987231028*^9, 
   3.525673288573452*^9, 3.545738885732812*^9, 3.545991157925268*^9, 
   3.545991501102923*^9, 3.5460001750577583`*^9, 3.546021368258074*^9, 
   3.5460576269901457`*^9, 3.546064597738616*^9, 3.5460911399795437`*^9, 
   3.546325618288179*^9, 3.548247490225623*^9, 3.5484045592207727`*^9, 
   3.548481257353855*^9, 3.548511437400316*^9, 3.548525815711824*^9, 
   3.5485678818985453`*^9, 3.548571062422668*^9, 3.548575016690733*^9, 
   3.548591598723337*^9, 3.5486621048477297`*^9, 3.5487001267605247`*^9, 
   3.5487562613785543`*^9, 3.548911251099268*^9, 3.5489306171290407`*^9, 
   3.5489608037665033`*^9, 3.549002186956327*^9, 3.549020874724648*^9, 
   3.5490435471878977`*^9, 3.549047034098682*^9, 3.549086282304908*^9, 
   3.549096280202115*^9, 3.549260313106995*^9, 3.54927293485935*^9, 
   3.549305079262229*^9, 3.549305295793602*^9, 3.549305806112598*^9, 
   3.549358888903064*^9, 3.549433153404039*^9, 3.549462319392824*^9, 
   3.5495402527735977`*^9, 3.55092159103057*^9, 3.5509907231320333`*^9, 
   3.550996431383464*^9, 3.550996598798205*^9, 3.555347244041073*^9, 
   3.557392109642268*^9, 3.557403156026092*^9, 3.557466474847642*^9, 
   3.557579390384644*^9, 3.557635979939554*^9, 3.558441145615003*^9, 
   3.558549891668791*^9, 3.560007746990641*^9, 3.560044418617158*^9, 
   3.560185505759357*^9, 3.560186292004324*^9, 3.560186367161769*^9, 
   3.5601865158407907`*^9, 3.560222885730475*^9, 3.560256429365913*^9, 
   3.560268934888488*^9, 3.5602699365221252`*^9, 3.5602714219040327`*^9, 
   3.560516261901082*^9, 3.560521605803088*^9, 3.5605342939245033`*^9, 
   3.560535155020958*^9, 3.560842322391054*^9, 3.560844443216174*^9, 
   3.5611768140268993`*^9, 3.5612108545002003`*^9, 3.56126917855057*^9, 
   3.5612756059101963`*^9, 3.561276947650045*^9, 3.56130285799216*^9, 
   3.561305374879717*^9, 3.561308550297995*^9, 3.561308794117483*^9, {
   3.561360318752524*^9, 3.561360075439*^9}, 3.728115028097423*^9, 
   3.731234880374251*^9},
 CellLabel->
  "Out[325]=",ExpressionUUID->"ec97b721-49b9-49af-94f8-077271a9046b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "WeylCD\[ScriptF]"}]}]], "Input",
 CellChangeTimes->{{3.521441123568277*^9, 3.5214411393980217`*^9}},
 CellLabel->
  "In[326]:=",ExpressionUUID->"bebdf23b-7a26-49d3-9551-13d57d19a20a"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
        
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521441140041793*^9, 3.5214418043935423`*^9, 3.5214419960607643`*^9, 
   3.521442086703895*^9, 3.5214559623989677`*^9, 3.521521499067618*^9, 
   3.521523065447013*^9, 3.5215391527005053`*^9, 3.521785615183456*^9, 
   3.521797402198374*^9, 3.521804019753096*^9, 3.5218834681662197`*^9, 
   3.521942253966548*^9, 3.521971133827148*^9, 3.521971491343792*^9, 
   3.521971587616136*^9, 3.5219723203271017`*^9, 3.521973977955473*^9, 
   3.52202912759269*^9, 3.524394022696598*^9, 3.524396335826907*^9, 
   3.52497813691057*^9, 3.524997252220531*^9, 3.525069449984983*^9, 
   3.5250708057091503`*^9, 3.525072091120203*^9, 3.5250732573720217`*^9, 
   3.5250810339954576`*^9, 3.525187146933846*^9, 3.5252402574417477`*^9, 
   3.5252439102226257`*^9, 3.525397547204278*^9, 3.52539868263552*^9, 
   3.525493471309827*^9, 3.525660875302195*^9, 3.5256619185426607`*^9, 
   3.525662987268201*^9, 3.525673288626038*^9, 3.545738885787589*^9, 
   3.5459911579515667`*^9, 3.54599150113881*^9, 3.546000175158626*^9, 
   3.546021368309297*^9, 3.546057627025055*^9, 3.546064597773449*^9, 
   3.546091140040072*^9, 3.5463256183725243`*^9, 3.548247490307454*^9, 
   3.548404559261093*^9, 3.548481257410501*^9, 3.54851143745438*^9, 
   3.548525815747538*^9, 3.5485678819594593`*^9, 3.548571062456231*^9, 
   3.5485750167164392`*^9, 3.548591598777482*^9, 3.54866210487713*^9, 
   3.548700126795906*^9, 3.548756261433488*^9, 3.548911251137355*^9, 
   3.5489306171781597`*^9, 3.548960803814499*^9, 3.549002186987473*^9, 
   3.549020874769899*^9, 3.5490435472265*^9, 3.549047034164688*^9, 
   3.5490862823656197`*^9, 3.549096280230897*^9, 3.549260313143221*^9, 
   3.549272934900383*^9, 3.5493050793009*^9, 3.549305295818389*^9, 
   3.5493058061325293`*^9, 3.549358888955864*^9, 3.5494331534523687`*^9, 
   3.5494623194342537`*^9, 3.5495402528145247`*^9, 3.550921591071115*^9, 
   3.550990723160159*^9, 3.5509964314211807`*^9, 3.550996598847003*^9, 
   3.555347244140842*^9, 3.557392109696994*^9, 3.557403156068132*^9, 
   3.5574664748792143`*^9, 3.55757939042553*^9, 3.557635979981718*^9, 
   3.558441145657439*^9, 3.558549891713344*^9, 3.560007747040001*^9, 
   3.560044418656492*^9, 3.560185505793603*^9, 3.560186292049933*^9, 
   3.56018636720441*^9, 3.5601865158802557`*^9, 3.560222885783888*^9, 
   3.56025642941451*^9, 3.5602689349325*^9, 3.560269936560245*^9, 
   3.5602714219441547`*^9, 3.5605162620153913`*^9, 3.5605216058267527`*^9, 
   3.5605342939535313`*^9, 3.5605351550488358`*^9, 3.560842322456573*^9, 
   3.560844443256892*^9, 3.561176814073793*^9, 3.56121085454274*^9, 
   3.561269178614524*^9, 3.561275605950527*^9, 3.5612769476953897`*^9, 
   3.561302858055578*^9, 3.561305374919342*^9, 3.561308550377453*^9, 
   3.561308794171376*^9, {3.561360318795993*^9, 3.56136007556528*^9}, 
   3.7281150281252337`*^9, 3.7312348804040737`*^9},
 CellLabel->
  "Out[326]=",ExpressionUUID->"b1f3328f-5114-4c4a-b56c-b5048a7024a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "Conf1Weyl"}]}]], "Input",
 CellChangeTimes->{{3.521441158591177*^9, 3.521441167232566*^9}},
 CellLabel->
  "In[327]:=",ExpressionUUID->"9b8833f3-c2fe-4006-b55a-73134462dd6d"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"L", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Delta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
        
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Delta]", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Beta]],
        Editable->False]}], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}]}], ")"}], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Delta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\[Alpha]],
     
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalSigma]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521441168946926*^9, 3.521441805426057*^9, 3.521441997110589*^9, 
   3.5214420874055843`*^9, 3.52145596305868*^9, 3.521521500388075*^9, 
   3.5215230655013123`*^9, 3.521539152758222*^9, 3.521785615428193*^9, 
   3.521797402259038*^9, 3.52180401978354*^9, 3.52188346820852*^9, 
   3.521942254210496*^9, 3.521971133889929*^9, 3.5219714913839083`*^9, 
   3.5219715876566963`*^9, 3.521972320389862*^9, 3.521973977993614*^9, 
   3.522029127615931*^9, 3.524394022781685*^9, 3.524396335880301*^9, 
   3.524978136985249*^9, 3.524997252272029*^9, 3.525069451413332*^9, 
   3.525070805762144*^9, 3.525072091179702*^9, 3.525073257419558*^9, 
   3.5250810340602093`*^9, 3.525187146974896*^9, 3.525240257479056*^9, 
   3.5252439102665567`*^9, 3.525397547241911*^9, 3.525398682666539*^9, 
   3.525493471348366*^9, 3.525660875345532*^9, 3.525661918584531*^9, 
   3.525662987303282*^9, 3.525673288727952*^9, 3.54573888585832*^9, 
   3.5459911580163403`*^9, 3.54599150117947*^9, 3.546000175258819*^9, 
   3.546021368378455*^9, 3.546057627064562*^9, 3.5460645978127537`*^9, 
   3.546091140126403*^9, 3.5463256184750767`*^9, 3.548247490366481*^9, 
   3.548404559308275*^9, 3.5484812574924517`*^9, 3.5485114375374947`*^9, 
   3.548525815790802*^9, 3.548567882012834*^9, 3.548571062488975*^9, 
   3.548575016823576*^9, 3.548591598831942*^9, 3.5486621049184437`*^9, 
   3.5487001268418493`*^9, 3.548756261486855*^9, 3.5489112511782093`*^9, 
   3.548930617237891*^9, 3.5489608038544483`*^9, 3.549002187025173*^9, 
   3.549020874800743*^9, 3.5490435472669697`*^9, 3.549047034227161*^9, 
   3.549086282821294*^9, 3.549096280289098*^9, 3.549260313188572*^9, 
   3.549272934955633*^9, 3.5493050793392267`*^9, 3.5493052958585377`*^9, 
   3.5493058061687813`*^9, 3.549358889022736*^9, 3.5494331534901752`*^9, 
   3.549462319478044*^9, 3.54954025286679*^9, 3.550921591117931*^9, 
   3.550990723231625*^9, 3.5509964314640427`*^9, 3.5509965988831377`*^9, 
   3.5553472441968527`*^9, 3.5573921097590017`*^9, 3.557403156110911*^9, 
   3.557466474912026*^9, 3.557579390460546*^9, 3.5576359800209*^9, 
   3.558441145702956*^9, 3.558549891756562*^9, 3.5600077470892267`*^9, 
   3.560044418697978*^9, 3.5601855058296413`*^9, 3.5601862920983686`*^9, 
   3.560186367250268*^9, 3.560186515921275*^9, 3.560222885836176*^9, 
   3.560256429462966*^9, 3.5602689349791327`*^9, 3.560269936660871*^9, 
   3.5602714219876223`*^9, 3.560516262075529*^9, 3.560521605854144*^9, 
   3.560534293995673*^9, 3.560535155090886*^9, 3.560842322505691*^9, 
   3.56084444330547*^9, 3.561176814123292*^9, 3.5612108545923567`*^9, 
   3.561269178682076*^9, 3.5612756060018063`*^9, 3.5612769477439613`*^9, 
   3.561302858095952*^9, 3.561305374989726*^9, 3.5613085504280167`*^9, 
   3.5613087942598677`*^9, {3.561360318862454*^9, 3.561360075613369*^9}, 
   3.728115028155088*^9, 3.7312348804347763`*^9},
 CellLabel->
  "Out[327]=",ExpressionUUID->"592162a2-8e4e-4bfa-a535-ffe3e1b6d67b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "@", 
  RowBox[{"ContractMetric", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.5214411788568897`*^9, 3.521441211872287*^9}},
 CellLabel->
  "In[328]:=",ExpressionUUID->"f09f7c44-dc40-40ac-8ee4-a98ad069a570"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Delta]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.521441197803166*^9, 3.5214412163857813`*^9}, 
   3.521441809938743*^9, 3.521441998030411*^9, 3.521442088206459*^9, 
   3.52145596366706*^9, 3.521521502263638*^9, 3.521523065554812*^9, 
   3.521539152849039*^9, 3.5217856156447887`*^9, 3.521797402322106*^9, 
   3.521804019826276*^9, 3.521883468260643*^9, 3.521942254396496*^9, 
   3.521971133960559*^9, 3.521971491430131*^9, 3.521971587720994*^9, 
   3.521972320450069*^9, 3.521973978052664*^9, 3.5220291276991367`*^9, 
   3.52439402289285*^9, 3.524396335987496*^9, 3.5249781370618963`*^9, 
   3.524997252305938*^9, 3.5250694521405373`*^9, 3.525070805795705*^9, 
   3.525072091236044*^9, 3.5250732574811068`*^9, 3.525081034168667*^9, 
   3.525187147029656*^9, 3.525240257524431*^9, 3.525243910313978*^9, 
   3.525397547299509*^9, 3.525398682720627*^9, 3.525493471392115*^9, 
   3.525660875397751*^9, 3.525661918660771*^9, 3.525662987348805*^9, 
   3.525673288798242*^9, 3.54573888594635*^9, 3.545991158112205*^9, 
   3.5459915012592583`*^9, 3.5460001753498917`*^9, 3.546021368445579*^9, 
   3.546057627144739*^9, 3.546064597863298*^9, 3.546091140295568*^9, 
   3.546325618558632*^9, 3.548247490461274*^9, 3.548404559342246*^9, 
   3.548481257550881*^9, 3.548511437591312*^9, 3.5485258158539*^9, 
   3.548567882081437*^9, 3.5485710625374403`*^9, 3.5485750168774023`*^9, 
   3.548591599010445*^9, 3.54866210499605*^9, 3.548700126894827*^9, 
   3.548756261563469*^9, 3.548911251229549*^9, 3.548930617273548*^9, 
   3.548960803907508*^9, 3.549002187072076*^9, 3.549020874859799*^9, 
   3.549043547298559*^9, 3.54904703429079*^9, 3.549086282960636*^9, 
   3.549096280385797*^9, 3.549260313283581*^9, 3.5492729350003138`*^9, 
   3.549305079388255*^9, 3.5493052959014893`*^9, 3.54930580620477*^9, 
   3.549358889084393*^9, 3.549433153538707*^9, 3.5494623195372877`*^9, 
   3.549540252927298*^9, 3.550921591179385*^9, 3.550990723289198*^9, 
   3.55099643153368*^9, 3.550996598919436*^9, 3.555347244265196*^9, 
   3.557392109833468*^9, 3.557403156159176*^9, 3.557466474958294*^9, 
   3.5575793905151987`*^9, 3.557635980072941*^9, 3.558441145761408*^9, 
   3.5585498918145742`*^9, 3.56000774715658*^9, 3.560044418757834*^9, 
   3.5601855058847446`*^9, 3.560186292160907*^9, 3.56018636730879*^9, 
   3.5601865159831123`*^9, 3.560222885907473*^9, 3.560256429528899*^9, 
   3.560268935038394*^9, 3.560269936714815*^9, 3.5602714220436068`*^9, 
   3.560516262129499*^9, 3.560521605911154*^9, 3.560534294042745*^9, 
   3.56053515514002*^9, 3.5608423225674057`*^9, 3.560844443350189*^9, 
   3.561176814185375*^9, 3.5612108546528053`*^9, 3.5612691787538977`*^9, 
   3.561275606073763*^9, 3.561276947803335*^9, 3.561302858168915*^9, 
   3.5613053750561113`*^9, 3.561308550512302*^9, 3.561308794328453*^9, {
   3.561360318931377*^9, 3.561360075675686*^9}, 3.728115028192896*^9, 
   3.731234880470126*^9},
 CellLabel->
  "Out[328]=",ExpressionUUID->"e598a776-1529-46ad-af2d-8a8955c68c07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "\[CapitalSigma]UnphysTod\[Theta]S"}]}]], "Input",\

 CellChangeTimes->{{3.521441826392729*^9, 3.521441832127439*^9}, {
   3.521442002616683*^9, 3.521442003626932*^9}, {3.521442090035069*^9, 
   3.521442091176886*^9}, 3.525071988855884*^9},
 CellLabel->
  "In[329]:=",ExpressionUUID->"4213d367-4a21-49f9-b906-458d6095b487"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Beta]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521441832980234*^9, {3.521442000075333*^9, 3.5214420101340218`*^9}, 
   3.521442092058786*^9, 3.521455964437649*^9, 3.5215215044891357`*^9, 
   3.5215230656061287`*^9, 3.521539152917712*^9, 3.5217856157331047`*^9, 
   3.5217974023880157`*^9, 3.521804019859795*^9, 3.521883468301618*^9, 
   3.521942254539618*^9, 3.521971134011506*^9, 3.521971491466357*^9, 
   3.521971587759987*^9, 3.521972320524126*^9, 3.5219739780905037`*^9, 
   3.522029127722289*^9, 3.524394023016328*^9, 3.524396336171186*^9, 
   3.524978137133572*^9, 3.524997252357991*^9, 3.52506945311572*^9, 
   3.525070805871859*^9, 3.525072091280387*^9, 3.525073257524066*^9, 
   3.525081034196591*^9, 3.525187147063981*^9, 3.525240257554603*^9, 
   3.525243910374242*^9, 3.525397547351108*^9, 3.525398682752811*^9, 
   3.525493471424795*^9, 3.52566087543856*^9, 3.525661918693468*^9, 
   3.525662987383059*^9, 3.52567328882542*^9, 3.545738885982341*^9, 
   3.5459911581905117`*^9, 3.5459915013662977`*^9, 3.546000175440851*^9, 
   3.546021368523077*^9, 3.546057627212373*^9, 3.54606459793244*^9, 
   3.546091140397594*^9, 3.546325618659124*^9, 3.548247490526867*^9, 
   3.54840455936618*^9, 3.548481257592361*^9, 3.548511437645041*^9, 
   3.548525815901374*^9, 3.548567882131188*^9, 3.54857106257614*^9, 
   3.548575016914748*^9, 3.548591599032563*^9, 3.548662105028192*^9, 
   3.548700126935481*^9, 3.548756261623728*^9, 3.548911251270522*^9, 
   3.548930617369149*^9, 3.5489608039441967`*^9, 3.549002187106498*^9, 
   3.549020874906787*^9, 3.549043547338374*^9, 3.549047034336224*^9, 
   3.5490862831057577`*^9, 3.5490962804161053`*^9, 3.549260313344318*^9, 
   3.549272935054533*^9, 3.549305079424848*^9, 3.5493052959365396`*^9, 
   3.549305806242157*^9, 3.549358889148196*^9, 3.5494331535783863`*^9, 
   3.5494623195759897`*^9, 3.549540252971581*^9, 3.550921591224701*^9, 
   3.550990723348711*^9, 3.550996431580098*^9, 3.550996598942726*^9, 
   3.5553472443171864`*^9, 3.5573921099055557`*^9, 3.557403156195692*^9, 
   3.557466474999414*^9, 3.5575793905570183`*^9, 3.5576359801143713`*^9, 
   3.5584411458*^9, 3.5585498918540077`*^9, 3.560007747210936*^9, 
   3.5600444188020563`*^9, 3.560185505924155*^9, 3.560186292205853*^9, 
   3.5601863673515863`*^9, 3.5601865160244827`*^9, 3.560222885963114*^9, 
   3.560256429580044*^9, 3.56026893508146*^9, 3.5602699367524853`*^9, 
   3.560271422083145*^9, 3.560516262171843*^9, 3.560521605934046*^9, 
   3.560534294080716*^9, 3.5605351551803703`*^9, 3.560842322614019*^9, 
   3.560844443395257*^9, 3.561176814246895*^9, 3.561210854697215*^9, 
   3.561269178832382*^9, 3.561275606127269*^9, 3.561276947848042*^9, 
   3.5613028582149773`*^9, 3.561305375102736*^9, 3.561308550581411*^9, 
   3.561308794407097*^9, {3.561360318998147*^9, 3.561360075722787*^9}, 
   3.7281150282176037`*^9, 3.731234880500318*^9},
 CellLabel->
  "Out[329]=",ExpressionUUID->"fb4e967a-f102-4d88-8f34-e3a05900b4e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5214418406790247`*^9, 3.521441850515648*^9}},
 CellLabel->
  "In[330]:=",ExpressionUUID->"80a31df0-2d4a-4b73-9133-09d7b4e5dbe2"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521441851076296*^9, 3.521442013945601*^9, 3.521442093455593*^9, 
   3.5214559651978893`*^9, 3.521521505430657*^9, 3.5215230657014217`*^9, 
   3.5215391529959593`*^9, 3.521785615911912*^9, 3.521797402457987*^9, 
   3.521804019899424*^9, 3.5218834683482933`*^9, 3.521942254781251*^9, 
   3.521971134098585*^9, 3.521971491512024*^9, 3.521971587801751*^9, 
   3.52197232059107*^9, 3.521973978175866*^9, 3.5220291277537413`*^9, 
   3.524394023147414*^9, 3.5243963362840567`*^9, 3.524978137214756*^9, 
   3.524997252417102*^9, 3.525069453829657*^9, 3.525070805936511*^9, 
   3.525072091335114*^9, 3.525073257562851*^9, 3.525081034227253*^9, 
   3.525187147109621*^9, 3.525240257597514*^9, 3.525243910411931*^9, 
   3.525397547420105*^9, 3.5253986827981977`*^9, 3.525493471467306*^9, 
   3.5256608754737062`*^9, 3.525661918734728*^9, 3.525662987427662*^9, 
   3.525673288860489*^9, 3.545738886020421*^9, 3.545991158229454*^9, 
   3.545991501469286*^9, 3.546000175539954*^9, 3.546021368611508*^9, 
   3.546057627267001*^9, 3.546064598005217*^9, 3.546091140484675*^9, 
   3.54632561875825*^9, 3.548247490676094*^9, 3.54840455939779*^9, 
   3.5484812576493587`*^9, 3.5485114377146273`*^9, 3.548525815952487*^9, 
   3.5485678821689577`*^9, 3.548571062612782*^9, 3.548575016963685*^9, 
   3.548591599065084*^9, 3.548662105077263*^9, 3.5487001269802732`*^9, 
   3.54875626171609*^9, 3.548911251318137*^9, 3.548930617427658*^9, 
   3.5489608039946117`*^9, 3.549002187153214*^9, 3.5490208749756813`*^9, 
   3.5490435473955507`*^9, 3.549047034395501*^9, 3.5490862831646957`*^9, 
   3.5490962804571333`*^9, 3.549260313425462*^9, 3.549272935131362*^9, 
   3.549305079472947*^9, 3.5493052959749804`*^9, 3.549305806276867*^9, 
   3.549358889227292*^9, 3.549433153626038*^9, 3.549462319628306*^9, 
   3.549540253017976*^9, 3.5509215912888203`*^9, 3.550990723415121*^9, 
   3.5509964316360826`*^9, 3.55099659899194*^9, 3.5553472443811197`*^9, 
   3.5573921099767637`*^9, 3.5574031562458363`*^9, 3.557466475047822*^9, 
   3.557579390605321*^9, 3.557635980162578*^9, 3.558441145856042*^9, 
   3.558549891885622*^9, 3.560007747272676*^9, 3.560044418846656*^9, 
   3.560185505978467*^9, 3.560186292250287*^9, 3.560186367406774*^9, 
   3.560186516082601*^9, 3.5602228860286293`*^9, 3.56025642964112*^9, 
   3.5602689351389627`*^9, 3.56026993679121*^9, 3.5602714221353407`*^9, 
   3.560516262243445*^9, 3.560521605967093*^9, 3.560534294122011*^9, 
   3.560535155229661*^9, 3.5608423226707067`*^9, 3.560844443455126*^9, 
   3.561176814303879*^9, 3.56121085475417*^9, 3.561269178899777*^9, 
   3.561275606188744*^9, 3.5612769479042053`*^9, 3.561302858274544*^9, 
   3.561305375174024*^9, 3.561308550666811*^9, 3.561308794473133*^9, {
   3.561360319064831*^9, 3.561360075781822*^9}, 3.7281150282518177`*^9, 
   3.731234880530086*^9},
 CellLabel->
  "Out[330]=",ExpressionUUID->"c8b12997-c624-4ef0-bd2f-714ded14b444"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ScreenDollarIndices", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5214428609882507`*^9, 3.5214428665325413`*^9}},
 CellLabel->
  "In[331]:=",ExpressionUUID->"0da6f67f-326a-4cad-a6ae-eb9c36d2d3d5"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521442867297606*^9, 3.521442906727322*^9, 3.5214429983168373`*^9, 
   3.521455965831932*^9, 3.521521507822844*^9, 3.521523065743945*^9, 
   3.5215391531272583`*^9, 3.521785616072667*^9, 3.5217974025143757`*^9, 
   3.5218040199286957`*^9, 3.521883468397029*^9, 3.521942255079959*^9, 
   3.521971134140648*^9, 3.521971491574802*^9, 3.521971587842545*^9, 
   3.521972320731015*^9, 3.521973978214117*^9, 3.5220291277694674`*^9, 
   3.524394023312711*^9, 3.5243963363818417`*^9, 3.524978137372304*^9, 
   3.524997252464596*^9, 3.525069454629302*^9, 3.5250708059887*^9, 
   3.525072091394409*^9, 3.525073257603237*^9, 3.525081034245058*^9, 
   3.5251871471589203`*^9, 3.525240257628223*^9, 3.525243910448735*^9, 
   3.5253975474573927`*^9, 3.525398682827739*^9, 3.52549347149996*^9, 
   3.525660875516219*^9, 3.52566191876615*^9, 3.525662987463098*^9, 
   3.525673288881013*^9, 3.5457388860886*^9, 3.545991158249897*^9, 
   3.545991501594151*^9, 3.546000175648518*^9, 3.546021368665414*^9, 
   3.546057627355192*^9, 3.546064598091961*^9, 3.546091140514721*^9, 
   3.546325618842013*^9, 3.548247490698415*^9, 3.548404559431241*^9, 
   3.548481257685536*^9, 3.548511437741413*^9, 3.548525815981935*^9, 
   3.5485678822127237`*^9, 3.548571062652017*^9, 3.5485750170151176`*^9, 
   3.548591599082594*^9, 3.548662105110976*^9, 3.5487001270180473`*^9, 
   3.5487562617599163`*^9, 3.548911251353706*^9, 3.548930617484541*^9, 
   3.548960804033753*^9, 3.549002187182337*^9, 3.549020875038177*^9, 
   3.549043547426352*^9, 3.549047034460712*^9, 3.549086283219222*^9, 
   3.549096280481016*^9, 3.549260313470168*^9, 3.549272935225016*^9, 
   3.549305079505507*^9, 3.54930529600307*^9, 3.549305806313542*^9, 
   3.549358889278788*^9, 3.549433153656961*^9, 3.549462319666349*^9, 
   3.54954025306665*^9, 3.550921591324868*^9, 3.550990723470289*^9, 
   3.550996431683103*^9, 3.55099659904312*^9, 3.5553472444260693`*^9, 
   3.557392110029546*^9, 3.5574031562945757`*^9, 3.55746647508125*^9, 
   3.5575793906412363`*^9, 3.557635980196699*^9, 3.558441145893691*^9, 
   3.558549891919786*^9, 3.560007747316537*^9, 3.560044418885641*^9, 
   3.560185506018461*^9, 3.560186292291744*^9, 3.560186367443874*^9, 
   3.560186516126317*^9, 3.560222886076459*^9, 3.560256429684391*^9, 
   3.5602689351767397`*^9, 3.560269936825016*^9, 3.560271422168103*^9, 
   3.560516262280919*^9, 3.560521606009387*^9, 3.560534294150473*^9, 
   3.5605351552589893`*^9, 3.5608423227103643`*^9, 3.560844443506851*^9, 
   3.561176814342867*^9, 3.561210854774103*^9, 3.5612691792585287`*^9, 
   3.561275606232191*^9, 3.561276947942274*^9, 3.5613028583225517`*^9, 
   3.5613053752180758`*^9, 3.561308550712056*^9, 3.5613087945223083`*^9, {
   3.561360319106719*^9, 3.5613600758187723`*^9}, 3.728115028273937*^9, 
   3.7312348805587473`*^9},
 CellLabel->
  "Out[331]=",ExpressionUUID->"519b2367-dbfd-47ea-aa07-aa58f491260f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptF]", "[", "\[Beta]_", "]"}], 
    RowBox[{"d\[Theta]S", "[", 
     RowBox[{"-", "\[Beta]_"}], "]"}]}], "\[RightTeeArrow]", 
   RowBox[{
    RowBox[{"\[ScriptF]", "[", 
     RowBox[{"-", "\[Beta]"}], "]"}], 
    RowBox[{"d\[Theta]S", "[", "\[Beta]", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.521442854206182*^9, 3.521442904628137*^9}, {
  3.525069464156122*^9, 3.525069471250704*^9}, {3.5250719903235273`*^9, 
  3.525071991090781*^9}},
 CellLabel->
  "In[332]:=",ExpressionUUID->"49e1e53f-5d7f-4ece-9503-2c593048faa8"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.521442899034834*^9, 3.521442907224255*^9}, 
   3.5214429987892303`*^9, 3.521455966608629*^9, 3.52152150862914*^9, 
   3.521523065828871*^9, 3.5215391532238913`*^9, 3.5217856163099422`*^9, 
   3.521797402572096*^9, 3.521804019956725*^9, 3.52188346848205*^9, 
   3.521942255352054*^9, 3.5219711342593603`*^9, 3.521971491613525*^9, 
   3.521971587882016*^9, 3.521972320846984*^9, 3.521973978253332*^9, 
   3.522029127828217*^9, 3.52439402347091*^9, 3.5243963364759617`*^9, 
   3.52497813746327*^9, 3.5249972525057993`*^9, {3.5250694576619453`*^9, 
   3.525069472798877*^9}, 3.525070806028783*^9, 3.525072091439739*^9, 
   3.5250732576880093`*^9, 3.525081034287262*^9, 3.5251871471688766`*^9, 
   3.52524025770089*^9, 3.5252439104837008`*^9, 3.5253975474949617`*^9, 
   3.5253986828580093`*^9, 3.525493471531955*^9, 3.525660875552191*^9, 
   3.525661918794832*^9, 3.525662987491291*^9, 3.5256732889381723`*^9, 
   3.545738886141049*^9, 3.5459911582697153`*^9, 3.545991502018414*^9, 
   3.5460001757247143`*^9, 3.546021368686075*^9, 3.546057627410952*^9, 
   3.546064598150681*^9, 3.5460911405432673`*^9, 3.546325618872004*^9, 
   3.5482474907197933`*^9, 3.5484045594476337`*^9, 3.5484812577392187`*^9, 
   3.5485114377875*^9, 3.548525816013088*^9, 3.5485678822586527`*^9, 
   3.548571062683045*^9, 3.548575017089191*^9, 3.548591599122653*^9, 
   3.548662105134552*^9, 3.548700127049541*^9, 3.548756261802828*^9, 
   3.5489112513881702`*^9, 3.548930617523704*^9, 3.548960804066907*^9, 
   3.5490021872213593`*^9, 3.5490208750596447`*^9, 3.5490435474589148`*^9, 
   3.549047034601502*^9, 3.5490862832633038`*^9, 3.549096280529894*^9, 
   3.549260313495556*^9, 3.549272935277837*^9, 3.549305079536969*^9, 
   3.549305296028285*^9, 3.5493058063409557`*^9, 3.5493588893030643`*^9, 
   3.54943315369114*^9, 3.5494623197350273`*^9, 3.5495402530849648`*^9, 
   3.55092159136287*^9, 3.550990723519342*^9, 3.550996431728109*^9, 
   3.5509965990880823`*^9, 3.555347244472102*^9, 3.5573921100843*^9, 
   3.5574031563473663`*^9, 3.557466475123283*^9, 3.557579390677552*^9, 
   3.557635980231578*^9, 3.5584411459304533`*^9, 3.558549891955225*^9, 
   3.560007747358759*^9, 3.5600444189236298`*^9, 3.560185506051138*^9, 
   3.5601862923332233`*^9, 3.56018636748022*^9, 3.5601865161688538`*^9, 
   3.560222886123049*^9, 3.560256429725835*^9, 3.56026893528508*^9, 
   3.5602699368589573`*^9, 3.5602714222014227`*^9, 3.5605162623151503`*^9, 
   3.560521606027768*^9, 3.560534294182631*^9, 3.56053515528856*^9, 
   3.560842322757738*^9, 3.5608444435807323`*^9, 3.5611768143832006`*^9, 
   3.561210854814209*^9, 3.561269179642948*^9, 3.561275606277363*^9, 
   3.561276947979607*^9, 3.561302858343068*^9, 3.561305375259694*^9, 
   3.561308550777979*^9, 3.561308794570465*^9, {3.5613603191570263`*^9, 
   3.561360075857411*^9}, 3.728115028297914*^9, 3.731234880589489*^9},
 CellLabel->
  "Out[332]=",ExpressionUUID->"a653d288-50f1-49d1-b0ed-1705a3357e78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"First", "@", "%"}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Last", "@", "%"}], "/.", 
    RowBox[{
     RowBox[{"d\[Theta]S", "[", 
      RowBox[{"-", "\[Delta]"}], "]"}], "\[Rule]", 
     RowBox[{
      RowBox[{"SeparateMetric", "[", "Unphysicalg", "]"}], "[", 
      RowBox[{
       RowBox[{"d\[Theta]S", "[", 
        RowBox[{"-", "\[Delta]"}], "]"}], ",", 
       RowBox[{"-", "\[Delta]"}]}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.521442689699526*^9, 3.521442718508778*^9}, {
  3.521442929808222*^9, 3.5214429876781073`*^9}, {3.521443069364368*^9, 
  3.521443096594483*^9}, {3.525069475898232*^9, 3.525069483345477*^9}, {
  3.5250719919343643`*^9, 3.525071992713537*^9}},
 CellLabel->
  "In[333]:=",ExpressionUUID->"733bca07-4fc3-4be1-83c1-13d5002b81f1"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.52144271922752*^9, 3.5214427592265472`*^9}, 
   3.52144294925905*^9, 3.521442999307097*^9, {3.521443075614851*^9, 
   3.521443098613905*^9}, 3.5214559674077377`*^9, 3.521521509493761*^9, 
   3.52152306588197*^9, 3.521539153284915*^9, 3.521785616479797*^9, 
   3.5217974026646338`*^9, 3.5218040199929934`*^9, 3.521883468518649*^9, 
   3.5219422554902353`*^9, 3.521971134303643*^9, 3.52197149169699*^9, 
   3.521971587910844*^9, 3.521972320933902*^9, 3.5219739782902193`*^9, 
   3.522029127903285*^9, 3.524394023590173*^9, 3.5243963365972433`*^9, 
   3.524978137536813*^9, 3.524997252547937*^9, 3.525069484032778*^9, 
   3.525070806064302*^9, 3.52507209149201*^9, 3.52507325773309*^9, 
   3.52508103434134*^9, 3.525187147178553*^9, 3.52524025773044*^9, 
   3.525243910518961*^9, 3.525397547540578*^9, 3.525398682883473*^9, 
   3.525493471562894*^9, 3.5256608755876093`*^9, 3.5256619188230877`*^9, 
   3.5256629875226183`*^9, 3.525673288987431*^9, 3.545738886192643*^9, 
   3.545991158290153*^9, 3.545991502174364*^9, 3.546000175818427*^9, 
   3.546021368706913*^9, 3.546057627440176*^9, 3.546064598220868*^9, 
   3.5460911406145897`*^9, 3.546325618894425*^9, 3.548247490777418*^9, 
   3.548404559464138*^9, 3.5484812577899923`*^9, 3.54851143783092*^9, 
   3.5485258160471287`*^9, 3.548567882307399*^9, 3.548571062696775*^9, 
   3.5485750171249723`*^9, 3.5485915991860437`*^9, 3.548662105188147*^9, 
   3.5487001270784817`*^9, 3.548756261859384*^9, 3.548911251442326*^9, 
   3.548930617567318*^9, 3.548960804107106*^9, 3.5490021872536573`*^9, 
   3.5490208750767937`*^9, 3.549043547490427*^9, 3.5490470346585407`*^9, 
   3.549086283316737*^9, 3.5490962805823107`*^9, 3.549260313519101*^9, 
   3.5492729353370123`*^9, 3.549305079572667*^9, 3.5493052960446978`*^9, 
   3.5493058063758287`*^9, 3.5493588893498907`*^9, 3.549433153725046*^9, 
   3.549462319775566*^9, 3.549540253102982*^9, 3.550921591399405*^9, 
   3.550990723547616*^9, 3.550996431775084*^9, 3.550996599144627*^9, 
   3.555347244518614*^9, 3.557392110139121*^9, 3.557403156389473*^9, 
   3.557466475157407*^9, 3.5575793907137403`*^9, 3.557635980264523*^9, 
   3.558441145967265*^9, 3.5585498919886093`*^9, 3.5600077474029007`*^9, 
   3.560044418962261*^9, 3.560185506083736*^9, 3.5601862923753*^9, 
   3.560186367517256*^9, 3.560186516211638*^9, 3.56022288617091*^9, 
   3.560256429769532*^9, 3.560268935322371*^9, 3.5602699368930607`*^9, 
   3.5602714222355824`*^9, 3.560516262347396*^9, 3.560521606046288*^9, 
   3.560534294212286*^9, 3.5605351553178596`*^9, 3.560842322794999*^9, 
   3.560844443620719*^9, 3.561176814422537*^9, 3.561210854851269*^9, 
   3.561269179687458*^9, 3.561275606299201*^9, 3.561276947998179*^9, 
   3.561302858378121*^9, 3.561305375308736*^9, 3.561308550837564*^9, 
   3.561308794613625*^9, {3.561360319221654*^9, 3.5613600759174023`*^9}, 
   3.7281150283233347`*^9, 3.731234880619728*^9},
 CellLabel->
  "Out[333]=",ExpressionUUID->"09eaf352-2f1f-4eda-909c-f8e0a8b8807c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ScreenDollarIndices", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.5214427599212112`*^9, 3.521442766702898*^9}},
 CellLabel->
  "In[334]:=",ExpressionUUID->"d07dc6d9-84d9-4d09-8601-2ef2aa216c27"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.5214427673479023`*^9, 3.521443101722417*^9, 3.521455968328725*^9, 
   3.5215215109931183`*^9, 3.521523065924081*^9, 3.521539153393365*^9, 
   3.5217856167592907`*^9, 3.521797402746512*^9, 3.521804020027093*^9, 
   3.521883468554883*^9, 3.5219422557143803`*^9, 3.521971134370816*^9, 
   3.5219714917297373`*^9, 3.521971587942539*^9, 3.52197232102216*^9, 
   3.521973978326132*^9, 3.5220291279745007`*^9, 3.5243940237580547`*^9, 
   3.524396336695717*^9, 3.524978137691161*^9, 3.52499725259406*^9, 
   3.525069487405167*^9, 3.525070806119431*^9, 3.525072091540566*^9, 
   3.5250732577738647`*^9, 3.52508103440303*^9, 3.525187147187846*^9, 
   3.525240257759721*^9, 3.525243910555935*^9, 3.5253975475820932`*^9, 
   3.52539868292032*^9, 3.525493471593626*^9, 3.52566087562449*^9, 
   3.5256619188526382`*^9, 3.5256629875526867`*^9, 3.5256732890378447`*^9, 
   3.5457388862543383`*^9, 3.545991158466095*^9, 3.545991502244643*^9, 
   3.546000175905923*^9, 3.546021368756665*^9, 3.546057627472699*^9, 
   3.5460645982542877`*^9, 3.546091140672852*^9, 3.546325618964183*^9, 
   3.5482474908038473`*^9, 3.548404559500464*^9, 3.548481257831408*^9, 
   3.5485114378768787`*^9, 3.548525816076642*^9, 3.548567882368891*^9, 
   3.5485710627272253`*^9, 3.5485750171890793`*^9, 3.548591599230864*^9, 
   3.548662105238887*^9, 3.5487001271090593`*^9, 3.5487562619109907`*^9, 
   3.548911251478847*^9, 3.548930617647534*^9, 3.548960804144988*^9, 
   3.5490021872851562`*^9, 3.549020875094234*^9, 3.54904354752595*^9, 
   3.549047034708726*^9, 3.549086283367935*^9, 3.5490962806270237`*^9, 
   3.549260313566452*^9, 3.549272935378263*^9, 3.54930507960763*^9, 
   3.54930529606973*^9, 3.5493058063974257`*^9, 3.549358889398877*^9, 
   3.5494331537650957`*^9, 3.5494623198142548`*^9, 3.549540253147882*^9, 
   3.550921591434656*^9, 3.550990723597332*^9, 3.550996431825165*^9, 
   3.550996599164679*^9, 3.555347244565377*^9, 3.557392110161619*^9, 
   3.5574031564278517`*^9, 3.557466475187613*^9, 3.557579390746619*^9, 
   3.557635980295615*^9, 3.558441146036437*^9, 3.558549892025052*^9, 
   3.560007747448333*^9, 3.560044419001256*^9, 3.560185506116788*^9, 
   3.560186292450263*^9, 3.560186367591131*^9, 3.560186516257228*^9, 
   3.560222886248177*^9, 3.560256429813802*^9, 3.5602689353601513`*^9, 
   3.560269936927107*^9, 3.560271422273485*^9, 3.560516262404111*^9, 
   3.560521606102068*^9, 3.560534294243651*^9, 3.56053515534632*^9, 
   3.5608423228346767`*^9, 3.560844443657919*^9, 3.561176814462304*^9, 
   3.561210854891407*^9, 3.561269179739728*^9, 3.5612756063203*^9, 
   3.561276948040173*^9, 3.561302858416172*^9, 3.5613053753623037`*^9, 
   3.561308550936103*^9, 3.561308794659659*^9, {3.561360319268653*^9, 
   3.561360075958207*^9}, 3.728115028346786*^9, 3.7312348806509027`*^9},
 CellLabel->
  "Out[334]=",ExpressionUUID->"832afecc-c730-48e5-902b-6997529bf70f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", 
     RowBox[{"d\[Theta]S", "[", "\[Beta]", "]"}]}], "]"}], "&"}], "/@", 
  "%"}]], "Input",
 CellChangeTimes->{{3.5214427356175337`*^9, 3.5214427504562397`*^9}, 
   3.521443108435059*^9, {3.525069491324547*^9, 3.525069491822489*^9}, 
   3.5250719936417837`*^9},
 CellLabel->
  "In[335]:=",ExpressionUUID->"898626f6-5944-4a5a-b826-3a34c181aac3"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Delta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Delta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.521442751110018*^9, 3.5214427690438423`*^9}, {
   3.5214431040004597`*^9, 3.521443108845293*^9}, 3.521455969365539*^9, 
   3.521521513162039*^9, 3.521523065975524*^9, 3.521539153456934*^9, 
   3.521785616941532*^9, 3.5217974028381453`*^9, 3.5218040200587187`*^9, 
   3.5218834685887833`*^9, 3.521942255821011*^9, 3.521971134408164*^9, 
   3.521971491764222*^9, 3.521971588004204*^9, 3.521972321160421*^9, 
   3.5219739783603153`*^9, 3.5220291280385523`*^9, 3.524394023846662*^9, 
   3.5243963368656883`*^9, 3.524978137761434*^9, 3.524997252636483*^9, 
   3.52506949248545*^9, 3.525070806156363*^9, 3.5250720915900297`*^9, 
   3.52507325781922*^9, 3.525081034424057*^9, 3.525187147218113*^9, 
   3.525240257789545*^9, 3.52524391059229*^9, 3.525397547621621*^9, 
   3.525398682947093*^9, 3.525493471624311*^9, 3.5256608756622972`*^9, 
   3.525661918890418*^9, 3.525662987584921*^9, 3.525673289090851*^9, 
   3.545738886303739*^9, 3.5459911585374317`*^9, 3.545991502326282*^9, 
   3.546000175993387*^9, 3.5460213687772913`*^9, 3.546057627522222*^9, 
   3.5460645982949944`*^9, 3.546091140741029*^9, 3.546325618996943*^9, 
   3.5482474908733397`*^9, 3.5484045595165*^9, 3.54848125786902*^9, 
   3.5485114379246063`*^9, 3.548525816112955*^9, 3.548567882404347*^9, 
   3.54857106276928*^9, 3.54857501721906*^9, 3.5485915992702312`*^9, 
   3.548662105278585*^9, 3.548700127140258*^9, 3.548756261951797*^9, 
   3.548911251513983*^9, 3.5489306177218943`*^9, 3.548960804174638*^9, 
   3.5490021873131847`*^9, 3.549020875110325*^9, 3.5490435475551577`*^9, 
   3.549047034766645*^9, 3.5490862834114237`*^9, 3.5490962806691*^9, 
   3.549260313606843*^9, 3.549272935428927*^9, 3.549305079645059*^9, 
   3.549305296095252*^9, 3.5493058064481916`*^9, 3.5493588894549522`*^9, 
   3.549433153800907*^9, 3.549462319847097*^9, 3.5495402531657257`*^9, 
   3.5509215914768867`*^9, 3.550990723643468*^9, 3.550996431839508*^9, 
   3.550996599211121*^9, 3.55534724461123*^9, 3.5573921101832237`*^9, 
   3.5574031564641733`*^9, 3.557466475220354*^9, 3.557579390803317*^9, 
   3.557635980330497*^9, 3.558441146073619*^9, 3.558549892061141*^9, 
   3.560007747490584*^9, 3.560044419071817*^9, 3.560185506150943*^9, 
   3.560186292492283*^9, 3.5601863676267653`*^9, 3.5601865162948503`*^9, 
   3.5602228862944613`*^9, 3.560256429857338*^9, 3.5602689353962708`*^9, 
   3.5602699369611473`*^9, 3.560271422307315*^9, 3.560516262445245*^9, 
   3.5605216061526537`*^9, 3.560534294272029*^9, 3.560535155377002*^9, 
   3.5608423228706083`*^9, 3.560844443695108*^9, 3.561176814498904*^9, 
   3.561210854928475*^9, 3.561269179811576*^9, 3.561275606338421*^9, 
   3.561276948080141*^9, 3.5613028584560347`*^9, 3.56130537540508*^9, 
   3.5613085509600573`*^9, 3.5613087947040863`*^9, {3.5613603193282557`*^9, 
   3.561360076024309*^9}, 3.7281150283718367`*^9, 3.7312348806787148`*^9},
 CellLabel->
  "Out[335]=",ExpressionUUID->"bb75538e-2b3b-4626-8180-563b128e1386"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WeylCDd\[Theta]S", "=", "%"}]], "Input",
 CellChangeTimes->{{3.5214431636940002`*^9, 3.521443170612028*^9}, 
   3.525071994637113*^9},
 CellLabel->
  "In[336]:=",ExpressionUUID->"ab625b5e-39e6-4e3f-9d94-d1999940c080"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {" "},
           {"\[Delta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Delta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Delta]],
         Editable->False]}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"g", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
     
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.521443171454255*^9, 3.521455970334379*^9, 3.521521515618128*^9, 
   3.521523066014957*^9, 3.521539153537592*^9, 3.521785617189549*^9, 
   3.521797402947332*^9, 3.521804020087775*^9, 3.521883468610299*^9, 
   3.521942255989737*^9, 3.5219711344455843`*^9, 3.521971491798604*^9, 
   3.52197158803757*^9, 3.5219723212450743`*^9, 3.521973978395249*^9, 
   3.522029128106884*^9, 3.524394023953733*^9, 3.524396336973715*^9, 
   3.524978137837165*^9, 3.524997252685277*^9, 3.525069493903363*^9, 
   3.525070806195012*^9, 3.5250720916428347`*^9, 3.525073257854554*^9, 
   3.5250810344403563`*^9, 3.525187147249668*^9, 3.525240257816812*^9, 
   3.525243910643716*^9, 3.525397547686421*^9, 3.525398682977549*^9, 
   3.5254934716536617`*^9, 3.525660875694556*^9, 3.525661918919878*^9, 
   3.525662987617804*^9, 3.5256732891097803`*^9, 3.5457388863518867`*^9, 
   3.545991158617236*^9, 3.5459915024076033`*^9, 3.546000176084716*^9, 
   3.5460213687960577`*^9, 3.5460576275489073`*^9, 3.546064598351346*^9, 
   3.546091140807578*^9, 3.546325619021716*^9, 3.548247491008316*^9, 
   3.548404559532071*^9, 3.548481257912218*^9, 3.548511437946393*^9, 
   3.548525816140149*^9, 3.548567882449305*^9, 3.548571062793385*^9, 
   3.548575017249102*^9, 3.548591599317272*^9, 3.548662105298338*^9, 
   3.5487001272014723`*^9, 3.548756261993289*^9, 3.548911251557035*^9, 
   3.5489306178055067`*^9, 3.548960804222714*^9, 3.549002187339223*^9, 
   3.5490208751485*^9, 3.549043547587916*^9, 3.549047034823792*^9, 
   3.549086283453858*^9, 3.5490962806945143`*^9, 3.549260313653963*^9, 
   3.549272935478608*^9, 3.549305079677911*^9, 3.549305296105792*^9, 
   3.549305806472913*^9, 3.5493588894772577`*^9, 3.549433153832962*^9, 
   3.5494623198849783`*^9, 3.5495402531833067`*^9, 3.5509215914933987`*^9, 
   3.550990723686261*^9, 3.55099643188272*^9, 3.5509965992513866`*^9, 
   3.555347244656164*^9, 3.557392110204912*^9, 3.557403156473068*^9, 
   3.557466475253745*^9, 3.557579390834144*^9, 3.557635980362255*^9, 
   3.558441146108596*^9, 3.558549892094199*^9, 3.5600077475321817`*^9, 
   3.5600444191098843`*^9, 3.560185506181876*^9, 3.560186292533361*^9, 
   3.5601863676617727`*^9, 3.560186516338052*^9, 3.560222886341708*^9, 
   3.56025642989816*^9, 3.5602689354320583`*^9, 3.5602699369949503`*^9, 
   3.560271422368168*^9, 3.5605162625007257`*^9, 3.560521606261703*^9, 
   3.560534294299699*^9, 3.5605351553857927`*^9, 3.560842322907484*^9, 
   3.560844443732682*^9, 3.561176814536358*^9, 3.561210854967977*^9, 
   3.561269179876779*^9, 3.561275606356057*^9, 3.5612769481014633`*^9, 
   3.561302858494298*^9, 3.56130537544506*^9, 3.561308550980817*^9, 
   3.561308794746044*^9, {3.56136031937017*^9, 3.561360076071846*^9}, 
   3.728115028402779*^9, 3.731234880705681*^9},
 CellLabel->
  "Out[336]=",ExpressionUUID->"c15e73bd-ff17-475f-a9bc-6d1b5e5f23d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["CDgSUnphysWeyl"], "Input",
 CellLabel->
  "In[337]:=",ExpressionUUID->"9ec23cd3-adb2-4b2a-9cbd-b56ecff9c73c"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[CapitalSigma]", 
        StyleBox[GridBox[{
           {"\[Beta]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.521443255355195*^9, 3.5214434752051563`*^9, 3.5214435087341747`*^9, 
   3.521455971071354*^9, 3.521521525526039*^9, 3.521523066062306*^9, 
   3.52153915359834*^9, 3.5217856172655907`*^9, 3.521797403038595*^9, 
   3.521804020115779*^9, 3.521883468614952*^9, 3.521942256130488*^9, 
   3.5219711344770317`*^9, 3.521971491828225*^9, 3.521971588069096*^9, 
   3.521972321340317*^9, 3.5219739783997993`*^9, 3.522029128244155*^9, 
   3.524394024050694*^9, 3.524396337052959*^9, 3.524978137902649*^9, 
   3.524997252704372*^9, 3.525069495011066*^9, 3.5250708062266273`*^9, 
   3.5250720916810513`*^9, 3.5250732578945293`*^9, 3.5250810344491167`*^9, 
   3.525187147279848*^9, 3.525240257840008*^9, 3.5252439106489162`*^9, 
   3.525397547721281*^9, 3.5253986830012817`*^9, 3.5254934716799107`*^9, 
   3.5256608757003727`*^9, 3.525661918947071*^9, 3.525662987647689*^9, 
   3.52567328911983*^9, 3.545738886397911*^9, 3.545991158649089*^9, 
   3.545991502422014*^9, 3.546000176105527*^9, 3.546021368809516*^9, 
   3.546057627563981*^9, 3.54606459836585*^9, 3.546091140822523*^9, 
   3.5463256190956078`*^9, 3.5482474910228157`*^9, 3.5484045595458393`*^9, 
   3.5484812579527082`*^9, 3.548511437959147*^9, 3.548525816149428*^9, 
   3.548567882487871*^9, 3.548571062800886*^9, 3.548575017286743*^9, 
   3.548591599358334*^9, 3.548662105316401*^9, 3.548700127238785*^9, 
   3.548756262027581*^9, 3.548911251606359*^9, 3.5489306178454313`*^9, 
   3.548960804247369*^9, 3.549002187363635*^9, 3.5490208751606607`*^9, 
   3.5490435476114597`*^9, 3.549047034897451*^9, 3.5490862835040903`*^9, 
   3.54909628070691*^9, 3.549260313677895*^9, 3.549272935493701*^9, 
   3.5493050797035017`*^9, 3.549305296114442*^9, 3.5493058064999123`*^9, 
   3.5493588894905243`*^9, 3.549433153878043*^9, 3.549462319914953*^9, 
   3.549540253216425*^9, 3.550921591505744*^9, 3.550990723698531*^9, 
   3.550996431912778*^9, 3.5509965992638206`*^9, 3.555347244667879*^9, 
   3.557392110222978*^9, 3.557403156482271*^9, 3.557466475320931*^9, 
   3.557579390866905*^9, 3.5576359803906183`*^9, 3.5584411461402607`*^9, 
   3.558549892119382*^9, 3.560007747564767*^9, 3.5600444191436243`*^9, 
   3.5601855062813377`*^9, 3.560186292567012*^9, 3.560186367693171*^9, 
   3.5601865163718157`*^9, 3.560222886355877*^9, 3.560256429929845*^9, 
   3.560268935464114*^9, 3.560269937021388*^9, 3.560271422397201*^9, 
   3.560516262525671*^9, 3.5605216063090267`*^9, 3.560534294322671*^9, 
   3.560535155393508*^9, 3.560842322935584*^9, 3.56084444374468*^9, 
   3.561176814563691*^9, 3.561210855033461*^9, 3.561269179918831*^9, 
   3.561275606391494*^9, 3.5612769481332073`*^9, 3.561302858507864*^9, 
   3.5613053754590893`*^9, 3.561308551023759*^9, 3.561308794760515*^9, {
   3.56136031940329*^9, 3.561360076106855*^9}, 3.728115028420985*^9, 
   3.7312348807281437`*^9},
 CellLabel->
  "Out[337]=",ExpressionUUID->"2837af44-252c-41b1-840b-f6ecd2aa2e9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "\[CapitalSigma]UnphysTod\[Theta]S"}]}]], "Input",\

 CellChangeTimes->{{3.5214432889705772`*^9, 3.521443295056528*^9}, 
   3.525071998743619*^9},
 CellLabel->
  "In[338]:=",ExpressionUUID->"49c9eb43-66e2-42cc-bee0-93ca3368e34f"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"L", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False]}], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[$CellContext`\[Beta]],
      Editable->False], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.521443296549652*^9, 3.5214434756744823`*^9, 3.521443509261999*^9, 
   3.521455971696031*^9, 3.5215215264570513`*^9, 3.5215230660959663`*^9, 
   3.521539153655368*^9, 3.521785617436625*^9, 3.521797403113885*^9, 
   3.521804020144413*^9, 3.5218834686438513`*^9, 3.521942256373536*^9, 
   3.521971134508862*^9, 3.5219714918613873`*^9, 3.5219715880993423`*^9, 
   3.5219723213969088`*^9, 3.521973978431047*^9, 3.522029128311116*^9, 
   3.524394024101199*^9, 3.52439633709914*^9, 3.524978137986657*^9, 
   3.5249972527161818`*^9, 3.525069496097396*^9, 3.525070806260949*^9, 
   3.525072091717236*^9, 3.525073257930677*^9, 3.525081034461809*^9, 
   3.525187147318446*^9, 3.5252402578650913`*^9, 3.52524391068046*^9, 
   3.525397547753715*^9, 3.52539868302816*^9, 3.525493471708152*^9, 
   3.5256608757292128`*^9, 3.5256619189757*^9, 3.5256629876571693`*^9, 
   3.5256732891344213`*^9, 3.545738886524331*^9, 3.545991158667327*^9, 
   3.545991502483553*^9, 3.546000176228931*^9, 3.546021368864355*^9, 
   3.5460576276104927`*^9, 3.546064598419873*^9, 3.546091140870248*^9, 
   3.546325619130818*^9, 3.5482474910753813`*^9, 3.548404559581524*^9, 
   3.548481257992374*^9, 3.5485114379765882`*^9, 3.548525816174512*^9, 
   3.548567882536283*^9, 3.548571062822343*^9, 3.5485750173770847`*^9, 
   3.5485915994244432`*^9, 3.548662105357931*^9, 3.54870012726834*^9, 
   3.548756262067819*^9, 3.548911251634838*^9, 3.5489306178972054`*^9, 
   3.548960804274206*^9, 3.549002187388836*^9, 3.549020875176188*^9, 
   3.5490435476351357`*^9, 3.549047034933161*^9, 3.5490862835449743`*^9, 
   3.549096280746768*^9, 3.549260313699226*^9, 3.549272935541041*^9, 
   3.549305079731594*^9, 3.54930529613599*^9, 3.549305806523521*^9, 
   3.549358889508329*^9, 3.549433153889162*^9, 3.549462319945932*^9, 
   3.549540253274341*^9, 3.550921591522002*^9, 3.550990723743382*^9, 
   3.550996431947729*^9, 3.5509965993084497`*^9, 3.555347244709857*^9, 
   3.557392110274372*^9, 3.5574031565229197`*^9, 3.557466475352117*^9, 
   3.557579390897043*^9, 3.557635980419054*^9, 3.55844114617243*^9, 
   3.5585498921459007`*^9, 3.5600077476022778`*^9, 3.560044419177569*^9, 
   3.56018550631184*^9, 3.560186292601482*^9, 3.56018636772547*^9, 
   3.560186516406361*^9, 3.560222886394538*^9, 3.5602564299634953`*^9, 
   3.560268935499955*^9, 3.560269937051796*^9, 3.5602714224297237`*^9, 
   3.5605162625506697`*^9, 3.560521606356184*^9, 3.560534294347424*^9, 
   3.5605351554239073`*^9, 3.560842322953328*^9, 3.5608444437794933`*^9, 
   3.561176814592348*^9, 3.561210855067329*^9, 3.561269179974018*^9, 
   3.5612756064108143`*^9, 3.561276948166225*^9, 3.561302858541773*^9, 
   3.5613053754972353`*^9, 3.56130855109632*^9, 3.561308794801022*^9, {
   3.561360319437969*^9, 3.5613600761253023`*^9}, 3.728115028440996*^9, 
   3.731234880751028*^9},
 CellLabel->
  "Out[338]=",ExpressionUUID->"014c9620-3a36-48d5-aba2-442fbc371e75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "[", 
   RowBox[{"Equal", "@@", 
    RowBox[{"First", "[", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"WeylCD\[ScriptF]", ",", 
        RowBox[{"LUnphysg", "[", 
         RowBox[{
          RowBox[{"-", "\[Alpha]"}], ",", 
          RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "//", "Flatten"}], 
     "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5214434110527773`*^9, 3.521443452307548*^9}, {
  3.521443483739484*^9, 3.521443511870901*^9}, {3.5250695056197777`*^9, 
  3.52506950805746*^9}},
 CellLabel->
  "In[339]:=",ExpressionUUID->"1cd7413a-aa68-4917-944a-7357d1cd47f9"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Beta]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Beta]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["L", "^"], 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
      Editable->False], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Gamma]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Gamma]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.521443404725596*^9, 3.521443452859174*^9, {3.5214434844394217`*^9, 
   3.521443512333456*^9}, 3.521455972216866*^9, 3.5215215314921913`*^9, 
   3.521523066140553*^9, 3.52153915371852*^9, 3.521785617582934*^9, 
   3.521797403191682*^9, 3.5218040201873283`*^9, 3.521883468682713*^9, 
   3.5219422564612093`*^9, 3.521971134554161*^9, 3.521971491902533*^9, 
   3.521971588133725*^9, 3.5219723214863987`*^9, 3.5219739784725*^9, 
   3.522029128389391*^9, 3.524394024203392*^9, 3.524396337202392*^9, 
   3.524978138080268*^9, 3.5249972527373867`*^9, {3.525069497373502*^9, 
   3.525069508933153*^9}, 3.525070806303134*^9, 3.525072091770053*^9, 
   3.525073258071869*^9, 3.525081034534513*^9, 3.525187147360586*^9, 
   3.5252402579037437`*^9, 3.525243910727379*^9, 3.525397547792411*^9, 
   3.5253986830708847`*^9, 3.525493471752789*^9, 3.525660875781843*^9, 
   3.52566191902157*^9, 3.525662987690086*^9, 3.525673289198038*^9, 
   3.545738886590788*^9, 3.545991158746674*^9, 3.545991502525601*^9, 
   3.5460001763363457`*^9, 3.546021368932803*^9, 3.5460576276515217`*^9, 
   3.546064598515733*^9, 3.546091140984818*^9, 3.5463256192258577`*^9, 
   3.5482474911390142`*^9, 3.548404559637855*^9, 3.548481258049094*^9, 
   3.548511438034245*^9, 3.548525816220881*^9, 3.5485678825944757`*^9, 
   3.548571062864777*^9, 3.548575017418391*^9, 3.5485915994649143`*^9, 
   3.54866210539738*^9, 3.548700127307744*^9, 3.548756262131566*^9, 
   3.5489112516772757`*^9, 3.548930617956934*^9, 3.548960804322528*^9, 
   3.5490021874328814`*^9, 3.549020875203614*^9, 3.549043547684104*^9, 
   3.549047034999959*^9, 3.549086283596489*^9, 3.5490962807935667`*^9, 
   3.549260313743801*^9, 3.549272935594907*^9, 3.54930507977777*^9, 
   3.549305296161975*^9, 3.5493058065633698`*^9, 3.5493588895599623`*^9, 
   3.549433153918982*^9, 3.5494623199881268`*^9, 3.5495402533164*^9, 
   3.5509215915688477`*^9, 3.5509907238053913`*^9, 3.550996432010529*^9, 
   3.550996599367095*^9, 3.555347244768979*^9, 3.557392110332827*^9, 
   3.557403156561923*^9, 3.557466475405856*^9, 3.557579390951377*^9, 
   3.5576359804600353`*^9, 3.558441146221813*^9, 3.558549892192582*^9, 
   3.560007747662901*^9, 3.5600444192284737`*^9, 3.560185506358262*^9, 
   3.560186292655282*^9, 3.560186367775124*^9, 3.5601865164589643`*^9, 
   3.560222886453794*^9, 3.560256430018099*^9, 3.5602689355502443`*^9, 
   3.560269937096702*^9, 3.560271422476246*^9, 3.5605162626226377`*^9, 
   3.560521606414378*^9, 3.5605342943850813`*^9, 3.560535155454034*^9, 
   3.560842322993394*^9, 3.560844443822255*^9, 3.5611768146428623`*^9, 
   3.561210855117141*^9, 3.561269180020834*^9, 3.561275606500832*^9, 
   3.561276948218297*^9, 3.56130285859377*^9, 3.561305375559428*^9, 
   3.5613085511754007`*^9, 3.5613087948629827`*^9, {3.561360319509551*^9, 
   3.561360076173944*^9}, 3.728115028467166*^9, 3.731234880781427*^9},
 CellLabel->
  "Out[339]=",ExpressionUUID->"859bb83a-c310-4060-ae27-bd5c9e072547"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "/@", 
  RowBox[{"(", 
   RowBox[{"ContractMetric", "/@", "%"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.521443520266927*^9, 3.521443528536886*^9}},
 CellLabel->
  "In[340]:=",ExpressionUUID->"d1fb9bd3-c107-40cf-bc10-5908f098fc0f"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[$CellContext`\[Beta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {"\[Beta]", " "},
            {" ", "\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`LWeylg[$CellContext`\[Beta], -$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.5214435289690742`*^9, 3.5214559728786697`*^9, 3.521521532889125*^9, 
   3.52152306620009*^9, 3.521539153811105*^9, 3.521785617874219*^9, 
   3.521797403261046*^9, 3.521804020232765*^9, 3.521883468738551*^9, 
   3.5219422566562223`*^9, 3.5219711346147346`*^9, 3.521971491952324*^9, 
   3.521971588161697*^9, 3.521972321561532*^9, 3.5219739785265293`*^9, 
   3.522029128483872*^9, 3.524394024404558*^9, 3.524396337313703*^9, 
   3.524978138160603*^9, 3.524997252793847*^9, 3.525069510750725*^9, 
   3.525070806345002*^9, 3.525072091881563*^9, 3.5250732581122627`*^9, 
   3.525081034626255*^9, 3.525187147418544*^9, 3.525240257954174*^9, 
   3.525243910854244*^9, 3.525397547852427*^9, 3.52539868311808*^9, 
   3.525493471789009*^9, 3.525660875852214*^9, 3.5256619190690107`*^9, 
   3.525662987750311*^9, 3.525673289277117*^9, 3.545738886690507*^9, 
   3.545991158795268*^9, 3.545991502603052*^9, 3.546000176444475*^9, 
   3.546021369010798*^9, 3.546057627736299*^9, 3.546064598576589*^9, 
   3.54609114108913*^9, 3.5463256193238497`*^9, 3.548247491240554*^9, 
   3.548404559683195*^9, 3.548481258121883*^9, 3.548511438095047*^9, 
   3.548525816296804*^9, 3.548567882660555*^9, 3.5485710629105673`*^9, 
   3.548575017469598*^9, 3.5485915995142384`*^9, 3.548662105447402*^9, 
   3.548700127339542*^9, 3.5487562622151814`*^9, 3.54891125173851*^9, 
   3.5489306180211287`*^9, 3.548960804431835*^9, 3.5490021874822893`*^9, 
   3.549020875247517*^9, 3.549043547740293*^9, 3.5490470350798483`*^9, 
   3.5490862836628532`*^9, 3.549096280880926*^9, 3.549260313798691*^9, 
   3.549272935660232*^9, 3.5493050798178988`*^9, 3.549305296210433*^9, 
   3.54930580661607*^9, 3.5493588896224327`*^9, 3.549433153971471*^9, 
   3.549462320044433*^9, 3.5495402533876457`*^9, 3.550921591635292*^9, 
   3.550990723862328*^9, 3.5509964320704117`*^9, 3.5509965994470663`*^9, 
   3.555347244844542*^9, 3.557392110524188*^9, 3.557403156602813*^9, 
   3.557466475464077*^9, 3.557579390986628*^9, 3.557635980510141*^9, 
   3.558441146288229*^9, 3.558549892248114*^9, 3.5600077477383957`*^9, 
   3.560044419296132*^9, 3.560185506420497*^9, 3.5601862927249203`*^9, 
   3.560186367840562*^9, 3.5601865165279713`*^9, 3.5602228865338078`*^9, 
   3.56025643009361*^9, 3.5602689356171207`*^9, 3.560269937157267*^9, 
   3.56027142253893*^9, 3.56051626271985*^9, 3.5605216064896383`*^9, 
   3.5605342944377527`*^9, 3.560535155508749*^9, 3.5608423230887213`*^9, 
   3.56084444389117*^9, 3.5611768147152367`*^9, 3.561210855184087*^9, 
   3.561269180112754*^9, 3.5612756065927467`*^9, 3.561276948285955*^9, 
   3.5613028586438913`*^9, 3.561305375644175*^9, 3.561308551392765*^9, 
   3.561308794949061*^9, {3.5613603195890217`*^9, 3.56136007624676*^9}, 
   3.728115028511827*^9, 3.731234880812622*^9},
 CellLabel->
  "Out[340]=",ExpressionUUID->"c7811a29-845a-46c9-964d-53b9249073c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplification", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.52144354883954*^9, 3.5214435522320213`*^9}},
 CellLabel->
  "In[341]:=",ExpressionUUID->"d8c0572e-3adc-405b-8d4d-b674e8e822bc"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Beta]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["L", "^"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False]}], ")"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              OverscriptBox["L", "^"], 
              StyleBox[GridBox[{
                 {"\[Beta]", " "},
                 {" ", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`LWeylg[$CellContext`\[Beta], -$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Beta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Beta]],
          Editable->False]}], "+", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Beta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Beta]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
               {"\[ScriptF]", 
                StyleBox[GridBox[{
                   {" "},
                   {"\[Alpha]"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}]}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[-$CellContext`\[Beta]][
            $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.521443552802539*^9, 3.5214559734667397`*^9, 3.521521534510407*^9, 
   3.521523066243237*^9, 3.521539153903178*^9, 3.5217856180987988`*^9, 
   3.521797403338521*^9, 3.521804020296423*^9, 3.521883468810596*^9, 
   3.521942256803822*^9, 3.5219711346884317`*^9, 3.5219714920176153`*^9, 
   3.521971588224615*^9, 3.521972321661354*^9, 3.521973978666004*^9, 
   3.522029128619217*^9, 3.5243940245203743`*^9, 3.524396337434299*^9, 
   3.5249781382452173`*^9, 3.524997252845091*^9, 3.5250695148356943`*^9, 
   3.525070806411048*^9, 3.5250720919527273`*^9, 3.52507325817557*^9, 
   3.52508103473367*^9, 3.525187147478504*^9, 3.5252402580155354`*^9, 
   3.525243910918316*^9, 3.5253975479289923`*^9, 3.525398683190371*^9, 
   3.525493471874408*^9, 3.525660875923552*^9, 3.525661919132894*^9, 
   3.5256629878006973`*^9, 3.525673289345772*^9, 3.545738886805703*^9, 
   3.545991158906329*^9, 3.545991502777287*^9, 3.546000176566283*^9, 
   3.546021369144787*^9, 3.546057627853991*^9, 3.5460645986748133`*^9, 
   3.5460911411842422`*^9, 3.546325619459873*^9, 3.548247491329561*^9, 
   3.548404559780517*^9, 3.548481258174617*^9, 3.548511438206493*^9, 
   3.548525816369141*^9, 3.548567882741968*^9, 3.548571062982541*^9, 
   3.548575017532411*^9, 3.548591599630471*^9, 3.548662105524067*^9, 
   3.5487001274074*^9, 3.5487562622982483`*^9, 3.548911251819277*^9, 
   3.5489306181219378`*^9, 3.548960804496153*^9, 3.549002187526556*^9, 
   3.549020875324629*^9, 3.549043547816071*^9, 3.549047035146171*^9, 
   3.54908628373775*^9, 3.549096280984056*^9, 3.5492603138764343`*^9, 
   3.549272935751308*^9, 3.5493050798897877`*^9, 3.549305296275693*^9, 
   3.549305806682723*^9, 3.549358889730348*^9, 3.549433154040291*^9, 
   3.5494623201186523`*^9, 3.549540253481532*^9, 3.550921591732685*^9, 
   3.550990723976059*^9, 3.5509964321702538`*^9, 3.550996599523735*^9, 
   3.5553472449828672`*^9, 3.55739211067693*^9, 3.557403156682176*^9, 
   3.557466475512436*^9, 3.557579391060432*^9, 3.5576359805559063`*^9, 
   3.558441146362656*^9, 3.5585498923175573`*^9, 3.560007747837667*^9, 
   3.560044419387952*^9, 3.5601855065084753`*^9, 3.560186292800015*^9, 
   3.5601863679147243`*^9, 3.560186516605582*^9, 3.560222886637125*^9, 
   3.560256430191629*^9, 3.5602689357080717`*^9, 3.560269937244211*^9, 
   3.560271422626417*^9, 3.560516262850788*^9, 3.560521606568413*^9, 
   3.5605342945028887`*^9, 3.560535155573667*^9, 3.5608423232062883`*^9, 
   3.560844443991227*^9, 3.561176814809764*^9, 3.561210855277017*^9, 
   3.5612691801975193`*^9, 3.561275606670828*^9, 3.561276948379024*^9, 
   3.561302858755834*^9, 3.561305375788619*^9, 3.561308552222198*^9, 
   3.5613087950989237`*^9, {3.561360319692222*^9, 3.561360076390657*^9}, 
   3.728115028576482*^9, 3.7312348808680468`*^9},
 CellLabel->
  "Out[341]=",ExpressionUUID->"508695ae-4608-467a-8036-4245271b7d47"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.521447003960247*^9, 3.521447008620689*^9}},
 CellLabel->
  "In[342]:=",ExpressionUUID->"fceb2509-ecb1-42a8-a56a-9adae8e18582"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`WeylCD[-$CellContext`\[Alpha]][
    $CellContext`sUnphys[]],
   Editable->False], "\[Equal]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["L", "^"], 
            StyleBox[GridBox[{
               {"\[Beta]", " "},
               {" ", "\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LWeylg[$CellContext`\[Beta], -$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Beta]],
        Editable->False], " ", 
       RowBox[{"(", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"d", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
          Editable->False], "+", 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {" "},
                  {"\[Alpha]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False]}]}], ")"}]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Beta]][
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
      Editable->False], ")"}]}], "-", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Beta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Beta]],
        Editable->False]}], "+", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`WeylCD[-$CellContext`\[Beta]][
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
       Editable->False]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.521447009448225*^9, 3.521455974194433*^9, 3.5215215401908083`*^9, 
   3.521523066391711*^9, 3.521539154056344*^9, 3.521785618420115*^9, 
   3.521797403497663*^9, 3.521804020407893*^9, 3.521883468957431*^9, 
   3.521942257170443*^9, 3.521971134841691*^9, 3.521971492157181*^9, 
   3.521971588357295*^9, 3.5219723218264503`*^9, 3.5219739787778597`*^9, 
   3.522029128902258*^9, 3.524394024758239*^9, 3.524396337685027*^9, 
   3.5249781384359417`*^9, 3.524997253006731*^9, 3.5250695163399754`*^9, 
   3.525070806551242*^9, 3.525072092106649*^9, 3.525073258313113*^9, 
   3.525081034901127*^9, 3.525187147625001*^9, 3.5252402581514273`*^9, 
   3.525243911039734*^9, 3.5253975481080647`*^9, 3.525398683361865*^9, 
   3.5254934720520887`*^9, 3.525660876104821*^9, 3.525661919311852*^9, 
   3.5256629879720707`*^9, 3.525673289584156*^9, 3.5457388870462017`*^9, 
   3.545991159551218*^9, 3.545991503084914*^9, 3.5460001769996157`*^9, 
   3.546021369777637*^9, 3.546057628488864*^9, 3.546064599288995*^9, 
   3.546091141850342*^9, 3.546325620061934*^9, 3.54824749195854*^9, 
   3.5484045600157146`*^9, 3.548481258353511*^9, 3.548511438441037*^9, 
   3.5485258165413017`*^9, 3.548567882923736*^9, 3.548571063149672*^9, 
   3.5485750177088537`*^9, 3.548591599874317*^9, 3.548662105772422*^9, 
   3.548700127578302*^9, 3.54875626253257*^9, 3.548911252136463*^9, 
   3.548930618278901*^9, 3.548960804669846*^9, 3.549002187699451*^9, 
   3.549020875702517*^9, 3.549043547977857*^9, 3.5490470353437967`*^9, 
   3.549086283919661*^9, 3.549096281221827*^9, 3.549260314059944*^9, 
   3.549272935987118*^9, 3.549305080070305*^9, 3.549305296444964*^9, 
   3.549305806854138*^9, 3.54935888997541*^9, 3.549433154219541*^9, 
   3.549462320278117*^9, 3.5495402536692038`*^9, 3.5509215921184998`*^9, 
   3.5509907242164583`*^9, 3.550996432415968*^9, 3.550996599766342*^9, 
   3.555347245467361*^9, 3.557392111183145*^9, 3.557403157043146*^9, 
   3.557466475683573*^9, 3.557579391236581*^9, 3.557635980772478*^9, 
   3.5584411468296423`*^9, 3.558549892495221*^9, 3.56000774830551*^9, 
   3.560044419829599*^9, 3.560185506967721*^9, 3.560186293064034*^9, 
   3.560186368175909*^9, 3.5601865169051867`*^9, 3.560222887083828*^9, 
   3.560256430661623*^9, 3.5602689361771393`*^9, 3.560269937502844*^9, 
   3.5602714228852386`*^9, 3.560516263332067*^9, 3.5605216067972317`*^9, 
   3.560534294664104*^9, 3.5605351557335253`*^9, 3.560842323681447*^9, 
   3.560844444259293*^9, 3.561176815076784*^9, 3.561210855755916*^9, 
   3.5612691807458572`*^9, 3.561275607137762*^9, 3.561276948828599*^9, 
   3.5613028593526783`*^9, 3.56130537603666*^9, 3.5613085537592*^9, 
   3.5613087955691442`*^9, {3.561360320169883*^9, 3.5613600768912992`*^9}, 
   3.7281150287428417`*^9, 3.731234881166741*^9},
 CellLabel->
  "Out[342]=",ExpressionUUID->"8acb7af8-83c2-4111-abd4-fe5dfcd1068b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDgSUnphysWeyld\[Theta]S", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.521447048454918*^9, 3.5214470516123943`*^9}, 
   3.525072001536241*^9},
 CellLabel->
  "In[343]:=",ExpressionUUID->"e5bd4729-ca77-433c-9ebb-feb2f835c69c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Conf3Weyl", "/.", 
  RowBox[{"ApplyRule", "@", "\[CapitalSigma]UnphysTod\[Theta]S"}]}]], "Input",\

 CellChangeTimes->{{3.521447120187208*^9, 3.521447124141864*^9}, {
   3.521447237304331*^9, 3.521447257902927*^9}, 3.525072002823679*^9},
 CellLabel->
  "In[344]:=",ExpressionUUID->"46de32f1-cc30-4007-9b5a-23b1c1cb5bdf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {"\[Delta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[$CellContext`\[Delta]],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptD]", 
         StyleBox[GridBox[{
            {" ", " ", " ", " "},
            {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptD][-$CellContext`\[Gamma], -$CellContext`\[Alpha], \
-$CellContext`\[Beta], -$CellContext`\[Delta]],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Beta]", "\[Gamma]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", " "},
               {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "-", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Delta]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Delta]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Gamma]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Delta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Delta]],
        Editable->False]}], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"\[Del]", ",", 
              OverscriptBox["\[Del]", "^"]}], "]"}], 
            StyleBox[GridBox[{
               {" ", " ", " "},
               {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[CurlyEpsilon]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[CurlyEpsilon]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
        Editable->False]}]}], ")"}]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Gamma]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Alpha]][
     $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
    Editable->False], "-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
        {
         OverscriptBox["L", "^"], 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`WeylCD[-$CellContext`\[Gamma]][
     $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
    Editable->False]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{{3.5214470947874517`*^9, 3.5214471176003923`*^9}, 
   3.521447258800393*^9, 3.521455975310659*^9, 3.521521550262475*^9, 
   3.521523066437935*^9, 3.521539154144239*^9, 3.521785618620873*^9, 
   3.521797403580474*^9, 3.5218040204819117`*^9, 3.5218834690232697`*^9, 
   3.521942257401464*^9, 3.521971134884942*^9, 3.521971492193412*^9, 
   3.521971588391233*^9, 3.52197232189539*^9, 3.521973978813159*^9, 
   3.522029128963623*^9, 3.5243940248603477`*^9, 3.524396337908703*^9, 
   3.524978138517754*^9, 3.524997253058219*^9, 3.525069518167095*^9, 
   3.525070806591412*^9, 3.525072092150435*^9, 3.525073258352022*^9, 
   3.525081034957755*^9, 3.525187147661334*^9, 3.525240258180859*^9, 
   3.5252439110777283`*^9, 3.525397548148106*^9, 3.525398683397266*^9, 
   3.525493472081419*^9, 3.525660876176792*^9, 3.525661919346962*^9, 
   3.5256629880056458`*^9, 3.5256732896389933`*^9, 3.545738887193906*^9, 
   3.5459911596227407`*^9, 3.545991503251829*^9, 3.546000177076788*^9, 
   3.546021369841773*^9, 3.546057628584764*^9, 3.546064599413204*^9, 
   3.546091141909923*^9, 3.546325620231525*^9, 3.54824749211654*^9, 
   3.548404560059499*^9, 3.5484812584006863`*^9, 3.54851143850051*^9, 
   3.548525816575245*^9, 3.548567883071721*^9, 3.5485710632215433`*^9, 
   3.548575017736918*^9, 3.548591599992805*^9, 3.548662105872766*^9, 
   3.5487001276111107`*^9, 3.548756262582343*^9, 3.548911252170638*^9, 
   3.548930618328722*^9, 3.5489608047031384`*^9, 3.5490021877364902`*^9, 
   3.549020875810006*^9, 3.549043548022232*^9, 3.549047035422268*^9, 
   3.54908628396336*^9, 3.549096281275725*^9, 3.5492603140978737`*^9, 
   3.5492729360430803`*^9, 3.5493050801282787`*^9, 3.5493052964754963`*^9, 
   3.5493058068952093`*^9, 3.549358890078837*^9, 3.549433154251186*^9, 
   3.549462320317233*^9, 3.54954025371098*^9, 3.5509215921681633`*^9, 
   3.550990724320416*^9, 3.550996432464926*^9, 3.550996599864896*^9, 
   3.55534724566895*^9, 3.557392111244598*^9, 3.557403157127269*^9, 
   3.557466475724627*^9, 3.557579391269253*^9, 3.557635980804781*^9, 
   3.558441146870576*^9, 3.558549892563011*^9, 3.560007748390388*^9, 
   3.56004441987154*^9, 3.56018550701036*^9, 3.560186293106565*^9, 
   3.5601863682160883`*^9, 3.5601865169479427`*^9, 3.5602228871343813`*^9, 
   3.560256430747179*^9, 3.560268936218184*^9, 3.5602699375383587`*^9, 
   3.5602714229233*^9, 3.560516263471291*^9, 3.56052160685143*^9, 
   3.560534294786504*^9, 3.56053515577125*^9, 3.560842323745158*^9, 
   3.56084444430147*^9, 3.5611768151150703`*^9, 3.56121085580812*^9, 
   3.561269180860712*^9, 3.561275607223311*^9, 3.561276948913124*^9, 
   3.5613028593920116`*^9, 3.5613053760878983`*^9, 3.561308554151208*^9, 
   3.561308795655479*^9, {3.561360320213649*^9, 3.561360076939999*^9}, 
   3.728115028777186*^9, 3.731234881200081*^9},
 CellLabel->
  "Out[344]=",ExpressionUUID->"7c76645e-4b22-4f2d-a857-76182a232081"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conf3Weyld\[Theta]S", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.5214472680712852`*^9, 3.5214472718541327`*^9}, 
   3.52507200408784*^9},
 CellLabel->
  "In[345]:=",ExpressionUUID->"9f463d17-1143-4ee7-9e6d-102228bf4100"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "CDgWeyld\[Theta]S", ",", "WeylCDd\[Theta]S", ",", "Conf3Weyld\[Theta]S", 
   ",", "CDgSUnphysWeyld\[Theta]S", ",", "Conf4Weyl"}], "}"}]], "Input",
 CellChangeTimes->{{3.5214473257265778`*^9, 3.5214473268128347`*^9}, {
   3.52144736586201*^9, 3.521447380881448*^9}, {3.521447415744156*^9, 
   3.521447434625579*^9}, {3.521447493953826*^9, 3.5214474975631313`*^9}, {
   3.521447555544595*^9, 3.521447565347032*^9}, 3.521454035716552*^9, {
   3.525072005473196*^9, 3.525072007448896*^9}},
 CellLabel->
  "In[346]:=",ExpressionUUID->"582e1f49-882a-4020-9cb4-933262492ac5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], "\[Equal]", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
      Editable->False], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Delta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Beta]", "\[Delta]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\
\[Delta]],
           Editable->False]}], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[Alpha]", "\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"d", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`d\[Theta]S[$CellContext`\[Delta]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Gamma], \
-$CellContext`\[Alpha], -$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              OverscriptBox["L", "^"], 
              StyleBox[GridBox[{
                 {"\[Beta]", " "},
                 {" ", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`LWeylg[$CellContext`\[Beta], -$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Beta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Beta]],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"d", 
                StyleBox[GridBox[{
                   {" "},
                   {"\[Alpha]"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
            Editable->False], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox[GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {" "},
                    {"\[Alpha]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
        Editable->False], ")"}]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["L", "^"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False]}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Beta]", "\[Delta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", "\[Alpha]"},
              {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptD][-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]]],
      Editable->False]}], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5214473754958277`*^9, {3.5214474166556253`*^9, 3.521447437187525*^9}, 
   3.521447499686049*^9, 3.521447565920539*^9, 3.521454036542939*^9, 
   3.52145597647048*^9, 3.521521555525729*^9, 3.52152306650919*^9, 
   3.521539154286264*^9, 3.521785618914682*^9, 3.521797403679878*^9, 
   3.521804020525332*^9, 3.521883469077633*^9, 3.5219422575907993`*^9, 
   3.521971135055172*^9, 3.5219714922399263`*^9, 3.521971588437766*^9, 
   3.521972321975947*^9, 3.5219739788614798`*^9, 3.522029129065534*^9, 
   3.524394024970458*^9, 3.5243963380160427`*^9, 3.524978138698444*^9, 
   3.524997253121358*^9, 3.525069520241344*^9, 3.5250708066414967`*^9, 
   3.525072092225397*^9, 3.525073258408202*^9, 3.52508103505774*^9, 
   3.5251871477363243`*^9, 3.525240258237071*^9, 3.525243911131941*^9, 
   3.525397548204606*^9, 3.525398683444456*^9, 3.525493472152535*^9, 
   3.525660876251307*^9, 3.525661919393958*^9, 3.5256629880954733`*^9, 
   3.525673289811351*^9, 3.545738887281739*^9, 3.54599115980541*^9, 
   3.545991503392178*^9, 3.5460001772118196`*^9, 3.546021369948045*^9, 
   3.546057628696501*^9, 3.546064599483334*^9, 3.546091142042653*^9, 
   3.546325620334984*^9, 3.5482474922253447`*^9, 3.548404560118114*^9, 
   3.548481258499518*^9, 3.548511438647182*^9, 3.548525816630314*^9, 
   3.548567883140052*^9, 3.548571063332075*^9, 3.5485750177896214`*^9, 
   3.5485916000680857`*^9, 3.548662105969409*^9, 3.548700127666922*^9, 
   3.548756262686385*^9, 3.548911252235408*^9, 3.5489306184586363`*^9, 
   3.548960804773888*^9, 3.549002187772272*^9, 3.5490208758766327`*^9, 
   3.549043548088876*^9, 3.5490470355188704`*^9, 3.549086284070484*^9, 
   3.54909628141572*^9, 3.5492603141481743`*^9, 3.549272936114958*^9, 
   3.5493050801831093`*^9, 3.5493052965274763`*^9, 3.5493058069649973`*^9, 
   3.549358890171351*^9, 3.549433154312724*^9, 3.549462320377515*^9, 
   3.549540253769553*^9, 3.5509215922359457`*^9, 3.550990724408326*^9, 
   3.550996432567252*^9, 3.55099659993147*^9, 3.555347245737644*^9, 
   3.5573921113345137`*^9, 3.557403157185438*^9, 3.557466475766222*^9, 
   3.557579391327437*^9, 3.5576359808536587`*^9, 3.558441146930296*^9, 
   3.558549892624322*^9, 3.560007748473447*^9, 3.5600444199334593`*^9, 
   3.560185507065715*^9, 3.560186293170806*^9, 3.560186368275898*^9, 
   3.560186517010717*^9, 3.560222887221937*^9, 3.560256430830246*^9, 
   3.560268936362062*^9, 3.560269937593771*^9, 3.560271422980476*^9, 
   3.5605162635954447`*^9, 3.560521606921145*^9, 3.56053429484245*^9, 
   3.560535155814987*^9, 3.560842323822781*^9, 3.560844444365479*^9, 
   3.561176815193522*^9, 3.56121085587182*^9, 3.56126918095408*^9, 
   3.561275607290102*^9, 3.561276948976658*^9, 3.561302859461134*^9, 
   3.56130537615396*^9, 3.561308554506797*^9, 3.561308795744998*^9, {
   3.561360320300562*^9, 3.561360077054619*^9}, 3.728115028826172*^9, 
   3.731234881251046*^9},
 CellLabel->
  "Out[346]=",ExpressionUUID->"6e290842-f6ed-4a2d-9518-2af9e05ae0f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewExtendedConformalEqs", "=", 
  RowBox[{"Map", "[", 
   RowBox[{"FullSimplify", ",", "%", ",", 
    RowBox[{"{", "2", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5214487486302958`*^9, 3.521448756483076*^9}, {
  3.521454041382209*^9, 3.5214540481216097`*^9}},
 CellLabel->
  "In[347]:=",ExpressionUUID->"ebcf44dd-0969-4798-97d3-a7bbd2405cc4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], "\[Equal]", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
      Editable->False], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Delta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`d\[Theta]S[-$CellContext`\[Delta]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"d", 
            StyleBox[GridBox[{
               {"\[Beta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`d\[Theta]S[$CellContext`\[Beta]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Delta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], \
-$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox["s",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`sUnphys[],
         Editable->False], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"d", 
                 StyleBox[GridBox[{
                    {"\[Beta]"},
                    {" "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`d\[Theta]S[$CellContext`\[Beta]],
             Editable->False]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox[GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {"\[Beta]"},
                    {" "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptF][$CellContext`\[Beta]],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]}]}], ")"}]}]}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"d", 
            StyleBox[GridBox[{
               {"\[Delta]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`d\[Theta]S[$CellContext`\[Delta]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Gamma], \
-$CellContext`\[Alpha], -$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              OverscriptBox["L", "^"], 
              StyleBox[GridBox[{
                 {"\[Beta]", " "},
                 {" ", "\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`LWeylg[$CellContext`\[Beta], -$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Beta]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Beta]],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"d", 
                StyleBox[GridBox[{
                   {" "},
                   {"\[Alpha]"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
            Editable->False], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox[GridBox[{
                {"\[ScriptF]", 
                 StyleBox[GridBox[{
                    {" "},
                    {"\[Alpha]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`WeylCD[-$CellContext`\[Beta]][
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
        Editable->False], ")"}]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Beta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["L", "^"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Beta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Beta]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
         Editable->False]}], ")"}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Beta]", "\[Delta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", "\[Alpha]"},
              {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptD][-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]]],
      Editable->False]}], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5214487575100594`*^9, 3.521454052285701*^9, 3.521455977570271*^9, 
   3.521521559608757*^9, 3.521523066689237*^9, 3.521539154480055*^9, 
   3.521785619327743*^9, 3.521797403869804*^9, 3.521804020698943*^9, 
   3.521883469267774*^9, 3.5219422579729023`*^9, 3.52197113523918*^9, 
   3.521971492418445*^9, 3.521971588600472*^9, 3.521972322169437*^9, 
   3.5219739790340233`*^9, 3.522029129319405*^9, 3.524394025261654*^9, 
   3.52439633830993*^9, 3.524978138874584*^9, 3.524997253352269*^9, 
   3.525069522770536*^9, 3.525070806821671*^9, 3.525072092404798*^9, 
   3.5250732585810013`*^9, 3.5250810352950907`*^9, 3.5251871479026203`*^9, 
   3.52524025840307*^9, 3.525243911295327*^9, 3.5253975483864183`*^9, 
   3.525398683616501*^9, 3.525493472326659*^9, 3.5256608764358187`*^9, 
   3.52566191957516*^9, 3.5256629882760267`*^9, 3.525673290050288*^9, 
   3.545738887551421*^9, 3.5459911600666122`*^9, 3.545991503773863*^9, 
   3.546000177492422*^9, 3.546021370249063*^9, 3.5460576289996243`*^9, 
   3.5460645997909403`*^9, 3.546091142357422*^9, 3.546325620600062*^9, 
   3.548247492487855*^9, 3.548404560362028*^9, 3.548481258691743*^9, 
   3.548511438908495*^9, 3.548525816806562*^9, 3.548567883332361*^9, 
   3.548571063509663*^9, 3.548575017970345*^9, 3.5485916002972116`*^9, 
   3.548662106231351*^9, 3.5487001278485613`*^9, 3.5487562630016937`*^9, 
   3.548911252417912*^9, 3.5489306186565*^9, 3.548960804958268*^9, 
   3.549002187957397*^9, 3.549020876125317*^9, 3.5490435483062153`*^9, 
   3.54904703582831*^9, 3.549086284268324*^9, 3.549096281686158*^9, 
   3.549260314338067*^9, 3.5492729363591757`*^9, 3.549305080367275*^9, 
   3.549305296697826*^9, 3.549305807139217*^9, 3.5493588904454947`*^9, 
   3.549433154500433*^9, 3.54946232056618*^9, 3.5495402539374437`*^9, 
   3.550921592476448*^9, 3.5509907246792107`*^9, 3.550996432820271*^9, 
   3.550996600183879*^9, 3.5553472459903584`*^9, 3.557392111640181*^9, 
   3.55740315736687*^9, 3.557466475945696*^9, 3.5575793915134983`*^9, 
   3.557635981042964*^9, 3.558441147197094*^9, 3.5585498928138227`*^9, 
   3.560007748761959*^9, 3.560044420200575*^9, 3.560185507333091*^9, 
   3.560186293461008*^9, 3.56018636854137*^9, 3.560186517278954*^9, 
   3.560222887551557*^9, 3.5602564311177473`*^9, 3.5602689366279593`*^9, 
   3.560269937925206*^9, 3.560271423242363*^9, 3.5605162638564987`*^9, 
   3.560521607210072*^9, 3.560534295023645*^9, 3.560535155994314*^9, 
   3.5608423241071568`*^9, 3.560844444640491*^9, 3.561176815505571*^9, 
   3.5612108561488256`*^9, 3.561269181301044*^9, 3.5612756075722027`*^9, 
   3.5612769492535553`*^9, 3.561302859730831*^9, 3.561305376424418*^9, 
   3.561308565312552*^9, 3.561308796145266*^9, {3.561360320598439*^9, 
   3.5613600773277693`*^9}, 3.728115029139629*^9, 3.731234881526963*^9},
 CellLabel->
  "Out[347]=",ExpressionUUID->"2b393679-bad6-44d7-945b-8e39a55f28a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["ExtendedConformalEqs"], "Input",
 CellChangeTimes->{{3.521457125667951*^9, 3.5214571262965612`*^9}},
 CellLabel->
  "In[348]:=",ExpressionUUID->"346beafd-51a9-4804-9d0a-37457ba46ea7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], "\[Equal]", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"L", 
            StyleBox[GridBox[{
               {" ", " "},
               {"\[Alpha]", "\[Beta]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
        Editable->False]}], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[CapitalSigma]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Beta]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox["s",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`sUnphys[],
         Editable->False], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Gamma]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[CapitalSigma]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Gamma]],
          Editable->False]}]}], ")"}]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "s"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`sUnphys[]],
     Editable->False], "\[Equal]", 
    RowBox[{
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"L", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False]}], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[CapitalSigma]", 
          StyleBox[GridBox[{
             {"\[Beta]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Beta]],
      Editable->False]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Beta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Alpha]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Alpha]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Alpha], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Delta]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {" ", " ", " "},
                 {"\[Delta]", "\[Gamma]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[CurlyEpsilon]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[CurlyEpsilon]],
          Editable->False]}]}], ")"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Gamma]", "\[Alpha]", "\[Beta]", "\[Delta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Gamma], \
-$CellContext`\[Alpha], -$CellContext`\[Beta], -$CellContext`\[Delta]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"\[ScriptF]", 
               StyleBox[GridBox[{
                  {"\[Delta]"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptF][$CellContext`\[Delta]],
           Editable->False]}], " ", 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]}], "-", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[CapitalSigma]", 
             StyleBox[GridBox[{
                {"\[Delta]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Delta]],
         Editable->False]}], ")"}]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Gamma]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`LWeylg[-$CellContext`\[Gamma], -$CellContext`\[Beta]]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
          {
           OverscriptBox["L", "^"], 
           StyleBox[GridBox[{
              {" ", " "},
              {"\[Alpha]", "\[Beta]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Gamma]][
       $CellContext`LWeylg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
      Editable->False]}], "\[Equal]", "0"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Beta]"], GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Beta]][
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]]],
     Editable->False], "\[Equal]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"L", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LUnphysg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
         
         Editable->False]}], "-", 
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["L", "^"], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Beta]", "\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`LWeylg[-$CellContext`\[Beta], -$CellContext`\[Alpha]],
         Editable->False]}], "-", 
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Alpha]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Beta]],
         Editable->False]}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"g", 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Alpha]", "\[Beta]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\
\[Beta]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {" "},
                {"\[Gamma]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {"\[Gamma]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][$CellContext`\[Gamma]],
         Editable->False]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", " "},
              {"\[Alpha]", "\[Beta]", "\[Delta]", "\[Gamma]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptD][-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Delta], -$CellContext`\[Gamma]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
          {"\[ScriptD]", 
           StyleBox[GridBox[{
              {" ", " ", " ", "\[Alpha]"},
              {"\[Delta]", "\[Gamma]", "\[Beta]", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[ScriptD][-$CellContext`\[Delta], \
-$CellContext`\[Gamma], -$CellContext`\[Beta], $CellContext`\[Alpha]]],
      Editable->False]}], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5214571364229803`*^9, 3.5215215610399446`*^9, 3.52152306687649*^9, 
   3.521539154638638*^9, 3.52178561941885*^9, 3.521797404034319*^9, 
   3.521804020732626*^9, 3.521883469312028*^9, 3.5219422581304703`*^9, 
   3.521971135364395*^9, 3.521971492461913*^9, 3.521971588639887*^9, 
   3.521972322319344*^9, 3.5219739790763073`*^9, 3.52202912945648*^9, 
   3.524394025474868*^9, 3.524396338416027*^9, 3.524978139043908*^9, 
   3.524997253409409*^9, 3.52506952435912*^9, 3.525070806893922*^9, 
   3.525072092453483*^9, 3.525073258639625*^9, 3.525081035396256*^9, 
   3.525187147936522*^9, 3.525240258489151*^9, 3.525243911332896*^9, 
   3.525397548425644*^9, 3.525398683694105*^9, 3.5254934723593187`*^9, 
   3.525660876477684*^9, 3.5256619196157103`*^9, 3.525662988310961*^9, 
   3.5256732901204*^9, 3.545738887690044*^9, 3.545991160141533*^9, 
   3.545991503827647*^9, 3.546000177593299*^9, 3.546021370376766*^9, 
   3.5460576290896587`*^9, 3.546064599890882*^9, 3.5460911425052547`*^9, 
   3.546325620674986*^9, 3.548247492573389*^9, 3.548404560408496*^9, 
   3.5484812587408743`*^9, 3.5485114389760723`*^9, 3.548525816851071*^9, 
   3.5485678833792887`*^9, 3.548571063545588*^9, 3.5485750180112057`*^9, 
   3.5485916003561497`*^9, 3.548662106301043*^9, 3.548700127880659*^9, 
   3.5487562630748453`*^9, 3.548911252461342*^9, 3.548930618816698*^9, 
   3.548960804996437*^9, 3.549002188044836*^9, 3.549020876183058*^9, 
   3.549043548354576*^9, 3.549047035865464*^9, 3.5490862843130417`*^9, 
   3.549096281756997*^9, 3.549260314429077*^9, 3.54927293646491*^9, 
   3.549305080411277*^9, 3.549305296736247*^9, 3.549305807173564*^9, 
   3.549358890515479*^9, 3.549433154543352*^9, 3.549462320616826*^9, 
   3.5495402539946613`*^9, 3.55092159252945*^9, 3.550990724745811*^9, 
   3.550996432876244*^9, 3.5509966002400846`*^9, 3.5553472460493193`*^9, 
   3.5573921117811213`*^9, 3.557403157408103*^9, 3.557466475985312*^9, 
   3.5575793915634937`*^9, 3.557635981076665*^9, 3.5584411472871237`*^9, 
   3.5585498928546677`*^9, 3.5600077488275967`*^9, 3.560044420292658*^9, 
   3.560185507409816*^9, 3.5601862935530777`*^9, 3.560186368630185*^9, 
   3.5601865173260517`*^9, 3.560222887621889*^9, 3.560256431183069*^9, 
   3.560268936672892*^9, 3.5602699379658012`*^9, 3.5602714232863283`*^9, 
   3.560516263939616*^9, 3.560521607324479*^9, 3.5605342950736723`*^9, 
   3.5605351560743723`*^9, 3.560842324165773*^9, 3.56084444472856*^9, 
   3.561176815564658*^9, 3.561210856235715*^9, 3.561269181372443*^9, 
   3.5612756076800337`*^9, 3.561276949299141*^9, 3.5613028597737923`*^9, 
   3.56130537647151*^9, 3.5613085656166363`*^9, 3.561308796192299*^9, {
   3.5613603206628113`*^9, 3.561360077372998*^9}, 3.728115029175124*^9, 
   3.7312348815614223`*^9},
 CellLabel->
  "Out[348]=",ExpressionUUID->"42d98d97-e285-4b04-9886-8811d7a36bcf"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Simplification of ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->9]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`a],
      Editable->False]}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->9]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`a],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"a"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->9]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`a],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[CapitalXi]", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->9]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalXi][-$CellContext`a],
        Editable->False]}]}], ")"}]}]}]], "Output",
  CellChangeTimes->{
   3.52498100737882*^9, {3.524981296367036*^9, 3.524981332931019*^9}, 
    3.524981455633312*^9, 3.5249819753867826`*^9, 3.5249972758638153`*^9}],
 " \[Implies] causal character of the conformal boundary"
}], "Subsubsection",
 CellChangeTimes->{{3.52499797971315*^9, 3.5249979884515667`*^9}, {
  3.5460027829500427`*^9, 3.546002795085389*^9}}],

Cell["We study the following quantitty", "Text",
 CellChangeTimes->{{3.524981325988119*^9, 3.524981331611638*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expA", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptF]", "[", 
     RowBox[{"-", "\[Alpha]"}], "]"}], 
    RowBox[{"\[ScriptF]", "[", "\[Alpha]", "]"}], 
    RowBox[{"\[CapitalTheta]", "[", "]"}]}], "+", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sUnphys", "[", "]"}], "+", 
      RowBox[{
       RowBox[{"\[ScriptF]", "[", "\[Alpha]", "]"}], 
       RowBox[{"d\[Theta]S", "[", 
        RowBox[{"-", "\[Alpha]"}], "]"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.546001963472925*^9, 3.546002067170404*^9}},
 CellLabel->
  "In[349]:=",ExpressionUUID->"b976e7b7-87ed-460c-9135-23d38d8c7f1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox["s",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`sUnphys[],
      Editable->False], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}]}], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{{3.5460020574292927`*^9, 3.5460020677476263`*^9}, 
   3.5460213704238586`*^9, 3.546057629136791*^9, 3.546064599941023*^9, 
   3.5460911425245953`*^9, 3.5463256207445297`*^9, 3.548247502099824*^9, 
   3.548404560476014*^9, 3.5484812587764683`*^9, 3.5485114390238943`*^9, 
   3.54852581687346*^9, 3.5485678834282427`*^9, 3.548571063574526*^9, 
   3.548575018037635*^9, 3.54859160039749*^9, 3.548662106336959*^9, 
   3.54870012790946*^9, 3.548756263110425*^9, 3.54891125250412*^9, 
   3.5489306188726254`*^9, 3.548960805025241*^9, 3.5490021880711412`*^9, 
   3.5490208762218943`*^9, 3.549043548363618*^9, 3.549047035891206*^9, 
   3.5490862843653793`*^9, 3.549096281795067*^9, 3.549260314449609*^9, 
   3.549272936508543*^9, 3.549305080448019*^9, 3.5493052967677813`*^9, 
   3.5493058072011642`*^9, 3.5493588905578203`*^9, 3.549433154577359*^9, 
   3.549462320646495*^9, 3.549540254029543*^9, 3.550921592568227*^9, 
   3.550990724796486*^9, 3.550996432909614*^9, 3.550996600279416*^9, 
   3.55534724609035*^9, 3.5573921118470497`*^9, 3.5574031574561787`*^9, 
   3.5574664760172157`*^9, 3.5575793915924177`*^9, 3.55763598110568*^9, 
   3.5584411473238907`*^9, 3.5585498928817663`*^9, 3.560007748863926*^9, 
   3.560044420325459*^9, 3.560185507438065*^9, 3.560186293588194*^9, 
   3.560186368662578*^9, 3.5601865173610563`*^9, 3.560222887662079*^9, 
   3.560256431218828*^9, 3.5602689367077923`*^9, 3.5602699379931498`*^9, 
   3.5602714233161907`*^9, 3.560516263987153*^9, 3.560521607338594*^9, 
   3.560534295082775*^9, 3.560535156099188*^9, 3.560842324195532*^9, 
   3.56084444476297*^9, 3.561176815595429*^9, 3.561210856269362*^9, 
   3.5612691814103117`*^9, 3.5612756077161427`*^9, 3.561276949333398*^9, 
   3.561302859838274*^9, 3.561305376514842*^9, 3.5613085656687307`*^9, 
   3.561308796232622*^9, {3.561360320700934*^9, 3.5613600774099607`*^9}, 
   3.728115029194337*^9, 3.731234881586453*^9},
 CellLabel->
  "Out[349]=",ExpressionUUID->"2a87ccdf-eb07-4740-8cd9-6fddb8fbffe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandsUnphys"}]}]], "Input",
 CellChangeTimes->{{3.52498145689408*^9, 3.524981461702924*^9}},
 CellLabel->
  "In[350]:=",ExpressionUUID->"b3b00c2d-2cd0-4a89-b9d4-908b88c88df3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "24"], "+", 
     FractionBox[
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "\[Beta]"], 
         SuperscriptBox["\[Del]", "\[Beta]"], "\[CapitalTheta]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CDg[-$CellContext`\[Beta]][
        $CellContext`CDg[$CellContext`\[Beta]][
         $CellContext`\[CapitalTheta][]]],
       Editable->False], "4"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5249814624846354`*^9, 3.524981976085083*^9, 3.524997275964622*^9, 
   3.5250706664230747`*^9, 3.5250708133146553`*^9, 3.52507272011825*^9, 
   3.525073280451405*^9, 3.5250810478070583`*^9, 3.525083107565901*^9, 
   3.525187153532139*^9, 3.52524026471242*^9, 3.5252439184567413`*^9, 
   3.525397555074478*^9, 3.525398690550495*^9, 3.525493479865271*^9, 
   3.525660883887957*^9, 3.5256619259947443`*^9, 3.52566299469346*^9, 
   3.525673300043828*^9, 3.546000200536756*^9, 3.5460020729602737`*^9, 
   3.546021370449401*^9, 3.546057629192319*^9, 3.546064600004635*^9, 
   3.5460911425473537`*^9, 3.546325620771286*^9, 3.548247502239846*^9, 
   3.548404560545957*^9, 3.548481258814591*^9, 3.5485114390735693`*^9, 
   3.548525816928699*^9, 3.5485678835059853`*^9, 3.548571063601349*^9, 
   3.548575018076119*^9, 3.5485916004485903`*^9, 3.5486621063805532`*^9, 
   3.548700127935136*^9, 3.548756263134081*^9, 3.548911252532016*^9, 
   3.548930618913602*^9, 3.5489608050522614`*^9, 3.5490021881080523`*^9, 
   3.549020876267008*^9, 3.549043548387958*^9, 3.549047035919595*^9, 
   3.549086284403288*^9, 3.549096281831398*^9, 3.549260314468796*^9, 
   3.549272936552307*^9, 3.549305080484713*^9, 3.549305296790144*^9, 
   3.549305807224821*^9, 3.54935889060296*^9, 3.549433154604751*^9, 
   3.5494623206941557`*^9, 3.549540254069051*^9, 3.550921592610395*^9, 
   3.5509907248387823`*^9, 3.550996432951825*^9, 3.55099660032454*^9, 
   3.5553472461316223`*^9, 3.557392111920497*^9, 3.5574031575047207`*^9, 
   3.5574664760452967`*^9, 3.5575793916216917`*^9, 3.557635981135264*^9, 
   3.558441147358058*^9, 3.558549892908018*^9, 3.560007748899137*^9, 
   3.5600444203625317`*^9, 3.560185507469507*^9, 3.560186293623452*^9, 
   3.560186368695099*^9, 3.56018651739585*^9, 3.560222887701372*^9, 
   3.560256431253175*^9, 3.5602689367409267`*^9, 3.56026993802074*^9, 
   3.560271423382121*^9, 3.5605162640212593`*^9, 3.560521607356112*^9, 
   3.560534295104885*^9, 3.560535156127962*^9, 3.560842324224388*^9, 
   3.5608444447967253`*^9, 3.561176815627836*^9, 3.561210856289566*^9, 
   3.561269181444539*^9, 3.561275607751217*^9, 3.561276949369873*^9, 
   3.561302859870569*^9, 3.56130537659373*^9, 3.561308565740632*^9, 
   3.561308796272464*^9, {3.561360320774501*^9, 3.561360077444356*^9}, 
   3.7281150292155933`*^9, 3.7312348816161737`*^9},
 CellLabel->
  "Out[350]=",ExpressionUUID->"c459c959-f0f4-4b41-91bb-25672ab22a6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChangeCovD", "[", 
  RowBox[{"%", ",", "CDg", ",", "WeylCD"}], "]"}]], "Input",
 CellChangeTimes->{{3.5249814885671263`*^9, 3.524981508950987*^9}},
 CellLabel->
  "In[351]:=",ExpressionUUID->"1144fab7-cb1d-4d96-9be8-d9a0a8f2bd95"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "24"], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "^"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Beta]", " ", " "},
                 {" ", "\[Beta]", "\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Beta], \
-$CellContext`\[Beta], -$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5249815096018343`*^9, 3.524981976664082*^9, 3.524997276041147*^9, 
   3.525070666926765*^9, 3.525070813345707*^9, 3.525072720168337*^9, 
   3.525073281097681*^9, 3.525081048640704*^9, 3.525083108039425*^9, 
   3.5251871535587807`*^9, 3.5252402647420588`*^9, 3.525243918492735*^9, 
   3.525397555105188*^9, 3.525398690583664*^9, 3.525493479912355*^9, 
   3.525660883922826*^9, 3.52566192603402*^9, 3.525662994722485*^9, 
   3.5256733001022263`*^9, 3.546000201818552*^9, 3.546002075060515*^9, 
   3.546021370497349*^9, 3.546057629273184*^9, 3.546064600090467*^9, 
   3.546091142603194*^9, 3.546325620795892*^9, 3.548247502314966*^9, 
   3.548404560581555*^9, 3.548481258852414*^9, 3.548511439116778*^9, 
   3.548525816966077*^9, 3.548567883599453*^9, 3.548571063628166*^9, 
   3.548575018110013*^9, 3.548591600487122*^9, 3.548662106427552*^9, 
   3.548700127969266*^9, 3.548756263183013*^9, 3.548911252567439*^9, 
   3.548930618953302*^9, 3.548960805083909*^9, 3.549002188138484*^9, 
   3.549020876308569*^9, 3.5490435484238358`*^9, 3.5490470359508963`*^9, 
   3.549086284446953*^9, 3.54909628187211*^9, 3.549260314488957*^9, 
   3.5492729365934896`*^9, 3.549305080515889*^9, 3.5493052968188267`*^9, 
   3.549305807252198*^9, 3.549358890647739*^9, 3.5494331546323833`*^9, 
   3.5494623207718353`*^9, 3.549540254108777*^9, 3.5509215926920357`*^9, 
   3.550990724857759*^9, 3.550996432987174*^9, 3.5509966003677387`*^9, 
   3.555347246180705*^9, 3.557392111968163*^9, 3.557403157541274*^9, 
   3.557466476078459*^9, 3.5575793916669703`*^9, 3.557635981169772*^9, 
   3.558441147407338*^9, 3.5585498929406557`*^9, 3.560007748937052*^9, 
   3.560044420398528*^9, 3.5601855074999104`*^9, 3.56018629366774*^9, 
   3.560186368729775*^9, 3.560186517436294*^9, 3.560222887743033*^9, 
   3.560256431290595*^9, 3.560268936776215*^9, 3.560269938052741*^9, 
   3.560271423414094*^9, 3.560516264051914*^9, 3.560521607372776*^9, 
   3.5605342951350718`*^9, 3.56053515615683*^9, 3.560842324256399*^9, 
   3.560844444833405*^9, 3.561176815663221*^9, 3.561210856307767*^9, 
   3.5612691814950867`*^9, 3.561275607792438*^9, 3.5612769494064093`*^9, 
   3.561302859905046*^9, 3.561305376629919*^9, 3.5613085657840242`*^9, 
   3.561308796321692*^9, {3.5613603208165407`*^9, 3.561360077485125*^9}, 
   3.728115029236701*^9, 3.731234881644496*^9},
 CellLabel->
  "Out[351]=",ExpressionUUID->"679cd72d-bf4b-4add-a639-79bac7283f86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.524981577885446*^9, 3.5249815817192097`*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"088e09e8-e8e6-4f5b-97e6-11e71dfbf43e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "24"], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Beta]", "\[Delta]"},
                 {"\[Beta]", "\[Gamma]", " ", " "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Beta], -$CellContext`\
\[Gamma], $CellContext`\[Beta], $CellContext`\[Delta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Delta]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.524981582352669*^9, 3.524981977567045*^9, 3.524997276151437*^9, 
   3.525070667440106*^9, 3.5250708133966618`*^9, 3.525072720234127*^9, 
   3.5250732817627583`*^9, 3.525081049319662*^9, 3.525083108578505*^9, 
   3.52518715359916*^9, 3.525240264776834*^9, 3.525243918533868*^9, 
   3.525397555139593*^9, 3.5253986906211987`*^9, 3.525493479963928*^9, 
   3.525660883968542*^9, 3.525661926071414*^9, 3.525662994761478*^9, 
   3.5256733001699944`*^9, 3.546000204773847*^9, 3.546002078326701*^9, 
   3.5460213705636473`*^9, 3.546057629328899*^9, 3.5460646001208973`*^9, 
   3.546091142668808*^9, 3.5463256208275948`*^9, 3.548247502376964*^9, 
   3.5484045606466837`*^9, 3.5484812589071293`*^9, 3.5485114391665497`*^9, 
   3.5485258169976377`*^9, 3.548567883655249*^9, 3.548571063663938*^9, 
   3.548575018145463*^9, 3.5485916005327663`*^9, 3.548662106482535*^9, 
   3.548700128003585*^9, 3.548756263237767*^9, 3.5489112526456203`*^9, 
   3.548930619013277*^9, 3.548960805128441*^9, 3.549002188174213*^9, 
   3.54902087636353*^9, 3.549043548461989*^9, 3.549047035984199*^9, 
   3.549086284504043*^9, 3.5490962819231377`*^9, 3.54926031453951*^9, 
   3.549272936648869*^9, 3.549305080552644*^9, 3.5493052968505287`*^9, 
   3.549305807284205*^9, 3.549358890701808*^9, 3.549433154658536*^9, 
   3.5494623208147087`*^9, 3.549540254144054*^9, 3.550921592732177*^9, 
   3.5509907249128532`*^9, 3.550996433038493*^9, 3.550996600415885*^9, 
   3.555347246231647*^9, 3.557392112022708*^9, 3.557403157589155*^9, 
   3.557466476122122*^9, 3.5575793917042103`*^9, 3.55763598121138*^9, 
   3.558441147459517*^9, 3.5585498929808283`*^9, 3.560007748982847*^9, 
   3.560044420443041*^9, 3.560185507537341*^9, 3.5601862937127934`*^9, 
   3.5601863687715273`*^9, 3.560186517480844*^9, 3.560222887792474*^9, 
   3.560256431335958*^9, 3.5602689368185596`*^9, 3.5602699380902*^9, 
   3.560271423454877*^9, 3.560516264090467*^9, 3.5605216074200783`*^9, 
   3.560534295171701*^9, 3.560535156189904*^9, 3.5608423242965937`*^9, 
   3.5608444448727303`*^9, 3.561176815696414*^9, 3.561210856344303*^9, 
   3.56126918154902*^9, 3.561275607840151*^9, 3.561276949445468*^9, 
   3.561302859948242*^9, 3.561305376679146*^9, 3.561308565847378*^9, 
   3.5613087963917017`*^9, {3.5613603208775883`*^9, 3.561360077530349*^9}, 
   3.7281150292597723`*^9, 3.731234881671241*^9},
 CellLabel->
  "Out[352]=",ExpressionUUID->"ada5fd13-3d39-45f4-8aaa-ecb7c0ab8a5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.524981680427854*^9, 3.5249816844039907`*^9}},
 CellLabel->
  "In[353]:=",ExpressionUUID->"34151e5a-8055-4783-9080-c8d3267cce14"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{"R", "[", "\[Del]", "]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`RicciScalarCDg[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}], "24"], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.524981685232232*^9, 3.524981978798427*^9, 3.524997276243649*^9, 
   3.52507066806035*^9, 3.525070813443124*^9, 3.525072720309123*^9, 
   3.525073282381331*^9, 3.525081049949685*^9, 3.525083109195223*^9, 
   3.525187153650587*^9, 3.525240264817245*^9, 3.5252439185804234`*^9, 
   3.525397555191122*^9, 3.525398690668215*^9, 3.525493480022399*^9, 
   3.5256608840262737`*^9, 3.525661926117242*^9, 3.525662994807805*^9, 
   3.525673300248868*^9, 3.5460002055956993`*^9, 3.546002085565033*^9, 
   3.546021370661153*^9, 3.546057629421855*^9, 3.54606460016262*^9, 
   3.546091142753563*^9, 3.54632562090454*^9, 3.5482475024434013`*^9, 
   3.548404560752685*^9, 3.548481258953865*^9, 3.548511439208148*^9, 
   3.5485258170474043`*^9, 3.548567883707465*^9, 3.548571063707383*^9, 
   3.548575018347266*^9, 3.548591600632639*^9, 3.548662106526288*^9, 
   3.548700128049358*^9, 3.548756263296362*^9, 3.548911252695657*^9, 
   3.548930619053494*^9, 3.548960805174008*^9, 3.5490021882163363`*^9, 
   3.549020876429356*^9, 3.54904354851126*^9, 3.549047036033012*^9, 
   3.5490862845588923`*^9, 3.549096281960259*^9, 3.549260314582631*^9, 
   3.549272936682096*^9, 3.549305080603904*^9, 3.549305296898932*^9, 
   3.549305807327208*^9, 3.549358890754135*^9, 3.549433154704339*^9, 
   3.5494623208733187`*^9, 3.549540254189644*^9, 3.550921592770255*^9, 
   3.550990724954687*^9, 3.550996433100154*^9, 3.550996600485333*^9, 
   3.5553472463178263`*^9, 3.557392112089891*^9, 3.557403157641005*^9, 
   3.557466476164137*^9, 3.557579391752398*^9, 3.557635981254397*^9, 
   3.558441147499772*^9, 3.558549893030116*^9, 3.560007749040203*^9, 
   3.560044420498661*^9, 3.560185507595352*^9, 3.56018629375639*^9, 
   3.560186368825088*^9, 3.560186517537261*^9, 3.560222887842243*^9, 
   3.560256431393833*^9, 3.5602689368728237`*^9, 3.5602699381393547`*^9, 
   3.560271423506174*^9, 3.560516264158223*^9, 3.560521607490261*^9, 
   3.560534295215197*^9, 3.560535156230961*^9, 3.560842324348104*^9, 
   3.560844444917951*^9, 3.5611768157522163`*^9, 3.5612108564622173`*^9, 
   3.561269181607759*^9, 3.561275607882401*^9, 3.561276949500736*^9, 
   3.561302860013298*^9, 3.5613053767214193`*^9, 3.561308565919492*^9, 
   3.561308796442802*^9, {3.561360320920684*^9, 3.561360077587858*^9}, 
   3.72811502929635*^9, 3.7312348817002373`*^9},
 CellLabel->
  "Out[353]=",ExpressionUUID->"53297989-b7cc-47c7-a378-2a192a6a8f31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChangeCurvature", "[", 
   RowBox[{"%", ",", "CDg", ",", "CDTildeg"}], "]"}], "//", 
  "NoScalar"}]], "Input",
 CellChangeTimes->{{3.524981743099663*^9, 3.524981762957514*^9}, {
  3.5460002237271*^9, 3.546000225836809*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"5cca4059-b9c1-4f20-be2d-0697a6e8d4ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Delta]", "\[CurlyEpsilon]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Zeta]", "\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[Eta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Eta]", " ", " "},
                 {" ", "\[Delta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Eta], \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Delta]", "\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Delta], -$CellContext`\[Eta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Eta]", " ", " "},
                 {" ", "\[Zeta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Eta], \
-$CellContext`\[Zeta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], "-", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "~"], "\[Delta]"], GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Zeta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDTildeg[-$CellContext`\[Delta]][
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[CurlyEpsilon]]],
         Editable->False], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "~"], "\[Zeta]"], GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Delta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDTildeg[-$CellContext`\[Zeta]][
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]]],
         Editable->False]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.52498176371681*^9, 3.5249819854358683`*^9, 3.524997276354517*^9, 
   3.525070668668612*^9, 3.525070813483923*^9, 3.5250727203918*^9, 
   3.525073283044291*^9, 3.52508105053092*^9, 3.525083109767161*^9, 
   3.525187153683475*^9, 3.5252402648552427`*^9, 3.52524391861945*^9, 
   3.5253975552267313`*^9, 3.525398690702291*^9, 3.525493480076829*^9, 
   3.525660884069558*^9, 3.525661926162674*^9, 3.525662994845323*^9, 
   3.525673300437592*^9, {3.546000206184024*^9, 3.546000226617174*^9}, 
   3.5460020933552027`*^9, 3.546021370738903*^9, 3.546057629501543*^9, 
   3.546064600203738*^9, 3.5460911428224173`*^9, 3.546325620991835*^9, 
   3.54824750254353*^9, 3.548404560805688*^9, 3.5484812589946947`*^9, 
   3.548511439242988*^9, 3.548525817088087*^9, 3.548567883767005*^9, 
   3.548571063740138*^9, 3.54857501838349*^9, 3.548591600680491*^9, 
   3.54866210658053*^9, 3.548700128097858*^9, 3.548756263356052*^9, 
   3.5489112527328253`*^9, 3.548930619114224*^9, 3.548960805218137*^9, 
   3.549002188252174*^9, 3.549020876480085*^9, 3.549043548551916*^9, 
   3.549047036084777*^9, 3.549086284602459*^9, 3.549096281994965*^9, 
   3.549260314639451*^9, 3.5492729367079573`*^9, 3.549305080648282*^9, 
   3.5493052969542713`*^9, 3.549305807378601*^9, 3.549358890815782*^9, 
   3.549433154749613*^9, 3.549462320916492*^9, 3.549540254239257*^9, 
   3.5509215928223753`*^9, 3.5509907250162888`*^9, 3.550996433149247*^9, 
   3.55099660054421*^9, 3.555347246366047*^9, 3.5573921121492577`*^9, 
   3.5574031576906643`*^9, 3.5574664762128487`*^9, 3.5575793917971087`*^9, 
   3.5576359813042383`*^9, 3.558441147546646*^9, 3.5585498930752993`*^9, 
   3.560007749096361*^9, 3.560044420547743*^9, 3.560185507638297*^9, 
   3.560186293807123*^9, 3.560186368865493*^9, 3.5601865175792513`*^9, 
   3.560222887905054*^9, 3.560256431444128*^9, 3.560268936920454*^9, 
   3.560269938181789*^9, 3.5602714235452957`*^9, 3.560516264212006*^9, 
   3.5605216075486*^9, 3.5605342952568808`*^9, 3.5605351562657547`*^9, 
   3.560842324392126*^9, 3.5608444449617653`*^9, 3.561176815796143*^9, 
   3.56121085651618*^9, 3.5612691816747913`*^9, 3.561275607936392*^9, 
   3.561276949552443*^9, 3.561302860052784*^9, 3.5613053767730417`*^9, 
   3.5613085659814863`*^9, 3.561308796499192*^9, {3.56136032097197*^9, 
   3.561360077618161*^9}, 3.7281150293286877`*^9, 3.731234881730933*^9},
 CellLabel->
  "Out[354]=",ExpressionUUID->"b322446c-ad78-4423-80b4-b8287ec95a02"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChangeCovD", "[", 
  RowBox[{"%", ",", "CDTildeg", ",", "CDg"}], "]"}]], "Input",
 CellChangeTimes->{{3.5249814885671263`*^9, 3.524981508950987*^9}, {
  3.52498194399242*^9, 3.52498195117098*^9}},
 CellLabel->
  "In[355]:=",ExpressionUUID->"7a9fff85-4354-4ee1-9c9e-e810c815080b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Delta]", "\[CurlyEpsilon]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Zeta]", "\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[Eta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Eta]", " ", " "},
                 {" ", "\[Delta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Eta], \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Delta]", "\[Eta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Delta], -$CellContext`\[Eta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Eta]", " ", " "},
                 {" ", "\[Zeta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Eta], \
-$CellContext`\[Zeta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Zeta]", "\[Theta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[Theta]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Theta]", " ", " "},
                 {" ", "\[Delta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Theta], \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Iota]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Iota], -$CellContext`\[CurlyEpsilon]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Iota]", " ", " "},
                 {" ", "\[Zeta]", "\[Delta]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Iota], \
-$CellContext`\[Zeta], -$CellContext`\[Delta]],
          Editable->False]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Delta]", "\[Kappa]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Delta], -$CellContext`\[Kappa]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Kappa]", " ", " "},
                 {" ", "\[Zeta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Kappa], \
-$CellContext`\[Zeta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Zeta]", "\[Lambda]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[Lambda]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Lambda]", " ", " "},
                 {" ", "\[Delta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Lambda], \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], "-", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Zeta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[-$CellContext`\[Delta]][
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[CurlyEpsilon]]],
         Editable->False], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "\[Zeta]"], GridBox[{
             {
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Del]", ",", 
                OverscriptBox["\[Del]", "~"]}], "]"}], 
              StyleBox[GridBox[{
                 {"\[Zeta]", " ", " "},
                 {" ", "\[Delta]", "\[CurlyEpsilon]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CDg[-$CellContext`\[Zeta]][
          $CellContext`ChristoffelCDgCDTildeg[$CellContext`\[Zeta], \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]]],
         Editable->False]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.524981952277297*^9, 3.5249819881830177`*^9, 3.524997276537059*^9, 
   3.525070669271295*^9, 3.5250708135298986`*^9, 3.525072720471686*^9, 
   3.5250732836946373`*^9, 3.525081051133609*^9, 3.525083110361026*^9, 
   3.525187153789257*^9, 3.525240264903274*^9, 3.525243918675078*^9, 
   3.525397555264244*^9, 3.525398690746887*^9, 3.5254934801328917`*^9, 
   3.525660884135037*^9, 3.525661926193871*^9, 3.5256629948797283`*^9, 
   3.5256733005499973`*^9, {3.5460002068379717`*^9, 3.546000235044196*^9}, 
   3.546002095257802*^9, 3.546021370822154*^9, 3.546057629597084*^9, 
   3.546064600284936*^9, 3.546091142949008*^9, 3.546325621093788*^9, 
   3.5482475026498327`*^9, 3.548404560898031*^9, 3.548481259044084*^9, 
   3.548511439285864*^9, 3.54852581713356*^9, 3.5485678838343277`*^9, 
   3.548571063774619*^9, 3.54857501843894*^9, 3.548591600749016*^9, 
   3.5486621066517553`*^9, 3.54870012814883*^9, 3.5487562634433193`*^9, 
   3.548911252784627*^9, 3.548930619175391*^9, 3.548960805255962*^9, 
   3.549002188299612*^9, 3.54902087653365*^9, 3.5490435486025143`*^9, 
   3.549047036143537*^9, 3.5490862846573277`*^9, 3.549096282038322*^9, 
   3.549260314701129*^9, 3.549272936736761*^9, 3.549305080693555*^9, 
   3.549305296999866*^9, 3.54930580741649*^9, 3.549358890904858*^9, 
   3.549433154800934*^9, 3.5494623209580803`*^9, 3.5495402543194113`*^9, 
   3.550921592871421*^9, 3.550990725085388*^9, 3.550996433202364*^9, 
   3.5509966006160717`*^9, 3.555347246426517*^9, 3.5573921122128363`*^9, 
   3.55740315774332*^9, 3.557466476254428*^9, 3.557579391876256*^9, 
   3.5576359813403177`*^9, 3.558441147597561*^9, 3.5585498931184797`*^9, 
   3.560007749162408*^9, 3.5600444206010313`*^9, 3.560185507685841*^9, 
   3.560186293861511*^9, 3.5601863689238987`*^9, 3.560186517633553*^9, 
   3.5602228879751453`*^9, 3.560256431510182*^9, 3.560268936972187*^9, 
   3.560269938222039*^9, 3.560271423593667*^9, 3.560516264265979*^9, 
   3.560521607609828*^9, 3.560534295303104*^9, 3.560535156297515*^9, 
   3.560842324452368*^9, 3.5608444450273314`*^9, 3.561176815859988*^9, 
   3.561210856573638*^9, 3.561269181742358*^9, 3.56127560799228*^9, 
   3.56127694960732*^9, 3.5613028601054296`*^9, 3.561305376829541*^9, 
   3.5613085660409117`*^9, 3.561308796558217*^9, {3.561360321051835*^9, 
   3.561360077663162*^9}, 3.7281150293732843`*^9, 3.731234881764412*^9},
 CellLabel->
  "Out[355]=",ExpressionUUID->"58b114eb-c252-41b6-a2e2-32147cf195c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgCDTildegS"}]}]], "Input",
 CellChangeTimes->{{3.524981854666711*^9, 3.524981859196369*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"821dbbef-eff8-4914-a280-e5b13bd6205b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Delta]", "\[CurlyEpsilon]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Eta]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Nu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Eta], -$CellContext`\[Nu]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Eta]", " ", "\[Mu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Eta], $CellContext`\[Zeta], -$CellContext`\[Mu]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Mu]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Mu]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Nu]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Nu]][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Delta]", "\[Eta]", " ", "\[Xi]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Eta], $CellContext`\[Zeta], -$CellContext`\[Xi]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Eta]", " "},
                  {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Omicron]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Eta], -$CellContext`\[Omicron]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Xi]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Xi]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Omicron]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Omicron]][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Theta]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]1"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Theta], -$CellContext`\[Rho]1],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Theta]", " ", "\[Rho]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Theta], $CellContext`\[Zeta], -$CellContext`\[Rho]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]1"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]1][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Iota]", " "},
                  {"\[Zeta]", "\[Delta]", " ", "\[Rho]3"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Delta], $CellContext`\[Iota], -$CellContext`\[Rho]3],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Iota]", "\[CurlyEpsilon]", " ", "\[Rho]2"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Iota], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]2],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]2"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]2][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]3"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]3][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Delta]", "\[Kappa]", " ", "\[Rho]4"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Kappa], $CellContext`\[Zeta], -$CellContext`\[Rho]4],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Kappa]", " "},
                  {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]5"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Kappa], -$CellContext`\[Rho]5],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]4"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]4][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]5"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]5][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Lambda]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]7"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Lambda], -$CellContext`\[Rho]7],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Lambda]", " ", "\[Rho]6"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Lambda], $CellContext`\[Zeta], -$CellContext`\[Rho]6],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]6"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]6][
            $CellContext`\[CapitalTheta][]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]7"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]7][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox["\[Del]", "\[Delta]"], GridBox[{
               {"S", 
                StyleBox[GridBox[{
                   {" ", " ", "\[Zeta]", " "},
                   {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]8"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}]}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[-$CellContext`\[Delta]][
            $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]8]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]8"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]8][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Zeta]", " "},
                 {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]8"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]8],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox["\[Del]", "\[Delta]"], 
               SuperscriptBox["\[Del]", "\[Rho]8"], "\[CapitalTheta]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`CDg[-$CellContext`\[Delta]][
              $CellContext`CDg[$CellContext`\[Rho]8][
               $CellContext`\[CapitalTheta][]]],
             Editable->False], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]], "-", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox["\[Del]", "\[Delta]"], "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`CDg[-$CellContext`\[Delta]][
               $CellContext`\[CapitalTheta][]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SuperscriptBox["\[Del]", "\[Rho]8"], "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`CDg[$CellContext`\[Rho]8][
               $CellContext`\[CapitalTheta][]],
              Editable->False]}], 
            SuperscriptBox[
             InterpretationBox[
              StyleBox["\[CapitalTheta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[CapitalTheta][],
              Editable->False], "2"]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[
            RowBox[{
             SubscriptBox["\[Del]", "\[Zeta]"], GridBox[{
               {"S", 
                StyleBox[GridBox[{
                   {" ", " ", "\[Zeta]", " "},
                   {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]9"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{Center}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}]}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[-$CellContext`\[Zeta]][
            $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]9]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox["\[Del]", "\[Rho]9"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`CDg[$CellContext`\[Rho]9][
            $CellContext`\[CapitalTheta][]],
           Editable->False]}], 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Zeta]", " "},
                 {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]9"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]9],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox["\[Del]", "\[Zeta]"], 
               SuperscriptBox["\[Del]", "\[Rho]9"], "\[CapitalTheta]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`CDg[-$CellContext`\[Zeta]][
              $CellContext`CDg[$CellContext`\[Rho]9][
               $CellContext`\[CapitalTheta][]]],
             Editable->False], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]], "-", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox["\[Del]", "\[Zeta]"], "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`CDg[-$CellContext`\[Zeta]][
               $CellContext`\[CapitalTheta][]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SuperscriptBox["\[Del]", "\[Rho]9"], "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`CDg[$CellContext`\[Rho]9][
               $CellContext`\[CapitalTheta][]],
              Editable->False]}], 
            SuperscriptBox[
             InterpretationBox[
              StyleBox["\[CapitalTheta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[CapitalTheta][],
              Editable->False], "2"]]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.52498186037002*^9, 3.524981994256442*^9, 3.524997276636115*^9, 
   3.5250706699024067`*^9, 3.525070813603283*^9, 3.525072720593316*^9, 
   3.5250732843847303`*^9, 3.525081051729138*^9, 3.525083110963694*^9, 
   3.525187153899891*^9, 3.525240264983075*^9, 3.525243918759954*^9, 
   3.525397555341445*^9, 3.5253986908229837`*^9, 3.525493480217589*^9, 
   3.525660884216275*^9, 3.5256619262654753`*^9, 3.525662994955331*^9, 
   3.5256733006435537`*^9, 3.546000239348179*^9, 3.546002100763906*^9, 
   3.546021370910419*^9, 3.546057629703919*^9, 3.5460646003910437`*^9, 
   3.546091143063994*^9, 3.5463256212085037`*^9, 3.548247502740841*^9, 
   3.548404560986925*^9, 3.548481259128357*^9, 3.548511439362665*^9, 
   3.548525817210287*^9, 3.5485678839265327`*^9, 3.548571063845332*^9, 
   3.548575018500189*^9, 3.5485916008425827`*^9, 3.54866210676845*^9, 
   3.548700128251339*^9, 3.548756263548345*^9, 3.548911252858221*^9, 
   3.548930619266618*^9, 3.5489608053276176`*^9, 3.54900218836613*^9, 
   3.5490208766351633`*^9, 3.549043548677726*^9, 3.549047036216208*^9, 
   3.5490862847384977`*^9, 3.549096282116115*^9, 3.5492603147653112`*^9, 
   3.549272936826961*^9, 3.5493050807676067`*^9, 3.549305297068162*^9, 
   3.549305807466441*^9, 3.5493588910198193`*^9, 3.5494331548766117`*^9, 
   3.549462321043919*^9, 3.549540254404221*^9, 3.5509215929648523`*^9, 
   3.5509907251986856`*^9, 3.5509964333560343`*^9, 3.550996600720298*^9, 
   3.555347246522884*^9, 3.557392112314228*^9, 3.55740315781601*^9, 
   3.557466476304966*^9, 3.5575793919602633`*^9, 3.557635981403694*^9, 
   3.558441147685235*^9, 3.558549893194057*^9, 3.560007749269484*^9, 
   3.5600444206931877`*^9, 3.5601855077701283`*^9, 3.560186293952855*^9, 
   3.5601863690105267`*^9, 3.5601865177702303`*^9, 3.560222888085712*^9, 
   3.560256431617103*^9, 3.56026893706021*^9, 3.560269938305629*^9, 
   3.560271423678495*^9, 3.560516264353293*^9, 3.560521607707589*^9, 
   3.560534295370284*^9, 3.560535156360683*^9, 3.560842324553185*^9, 
   3.560844445119544*^9, 3.56117681596622*^9, 3.5612108567393827`*^9, 
   3.5612691818554993`*^9, 3.5612756081540527`*^9, 3.5612769496974573`*^9, 
   3.561302860210343*^9, 3.561305376940502*^9, 3.561308566118496*^9, 
   3.5613087966605797`*^9, {3.561360321176206*^9, 3.561360077759531*^9}, 
   3.728115029426095*^9, 3.731234881812427*^9},
 CellLabel->
  "Out[356]=",ExpressionUUID->"7514e71f-e449-4674-a10f-93ab4d13f3a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChangeCovD", "[", 
  RowBox[{"%", ",", "CDg", ",", "WeylCD"}], "]"}]], "Input",
 CellChangeTimes->{{3.5249814885671263`*^9, 3.524981508950987*^9}, {
  3.52498194399242*^9, 3.52498195117098*^9}, {3.5249820223151207`*^9, 
  3.524982027889226*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"b10de15f-6da6-4007-9906-3303b1dc6027"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Delta]", "\[CurlyEpsilon]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Eta]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Nu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Eta], -$CellContext`\[Nu]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Eta]", " ", "\[Mu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Eta], $CellContext`\[Zeta], -$CellContext`\[Mu]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Mu]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Mu]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Nu]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Nu]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Delta]", "\[Eta]", " ", "\[Xi]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Eta], $CellContext`\[Zeta], -$CellContext`\[Xi]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Eta]", " "},
                  {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Omicron]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Eta], -$CellContext`\[Omicron]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Xi]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Xi]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Omicron]"], 
              "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Omicron]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Theta]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]1"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Theta], -$CellContext`\[Rho]1],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Theta]", " ", "\[Rho]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Theta], $CellContext`\[Zeta], -$CellContext`\[Rho]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]1"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]1][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Iota]", " "},
                  {"\[Zeta]", "\[Delta]", " ", "\[Rho]3"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Delta], $CellContext`\[Iota], -$CellContext`\[Rho]3],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Iota]", "\[CurlyEpsilon]", " ", "\[Rho]2"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Iota], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]2],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]2"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]2][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]3"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]3][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Delta]", "\[Kappa]", " ", "\[Rho]4"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Kappa], $CellContext`\[Zeta], -$CellContext`\[Rho]4],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Kappa]", " "},
                  {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]5"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Kappa], -$CellContext`\[Rho]5],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]4"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]4][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]5"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]5][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Lambda]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]7"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Lambda], -$CellContext`\[Rho]7],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Lambda]", " ", "\[Rho]6"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Lambda], $CellContext`\[Zeta], -$CellContext`\[Rho]6],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]6"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]6][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]7"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]7][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {
                   RowBox[{"\[CapitalGamma]", "[", 
                    RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                   StyleBox[GridBox[{
                    {"\[Rho]11", " ", " "},
                    {" ", "\[Delta]", "\[Rho]8"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]11, \
-$CellContext`\[Delta], -$CellContext`\[Rho]8],
               Editable->False]}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]11"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]11],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {
                  RowBox[{"\[CapitalGamma]", "[", 
                   RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                  StyleBox[GridBox[{
                    {"\[Rho]10", " ", " "},
                    {" ", "\[Delta]", "\[CurlyEpsilon]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]10, \
-$CellContext`\[Delta], -$CellContext`\[CurlyEpsilon]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Zeta]", "\[Rho]10", " ", "\[Rho]8"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]10, $CellContext`\[Zeta], -$CellContext`\[Rho]8],
              Editable->False]}], "+", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]8"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[Delta]][
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]8]],
             Editable->False]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]8"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]8][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Zeta]", " "},
                 {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]8"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]8],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Delta]"], 
                SuperscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Rho]8"], "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`WeylCD[-$CellContext`\[Delta]][
               $CellContext`WeylCD[$CellContext`\[Rho]8][
                $CellContext`\[CapitalTheta][]]],
              Editable->False], "+", 
             RowBox[{
              InterpretationBox[
               StyleBox[GridBox[{
                  {
                   RowBox[{"\[CapitalGamma]", "[", 
                    RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                   StyleBox[GridBox[{
                    {"\[Rho]8", " ", " "},
                    {" ", "\[Delta]", "\[Rho]12"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]8, \
-$CellContext`\[Delta], -$CellContext`\[Rho]12],
               Editable->False], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]12"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]12][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}]}], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]], "-", 
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  OverscriptBox["\[Del]", "^"], "\[Delta]"], 
                 "\[CapitalTheta]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`WeylCD[-$CellContext`\[Delta]][
                $CellContext`\[CapitalTheta][]],
               Editable->False], ")"}], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SuperscriptBox[
                  OverscriptBox["\[Del]", "^"], "\[Rho]8"], 
                 "\[CapitalTheta]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`WeylCD[$CellContext`\[Rho]8][
                $CellContext`\[CapitalTheta][]],
               Editable->False], ")"}]}], 
            SuperscriptBox[
             InterpretationBox[
              StyleBox["\[CapitalTheta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[CapitalTheta][],
              Editable->False], "2"]]}], ")"}]}], "+", 
        RowBox[{
         FractionBox["1", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {
                   RowBox[{"\[CapitalGamma]", "[", 
                    RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                   StyleBox[GridBox[{
                    {"\[Rho]16", " ", " "},
                    {" ", "\[Zeta]", "\[Rho]9"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]16, \
-$CellContext`\[Zeta], -$CellContext`\[Rho]9],
               Editable->False]}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]16"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]16],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {
                  RowBox[{"\[CapitalGamma]", "[", 
                   RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                  StyleBox[GridBox[{
                    {"\[Zeta]", " ", " "},
                    {" ", "\[Zeta]", "\[Rho]15"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Zeta], \
-$CellContext`\[Zeta], -$CellContext`\[Rho]15],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]15", " "},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]9"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Rho]15, -$CellContext`\[Rho]9],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {
                  RowBox[{"\[CapitalGamma]", "[", 
                   RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                  StyleBox[GridBox[{
                    {"\[Rho]14", " ", " "},
                    {" ", "\[Zeta]", "\[CurlyEpsilon]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]14, \
-$CellContext`\[Zeta], -$CellContext`\[CurlyEpsilon]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Delta]", "\[Rho]14", " ", "\[Rho]9"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Rho]14, $CellContext`\[Zeta], -$CellContext`\[Rho]9],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {
                  RowBox[{"\[CapitalGamma]", "[", 
                   RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                  StyleBox[GridBox[{
                    {"\[Rho]13", " ", " "},
                    {" ", "\[Zeta]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]13, \
-$CellContext`\[Zeta], -$CellContext`\[Delta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Rho]13", "\[CurlyEpsilon]", " ", "\[Rho]9"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Rho]13, -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]9],
              Editable->False]}], "+", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[Zeta]"], GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]9"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[Zeta]][
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]9]],
             Editable->False]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]9"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]9][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Zeta]", " "},
                 {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]9"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]9],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Zeta]"], 
                SuperscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Rho]9"], "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`WeylCD[-$CellContext`\[Zeta]][
               $CellContext`WeylCD[$CellContext`\[Rho]9][
                $CellContext`\[CapitalTheta][]]],
              Editable->False], "+", 
             RowBox[{
              InterpretationBox[
               StyleBox[GridBox[{
                  {
                   RowBox[{"\[CapitalGamma]", "[", 
                    RowBox[{"\[Del]", ",", 
                    OverscriptBox["\[Del]", "^"]}], "]"}], 
                   StyleBox[GridBox[{
                    {"\[Rho]9", " ", " "},
                    {" ", "\[Zeta]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`ChristoffelCDgWeylCD[$CellContext`\[Rho]9, \
-$CellContext`\[Zeta], -$CellContext`\[Rho]17],
               Editable->False], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]17"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]17][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}]}], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]], "-", 
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  OverscriptBox["\[Del]", "^"], "\[Zeta]"], 
                 "\[CapitalTheta]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`WeylCD[-$CellContext`\[Zeta]][
                $CellContext`\[CapitalTheta][]],
               Editable->False], ")"}], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SuperscriptBox[
                  OverscriptBox["\[Del]", "^"], "\[Rho]9"], 
                 "\[CapitalTheta]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`WeylCD[$CellContext`\[Rho]9][
                $CellContext`\[CapitalTheta][]],
               Editable->False], ")"}]}], 
            SuperscriptBox[
             InterpretationBox[
              StyleBox["\[CapitalTheta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[CapitalTheta][],
              Editable->False], "2"]]}], ")"}]}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.524982029007938*^9, 3.524997276836616*^9, 3.525070670558523*^9, 
   3.525070813665085*^9, 3.525072720697863*^9, 3.5250732849991217`*^9, 
   3.5250810523218107`*^9, 3.5250831115529327`*^9, 3.525187153979142*^9, 
   3.525240265076006*^9, 3.5252439188179893`*^9, 3.525397555427524*^9, 
   3.525398690906291*^9, 3.525493480328165*^9, 3.5256608843269873`*^9, 
   3.5256619263509407`*^9, 3.5256629950358458`*^9, 3.525673300804469*^9, 
   3.546000245527169*^9, 3.546002105710003*^9, 3.546021371040648*^9, 
   3.546057629857513*^9, 3.546064600601748*^9, 3.5460911432276983`*^9, 
   3.5463256213304243`*^9, 3.548247502941711*^9, 3.548404561099004*^9, 
   3.548481259237362*^9, 3.548511439501368*^9, 3.5485258172815237`*^9, 
   3.54856788407096*^9, 3.5485710639172573`*^9, 3.548575018595622*^9, 
   3.548591600955612*^9, 3.548662106882691*^9, 3.548700128334366*^9, 
   3.548756263670546*^9, 3.548911252947198*^9, 3.548930619366374*^9, 
   3.5489608054558*^9, 3.549002188441101*^9, 3.549020876754479*^9, 
   3.5490435487642*^9, 3.549047036279409*^9, 3.549086284822789*^9, 
   3.549096282240587*^9, 3.5492603148732643`*^9, 3.5492729369460087`*^9, 
   3.549305080857205*^9, 3.549305297143017*^9, 3.5493058075419407`*^9, 
   3.549358891199584*^9, 3.5494331549964437`*^9, 3.549462321136587*^9, 
   3.5495402545080147`*^9, 3.550921593075856*^9, 3.55099072531446*^9, 
   3.550996433472022*^9, 3.550996600840904*^9, 3.555347246679617*^9, 
   3.557392112438031*^9, 3.55740315790231*^9, 3.557466476421132*^9, 
   3.557579392114848*^9, 3.557635981488596*^9, 3.558441147794283*^9, 
   3.558549893284108*^9, 3.560007749407827*^9, 3.560044420805025*^9, 
   3.560185507875852*^9, 3.560186294064333*^9, 3.56018636911982*^9, 
   3.5601865178814373`*^9, 3.560222888209053*^9, 3.560256431756363*^9, 
   3.56026893716886*^9, 3.560269938408746*^9, 3.5602714237837467`*^9, 
   3.5605162645592823`*^9, 3.560521607862445*^9, 3.5605342954507236`*^9, 
   3.5605351564343653`*^9, 3.560842324686207*^9, 3.560844445229086*^9, 
   3.561176816109756*^9, 3.561210856866062*^9, 3.561269182016007*^9, 
   3.5612756083013487`*^9, 3.561276949809945*^9, 3.561302860325283*^9, 
   3.561305377054162*^9, 3.561308566246804*^9, 3.5613087968203297`*^9, {
   3.561360321301539*^9, 3.561360077873304*^9}, 3.728115029490781*^9, 
   3.731234881869844*^9},
 CellLabel->
  "Out[357]=",ExpressionUUID->"e5aead72-39a3-4b3e-aeab-0e299fddfcc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandChristoffelCDgWeylCD"}]}]], "Input",
 CellChangeTimes->{{3.524981577885446*^9, 3.5249815817192097`*^9}},
 CellLabel->
  "In[358]:=",ExpressionUUID->"cae0abfd-aba3-4acd-bbdf-8bbdc3fbc2e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Delta]", "\[CurlyEpsilon]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Eta]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Nu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Eta], -$CellContext`\[Nu]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Eta]", " ", "\[Mu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Eta], $CellContext`\[Zeta], -$CellContext`\[Mu]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Mu]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Mu]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Nu]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Nu]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Delta]", "\[Eta]", " ", "\[Xi]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Eta], $CellContext`\[Zeta], -$CellContext`\[Xi]],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Eta]", " "},
                  {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Omicron]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Eta], -$CellContext`\[Omicron]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Xi]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Xi]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Omicron]"], 
              "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Omicron]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Theta]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]1"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Theta], -$CellContext`\[Rho]1],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Theta]", " ", "\[Rho]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Theta], $CellContext`\[Zeta], -$CellContext`\[Rho]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]1"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]1][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Iota]", " "},
                  {"\[Zeta]", "\[Delta]", " ", "\[Rho]11"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Delta], $CellContext`\[Iota], -$CellContext`\[Rho]11],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Iota]", "\[CurlyEpsilon]", " ", "\[Rho]10"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Iota], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]10],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]10"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]10][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]11"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]11][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Delta]", "\[Kappa]", " ", "\[Rho]12"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Kappa], $CellContext`\[Zeta], -$CellContext`\[Rho]12],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Kappa]", " "},
                  {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]13"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Kappa], -$CellContext`\[Rho]13],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]12"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]12][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]13"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]13][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Lambda]", " "},
                  {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]15"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Lambda], -$CellContext`\[Rho]15],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"S", 
               StyleBox[GridBox[{
                  {" ", " ", "\[Zeta]", " "},
                  {"\[Zeta]", "\[Lambda]", " ", "\[Rho]14"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Lambda], $CellContext`\[Zeta], -$CellContext`\[Rho]14],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]14"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]14][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]15"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]15][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]3", "\[Rho]18"},
                    {"\[Delta]", "\[Rho]16", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Rho]16, $CellContext`\[Rho]3, $CellContext`\[Rho]18],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]3"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]3],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]18"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]18],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]2", "\[Rho]19"},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Rho]2, $CellContext`\[Rho]19],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Zeta]", "\[Rho]2", " ", "\[Rho]16"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]2, $CellContext`\[Zeta], -$CellContext`\[Rho]16],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]19"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]19],
              Editable->False]}], "+", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]16"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[Delta]][
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]16]],
             Editable->False]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]16"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]16][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]], "+", 
        RowBox[{
         FractionBox["1", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]8"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]8],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]8", "\[Rho]20"},
                    {"\[Zeta]", "\[Rho]17", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]17, $CellContext`\[Rho]8, $CellContext`\[Rho]20],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]20"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]20],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]7", " "},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Rho]7, -$CellContext`\[Rho]17],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", "\[Rho]21"},
                    {"\[Zeta]", "\[Rho]7", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]7, $CellContext`\[Zeta], $CellContext`\[Rho]21],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]21"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]21],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Delta]", "\[Rho]6", " ", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[Rho]6, $CellContext`\[Zeta], -$CellContext`\[Rho]17],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]6", "\[Rho]22"},
                    {"\[Zeta]", "\[CurlyEpsilon]", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Rho]6, $CellContext`\[Rho]22],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]22"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]22],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Rho]5", "\[Rho]23"},
                    {"\[Zeta]", "\[Delta]", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Delta], $CellContext`\[Rho]5, $CellContext`\[Rho]23],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Rho]5", "\[CurlyEpsilon]", " ", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`SUnphysical[-$CellContext`\[Rho]5, -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]17],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]23"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]23],
              Editable->False]}], "+", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[Zeta]"], GridBox[{
                 {"S", 
                  StyleBox[GridBox[{
                    {" ", " ", "\[Zeta]", " "},
                    {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[Zeta]][
              $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]17]],
             Editable->False]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]17"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]17][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}]}], "-", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Zeta]", " "},
                 {"\[Zeta]", "\[CurlyEpsilon]", " ", "\[Rho]16"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]16],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Delta]"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[-$CellContext`\[Delta]][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]16"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]16][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["\[CapitalTheta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[CapitalTheta][],
               Editable->False], "2"]]}], "+", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Delta]"], 
                SuperscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Rho]16"], 
                "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`WeylCD[-$CellContext`\[Delta]][
               $CellContext`WeylCD[$CellContext`\[Rho]16][
                $CellContext`\[CapitalTheta][]]],
              Editable->False], "-", 
             RowBox[{
              InterpretationBox[
               StyleBox[GridBox[{
                  {"S", 
                   StyleBox[GridBox[{
                    {" ", " ", "\[Rho]16", "\[Rho]24"},
                    {"\[Delta]", "\[Rho]4", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`SUnphysical[-$CellContext`\[Delta], \
-$CellContext`\[Rho]4, $CellContext`\[Rho]16, $CellContext`\[Rho]24],
               Editable->False], " ", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[ScriptF]", 
                   StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]24"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptF][-$CellContext`\[Rho]24],
               Editable->False], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]4"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]4][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}]}], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]]}], ")"}]}], "+", 
        RowBox[{
         InterpretationBox[
          StyleBox[GridBox[{
             {"S", 
              StyleBox[GridBox[{
                 {" ", " ", "\[Zeta]", " "},
                 {"\[Delta]", "\[CurlyEpsilon]", " ", "\[Rho]17"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`SUnphysical[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon], $CellContext`\[Zeta], -$CellContext`\[Rho]17],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Zeta]"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[-$CellContext`\[Zeta]][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]17"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]17][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["\[CapitalTheta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[CapitalTheta][],
               Editable->False], "2"]]}], "+", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Zeta]"], 
                SuperscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Rho]17"], 
                "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`WeylCD[-$CellContext`\[Zeta]][
               $CellContext`WeylCD[$CellContext`\[Rho]17][
                $CellContext`\[CapitalTheta][]]],
              Editable->False], "-", 
             RowBox[{
              InterpretationBox[
               StyleBox[GridBox[{
                  {"S", 
                   StyleBox[GridBox[{
                    {" ", " ", "\[Rho]17", "\[Rho]25"},
                    {"\[Zeta]", "\[Rho]9", " ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`SUnphysical[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]9, $CellContext`\[Rho]17, $CellContext`\[Rho]25],
               Editable->False], " ", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[ScriptF]", 
                   StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]25"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptF][-$CellContext`\[Rho]25],
               Editable->False], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]9"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]9][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}]}], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.524981582352669*^9, 3.524981977567045*^9, 3.5249820570010357`*^9, 
   3.5249972771126337`*^9, 3.525070671240291*^9, 3.5250708137505627`*^9, 
   3.5250727208702297`*^9, 3.5250732857072477`*^9, 3.5250810528859663`*^9, 
   3.5250831122297163`*^9, 3.525187154070798*^9, 3.52524026517874*^9, 
   3.525243918912018*^9, 3.5253975555292377`*^9, 3.525398691092905*^9, 
   3.5254934804295063`*^9, 3.5256608844209957`*^9, 3.525661926452074*^9, 
   3.525662995132771*^9, 3.5256733009855633`*^9, 3.546000249926824*^9, 
   3.546002108678348*^9, 3.5460213711794243`*^9, 3.546057630007327*^9, 
   3.546064600778688*^9, 3.5460911434136543`*^9, 3.546325621485971*^9, 
   3.548247503098381*^9, 3.548404561217456*^9, 3.5484812593305883`*^9, 
   3.54851143963944*^9, 3.5485258174387836`*^9, 3.548567884182221*^9, 
   3.548571064000284*^9, 3.548575018665782*^9, 3.548591601123828*^9, 
   3.548662107069949*^9, 3.548700128424821*^9, 3.548756263830703*^9, 
   3.548911253054191*^9, 3.5489306194828787`*^9, 3.548960805559026*^9, 
   3.549002188530569*^9, 3.549020876919628*^9, 3.5490435488698587`*^9, 
   3.5490470364242353`*^9, 3.549086284894088*^9, 3.549096282379303*^9, 
   3.549260314961322*^9, 3.5492729370504847`*^9, 3.549305080958292*^9, 
   3.549305297224934*^9, 3.549305807623807*^9, 3.549358891357881*^9, 
   3.549433155675663*^9, 3.549462321239584*^9, 3.549540254620926*^9, 
   3.550921593178794*^9, 3.550990725518833*^9, 3.5509964335945168`*^9, 
   3.5509966010033484`*^9, 3.5553472468126087`*^9, 3.5573921125532103`*^9, 
   3.557403158019044*^9, 3.557466476512792*^9, 3.557579394332245*^9, 
   3.557635981579279*^9, 3.558441147903634*^9, 3.558549893388143*^9, 
   3.56000774959859*^9, 3.5600444209133244`*^9, 3.5601855079865713`*^9, 
   3.560186294172275*^9, 3.5601863692283373`*^9, 3.560186517990569*^9, 
   3.560222888372554*^9, 3.5602564319440117`*^9, 3.560268937279299*^9, 
   3.5602699385277967`*^9, 3.560271423890799*^9, 3.56051626471699*^9, 
   3.560521607989163*^9, 3.560534295554628*^9, 3.560535156519959*^9, 
   3.560842324858684*^9, 3.560844445339168*^9, 3.561176816262999*^9, 
   3.561210857006357*^9, 3.561269182182342*^9, 3.561275608482731*^9, 
   3.561276949921447*^9, 3.5613028604407053`*^9, 3.5613053771988983`*^9, 
   3.561308566384923*^9, 3.5613087969611273`*^9, {3.561360321472608*^9, 
   3.5613600779839573`*^9}, 3.728115029566299*^9, 3.73123488193626*^9},
 CellLabel->
  "Out[358]=",ExpressionUUID->"20fc7472-2471-4c2c-966e-f2a6d2909557"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "ExpandSUnphysical"}]}]], "Input",
 CellChangeTimes->{{3.524981680427854*^9, 3.5249816844039907`*^9}},
 CellLabel->
  "In[359]:=",ExpressionUUID->"cc27e2aa-104e-4fe5-aa42-d48a229624e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], 
           SuperscriptBox[
            OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`WeylCD[-$CellContext`\[Beta]][
          $CellContext`WeylCD[$CellContext`\[Beta]][
           $CellContext`\[CapitalTheta][]]],
         Editable->False], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {" "},
                 {"\[Gamma]"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][-$CellContext`\[Gamma]],
          Editable->False], " ", 
         RowBox[{"(", 
          InterpretationBox[
           StyleBox[
            RowBox[{
             SuperscriptBox[
              OverscriptBox["\[Del]", "^"], "\[Gamma]"], "\[CapitalTheta]"}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`WeylCD[$CellContext`\[Gamma]][
            $CellContext`\[CapitalTheta][]],
           Editable->False], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "24"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {"\[Delta]", "\[CurlyEpsilon]"},
              {" ", " "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Unphysicalg[$CellContext`\[Delta], $CellContext`\
\[CurlyEpsilon]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {
             RowBox[{"R", "[", 
              OverscriptBox["\[Del]", "~"], "]"}], 
             StyleBox[GridBox[{
                {" ", " "},
                {"\[Delta]", "\[CurlyEpsilon]"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`RicciCDTildeg[-$CellContext`\[Delta], -$CellContext`\
\[CurlyEpsilon]],
         Editable->False], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Eta]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Nu]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Nu]],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Eta]"},
                    {"\[Nu]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Nu], $CellContext`\[Eta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Eta]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\[Eta]],
              
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Nu]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Nu]],
              Editable->False]}]}], ")"}], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Eta]", "\[Mu]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Eta], -$CellContext`\[Mu]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Mu]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Mu]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Nu]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Nu]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[Delta]", 
                   StyleBox[GridBox[{
                    {" ", "\[Eta]"},
                    {"\[Omicron]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               
               xAct`xTensor`delta[-$CellContext`\[Omicron], $CellContext`\
\[Eta]],
               Editable->False]}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Zeta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Eta]"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Zeta], $CellContext`\[Eta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Omicron]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Omicron]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Eta]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Eta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Zeta]", "\[Omicron]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Zeta], -$CellContext`\
\[Omicron]],
              Editable->False]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Eta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Eta], $CellContext`\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Xi]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Xi]],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Xi]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Xi], $CellContext`\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Eta]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Eta], -$CellContext`\
\[Delta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Eta]", "\[Xi]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Eta], -$CellContext`\
\[Xi]],
              Editable->False]}]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Xi]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Xi]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Omicron]"], 
              "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Omicron]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Theta]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Theta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]1"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Rho]1],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Theta]"},
                    {"\[Rho]1", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Rho]1, $CellContext`\[Theta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Theta]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[Delta], \
$CellContext`\[Theta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]1"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]1],
              Editable->False]}]}], ")"}], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Theta]", "\[Rho]"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Theta], -$CellContext`\
\[Rho]],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]1"], "\[CapitalTheta]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]1][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[Delta]", 
                   StyleBox[GridBox[{
                    {" ", "\[Iota]"},
                    {"\[Rho]11", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               
               xAct`xTensor`delta[-$CellContext`\[Rho]11, \
$CellContext`\[Iota]],
               Editable->False]}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Zeta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Iota]"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Zeta], $CellContext`\[Iota]],
              
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]11"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Rho]11],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Iota]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\[Iota]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Zeta]", "\[Rho]11"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]11],
              Editable->False]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[Delta]", 
                   StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]10", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               
               xAct`xTensor`delta[-$CellContext`\[Rho]10, \
$CellContext`\[Zeta]],
               Editable->False]}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Iota]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Iota]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Iota]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Iota], $CellContext`\[Zeta]],
              
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]10"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]10],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Iota]", "\[Rho]10"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Iota], -$CellContext`\
\[Rho]10],
              Editable->False]}]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]10"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]10][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]11"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]11][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[Delta]", 
                   StyleBox[GridBox[{
                    {" ", "\[Kappa]"},
                    {"\[Rho]13", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               
               xAct`xTensor`delta[-$CellContext`\[Rho]13, $CellContext`\
\[Kappa]],
               Editable->False]}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Zeta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Kappa]"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Zeta], $CellContext`\[Kappa]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]13"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]13],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Kappa]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Kappa]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Zeta]", "\[Rho]13"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Zeta], -$CellContext`\
\[Rho]13],
              Editable->False]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Kappa]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Kappa], $CellContext`\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]12"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Rho]12],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]12", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Rho]12, $CellContext`\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Kappa]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Kappa], -$CellContext`\
\[Delta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\[Zeta]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Kappa]", "\[Rho]12"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Kappa], -$CellContext`\
\[Rho]12],
              Editable->False]}]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]12"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]12][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]13"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]13][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Lambda]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Lambda]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]15"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Rho]15],
              Editable->False]}], "-", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Lambda]"},
                    {"\[Rho]15", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[Rho]15, $CellContext`\
\[Lambda]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
              Editable->False]}], "+", 
            RowBox[{
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[Delta]", 
                  StyleBox[GridBox[{
                    {" ", "\[Lambda]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              
              xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Lambda]],
              Editable->False], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]15"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]15],
              Editable->False]}]}], ")"}], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {"g", 
               StyleBox[GridBox[{
                  {" ", " "},
                  {"\[Lambda]", "\[Rho]14"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                FontSize->Rational[39, 4]]}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Center}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Unphysicalg[-$CellContext`\[Lambda], -$CellContext`\
\[Rho]14],
           Editable->False], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]14"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]14][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]15"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]15][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}], 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False], "2"]], "-", 
        RowBox[{
         FractionBox["1", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]19"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]19],
              Editable->False], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]25"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]25],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]19"},
                    {"\[Rho]16", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]16, $CellContext`\
\[Rho]19],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]19"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]19],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]25"},
                    {"\[Rho]16", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]16, $CellContext`\
\[Rho]25],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]16", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Rho]16, \
-$CellContext`\[Delta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]19", "\[Rho]25"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[$CellContext`\[Rho]19, \
$CellContext`\[Rho]25],
                 Editable->False]}]}], ")"}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]25"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]25],
              Editable->False]}], "+", 
            RowBox[{"4", " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]18", "\[Rho]16"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`Unphysicalg[-$CellContext`\[Rho]18, -$CellContext`\
\[Rho]16],
              Editable->False], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]3"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]3],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]18"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]18],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]18"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]18],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]3"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]3],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]18", "\[Rho]3"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[$CellContext`\[Rho]18, \
$CellContext`\[Rho]3],
                 Editable->False]}]}], ")"}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]3"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]3],
              Editable->False]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
                   {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]16"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`WeylCD[-$CellContext`\[Delta]][
                $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]16]],
               Editable->False], ")"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]16"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]16][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", 
          InterpretationBox[
           StyleBox["\[CapitalTheta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[CapitalTheta][],
           Editable->False]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]22"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]22],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Delta], \
-$CellContext`\[Rho]17],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]22"},
                    {"\[Rho]17", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]17, $CellContext`\
\[Rho]22],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]22"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]22],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]17],
                 Editable->False]}]}], ")"}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]22"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]22],
              Editable->False]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]23"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Delta], \
-$CellContext`\[Rho]23],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]23", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]23, $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]23"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]23],
                 Editable->False]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]4"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Zeta], \
$CellContext`\[Rho]4],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]23"},
                    {"\[Rho]17", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]17, $CellContext`\
\[Rho]23],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]23"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Zeta], \
$CellContext`\[Rho]23],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]4"},
                    {"\[Rho]17", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]17, $CellContext`\
\[Rho]4],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]17", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Rho]17, \
-$CellContext`\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]23", "\[Rho]4"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[$CellContext`\[Rho]23, \
$CellContext`\[Rho]4],
                 Editable->False]}]}], ")"}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]4"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]4],
              Editable->False]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]21", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]21, $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Delta], \
-$CellContext`\[Rho]17],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]17", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]17, $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]21", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Rho]21, \
-$CellContext`\[Delta]],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]21", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Rho]21, \
-$CellContext`\[Rho]17],
                 Editable->False]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]5"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]5],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]21"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Zeta], \
$CellContext`\[Rho]21],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]21"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Rho]21],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]5"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Zeta], \
$CellContext`\[Rho]5],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]21", "\[Rho]5"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[$CellContext`\[Rho]21, \
$CellContext`\[Rho]5],
                 Editable->False]}]}], ")"}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]5"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]5],
              Editable->False]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]20", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]20, $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]17],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]17", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Rho]17, $CellContext`\
\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]20"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]20],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[CurlyEpsilon]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], \
$CellContext`\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]20", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Rho]20, \
-$CellContext`\[Rho]17],
                 Editable->False]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]6"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]6],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]20"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Zeta], \
$CellContext`\[Rho]20],
                 Editable->False]}], "+", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]20"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]20],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]6"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 
                 xAct`xTensor`delta[-$CellContext`\[Zeta], \
$CellContext`\[Rho]6],
                 Editable->False]}], "-", 
               RowBox[{
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[-$CellContext`\[Delta], \
-$CellContext`\[Zeta]],
                 Editable->False], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]20", "\[Rho]6"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`Unphysicalg[$CellContext`\[Rho]20, \
$CellContext`\[Rho]6],
                 Editable->False]}]}], ")"}], " ", 
             InterpretationBox[
              StyleBox[GridBox[{
                 {"\[ScriptF]", 
                  StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]6"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptF][-$CellContext`\[Rho]6],
              Editable->False]}], "+", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[Delta]"], GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[Delta]][
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]17]],
             Editable->False], "+", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[CurlyEpsilon]"], GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]17"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[CurlyEpsilon]][
              $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Rho]17]],
             Editable->False], "-", 
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                OverscriptBox["\[Del]", "^"], "\[Rho]17"], GridBox[{
                 {"g", 
                  StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                   FontSize->Rational[39, 4]]}
                },
                
                GridBoxAlignment->{
                 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`WeylCD[-$CellContext`\[Rho]17][
              $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]]],
             Editable->False]}], ")"}], " ", 
          RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SuperscriptBox[
               OverscriptBox["\[Del]", "^"], "\[Rho]17"], "\[CapitalTheta]"}],
             
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`WeylCD[$CellContext`\[Rho]17][
             $CellContext`\[CapitalTheta][]],
            Editable->False], ")"}]}]}], "-", 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"g", 
              StyleBox[GridBox[{
                 {" ", " "},
                 {"\[CurlyEpsilon]", "\[Rho]16"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]16],
          Editable->False], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Delta]"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[-$CellContext`\[Delta]][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]16"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]16][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["\[CapitalTheta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[CapitalTheta][],
               Editable->False], "2"]]}], "+", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Delta]"], 
                SuperscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Rho]16"], 
                "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`WeylCD[-$CellContext`\[Delta]][
               $CellContext`WeylCD[$CellContext`\[Rho]16][
                $CellContext`\[CapitalTheta][]]],
              Editable->False], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]7"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]7],
                  Editable->False], " ", 
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]16"},
                    {"\[Rho]2", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Rho]2, $CellContext`\
\[Rho]16],
                  Editable->False]}], "+", 
                RowBox[{
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]16"},
                    {"\[Delta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\
\[Rho]16],
                  Editable->False], " ", 
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]7"},
                    {"\[Rho]2", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Rho]2, $CellContext`\
\[Rho]7],
                  Editable->False]}], "-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]16", "\[Rho]7"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`Unphysicalg[$CellContext`\[Rho]16, \
$CellContext`\[Rho]7],
                  Editable->False], " ", 
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]2", "\[Delta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`Unphysicalg[-$CellContext`\[Rho]2, \
-$CellContext`\[Delta]],
                  Editable->False]}]}], ")"}], " ", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[ScriptF]", 
                   StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]7"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptF][-$CellContext`\[Rho]7],
               Editable->False], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]2"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]2][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}]}], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            InterpretationBox[
             StyleBox[GridBox[{
                {"\[Delta]", 
                 StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[CurlyEpsilon]", " "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             
             xAct`xTensor`delta[-$CellContext`\[CurlyEpsilon], $CellContext`\
\[Zeta]],
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Delta]", "\[Rho]17"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[Delta], -$CellContext`\
\[Rho]17],
             Editable->False]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox[GridBox[{
                {"\[Delta]", 
                 StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Rho]17", " "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             xAct`xTensor`delta[-$CellContext`\[Rho]17, $CellContext`\[Zeta]],
             
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Delta]"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Delta]],
             Editable->False]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox[GridBox[{
                {"\[Delta]", 
                 StyleBox[GridBox[{
                    {" ", "\[Zeta]"},
                    {"\[Delta]", " "}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             xAct`xTensor`delta[-$CellContext`\[Delta], $CellContext`\[Zeta]],
             
             Editable->False], " ", 
            InterpretationBox[
             StyleBox[GridBox[{
                {"g", 
                 StyleBox[GridBox[{
                    {" ", " "},
                    {"\[CurlyEpsilon]", "\[Rho]17"}
                   },
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                  FontSize->Rational[39, 4]]}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Center}}, "RowsIndexed" -> {}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`Unphysicalg[-$CellContext`\[CurlyEpsilon], \
-$CellContext`\[Rho]17],
             Editable->False]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Zeta]"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[-$CellContext`\[Zeta]][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]17"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]17][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["\[CapitalTheta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[CapitalTheta][],
               Editable->False], "2"]]}], "+", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Zeta]"], 
                SuperscriptBox[
                 OverscriptBox["\[Del]", "^"], "\[Rho]17"], 
                "\[CapitalTheta]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`WeylCD[-$CellContext`\[Zeta]][
               $CellContext`WeylCD[$CellContext`\[Rho]17][
                $CellContext`\[CapitalTheta][]]],
              Editable->False], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]8"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Zeta], $CellContext`\
\[Rho]8],
                  Editable->False], " ", 
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]17"},
                    {"\[Rho]24", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Rho]24, $CellContext`\
\[Rho]17],
                  Editable->False]}], "+", 
                RowBox[{
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]17"},
                    {"\[Zeta]", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Zeta], $CellContext`\
\[Rho]17],
                  Editable->False], " ", 
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"\[Delta]", 
                    StyleBox[GridBox[{
                    {" ", "\[Rho]8"},
                    {"\[Rho]24", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  
                  xAct`xTensor`delta[-$CellContext`\[Rho]24, $CellContext`\
\[Rho]8],
                  Editable->False]}], "-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {"\[Rho]17", "\[Rho]8"},
                    {" ", " "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`Unphysicalg[$CellContext`\[Rho]17, \
$CellContext`\[Rho]8],
                  Editable->False], " ", 
                 InterpretationBox[
                  StyleBox[GridBox[{
                    {"g", 
                    StyleBox[GridBox[{
                    {" ", " "},
                    {"\[Rho]24", "\[Zeta]"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`Unphysicalg[-$CellContext`\[Rho]24, \
-$CellContext`\[Zeta]],
                  Editable->False]}]}], ")"}], " ", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"\[ScriptF]", 
                   StyleBox[GridBox[{
                    {" "},
                    {"\[Rho]8"}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptF][-$CellContext`\[Rho]8],
               Editable->False], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SuperscriptBox[
                   OverscriptBox["\[Del]", "^"], "\[Rho]24"], 
                  "\[CapitalTheta]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`WeylCD[$CellContext`\[Rho]24][
                 $CellContext`\[CapitalTheta][]],
                Editable->False], ")"}]}]}], 
            InterpretationBox[
             StyleBox["\[CapitalTheta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[CapitalTheta][],
             Editable->False]]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.524981685232232*^9, 3.524981978798427*^9, 3.524982060673079*^9, 
   3.524997277405817*^9, 3.525070671930992*^9, 3.525070813887314*^9, 
   3.525072721084477*^9, 3.5250732864336777`*^9, 3.525081053570711*^9, 
   3.525083113013772*^9, 3.525187154214703*^9, 3.525240265347389*^9, 
   3.525243919065343*^9, 3.5253975556658487`*^9, 3.52539869125095*^9, 
   3.525493480662562*^9, 3.525660884660768*^9, 3.525661926590797*^9, 
   3.525662995271926*^9, 3.5256733013181963`*^9, 3.5460002530627317`*^9, 
   3.546002113247316*^9, 3.546021371400855*^9, 3.546057630398673*^9, 
   3.546064601142446*^9, 3.546091143833*^9, 3.546325621711547*^9, 
   3.548247503531096*^9, 3.548404561444886*^9, 3.5484812595338697`*^9, 
   3.548511439969842*^9, 3.548525817667057*^9, 3.54856788438251*^9, 
   3.548571064152804*^9, 3.548575018824041*^9, 3.5485916013409224`*^9, 
   3.54866210734825*^9, 3.548700128554472*^9, 3.548756264153379*^9, 
   3.54891125325097*^9, 3.548930619717452*^9, 3.54896080574037*^9, 
   3.5490021886604557`*^9, 3.5490208771357803`*^9, 3.54904354906365*^9, 
   3.5490470366049147`*^9, 3.549086285060246*^9, 3.54909628270401*^9, 
   3.549260315167016*^9, 3.5492729372698298`*^9, 3.549305081135417*^9, 
   3.549305297352129*^9, 3.549305807770754*^9, 3.5493588916294394`*^9, 
   3.549433155881091*^9, 3.54946232141505*^9, 3.5495402548015623`*^9, 
   3.55092159339144*^9, 3.550990725789816*^9, 3.550996433809239*^9, 
   3.5509966012245493`*^9, 3.555347247055657*^9, 3.55739211281148*^9, 
   3.557403158199422*^9, 3.5574664766654387`*^9, 3.5575793945659513`*^9, 
   3.557635981761984*^9, 3.55844114814312*^9, 3.558549893567936*^9, 
   3.560007749920287*^9, 3.56004442115513*^9, 3.560185508257415*^9, 
   3.5601862944081373`*^9, 3.560186369470757*^9, 3.560186518263789*^9, 
   3.5602228887386017`*^9, 3.560256432282846*^9, 3.560268937597528*^9, 
   3.560269938754189*^9, 3.560271424121162*^9, 3.5605162650218477`*^9, 
   3.5605216082103024`*^9, 3.560534295742228*^9, 3.560535156670417*^9, 
   3.560842325192225*^9, 3.560844445581009*^9, 3.5611768166312847`*^9, 
   3.561210857232771*^9, 3.5612691825246353`*^9, 3.561275608877887*^9, 
   3.5612769502522097`*^9, 3.561302860715395*^9, 3.561305377473024*^9, 
   3.56130856670643*^9, 3.5613087973503*^9, {3.56136032180164*^9, 
   3.561360078268551*^9}, 3.7281150297556143`*^9, 3.731234882080411*^9},
 CellLabel->
  "Out[359]=",ExpressionUUID->"213fa9cc-604c-4198-957d-b9c319b9f276"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "@", "%"}]], "Input",
 CellChangeTimes->{{3.524981690314253*^9, 3.5249816954197206`*^9}, {
  3.525070672738908*^9, 3.525070673556591*^9}},
 CellLabel->
  "In[360]:=",ExpressionUUID->"2702c3fc-11e2-4850-bf41-210310e3835a"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,360,6,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.524981696117247*^9, 3.524982066156019*^9, 3.524997277601679*^9, 
   3.525070674048522*^9, 3.525070813957034*^9, 3.5250727213049*^9, 
   3.5250732873223877`*^9, 3.525081054037917*^9, 3.525083113866919*^9, 
   3.525187154300123*^9, 3.525240265465884*^9, 3.525243919239284*^9, 
   3.525397555783661*^9, 3.5253986913476467`*^9, 3.525493480773608*^9, 
   3.525660884769576*^9, 3.525661926713786*^9, 3.525662995409422*^9, 
   3.525673301534381*^9, 3.5460002581246357`*^9, 3.54600211551889*^9, 
   3.546021371621954*^9, 3.546057630546707*^9, 3.5460646012909737`*^9, 
   3.546091143985879*^9, 3.546325621893044*^9, 3.548247503849019*^9, 
   3.548404561589814*^9, 3.548481259681672*^9, 3.54851144009422*^9, 
   3.548525817806573*^9, 3.548567884502111*^9, 3.548571064261222*^9, 
   3.548575018939996*^9, 3.548591601524745*^9, 3.5486621074975147`*^9, 
   3.548700128657914*^9, 3.54875626430033*^9, 3.5489112533712187`*^9, 
   3.548930619891127*^9, 3.548960805867756*^9, 3.549002188763032*^9, 
   3.5490208772559423`*^9, 3.549043549175641*^9, 3.5490470368663607`*^9, 
   3.549086285219079*^9, 3.549096282828824*^9, 3.549260315287725*^9, 
   3.549272937386895*^9, 3.549305081263439*^9, 3.549305297448003*^9, 
   3.549305807897107*^9, 3.54935889178191*^9, 3.549433156107046*^9, 
   3.549462321525235*^9, 3.54954025492069*^9, 3.550921593506157*^9, 
   3.550990725936736*^9, 3.550996433923908*^9, 3.550996601343595*^9, 
   3.555347247191443*^9, 3.5573921130464077`*^9, 3.557403158382391*^9, 
   3.5574664767721167`*^9, 3.5575793946757603`*^9, 3.557635981870883*^9, 
   3.558441148277124*^9, 3.558549893709*^9, 3.5600077500822153`*^9, 
   3.560044421288542*^9, 3.560185508431759*^9, 3.560186294543535*^9, 
   3.5601863696156197`*^9, 3.560186518450644*^9, 3.5602228888860073`*^9, 
   3.560256432429418*^9, 3.560268937730565*^9, 3.5602699389699*^9, 
   3.560271424256805*^9, 3.560516265179069*^9, 3.560521608326041*^9, 
   3.560534295876731*^9, 3.560535156790004*^9, 3.560842325338394*^9, 
   3.5608444457165413`*^9, 3.561176816778797*^9, 3.5612108574744463`*^9, 
   3.561269182675144*^9, 3.561275609041214*^9, 3.56127695039913*^9, 
   3.561302860870244*^9, 3.561305377674777*^9, 3.561308566858881*^9, 
   3.561308797510418*^9, {3.561360321987392*^9, 3.561360078405457*^9}, 
   3.728115029844962*^9, 3.731234882156749*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"43f30b55-f8ad-43a0-9e97-e14e1eb5d0b0"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,360,7,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.524981696117247*^9, 3.524982066156019*^9, 3.524997277601679*^9, 
   3.525070674048522*^9, 3.525070813957034*^9, 3.5250727213049*^9, 
   3.5250732873223877`*^9, 3.525081054037917*^9, 3.525083113866919*^9, 
   3.525187154300123*^9, 3.525240265465884*^9, 3.525243919239284*^9, 
   3.525397555783661*^9, 3.5253986913476467`*^9, 3.525493480773608*^9, 
   3.525660884769576*^9, 3.525661926713786*^9, 3.525662995409422*^9, 
   3.525673301534381*^9, 3.5460002581246357`*^9, 3.54600211551889*^9, 
   3.546021371621954*^9, 3.546057630546707*^9, 3.5460646012909737`*^9, 
   3.546091143985879*^9, 3.546325621893044*^9, 3.548247503849019*^9, 
   3.548404561589814*^9, 3.548481259681672*^9, 3.54851144009422*^9, 
   3.548525817806573*^9, 3.548567884502111*^9, 3.548571064261222*^9, 
   3.548575018939996*^9, 3.548591601524745*^9, 3.5486621074975147`*^9, 
   3.548700128657914*^9, 3.54875626430033*^9, 3.5489112533712187`*^9, 
   3.548930619891127*^9, 3.548960805867756*^9, 3.549002188763032*^9, 
   3.5490208772559423`*^9, 3.549043549175641*^9, 3.5490470368663607`*^9, 
   3.549086285219079*^9, 3.549096282828824*^9, 3.549260315287725*^9, 
   3.549272937386895*^9, 3.549305081263439*^9, 3.549305297448003*^9, 
   3.549305807897107*^9, 3.54935889178191*^9, 3.549433156107046*^9, 
   3.549462321525235*^9, 3.54954025492069*^9, 3.550921593506157*^9, 
   3.550990725936736*^9, 3.550996433923908*^9, 3.550996601343595*^9, 
   3.555347247191443*^9, 3.5573921130464077`*^9, 3.557403158382391*^9, 
   3.5574664767721167`*^9, 3.5575793946757603`*^9, 3.557635981870883*^9, 
   3.558441148277124*^9, 3.558549893709*^9, 3.5600077500822153`*^9, 
   3.560044421288542*^9, 3.560185508431759*^9, 3.560186294543535*^9, 
   3.5601863696156197`*^9, 3.560186518450644*^9, 3.5602228888860073`*^9, 
   3.560256432429418*^9, 3.560268937730565*^9, 3.5602699389699*^9, 
   3.560271424256805*^9, 3.560516265179069*^9, 3.560521608326041*^9, 
   3.560534295876731*^9, 3.560535156790004*^9, 3.560842325338394*^9, 
   3.5608444457165413`*^9, 3.561176816778797*^9, 3.5612108574744463`*^9, 
   3.561269182675144*^9, 3.561275609041214*^9, 3.56127695039913*^9, 
   3.561302860870244*^9, 3.561305377674777*^9, 3.561308566858881*^9, 
   3.561308797510418*^9, {3.561360321987392*^9, 3.561360078405457*^9}, 
   3.728115029844962*^9, 3.7312348821660023`*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"12319330-ed32-4857-99be-e4c6a86f784e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[$CellContext`\[Alpha], $CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "-", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[Beta]", "\[Gamma]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[Beta], $CellContext`\[Gamma]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Beta]", "\[Gamma]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`Unphysicalg[-$CellContext`\[Beta], -$CellContext`\[Gamma]]],
     Editable->False], ")"}], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "-", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {"\[Beta]", "\[Gamma]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[$CellContext`\[Beta], $CellContext`\[Gamma]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Gamma]"], GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"\[Alpha]", "\[Beta]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Gamma]][
      $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]]],
     Editable->False], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.52498169625029*^9, 3.524982066284039*^9, 3.52499727778041*^9, 
   3.525070674192864*^9, 3.525070814025898*^9, 3.525072721420938*^9, 
   3.5250732874948397`*^9, 3.5250810542761717`*^9, 3.525083114053896*^9, 
   3.525187154361685*^9, 3.5252402655151253`*^9, 3.52524391930725*^9, 
   3.525397555849003*^9, 3.5253986914151287`*^9, 3.5254934808379917`*^9, 
   3.525660884827042*^9, 3.525661926770892*^9, 3.525662995475711*^9, 
   3.525673301630866*^9, 3.546000258273271*^9, 3.546002115631139*^9, 
   3.546021371778277*^9, 3.546057630721245*^9, 3.546064601437354*^9, 
   3.546091144151701*^9, 3.546325622033482*^9, 3.548247503932866*^9, 
   3.548404561682369*^9, 3.5484812597454777`*^9, 3.548511440171795*^9, 
   3.5485258178517*^9, 3.548567884567585*^9, 3.5485710643245153`*^9, 
   3.548575018990054*^9, 3.548591601591592*^9, 3.54866210757753*^9, 
   3.548700128726815*^9, 3.548756264366004*^9, 3.5489112534457493`*^9, 
   3.5489306199553556`*^9, 3.548960805915626*^9, 3.549002188818242*^9, 
   3.549020877358548*^9, 3.5490435492249603`*^9, 3.549047036905855*^9, 
   3.549086285283918*^9, 3.549096282919909*^9, 3.549260315350103*^9, 
   3.549272937473493*^9, 3.549305081323951*^9, 3.549305297503974*^9, 
   3.549305807978451*^9, 3.5493588918718967`*^9, 3.549433156155529*^9, 
   3.549462321579282*^9, 3.549540254975428*^9, 3.550921593605001*^9, 
   3.550990726035741*^9, 3.550996434014009*^9, 3.550996601430812*^9, 
   3.555347247337267*^9, 3.557392113210092*^9, 3.557403158455799*^9, 
   3.5574664768311777`*^9, 3.557579394728074*^9, 3.5576359819483213`*^9, 
   3.558441148436783*^9, 3.558549893758432*^9, 3.5600077502218018`*^9, 
   3.560044421444558*^9, 3.560185508588237*^9, 3.560186294663377*^9, 
   3.560186369715403*^9, 3.560186518557741*^9, 3.560222889022821*^9, 
   3.5602564325651407`*^9, 3.5602689378802757`*^9, 3.5602699390903397`*^9, 
   3.5602714243697767`*^9, 3.560516265274919*^9, 3.560521608414064*^9, 
   3.560534295923953*^9, 3.5605351568499126`*^9, 3.560842325517002*^9, 
   3.56084444582253*^9, 3.561176816856412*^9, 3.5612108576342983`*^9, 
   3.561269182794585*^9, 3.5612756092075453`*^9, 3.561276950591291*^9, 
   3.5613028610373993`*^9, 3.5613053777766123`*^9, 3.561308567008739*^9, 
   3.561308797611815*^9, {3.56136032212906*^9, 3.5613600786629353`*^9}, 
   3.728115029900051*^9, 3.731234882196332*^9},
 CellLabel->
  "Out[360]=",ExpressionUUID->"e49d71b3-d2a6-4e76-8c24-db1afd51338a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "WeylCDUnphysicalg"}]}]], "Input",
 CellChangeTimes->{{3.52498228805219*^9, 3.5249823034321136`*^9}},
 CellLabel->
  "In[361]:=",ExpressionUUID->"c2a5a81b-f804-4773-9048-4376bceca4d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[$CellContext`\[Alpha], $CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{{3.524982293930964*^9, 3.524982303863649*^9}, 
   3.524997277892252*^9, 3.525070675449811*^9, 3.52507081412327*^9, 
   3.5250727215160027`*^9, 3.52507328839155*^9, 3.525081054540678*^9, 
   3.525083114888608*^9, 3.525187154441657*^9, 3.52524026555702*^9, 
   3.525243919344874*^9, 3.5253975559639597`*^9, 3.525398691463048*^9, 
   3.5254934808863153`*^9, 3.5256608848763123`*^9, 3.525661926817182*^9, 
   3.525662995521329*^9, 3.525673301706615*^9, 3.546000264954607*^9, 
   3.5460021326401043`*^9, 3.546021371894307*^9, 3.546057630888103*^9, 
   3.5460646015658607`*^9, 3.546091144221696*^9, 3.546325622113612*^9, 
   3.5482475040041723`*^9, 3.548404561829275*^9, 3.548481259787781*^9, 
   3.548511440232398*^9, 3.548525817889443*^9, 3.548567884615847*^9, 
   3.5485710644367847`*^9, 3.54857501902008*^9, 3.548591601634654*^9, 
   3.548662107632225*^9, 3.548700128755457*^9, 3.5487562644328814`*^9, 
   3.5489112534872828`*^9, 3.5489306199990063`*^9, 3.5489608059565783`*^9, 
   3.549002188856262*^9, 3.549020877414133*^9, 3.5490435493144197`*^9, 
   3.549047036956273*^9, 3.5490862853298397`*^9, 3.5490962829734*^9, 
   3.549260315454268*^9, 3.549272937625978*^9, 3.549305081363474*^9, 
   3.549305297552876*^9, 3.549305808234497*^9, 3.549358891925613*^9, 
   3.549433156199905*^9, 3.5494623216118593`*^9, 3.549540255027343*^9, 
   3.550921593658852*^9, 3.550990726091343*^9, 3.550996434063439*^9, 
   3.5509966014883223`*^9, 3.555347247390809*^9, 3.557392113263069*^9, 
   3.557403158534037*^9, 3.557466476869829*^9, 3.5575793947675877`*^9, 
   3.557635981991234*^9, 3.5584411485602503`*^9, 3.55854989379388*^9, 
   3.560007750274013*^9, 3.5600444215779037`*^9, 3.560185508732936*^9, 
   3.560186294818974*^9, 3.560186369868051*^9, 3.560186518605011*^9, 
   3.560222889076989*^9, 3.560256432615108*^9, 3.5602689379248037`*^9, 
   3.5602699391244717`*^9, 3.560271424511582*^9, 3.560516265343459*^9, 
   3.56052160854174*^9, 3.5605342959629908`*^9, 3.560535156890667*^9, 
   3.560842325561428*^9, 3.560844445992547*^9, 3.561176816903164*^9, 
   3.561210857696926*^9, 3.561269182850519*^9, 3.5612756093929577`*^9, 
   3.561276950637261*^9, 3.561302861250703*^9, 3.5613053781099463`*^9, 
   3.561308567065475*^9, 3.561308797659628*^9, {3.5613603222050037`*^9, 
   3.5613600787052593`*^9}, 3.728115029923238*^9, 3.731234882227775*^9},
 CellLabel->
  "Out[361]=",ExpressionUUID->"7bad949f-c0c7-4bb5-acfb-983f8a58af94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{
    RowBox[{"Unphysicalg", "[", 
     RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], 
    RowBox[{
     RowBox[{"WeylCD", "[", 
      RowBox[{"-", "\[Beta]_"}], "]"}], "@", 
     RowBox[{
      RowBox[{"WeylCD", "[", 
       RowBox[{"-", "\[Alpha]_"}], "]"}], "@", 
      RowBox[{"\[CapitalTheta]", "[", "]"}]}]}]}], "\[RightTeeArrow]", 
   RowBox[{
    RowBox[{
     RowBox[{"WeylCD", "[", 
      RowBox[{"-", "\[Beta]"}], "]"}], "@", 
     RowBox[{"ContractMetric", "[", 
      RowBox[{
       RowBox[{"Unphysicalg", "[", 
        RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
       RowBox[{
        RowBox[{"WeylCD", "[", 
         RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
        RowBox[{"\[CapitalTheta]", "[", "]"}]}]}], "]"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"WeylCD", "[", 
       RowBox[{"-", "\[Beta]"}], "]"}], "@", 
      RowBox[{"Unphysicalg", "[", 
       RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]}], 
     RowBox[{
      RowBox[{"WeylCD", "[", 
       RowBox[{"-", "\[Alpha]"}], "]"}], "@", 
      RowBox[{"\[CapitalTheta]", "[", "]"}]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.5249825913461027`*^9, 3.524982717565098*^9}, {
  3.525070681330275*^9, 3.5250707107705727`*^9}},
 CellLabel->
  "In[362]:=",ExpressionUUID->"824c115f-34d5-4103-9f64-78cb2979f108"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[$CellContext`\[Alpha], $CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.5249826122691793`*^9, {3.524982675332526*^9, 3.524982677938739*^9}, 
   3.5249827187736607`*^9, 3.5249972780681753`*^9, 3.525070716445582*^9, 
   3.525070814165044*^9, 3.5250727216232367`*^9, 3.525073289133133*^9, 
   3.525081055221245*^9, 3.5250831155829983`*^9, 3.5251871544851847`*^9, 
   3.5252402656001797`*^9, 3.525243919396167*^9, 3.525397556016878*^9, 
   3.525398691515399*^9, 3.525493480937648*^9, 3.5256608849190893`*^9, 
   3.525661926964509*^9, 3.525662995563134*^9, 3.525673301786675*^9, 
   3.5460002690605164`*^9, 3.546002139146103*^9, 3.5460213719638777`*^9, 
   3.546057630977537*^9, 3.546064601605068*^9, 3.546091144318261*^9, 
   3.5463256222969627`*^9, 3.548247504091659*^9, 3.5484045618980637`*^9, 
   3.548481259840016*^9, 3.5485114402939177`*^9, 3.548525817930114*^9, 
   3.548567884680908*^9, 3.548571064479727*^9, 3.548575019067387*^9, 
   3.548591601700687*^9, 3.548662107689035*^9, 3.548700128797328*^9, 
   3.548756264489252*^9, 3.54891125352633*^9, 3.548930620043149*^9, 
   3.548960806000396*^9, 3.549002188903078*^9, 3.549020877464827*^9, 
   3.549043549353994*^9, 3.5490470370359783`*^9, 3.549086285383234*^9, 
   3.5490962830341187`*^9, 3.5492603154971724`*^9, 3.549272937652042*^9, 
   3.549305081405271*^9, 3.549305297594612*^9, 3.54930580834569*^9, 
   3.549358891986079*^9, 3.549433156246891*^9, 3.549462321664845*^9, 
   3.5495402550780277`*^9, 3.550921593795787*^9, 3.550990726151215*^9, 
   3.550996434116888*^9, 3.5509966015413923`*^9, 3.555347247447257*^9, 
   3.5573921133190737`*^9, 3.557403158578154*^9, 3.557466476912343*^9, 
   3.55757939482653*^9, 3.557635982038814*^9, 3.558441148607499*^9, 
   3.55854989383383*^9, 3.5600077503315067`*^9, 3.560044421626404*^9, 
   3.560185508772809*^9, 3.560186294869272*^9, 3.5601863699155703`*^9, 
   3.56018651865536*^9, 3.560222889135047*^9, 3.560256432668899*^9, 
   3.560268937972117*^9, 3.560269939166782*^9, 3.560271424555705*^9, 
   3.560516265406314*^9, 3.560521608596528*^9, 3.5605342960048847`*^9, 
   3.56053515695017*^9, 3.5608423256140842`*^9, 3.560844446044901*^9, 
   3.5611768169533978`*^9, 3.5612108577606173`*^9, 3.5612691829150867`*^9, 
   3.5612756094551888`*^9, 3.5612769506858463`*^9, 3.5613028613072033`*^9, 
   3.5613053781620407`*^9, 3.561308567125293*^9, 3.561308797715955*^9, {
   3.561360322263893*^9, 3.5613600787507687`*^9}, 3.728115029954245*^9, 
   3.731234882259859*^9},
 CellLabel->
  "Out[362]=",ExpressionUUID->"630506e2-aeff-4608-b5f6-4518f15636cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRuleN", "@", "WeylCDUnphysicalg"}]}]], "Input",
 CellChangeTimes->{{3.52498228805219*^9, 3.5249823034321136`*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"239db190-d9b0-45f7-bfea-0b8bbaf874a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"R", "[", 
         OverscriptBox["\[Del]", "~"], "]"}], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciCDTildeg[$CellContext`\[Alpha], $CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.524982941311152*^9, 3.524997278249592*^9, 3.525070718206115*^9, 
   3.5250708142110167`*^9, 3.525072721744253*^9, 3.525073289982812*^9, 
   3.525081055699298*^9, 3.525083116306156*^9, 3.525187154530199*^9, 
   3.5252402656706657`*^9, 3.5252439194409*^9, 3.5253975560744867`*^9, 
   3.5253986915454884`*^9, 3.525493480987432*^9, 3.5256608849698067`*^9, 
   3.525661927013712*^9, 3.5256629956039953`*^9, 3.525673301857428*^9, 
   3.546000270134734*^9, 3.546002142407798*^9, 3.546021372052537*^9, 
   3.546057631053927*^9, 3.546064601640929*^9, 3.546091144393599*^9, 
   3.546325622380237*^9, 3.5482475041231527`*^9, 3.548404561938635*^9, 
   3.548481259880753*^9, 3.5485114403728523`*^9, 3.5485258179687967`*^9, 
   3.548567884730813*^9, 3.5485710645175753`*^9, 3.5485750191017847`*^9, 
   3.548591601759761*^9, 3.548662107736351*^9, 3.548700128833475*^9, 
   3.548756264549556*^9, 3.5489112535756807`*^9, 3.5489306200860987`*^9, 
   3.548960806049684*^9, 3.54900218894176*^9, 3.549020877523254*^9, 
   3.549043549396511*^9, 3.5490470370766783`*^9, 3.549086285432477*^9, 
   3.549096283091813*^9, 3.5492603155276127`*^9, 3.549272937676042*^9, 
   3.5493050814422417`*^9, 3.549305297640325*^9, 3.549305808380108*^9, 
   3.5493588920426817`*^9, 3.5494331562939053`*^9, 3.549462321705495*^9, 
   3.549540255128027*^9, 3.550921593821707*^9, 3.550990726202311*^9, 
   3.550996434170706*^9, 3.550996601598732*^9, 3.555347247501308*^9, 
   3.557392113367881*^9, 3.557403158631199*^9, 3.557466476949462*^9, 
   3.5575793948758507`*^9, 3.557635982091714*^9, 3.558441148651739*^9, 
   3.558549893872669*^9, 3.5600077503824253`*^9, 3.560044421672523*^9, 
   3.560185508816319*^9, 3.560186294917226*^9, 3.560186369960298*^9, 
   3.560186518817306*^9, 3.5602228891843777`*^9, 3.560256432719715*^9, 
   3.560268938017172*^9, 3.560269939206924*^9, 3.560271424597526*^9, 
   3.560516265580079*^9, 3.5605216086511917`*^9, 3.5605342960448437`*^9, 
   3.560535156987154*^9, 3.560842325652256*^9, 3.5608444460926247`*^9, 
   3.5611768169998407`*^9, 3.561210857815633*^9, 3.56126918304139*^9, 
   3.561275609496381*^9, 3.561276950724209*^9, 3.561302861353733*^9, 
   3.561305378214457*^9, 3.561308567182536*^9, 3.561308797889901*^9, {
   3.5613603223287697`*^9, 3.561360078795088*^9}, 3.7281150299747066`*^9, 
   3.731234882292761*^9},
 CellLabel->
  "Out[363]=",ExpressionUUID->"3652349d-47bf-4623-87d4-7bc05758c7e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "EinsteinMetric"}]}]], "Input",
 CellChangeTimes->{{3.524983722269623*^9, 3.524983726694373*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"a7f3eda8-b9c6-4c36-950e-14087ee1f936"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "48"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["g", "~"], 
        StyleBox[GridBox[{
           {"\[Alpha]", "\[Beta]"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Physicalg[$CellContext`\[Alpha], $CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"g", 
        StyleBox[GridBox[{
           {" ", " "},
           {"\[Alpha]", "\[Beta]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.5249837276528807`*^9, 3.524984243186064*^9, 3.524997278347777*^9, 
   3.52507071894849*^9, 3.525070814259162*^9, 3.525072721832691*^9, 
   3.525073290676293*^9, 3.525081056287642*^9, 3.525083116969349*^9, 
   3.525187154567305*^9, 3.525240265728353*^9, 3.525243919490152*^9, 
   3.525397556112452*^9, 3.525398691594298*^9, 3.5254934810509644`*^9, 
   3.525660885021714*^9, 3.52566192705517*^9, 3.5256629956463346`*^9, 
   3.525673301966383*^9, 3.546000274798429*^9, 3.546002145729184*^9, 
   3.546021372118182*^9, 3.546057631123775*^9, 3.546064601709828*^9, 
   3.546091144495839*^9, 3.5463256224094963`*^9, 3.548247504154619*^9, 
   3.5484045619893417`*^9, 3.548481259931921*^9, 3.548511440423819*^9, 
   3.548525818009301*^9, 3.548567884787838*^9, 3.548571064556259*^9, 
   3.548575019161418*^9, 3.548591601862363*^9, 3.5486621077967567`*^9, 
   3.5487001288730803`*^9, 3.54875626461509*^9, 3.548911253625639*^9, 
   3.548930620136747*^9, 3.548960806087921*^9, 3.54900218897615*^9, 
   3.549020877547441*^9, 3.5490435494376707`*^9, 3.54904703712586*^9, 
   3.549086285494379*^9, 3.549096283164228*^9, 3.5492603155724497`*^9, 
   3.5492729377004547`*^9, 3.5493050814793367`*^9, 3.549305297676504*^9, 
   3.54930580841649*^9, 3.549358892183742*^9, 3.5494331563349543`*^9, 
   3.549462321804245*^9, 3.549540255169385*^9, 3.550921593846613*^9, 
   3.550990726232787*^9, 3.550996434223522*^9, 3.550996601669016*^9, 
   3.555347247556197*^9, 3.557392113422172*^9, 3.557403158726375*^9, 
   3.557466476992096*^9, 3.5575793949161158`*^9, 3.557635982134141*^9, 
   3.5584411486915207`*^9, 3.5585498939121323`*^9, 3.560007750434897*^9, 
   3.5600444217137413`*^9, 3.5601855088607903`*^9, 3.560186294958761*^9, 
   3.5601863700000973`*^9, 3.5601865188706408`*^9, 3.5602228892402763`*^9, 
   3.560256432771118*^9, 3.560268938063051*^9, 3.560269939249311*^9, 
   3.560271424633811*^9, 3.560516265640539*^9, 3.560521608704104*^9, 
   3.5605342960845337`*^9, 3.560535157027875*^9, 3.560842325699277*^9, 
   3.5608444461322603`*^9, 3.5611768170472317`*^9, 3.5612108578724623`*^9, 
   3.561269183085826*^9, 3.561275609553048*^9, 3.5612769507714157`*^9, 
   3.561302861407158*^9, 3.5613053782691593`*^9, 3.561308567240684*^9, 
   3.561308797934804*^9, {3.561360322382223*^9, 3.5613600788383303`*^9}, 
   3.7281150300059347`*^9, 3.731234882327252*^9},
 CellLabel->
  "Out[364]=",ExpressionUUID->"823f44d6-44d9-4f37-843e-c3690a394697"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"ApplyRule", "@", "PhysicalToUnPhysical"}]}]], "Input",
 CellChangeTimes->{{3.524984216807042*^9, 3.524984221448599*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"9e495e24-f25d-456f-baf9-cefc40104d94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"g", 
         StyleBox[GridBox[{
            {" ", " "},
            {"\[Alpha]", "\[Beta]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Unphysicalg[-$CellContext`\[Alpha], -$CellContext`\[Beta]],
     Editable->False], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Beta]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Beta]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.5249842441586742`*^9, 3.524997278472281*^9, 3.525070719759424*^9, 
   3.5250708143030443`*^9, 3.5250727219313107`*^9, 3.525073291400371*^9, 
   3.525081056838369*^9, 3.5250831176712313`*^9, 3.525187154604801*^9, 
   3.525240265764297*^9, 3.525243919536714*^9, 3.5253975561544123`*^9, 
   3.5253986916411*^9, 3.525493481111071*^9, 3.52566088507721*^9, 
   3.5256619271246347`*^9, 3.525662995688175*^9, 3.525673302056151*^9, 
   3.546000277268158*^9, 3.546002151357271*^9, 3.546021372195187*^9, 
   3.546057631184884*^9, 3.5460646017456284`*^9, 3.5460911446530943`*^9, 
   3.546325622436968*^9, 3.548247504317635*^9, 3.548404562040959*^9, 
   3.548481259979177*^9, 3.548511440476433*^9, 3.548525818047123*^9, 
   3.548567884829143*^9, 3.548571064597875*^9, 3.548575019277584*^9, 
   3.548591601905764*^9, 3.548662107845715*^9, 3.548700128910697*^9, 
   3.548756264665141*^9, 3.5489112537138357`*^9, 3.5489306201856403`*^9, 
   3.548960806142398*^9, 3.5490021890647087`*^9, 3.549020877570406*^9, 
   3.549043549470265*^9, 3.549047037157052*^9, 3.5490862855597*^9, 
   3.549096283221197*^9, 3.549260315603763*^9, 3.549272937748702*^9, 
   3.549305081516417*^9, 3.549305297713325*^9, 3.549305808456201*^9, 
   3.549358892212078*^9, 3.5494331563742313`*^9, 3.5494623218449507`*^9, 
   3.549540255215304*^9, 3.55092159388631*^9, 3.55099072628859*^9, 
   3.5509964343618717`*^9, 3.550996601720104*^9, 3.5553472476999483`*^9, 
   3.557392113475133*^9, 3.5574031588932858`*^9, 3.5574664770279427`*^9, 
   3.557579394956008*^9, 3.5576359821728773`*^9, 3.558441148735544*^9, 
   3.558549893951894*^9, 3.560007750577586*^9, 3.560044421759428*^9, 
   3.560185508903925*^9, 3.5601862950062647`*^9, 3.560186370044951*^9, 
   3.5601865189175177`*^9, 3.560222889293976*^9, 3.5602564329161882`*^9, 
   3.5602689381077967`*^9, 3.560269939288907*^9, 3.560271424675737*^9, 
   3.560516265707951*^9, 3.5605216087555523`*^9, 3.560534296121892*^9, 
   3.560535157124179*^9, 3.560842325807353*^9, 3.5608444461780024`*^9, 
   3.561176817084449*^9, 3.5612108579194593`*^9, 3.5612691831469097`*^9, 
   3.5612756096034184`*^9, 3.561276950818211*^9, 3.561302861465819*^9, 
   3.561305378317502*^9, 3.5613085673093357`*^9, 3.561308797988319*^9, {
   3.561360322445849*^9, 3.561360078881217*^9}, 3.7281150300276947`*^9, 
   3.7312348823623457`*^9},
 CellLabel->
  "Out[365]=",ExpressionUUID->"6153c5d9-bbba-427f-8df1-e26ec5282b69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContractMetric", "@", "%"}]], "Input",
 CellChangeTimes->{3.5250816486877003`*^9, 3.525083129675318*^9},
 CellLabel->
  "In[366]:=",ExpressionUUID->"84d94306-7334-4c4c-b3af-785e20f786ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[-$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   RowBox[{"(", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`WeylCD[$CellContext`\[Alpha]][
      $CellContext`\[CapitalTheta][]],
     Editable->False], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{{3.525072897243925*^9, 3.525072942444478*^9}, {
   3.525073010207984*^9, 3.525073085013047*^9}, 3.52507329685279*^9, 
   3.525073371606571*^9, 3.5250810688969793`*^9, 3.5250814065235157`*^9, 
   3.525081649341506*^9, 3.525083130221127*^9, 3.525187154642791*^9, 
   3.5252402658067417`*^9, 3.525243919579681*^9, 3.525397556189961*^9, 
   3.5253986916800613`*^9, 3.52549348115156*^9, 3.525660885121628*^9, 
   3.5256619273497047`*^9, 3.525662995720375*^9, 3.525673302118022*^9, 
   3.546000280826324*^9, 3.5460021563749237`*^9, 3.5460213722501574`*^9, 
   3.546057631240835*^9, 3.546064601770721*^9, 3.5460911447184973`*^9, 
   3.5463256225004177`*^9, 3.548247504413821*^9, 3.5484045620891438`*^9, 
   3.548481260028742*^9, 3.5485114405271263`*^9, 3.54852581807613*^9, 
   3.548567884869402*^9, 3.5485710646262903`*^9, 3.5485750193129473`*^9, 
   3.548591601954978*^9, 3.548662107893468*^9, 3.548700128945196*^9, 
   3.5487562647168503`*^9, 3.54891125374701*^9, 3.548930620225684*^9, 
   3.548960806171479*^9, 3.549002189095623*^9, 3.549020877587039*^9, 
   3.549043549499329*^9, 3.5490470371919413`*^9, 3.549086285608317*^9, 
   3.549096283290265*^9, 3.549260315624856*^9, 3.5492729377661543`*^9, 
   3.54930508154617*^9, 3.5493052977542686`*^9, 3.5493058084853287`*^9, 
   3.5493588922328444`*^9, 3.549433156395562*^9, 3.5494623218856792`*^9, 
   3.5495402552543173`*^9, 3.5509215939279537`*^9, 3.550990726338851*^9, 
   3.550996434405286*^9, 3.550996601768447*^9, 3.5553472477482977`*^9, 
   3.557392113520681*^9, 3.557403159012323*^9, 3.5574664770593033`*^9, 
   3.557579394990032*^9, 3.557635982210618*^9, 3.5584411487724867`*^9, 
   3.558549893985437*^9, 3.560007750619162*^9, 3.560044421798272*^9, 
   3.5601855089396152`*^9, 3.5601862950473013`*^9, 3.560186370081543*^9, 
   3.560186518958764*^9, 3.560222889338805*^9, 3.5602564329562902`*^9, 
   3.560268938142589*^9, 3.56026993932176*^9, 3.560271424710181*^9, 
   3.5605162657574463`*^9, 3.5605216087960863`*^9, 3.5605342961512537`*^9, 
   3.5605351571568937`*^9, 3.560842325839394*^9, 3.560844446216071*^9, 
   3.5611768171221046`*^9, 3.561210857965918*^9, 3.56126918318929*^9, 
   3.5612756096465387`*^9, 3.5612769508573217`*^9, 3.561302861516533*^9, 
   3.561305378358077*^9, 3.561308567362365*^9, 3.5613087980360737`*^9, {
   3.561360322488173*^9, 3.561360078912362*^9}, 3.728115030053845*^9, 
   3.731234882396299*^9},
 CellLabel->
  "Out[366]=",ExpressionUUID->"7a6a4362-9ca8-4d8a-9b44-65dc05f6790c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "@", "%"}]], "Input",
 CellChangeTimes->{{3.524982556789291*^9, 3.524982563601787*^9}, {
  3.524982948217659*^9, 3.524982950462438*^9}, {3.525081857122073*^9, 
  3.525081858728256*^9}},
 CellLabel->
  "In[367]:=",ExpressionUUID->"13a41867-118d-42e9-b1a0-e840b5dcd521"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,367,8,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.52498295277802*^9, 3.5249842505301247`*^9, 3.5249972785749073`*^9, 
   3.525070720638053*^9, 3.525070814348609*^9, 3.525072722013837*^9, 
   3.525081859413186*^9, 3.525083135226995*^9, 3.525187154676804*^9, 
   3.525240265844143*^9, 3.5252439196133738`*^9, 3.5253975562295017`*^9, 
   3.525398691717125*^9, 3.525493481199548*^9, 3.5256608851659307`*^9, 
   3.5256619274142027`*^9, 3.52566299576824*^9, 3.5256733021826468`*^9, 
   3.54600028213743*^9, 3.54600216151904*^9, 3.546021372291595*^9, 
   3.546057631285737*^9, 3.5460646017991667`*^9, 3.5460911448090553`*^9, 
   3.546325622530533*^9, 3.54824750448814*^9, 3.548404562165357*^9, 
   3.548481260074197*^9, 3.548511440566485*^9, 3.548525818114031*^9, 
   3.5485678849130917`*^9, 3.5485710646597548`*^9, 3.548575019350814*^9, 
   3.548591602010796*^9, 3.548662107983922*^9, 3.548700128972643*^9, 
   3.5487562647707243`*^9, 3.548911253791744*^9, 3.548930620268613*^9, 
   3.548960806211194*^9, 3.549002189130663*^9, 3.5490208776457157`*^9, 
   3.549043549535242*^9, 3.549047037231167*^9, 3.5490862856705103`*^9, 
   3.549096283362432*^9, 3.5492603156631804`*^9, 3.5492729377968616`*^9, 
   3.5493050815850477`*^9, 3.549305297778379*^9, 3.549305808518818*^9, 
   3.549358892294771*^9, 3.5494331564268847`*^9, 3.549462321925564*^9, 
   3.549540255366939*^9, 3.5509215939844837`*^9, 3.550990726499136*^9, 
   3.5509964344472027`*^9, 3.550996601842814*^9, 3.555347247801029*^9, 
   3.557392113572496*^9, 3.55740315922508*^9, 3.5574664770867853`*^9, 
   3.557579395029644*^9, 3.557635982249782*^9, 3.558441148815629*^9, 
   3.558549894022084*^9, 3.560007750666448*^9, 3.5600444218426437`*^9, 
   3.5601855089814453`*^9, 3.560186295093663*^9, 3.560186370125366*^9, 
   3.5601865190044603`*^9, 3.5602228893896523`*^9, 3.56025643300069*^9, 
   3.560268938186014*^9, 3.560269939360174*^9, 3.5602714247507877`*^9, 
   3.560516265832979*^9, 3.560521608851429*^9, 3.560534296193164*^9, 
   3.5605351571984243`*^9, 3.560842325884897*^9, 3.5608444462624407`*^9, 
   3.561176817164402*^9, 3.5612108580167828`*^9, 3.5612691832304564`*^9, 
   3.561275609695138*^9, 3.561276950902401*^9, 3.5613028615607758`*^9, 
   3.561305378401219*^9, 3.5613085674289083`*^9, 3.561308798087208*^9, {
   3.561360322529818*^9, 3.561360078955027*^9}, 3.7281150300791693`*^9, 
   3.7312348824248447`*^9},
 CellLabel->
  "During evaluation of \
In[367]:=",ExpressionUUID->"19bb7f34-7908-4033-ad63-26b4d9462cc1"],

Cell[BoxData[
 TemplateBox[{
  "ToCanonical","cmods",
   "\"Detected metric-incompatible derivatives \\!\\(\\*RowBox[{\\\"{\\\", \\\
\"WeylCD\\\", \\\"}\\\"}]\\).\"",2,367,9,21821618543520981435,"Local",
   "xAct`xTensor`ToCanonical"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{
  3.52498295277802*^9, 3.5249842505301247`*^9, 3.5249972785749073`*^9, 
   3.525070720638053*^9, 3.525070814348609*^9, 3.525072722013837*^9, 
   3.525081859413186*^9, 3.525083135226995*^9, 3.525187154676804*^9, 
   3.525240265844143*^9, 3.5252439196133738`*^9, 3.5253975562295017`*^9, 
   3.525398691717125*^9, 3.525493481199548*^9, 3.5256608851659307`*^9, 
   3.5256619274142027`*^9, 3.52566299576824*^9, 3.5256733021826468`*^9, 
   3.54600028213743*^9, 3.54600216151904*^9, 3.546021372291595*^9, 
   3.546057631285737*^9, 3.5460646017991667`*^9, 3.5460911448090553`*^9, 
   3.546325622530533*^9, 3.54824750448814*^9, 3.548404562165357*^9, 
   3.548481260074197*^9, 3.548511440566485*^9, 3.548525818114031*^9, 
   3.5485678849130917`*^9, 3.5485710646597548`*^9, 3.548575019350814*^9, 
   3.548591602010796*^9, 3.548662107983922*^9, 3.548700128972643*^9, 
   3.5487562647707243`*^9, 3.548911253791744*^9, 3.548930620268613*^9, 
   3.548960806211194*^9, 3.549002189130663*^9, 3.5490208776457157`*^9, 
   3.549043549535242*^9, 3.549047037231167*^9, 3.5490862856705103`*^9, 
   3.549096283362432*^9, 3.5492603156631804`*^9, 3.5492729377968616`*^9, 
   3.5493050815850477`*^9, 3.549305297778379*^9, 3.549305808518818*^9, 
   3.549358892294771*^9, 3.5494331564268847`*^9, 3.549462321925564*^9, 
   3.549540255366939*^9, 3.5509215939844837`*^9, 3.550990726499136*^9, 
   3.5509964344472027`*^9, 3.550996601842814*^9, 3.555347247801029*^9, 
   3.557392113572496*^9, 3.55740315922508*^9, 3.5574664770867853`*^9, 
   3.557579395029644*^9, 3.557635982249782*^9, 3.558441148815629*^9, 
   3.558549894022084*^9, 3.560007750666448*^9, 3.5600444218426437`*^9, 
   3.5601855089814453`*^9, 3.560186295093663*^9, 3.560186370125366*^9, 
   3.5601865190044603`*^9, 3.5602228893896523`*^9, 3.56025643300069*^9, 
   3.560268938186014*^9, 3.560269939360174*^9, 3.5602714247507877`*^9, 
   3.560516265832979*^9, 3.560521608851429*^9, 3.560534296193164*^9, 
   3.5605351571984243`*^9, 3.560842325884897*^9, 3.5608444462624407`*^9, 
   3.561176817164402*^9, 3.5612108580167828`*^9, 3.5612691832304564`*^9, 
   3.561275609695138*^9, 3.561276950902401*^9, 3.5613028615607758`*^9, 
   3.561305378401219*^9, 3.5613085674289083`*^9, 3.561308798087208*^9, {
   3.561360322529818*^9, 3.561360078955027*^9}, 3.7281150300791693`*^9, 
   3.7312348824358177`*^9},
 CellLabel->
  "During evaluation of \
In[367]:=",ExpressionUUID->"66ee9688-2543-4aa1-9777-851792135ae4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[-$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Del]", "^"], "\[Alpha]"], "\[CapitalTheta]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`WeylCD[$CellContext`\[Alpha]][
       $CellContext`\[CapitalTheta][]],
      Editable->False], ")"}]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{
  3.5249825644091797`*^9, 3.524982952981336*^9, 3.524984250680695*^9, 
   3.524997278635277*^9, 3.5250707208259163`*^9, 3.525070814380206*^9, 
   3.52507272206614*^9, 3.525081859457448*^9, 3.5250831352359467`*^9, 
   3.525187154701367*^9, 3.5252402658675327`*^9, 3.525243919619423*^9, 
   3.52539755625712*^9, 3.525398691749325*^9, 3.525493481225569*^9, 
   3.525660885191511*^9, 3.525661927442809*^9, 3.525662995799211*^9, 
   3.525673302232185*^9, 3.546000282155012*^9, 3.5460021615290613`*^9, 
   3.5460213722972937`*^9, 3.546057631291407*^9, 3.546064601864704*^9, 
   3.54609114481526*^9, 3.546325622593684*^9, 3.548247504497966*^9, 
   3.548404562173334*^9, 3.5484812600984507`*^9, 3.548511440571528*^9, 
   3.54852581811829*^9, 3.548567884935157*^9, 3.548571064681822*^9, 
   3.548575019378838*^9, 3.548591602016754*^9, 3.5486621079890757`*^9, 
   3.548700128976532*^9, 3.548756264779557*^9, 3.548911253817627*^9, 
   3.548930620296742*^9, 3.548960806234235*^9, 3.549002189149026*^9, 
   3.5490208776510277`*^9, 3.549043549546309*^9, 3.549047037262835*^9, 
   3.549086285697865*^9, 3.549096283373714*^9, 3.54926031566754*^9, 
   3.549272937803082*^9, 3.549305081602632*^9, 3.5493052977834177`*^9, 
   3.549305808531865*^9, 3.549358892300168*^9, 3.549433156430788*^9, 
   3.549462321943101*^9, 3.549540255393188*^9, 3.550921593994279*^9, 
   3.550990726506483*^9, 3.550996434486919*^9, 3.55099660185321*^9, 
   3.5553472478399687`*^9, 3.557392113599421*^9, 3.557403159232708*^9, 
   3.557466477090947*^9, 3.557579395049986*^9, 3.557635982267851*^9, 
   3.558441148843391*^9, 3.558549894035486*^9, 3.560007750696006*^9, 
   3.560044421869979*^9, 3.560185509016366*^9, 3.5601862951326103`*^9, 
   3.5601863701531963`*^9, 3.560186519048086*^9, 3.560222889424141*^9, 
   3.5602564330078*^9, 3.560268938216064*^9, 3.5602699393900948`*^9, 
   3.560271424780875*^9, 3.5605162658394938`*^9, 3.560521608887826*^9, 
   3.560534296214734*^9, 3.560535157217065*^9, 3.560842325894278*^9, 
   3.5608444462902946`*^9, 3.5611768171864433`*^9, 3.561210858023314*^9, 
   3.561269183236952*^9, 3.561275609713521*^9, 3.561276950930077*^9, 
   3.56130286158945*^9, 3.561305378409678*^9, 3.561308567444249*^9, 
   3.561308798129081*^9, {3.561360322536778*^9, 3.561360078976198*^9}, 
   3.7281150301138067`*^9, 3.731234882460779*^9},
 CellLabel->
  "Out[367]=",ExpressionUUID->"6917040e-0f99-4ea4-a488-67e89b6f1a24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//.", 
  RowBox[{"ApplyRule", "@", 
   RowBox[{"NewExtendedConformalEqs", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.524982455275661*^9, 3.5249824833768*^9}, 
   3.524982514945239*^9, 3.524982996571577*^9, {3.546000291835994*^9, 
   3.546000315114718*^9}, 3.546000615045175*^9, 3.5460006469680033`*^9},
 CellLabel->
  "In[368]:=",ExpressionUUID->"373cf96b-5b1d-4042-8d25-47e0856e2f68"],

Cell[BoxData["\<\"** MakeRule: Potential problems moving indices on the \
LHS.\"\>"], "Print",
 CellChangeTimes->{
  3.546000647429141*^9, 3.546002167985311*^9, 3.546021372309071*^9, 
   3.546057631313428*^9, 3.546064601884692*^9, 3.546091144840734*^9, 
   3.5463256226134243`*^9, 3.548247504576871*^9, 3.5484045622341413`*^9, 
   3.548481260126976*^9, 3.5485114405916452`*^9, 3.548525818152204*^9, 
   3.54856788494445*^9, 3.548571064691498*^9, 3.548575019386221*^9, 
   3.548591602100601*^9, 3.548662108007938*^9, 3.548700129013176*^9, 
   3.548756264835553*^9, 3.548911253846156*^9, 3.548930620347809*^9, 
   3.54896080627334*^9, 3.549002189156036*^9, 3.5490208776670017`*^9, 
   3.549043549560116*^9, 3.54904703726924*^9, 3.549086285740271*^9, 
   3.549096283435821*^9, 3.549260315719858*^9, 3.549272937817224*^9, 
   3.549305081613798*^9, 3.549305297806046*^9, 3.5493058085395823`*^9, 
   3.549358892320395*^9, 3.54943315646803*^9, 3.549462321953617*^9, 
   3.549540255431758*^9, 3.550921594013966*^9, 3.550990726545533*^9, 
   3.550996434510581*^9, 3.550996601971347*^9, 3.555347247859078*^9, 
   3.557392113639565*^9, 3.557403159362012*^9, 3.5574664771207027`*^9, 
   3.557579395059498*^9, 3.557635982274364*^9, 3.558441148860821*^9, 
   3.558549894046624*^9, 3.5600077507143517`*^9, 3.560044421882072*^9, 
   3.5601855090484*^9, 3.560186295150223*^9, 3.560186370165605*^9, 
   3.560186519083335*^9, 3.560222889546831*^9, 3.5602564330444*^9, 
   3.560268938228065*^9, 3.560269939416585*^9, 3.560271424793311*^9, 
   3.5605162658756847`*^9, 3.5605216089022923`*^9, 3.560534296239051*^9, 
   3.5605351572244*^9, 3.5608423259123497`*^9, 3.5608444463031073`*^9, 
   3.561176817204672*^9, 3.561210858064233*^9, 3.561269183275569*^9, 
   3.561275609726974*^9, 3.561276951085257*^9, 3.5613028616349*^9, 
   3.561305378446313*^9, 3.561308567560927*^9, 3.561308798144395*^9, {
   3.561360322577224*^9, 3.561360078988553*^9}, 3.728115030130018*^9, 
   3.731234882489256*^9},
 CellLabel->
  "During evaluation of \
In[368]:=",ExpressionUUID->"136de0a2-dad2-4ca0-a30b-e6e6dc14fd26"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"d", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False]}], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
       Editable->False], "-", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Alpha]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]]}]], "Output",
 CellChangeTimes->{{3.524982458135665*^9, 3.524982515642029*^9}, {
   3.5249829828636208`*^9, 3.524982997572706*^9}, 3.524984259885804*^9, 
   3.5249972787090273`*^9, 3.525070722815569*^9, 3.5250708144150248`*^9, 
   3.525072722143952*^9, 3.52508186566966*^9, 3.525083140901121*^9, 
   3.525187154728887*^9, 3.525240265898368*^9, 3.525243919681178*^9, 
   3.52539755628999*^9, 3.525398691812224*^9, 3.5254934812622128`*^9, 
   3.525660885228479*^9, 3.525661927478047*^9, 3.5256629958315887`*^9, 
   3.525673302291972*^9, 3.546000293093164*^9, {3.5460006201383333`*^9, 
   3.5460006474929457`*^9}, 3.546002168012334*^9, 3.546021372318489*^9, 
   3.5460576313184967`*^9, 3.546064601889975*^9, 3.546091144846273*^9, 
   3.546325622618681*^9, 3.548247504584634*^9, 3.548404562238512*^9, 
   3.548481260129922*^9, 3.548511440595833*^9, 3.548525818157729*^9, 
   3.5485678849472*^9, 3.5485710646971273`*^9, 3.5485750193912354`*^9, 
   3.548591602117934*^9, 3.5486621080145473`*^9, 3.548700129018505*^9, 
   3.548756264840111*^9, 3.548911253850066*^9, 3.5489306203506308`*^9, 
   3.5489608062768793`*^9, 3.549002189160634*^9, 3.549020877671322*^9, 
   3.549043549564301*^9, 3.549047037274117*^9, 3.5490862857460814`*^9, 
   3.549096283440131*^9, 3.549260315722617*^9, 3.5492729378568077`*^9, 
   3.54930508161677*^9, 3.549305297812173*^9, 3.5493058085451603`*^9, 
   3.549358892325192*^9, 3.5494331564714746`*^9, 3.5494623219562883`*^9, 
   3.549540255459487*^9, 3.550921594021942*^9, 3.5509907265517817`*^9, 
   3.550996434516618*^9, 3.55099660197795*^9, 3.5553472478654547`*^9, 
   3.557392113649159*^9, 3.5574031593659353`*^9, 3.5574664771239862`*^9, 
   3.557579395062539*^9, 3.557635982279991*^9, 3.558441148866702*^9, 
   3.558549894049469*^9, 3.560007750719966*^9, 3.560044421888279*^9, 
   3.5601855090540037`*^9, 3.560186295155952*^9, 3.560186370172392*^9, 
   3.5601865190899897`*^9, 3.5602228895520573`*^9, 3.56025643305017*^9, 
   3.5602689382378187`*^9, 3.560269939423232*^9, 3.560271424800013*^9, 
   3.56051626588046*^9, 3.5605216089086447`*^9, 3.5605342962422113`*^9, 
   3.560535157231395*^9, 3.560842325917498*^9, 3.560844446313136*^9, 
   3.561176817209914*^9, 3.561210858073604*^9, 3.5612691832813597`*^9, 
   3.561275609733769*^9, 3.56127695109251*^9, 3.5613028616409807`*^9, 
   3.561305378453573*^9, 3.561308567572075*^9, 3.5613087981515713`*^9, {
   3.5613603225827227`*^9, 3.561360078998033*^9}, 3.728115030150964*^9, 
   3.731234882494631*^9},
 CellLabel->
  "Out[368]=",ExpressionUUID->"59a84206-d0e8-438f-a4e9-95c33767ba90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToCanonical", "@", 
  RowBox[{"ContractMetric", "@", "%"}]}]], "Input",
 CellLabel->
  "In[369]:=",ExpressionUUID->"635b4a66-6a97-4d1f-8cb5-fe89b64891d2"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]], "+", 
  RowBox[{"2", " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {" "},
           {"\[Alpha]"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[ScriptF]", 
        StyleBox[GridBox[{
           {"\[Alpha]"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[ScriptF][$CellContext`\[Alpha]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.524983007199814*^9, 3.524984262394524*^9, 3.524997278806925*^9, 
   3.5250707284467087`*^9, 3.525070814461977*^9, 3.525072722220818*^9, 
   3.525081869638288*^9, 3.525083141797159*^9, 3.525187154764245*^9, 
   3.525240265931799*^9, 3.525243919712916*^9, 3.5253975563252497`*^9, 
   3.5253986918399487`*^9, 3.52549348131133*^9, 3.525660885270179*^9, 
   3.525661927519562*^9, 3.525662995870474*^9, 3.525673302358884*^9, 
   3.546000296226741*^9, {3.546000636187114*^9, 3.546000648872664*^9}, 
   3.546002170267273*^9, 3.546021372365921*^9, 3.546057631366193*^9, 
   3.546064601947998*^9, 3.5460911448777113`*^9, 3.546325622678852*^9, 
   3.5482475046505013`*^9, 3.548404562285048*^9, 3.548481260160984*^9, 
   3.5485114406457233`*^9, 3.548525818196011*^9, 3.548567885060711*^9, 
   3.548571064728767*^9, 3.54857501941608*^9, 3.548591602161972*^9, 
   3.548662108066135*^9, 3.548700129045052*^9, 3.548756265065939*^9, 
   3.548911253878353*^9, 3.5489306203912973`*^9, 3.548960806313881*^9, 
   3.549002189195073*^9, 3.549020877694441*^9, 3.54904354959223*^9, 
   3.549047037303863*^9, 3.549086285788332*^9, 3.549096283578094*^9, 
   3.54926031576917*^9, 3.549272937900209*^9, 3.549305081642858*^9, 
   3.549305297836615*^9, 3.549305808568904*^9, 3.5493588923792553`*^9, 
   3.549433156501528*^9, 3.549462321987433*^9, 3.549540255493012*^9, 
   3.550921594060822*^9, 3.550990726597528*^9, 3.550996434540811*^9, 
   3.5509966020314302`*^9, 3.555347247911504*^9, 3.5573921136946793`*^9, 
   3.557403159513452*^9, 3.5574664771518707`*^9, 3.557579395090081*^9, 
   3.557635982308978*^9, 3.558441148903664*^9, 3.558549894074505*^9, 
   3.560007750760811*^9, 3.560044421926373*^9, 3.560185509090601*^9, 
   3.5601862951958113`*^9, 3.5601863702088614`*^9, 3.560186519134851*^9, 
   3.560222889658163*^9, 3.560256433090027*^9, 3.5602689382770147`*^9, 
   3.560269939456365*^9, 3.560271424835088*^9, 3.560516265935104*^9, 
   3.560521608960037*^9, 3.560534296265588*^9, 3.560535157256485*^9, 
   3.5608423259494534`*^9, 3.5608444463507023`*^9, 3.561176817243038*^9, 
   3.56121085811976*^9, 3.561269183320415*^9, 3.561275609771536*^9, 
   3.561276951130904*^9, 3.561302861684257*^9, 3.561305378498448*^9, 
   3.561308567625441*^9, 3.561308798205126*^9, {3.561360322621798*^9, 
   3.5613600791364717`*^9}, 3.7281150301748323`*^9, 3.731234882530293*^9},
 CellLabel->
  "Out[369]=",ExpressionUUID->"f3e25b3d-d974-4bc3-9beb-c14e0f48421f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expA", "\[Equal]", "%"}]], "Input",
 CellChangeTimes->{{3.5250011388791733`*^9, 3.525001146536109*^9}, {
  3.52508194179161*^9, 3.525081952626768*^9}, {3.525083167569128*^9, 
  3.525083180097307*^9}, {3.546002180535143*^9, 3.546002191623191*^9}},
 CellLabel->
  "In[370]:=",ExpressionUUID->"4d7b9028-c6eb-4ef2-83f5-4e77bc7740f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox["s",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`sUnphys[],
       Editable->False], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"d", 
            StyleBox[GridBox[{
               {" "},
               {"\[Alpha]"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Alpha]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Alpha]],
        Editable->False]}]}], ")"}]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {"\[Alpha]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], 
    RowBox[{"12", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.525001149326213*^9, 3.5250707304223337`*^9, 3.525070814499042*^9, 
   3.525072722357905*^9, 3.5250818751403913`*^9, 3.525081953040016*^9, 
   3.5250831805283012`*^9, 3.525187154802895*^9, 3.525240265963765*^9, 
   3.525243919750897*^9, 3.525397556356379*^9, 3.525398691870275*^9, 
   3.525493481354993*^9, 3.525660885309526*^9, 3.525661927588335*^9, 
   3.525662995907035*^9, 3.525673302497274*^9, 3.5460006550171623`*^9, 
   3.546002193099843*^9, 3.546021372429503*^9, 3.546057631388425*^9, 
   3.546064602030961*^9, 3.5460911449015512`*^9, 3.5463256227617607`*^9, 
   3.548247504717309*^9, 3.548404562326089*^9, 3.5484812602015057`*^9, 
   3.548511440755539*^9, 3.5485258182268133`*^9, 3.548567885101632*^9, 
   3.548571064767222*^9, 3.5485750194982986`*^9, 3.548591602195325*^9, 
   3.548662108110991*^9, 3.548700129080405*^9, 3.548756265110594*^9, 
   3.548911253909679*^9, 3.548930620427175*^9, 3.548960806340259*^9, 
   3.549002189221983*^9, 3.549020877708445*^9, 3.5490435496182947`*^9, 
   3.549047037335643*^9, 3.549086285801147*^9, 3.549096283617839*^9, 
   3.549260315818667*^9, 3.5492729379479227`*^9, 3.5493050816718407`*^9, 
   3.549305297863678*^9, 3.5493058085980577`*^9, 3.5493588924275103`*^9, 
   3.549433156536483*^9, 3.549462322030075*^9, 3.549540255536068*^9, 
   3.550921594098435*^9, 3.5509907266400537`*^9, 3.5509964345557747`*^9, 
   3.550996602048889*^9, 3.555347247953738*^9, 3.557392113738858*^9, 
   3.557403159559532*^9, 3.557466477182508*^9, 3.557579395101686*^9, 
   3.5576359823399153`*^9, 3.558441148917892*^9, 3.558549894101973*^9, 
   3.560007750801456*^9, 3.560044421940502*^9, 3.5601855091250067`*^9, 
   3.56018629520984*^9, 3.5601863702423973`*^9, 3.560186519175107*^9, 
   3.560222889679975*^9, 3.560256433129541*^9, 3.560268938311247*^9, 
   3.560269939485285*^9, 3.560271424866123*^9, 3.560516266008687*^9, 
   3.560521608976194*^9, 3.5605342962940073`*^9, 3.560535157286162*^9, 
   3.5608423259852858`*^9, 3.5608444463700438`*^9, 3.561176817280807*^9, 
   3.56121085816355*^9, 3.561269183359682*^9, 3.56127560978789*^9, 
   3.561276951165769*^9, 3.561302861732041*^9, 3.561305378539515*^9, 
   3.561308567668947*^9, 3.561308798223487*^9, {3.561360322646462*^9, 
   3.561360079151044*^9}, 3.728115030201597*^9, 3.73123488255882*^9},
 CellLabel->
  "Out[370]=",ExpressionUUID->"ab6575a0-33cc-4ea6-85dc-76f7637c6837"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContractMetric", "/@", "%"}]], "Input",
 CellChangeTimes->{{3.525081920170179*^9, 3.525081930083858*^9}, {
  3.525083183386709*^9, 3.5250831843921633`*^9}},
 CellLabel->
  "In[371]:=",ExpressionUUID->"d1377c6e-ff3e-4b02-a739-5b7577a8ba8e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["s",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`sUnphys[],
     Editable->False]}], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {"\[Alpha]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
      Editable->False]}], 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]], "+", 
   FractionBox[
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], 
    RowBox[{"12", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]], "+", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.525081930676817*^9, 3.52508318487081*^9, 3.5251871548388243`*^9, 
   3.525240265991802*^9, 3.5252439197862864`*^9, 3.52539755638729*^9, 
   3.525398691901389*^9, 3.5254934813891897`*^9, 3.525660885346779*^9, 
   3.525661927620829*^9, 3.5256629959364367`*^9, 3.5256733025547123`*^9, 
   3.5460006585319433`*^9, 3.546002205760635*^9, 3.5460213725532923`*^9, 
   3.54605763141707*^9, 3.5460646020514393`*^9, 3.546091144974483*^9, 
   3.5463256227881002`*^9, 3.548247504737055*^9, 3.5484045623378897`*^9, 
   3.548481260236474*^9, 3.548511440774859*^9, 3.548525818252211*^9, 
   3.5485678851369753`*^9, 3.5485710647937727`*^9, 3.548575019542815*^9, 
   3.548591602209732*^9, 3.548662108127912*^9, 3.548700129091296*^9, 
   3.548756265134296*^9, 3.548911253939378*^9, 3.548930620466488*^9, 
   3.5489608064270077`*^9, 3.549002189250049*^9, 3.5490208777484417`*^9, 
   3.549043549647311*^9, 3.549047037370257*^9, 3.549086285842905*^9, 
   3.549096283637274*^9, 3.549260315842683*^9, 3.5492729379625263`*^9, 
   3.5493050816999207`*^9, 3.549305297874161*^9, 3.5493058086120787`*^9, 
   3.549358892444491*^9, 3.549433156550618*^9, 3.54946232206146*^9, 
   3.549540255567483*^9, 3.550921594113125*^9, 3.550990726682427*^9, 
   3.5509964345911503`*^9, 3.550996602064023*^9, 3.555347247996043*^9, 
   3.557392113781865*^9, 3.5574031595928593`*^9, 3.557466477190638*^9, 
   3.557579395131353*^9, 3.5576359823700237`*^9, 3.558441148932341*^9, 
   3.5585498941320353`*^9, 3.5600077508406982`*^9, 3.5600444219758263`*^9, 
   3.560185509142002*^9, 3.5601862952462587`*^9, 3.560186370257168*^9, 
   3.5601865192267017`*^9, 3.560222889700006*^9, 3.560256433167639*^9, 
   3.560268938484376*^9, 3.5602699395142097`*^9, 3.560271424883847*^9, 
   3.560516266066915*^9, 3.560521609016358*^9, 3.560534296304434*^9, 
   3.560535157294778*^9, 3.560842326017531*^9, 3.560844446405685*^9, 
   3.5611768173861217`*^9, 3.5612108582084827`*^9, 3.561269183401431*^9, 
   3.561275609824325*^9, 3.561276951201007*^9, 3.56130286175525*^9, 
   3.561305378558549*^9, 3.561308567688982*^9, 3.561308798269738*^9, {
   3.561360322685885*^9, 3.561360079168672*^9}, 3.728115030221822*^9, 
   3.731234882588545*^9},
 CellLabel->
  "Out[371]=",ExpressionUUID->"76774268-aafd-4c55-8eb2-382cb006b99e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{"%", ",", 
     RowBox[{"sUnphys", "[", "]"}]}], "]"}], "//", "Flatten"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.5250012169035997`*^9, 3.525001252534642*^9}},
 CellLabel->
  "In[372]:=",ExpressionUUID->"d7da77e8-f199-414b-b073-4fb73b36eb4f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox["s",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`sUnphys[],
    Editable->False], "\[Rule]", 
   FractionBox[
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", 
        OverscriptBox["\[Del]", "~"], "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCDTildeg[],
      Editable->False], "+", 
     RowBox[{"12", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"\[ScriptF]", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[ScriptF][$CellContext`\[Alpha]],
       Editable->False], " ", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False], "2"]}], "+", 
     RowBox[{"12", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {" "},
              {"\[Alpha]"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"d", 
             StyleBox[GridBox[{
                {"\[Alpha]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
         Editable->False], "-", 
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"\[ScriptF]", 
              StyleBox[GridBox[{
                 {"\[Alpha]"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
               FontSize->Rational[39, 4]]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Center}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}, "RowsIndexed" -> {}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptF][$CellContext`\[Alpha]],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["\[CapitalTheta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[CapitalTheta][],
          Editable->False]}]}], ")"}]}]}], 
    RowBox[{"24", " ", 
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.525001253204543*^9, 3.525070733318182*^9, 3.525070814540001*^9, 
   3.525072722540821*^9, 3.5250831860930862`*^9, 3.525187154877248*^9, 
   3.525240266024263*^9, 3.525243919825375*^9, 3.525397556420659*^9, 
   3.5253986919426126`*^9, 3.525493481432337*^9, 3.525660885389578*^9, 
   3.525661927653193*^9, 3.52566299597437*^9, 3.525673302614728*^9, 
   3.546000661928652*^9, 3.546002208037243*^9, 3.546021372600765*^9, 
   3.546057631467614*^9, 3.546064602104789*^9, 3.5460911450324173`*^9, 
   3.546325622860025*^9, 3.548247504792572*^9, 3.548404562376348*^9, 
   3.548481260278226*^9, 3.548511440799732*^9, 3.5485258182854567`*^9, 
   3.548567885175609*^9, 3.5485710648279133`*^9, 3.5485750195821943`*^9, 
   3.548591602231559*^9, 3.5486621081673517`*^9, 3.548700129121172*^9, 
   3.548756265185587*^9, 3.548911253979466*^9, 3.548930620528373*^9, 
   3.548960806459449*^9, 3.549002189289323*^9, 3.5490208777709713`*^9, 
   3.549043549684874*^9, 3.549047037414297*^9, 3.549086285900917*^9, 
   3.549096283687748*^9, 3.54926031588223*^9, 3.5492729380031443`*^9, 
   3.549305081735455*^9, 3.549305297897287*^9, 3.549305808644403*^9, 
   3.549358892493783*^9, 3.5494331565826283`*^9, 3.5494623221060553`*^9, 
   3.5495402556182117`*^9, 3.55092159415049*^9, 3.55099072673243*^9, 
   3.550996434633215*^9, 3.550996602110161*^9, 3.555347248050852*^9, 
   3.5573921138346643`*^9, 3.5574031596407833`*^9, 3.557466477219389*^9, 
   3.55757939517257*^9, 3.5576359824122877`*^9, 3.558441148973073*^9, 
   3.558549894173285*^9, 3.56000775089668*^9, 3.5600444220212107`*^9, 
   3.5601855091784782`*^9, 3.5601862952949543`*^9, 3.560186370301199*^9, 
   3.560186519275324*^9, 3.560222889745829*^9, 3.5602564332137938`*^9, 
   3.56026893852927*^9, 3.560269939554208*^9, 3.560271424919228*^9, 
   3.560516266130789*^9, 3.560521609072644*^9, 3.5605342963287573`*^9, 
   3.560535157320856*^9, 3.560842326059948*^9, 3.5608444464448357`*^9, 
   3.561176817428348*^9, 3.561210858254784*^9, 3.561269183441193*^9, 
   3.56127560987475*^9, 3.5612769512375813`*^9, 3.561302861797325*^9, 
   3.56130537859898*^9, 3.5613085677414007`*^9, 3.5613087983329678`*^9, {
   3.56136032272465*^9, 3.561360079205051*^9}, 3.72811503024841*^9, 
   3.731234882620543*^9},
 CellLabel->
  "Out[372]=",ExpressionUUID->"c07b4e75-7ba3-4821-80c8-7ded9975743d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "@@", 
  RowBox[{"First", "@", "%"}]}]], "Input",
 CellChangeTimes->{{3.525001257927517*^9, 3.525001263343574*^9}},
 CellLabel->
  "In[373]:=",ExpressionUUID->"99690e05-d1d2-45c4-ba65-d463f35a13b9"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox["s",
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`sUnphys[],
   Editable->False], "\[Equal]", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", 
       OverscriptBox["\[Del]", "~"], "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCDTildeg[],
     Editable->False], "+", 
    RowBox[{"12", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"\[ScriptF]", 
          StyleBox[GridBox[{
             {"\[Alpha]"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[ScriptF][$CellContext`\[Alpha]],
      Editable->False], " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["\[CapitalTheta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[CapitalTheta][],
       Editable->False], "2"]}], "+", 
    RowBox[{"12", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"d", 
          StyleBox[GridBox[{
             {" "},
             {"\[Alpha]"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
      Editable->False], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"d", 
            StyleBox[GridBox[{
               {"\[Alpha]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
        Editable->False], "-", 
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"\[ScriptF]", 
             StyleBox[GridBox[{
                {"\[Alpha]"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
              FontSize->Rational[39, 4]]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Center}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptF][$CellContext`\[Alpha]],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox["\[CapitalTheta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[CapitalTheta][],
         Editable->False]}]}], ")"}]}]}], 
   RowBox[{"24", " ", 
    InterpretationBox[
     StyleBox["\[CapitalTheta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalTheta][],
     Editable->False]}]]}]], "Output",
 CellChangeTimes->{
  3.525001263969069*^9, 3.525070734246676*^9, 3.525070814572771*^9, 
   3.5250727226052437`*^9, 3.525083191981072*^9, 3.525187154902563*^9, 
   3.525240266051393*^9, 3.525243919864524*^9, 3.525397556448739*^9, 
   3.525398692061988*^9, 3.525493481465626*^9, 3.52566088542194*^9, 
   3.525661927682857*^9, 3.525662996004877*^9, 3.525673302670561*^9, 
   3.546000663411824*^9, 3.5460022093853292`*^9, 3.54602137266539*^9, 
   3.54605763152248*^9, 3.5460646021300993`*^9, 3.5460911451165247`*^9, 
   3.546325622916133*^9, 3.548247504807775*^9, 3.548404562411757*^9, 
   3.548481260311034*^9, 3.5485114408158197`*^9, 3.548525818308978*^9, 
   3.548567885219077*^9, 3.548571064854926*^9, 3.54857501961174*^9, 
   3.5485916023033857`*^9, 3.5486621081874447`*^9, 3.548700129129533*^9, 
   3.5487562652284317`*^9, 3.548911254012082*^9, 3.548930620571453*^9, 
   3.5489608064834757`*^9, 3.549002189317833*^9, 3.549020877830037*^9, 
   3.549043549711855*^9, 3.549047037422491*^9, 3.5490862859435387`*^9, 
   3.549096283730364*^9, 3.549260315924205*^9, 3.5492729380469923`*^9, 
   3.549305081764234*^9, 3.549305297921921*^9, 3.549305808671425*^9, 
   3.549358892509053*^9, 3.5494331566123457`*^9, 3.549462322139192*^9, 
   3.549540255649517*^9, 3.550921594170271*^9, 3.5509907267771606`*^9, 
   3.550996434668993*^9, 3.5509966021573057`*^9, 3.555347248092441*^9, 
   3.557392113958816*^9, 3.557403159674755*^9, 3.5574664772464333`*^9, 
   3.55757939520415*^9, 3.55763598242452*^9, 3.558441148986691*^9, 
   3.558549894204339*^9, 3.560007750932827*^9, 3.560044422055565*^9, 
   3.560185509211142*^9, 3.560186295330546*^9, 3.5601863703342733`*^9, 
   3.5601865193150883`*^9, 3.560222889785637*^9, 3.560256433230751*^9, 
   3.560268938564391*^9, 3.5602699395821342`*^9, 3.560271424932742*^9, 
   3.560516266181596*^9, 3.5605216090884733`*^9, 3.5605342963524437`*^9, 
   3.560535157329089*^9, 3.560842326089484*^9, 3.5608444464891863`*^9, 
   3.56117681746161*^9, 3.561210858412902*^9, 3.5612691834580097`*^9, 
   3.561275609910953*^9, 3.5612769512733192`*^9, 3.561302861811245*^9, 
   3.561305378638474*^9, 3.561308567792573*^9, 3.561308798374466*^9, {
   3.561360322762041*^9, 3.561360079235948*^9}, 3.728115030268902*^9, 
   3.731234882652046*^9},
 CellLabel->
  "Out[373]=",ExpressionUUID->"64c99ccd-cc1c-4cf9-a24c-edc348880408"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sUnphysToRicciPhys", "=", "%"}], ";"}]], "Input",
 CellChangeTimes->{{3.525001323645687*^9, 3.525001347827681*^9}},
 CellLabel->
  "In[374]:=",ExpressionUUID->"e63d1c8b-4070-4912-be76-a86ee6f326e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"#", ",", "24", ",", 
     RowBox[{"\[CapitalTheta]", "[", "]"}]}], "]"}], "&"}], "/@", 
  "sUnphysToRicciPhys"}]], "Input",
 CellChangeTimes->{{3.5460009063629436`*^9, 3.5460009293043337`*^9}},
 CellLabel->
  "In[375]:=",ExpressionUUID->"12c4c5f1-49df-437b-afeb-701f78c922b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"24", " ", 
   InterpretationBox[
    StyleBox["s",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`sUnphys[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[CapitalTheta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[CapitalTheta][],
    Editable->False]}], "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], "+", 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[ScriptF]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[ScriptF][$CellContext`\[Alpha]],
     Editable->False], " ", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["\[CapitalTheta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[CapitalTheta][],
      Editable->False], "2"]}], "+", 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
     Editable->False], " ", 
    RowBox[{"(", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"d", 
           StyleBox[GridBox[{
              {"\[Alpha]"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
       Editable->False], "-", 
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"\[ScriptF]", 
            StyleBox[GridBox[{
               {"\[Alpha]"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptF][$CellContext`\[Alpha]],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[CapitalTheta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[CapitalTheta][],
        Editable->False]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.546000930126782*^9, 3.546002540125366*^9, 3.54602137269042*^9, 
   3.546057631566082*^9, 3.546064602157938*^9, 3.546091145148039*^9, 
   3.546325622940394*^9, 3.5482475048311577`*^9, 3.54840456243039*^9, 
   3.548481260325526*^9, 3.548511440865472*^9, 3.548525819152184*^9, 
   3.5485678852323227`*^9, 3.548571064868308*^9, 3.548575019625087*^9, 
   3.548591602354149*^9, 3.5486621082318077`*^9, 3.548700129141199*^9, 
   3.548756265281204*^9, 3.548911254031481*^9, 3.548930620624886*^9, 
   3.548960806523533*^9, 3.549002189332217*^9, 3.5490208778732767`*^9, 
   3.5490435497268248`*^9, 3.5490470374387817`*^9, 3.549086285967978*^9, 
   3.549096283755205*^9, 3.549260315968*^9, 3.549272938069509*^9, 
   3.549305081779912*^9, 3.5493052979994698`*^9, 3.54930580868477*^9, 
   3.54935889253232*^9, 3.549433156633294*^9, 3.549462322152856*^9, 
   3.549540255723894*^9, 3.5509215942095327`*^9, 3.550990726802273*^9, 
   3.550996434688863*^9, 3.550996602179801*^9, 3.555347248112823*^9, 
   3.557392114021639*^9, 3.557403159688223*^9, 3.557466477258813*^9, 
   3.5575793952241917`*^9, 3.5576359824440813`*^9, 3.558441149007269*^9, 
   3.558549894221002*^9, 3.560007750960182*^9, 3.560044422078393*^9, 
   3.560185509237286*^9, 3.560186295350841*^9, 3.5601863703552437`*^9, 
   3.560186519408724*^9, 3.560222889812484*^9, 3.5602564332564507`*^9, 
   3.560268938584921*^9, 3.560269939603076*^9, 3.560271424954363*^9, 
   3.560516266281254*^9, 3.5605216091101427`*^9, 3.560534296366666*^9, 
   3.560535157342864*^9, 3.56084232611762*^9, 3.5608444465118103`*^9, 
   3.561176817486672*^9, 3.561210858433242*^9, 3.561269183483137*^9, 
   3.561275609934577*^9, 3.5612769512963457`*^9, 3.561302861847652*^9, 
   3.561305378682022*^9, 3.561308567844495*^9, 3.561308798396693*^9, {
   3.5613603227904253`*^9, 3.561360079315423*^9}, 3.7281150303002033`*^9, 
   3.731234882695043*^9},
 CellLabel->
  "Out[375]=",ExpressionUUID->"77d14026-397f-461b-8580-b004efe4c32a"]
}, Open  ]],

Cell["\<\
At the conformal boundary the conformal factor vanishes (but not its \
covariant derivative). Hence\
\>", "Text",
 CellChangeTimes->{{3.546001229237759*^9, 3.5460012563790073`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"\[CapitalTheta]", "[", "]"}], "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.546001293600971*^9, 3.546001299055286*^9}},
 CellLabel->
  "In[376]:=",ExpressionUUID->"b557cfd7-ed8d-430c-bba8-c925973dfe75"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"d", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`d\[Theta]S[$CellContext`\[Alpha]],
     Editable->False]}], "+", 
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False]}]}]], "Output",
 CellChangeTimes->{
  3.5460012995602903`*^9, 3.5460025435315*^9, 3.546021372703602*^9, 
   3.5460576315808372`*^9, 3.5460646021729317`*^9, 3.546091145214889*^9, 
   3.546325622953684*^9, 3.548247504844153*^9, 3.548404562440404*^9, 
   3.548481260332919*^9, 3.548511440882897*^9, 3.54852581917341*^9, 
   3.548567885239539*^9, 3.548571064874601*^9, 3.5485750196333733`*^9, 
   3.548591602368249*^9, 3.548662108244803*^9, 3.548700129147365*^9, 
   3.548756265331025*^9, 3.5489112540581627`*^9, 3.5489306206624317`*^9, 
   3.548960806550873*^9, 3.549002189357679*^9, 3.549020877884848*^9, 
   3.549043549734563*^9, 3.549047037445478*^9, 3.549086286003463*^9, 
   3.5490962837685347`*^9, 3.549260316011611*^9, 3.549272938081211*^9, 
   3.549305081805566*^9, 3.5493052980099983`*^9, 3.549305808691414*^9, 
   3.549358892545499*^9, 3.549433156644435*^9, 3.549462322160246*^9, 
   3.549540255763731*^9, 3.550921594226244*^9, 3.55099072681631*^9, 
   3.5509964347494993`*^9, 3.550996602191946*^9, 3.555347248124457*^9, 
   3.557392114062817*^9, 3.557403159695075*^9, 3.557466477265547*^9, 
   3.557579395232543*^9, 3.5576359824507723`*^9, 3.5584411490391817`*^9, 
   3.5585498942288847`*^9, 3.560007750974821*^9, 3.5600444221158323`*^9, 
   3.560185509269876*^9, 3.5601862953636913`*^9, 3.560186370367551*^9, 
   3.560186519420761*^9, 3.5602228898278093`*^9, 3.5602564332717953`*^9, 
   3.560268938596765*^9, 3.5602699396296167`*^9, 3.560271424966716*^9, 
   3.5605162663072567`*^9, 3.560521609146491*^9, 3.560534296374084*^9, 
   3.5605351573499947`*^9, 3.5608423261464167`*^9, 3.5608444465456457`*^9, 
   3.561176817501245*^9, 3.561210858446714*^9, 3.561269183516711*^9, 
   3.5612756099470654`*^9, 3.561276951309217*^9, 3.561302861877499*^9, 
   3.5613053786969223`*^9, 3.5613085678584757`*^9, 3.561308798434597*^9, {
   3.561360322824727*^9, 3.561360079331102*^9}, 3.7281150303185387`*^9, 
   3.731234882719902*^9},
 CellLabel->
  "Out[376]=",ExpressionUUID->"0e8dd887-71ce-49dd-ab7f-a755d50cac3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"(", 
   RowBox[{"ApplyRule", "[", 
    RowBox[{"Defined\[Theta]S", "/.", 
     RowBox[{
      RowBox[{"\[CapitalTheta]", "[", "]"}], "\[Rule]", "0"}]}], "]"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.546001365764976*^9, 3.54600139210567*^9}},
 CellLabel->
  "In[377]:=",ExpressionUUID->"58e996e8-9b31-4aac-9632-aae0d9486851"],

Cell[BoxData[
 RowBox[{"0", "\[Equal]", 
  RowBox[{
   InterpretationBox[
    StyleBox[
     RowBox[{"R", "[", 
      OverscriptBox["\[Del]", "~"], "]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`RicciScalarCDTildeg[],
    Editable->False], "+", 
   RowBox[{"12", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {" "},
            {"\[Alpha]"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[CapitalSigma]", 
         StyleBox[GridBox[{
            {"\[Alpha]"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[CapitalSigma]Unphys[$CellContext`\[Alpha]],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{{3.546001377091155*^9, 3.546001397509049*^9}, 
   3.546002547473127*^9, 3.546021372750963*^9, 3.546057631622796*^9, 
   3.5460646022210217`*^9, 3.546091145264867*^9, 3.546325623013937*^9, 
   3.548247504904151*^9, 3.548404562473338*^9, 3.548481260363468*^9, 
   3.5485114409203157`*^9, 3.548525819199236*^9, 3.548567885270542*^9, 
   3.5485710649007797`*^9, 3.5485750196675987`*^9, 3.548591602399749*^9, 
   3.548662108278469*^9, 3.548700129176365*^9, 3.548756265355983*^9, 
   3.548911254098474*^9, 3.548930620694664*^9, 3.548960806597473*^9, 
   3.549002189384287*^9, 3.549020877898713*^9, 3.5490435497646227`*^9, 
   3.549047037481296*^9, 3.549086286013694*^9, 3.549096283807661*^9, 
   3.549260316040289*^9, 3.5492729381218233`*^9, 3.549305081837166*^9, 
   3.549305298035499*^9, 3.549305808716464*^9, 3.5493588925842876`*^9, 
   3.549433156675251*^9, 3.549462322190864*^9, 3.549540255804573*^9, 
   3.550921594241003*^9, 3.550990726855687*^9, 3.5509964347840652`*^9, 
   3.550996602230369*^9, 3.555347248170538*^9, 3.557392114107149*^9, 
   3.557403159749383*^9, 3.557466477302287*^9, 3.557579395270282*^9, 
   3.557635982485407*^9, 3.558441149073909*^9, 3.558549894258457*^9, 
   3.560007751010314*^9, 3.560044422131811*^9, 3.5601855092885838`*^9, 
   3.5601862954025593`*^9, 3.56018637040056*^9, 3.560186519455151*^9, 
   3.560222889868383*^9, 3.560256433306362*^9, 3.5602689386297894`*^9, 
   3.560269939659176*^9, 3.560271424996579*^9, 3.560516266339342*^9, 
   3.56052160916341*^9, 3.5605342963965187`*^9, 3.560535157375785*^9, 
   3.560842326177156*^9, 3.560844446584073*^9, 3.561176817531617*^9, 
   3.5612108584930763`*^9, 3.561269183552322*^9, 3.56127560998335*^9, 
   3.561276951345173*^9, 3.561302861949662*^9, 3.5613053787330236`*^9, 
   3.5613085678989058`*^9, 3.561308798473626*^9, {3.561360322923808*^9, 
   3.561360079347206*^9}, 3.728115030337804*^9, 3.731234882755622*^9},
 CellLabel->
  "Out[377]=",ExpressionUUID->"b8f3aeea-6fdd-4d56-a2e2-ef03209beb28"]
}, Open  ]],

Cell[TextData[{
 "We recall that ",
 Cell[BoxData[
  InterpretationBox[
   StyleBox[GridBox[{
      {"\[CapitalSigma]", 
       StyleBox[GridBox[{
          {" "},
          {"\[Alpha]"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
              Offset[0.]}}, "RowsIndexed" -> {}}],
        FontSize->9]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`\[CapitalSigma]Unphys[-$CellContext`\[Alpha]],
   Editable->False]], "Output",
  CellChangeTimes->{{3.546001377091155*^9, 3.546001397509049*^9}}],
 " is just the gradient of the conformal factor which is different from zero \
at the conformal boundary. Therefore the previous expression enables us to \
determine the \[OpenCurlyDoubleQuote]causal character\[CloseCurlyDoubleQuote] \
of the conformal boundary."
}], "Text",
 CellChangeTimes->{{3.5460014112429447`*^9, 3.546001452724914*^9}, {
  3.5460025580187893`*^9, 3.546002581114572*^9}}]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1395, 748},
WindowMargins->{{Automatic, 66}, {6, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification->1.5,
FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 227, 4, 147, "Title",ExpressionUUID->"36382883-8916-491d-a737-5ead42e3ac32"],
Cell[797, 28, 197, 3, 54, "Text",ExpressionUUID->"20557ddb-950f-4ab8-8468-d22c90f4dff3"],
Cell[CellGroupData[{
Cell[1019, 35, 213, 4, 81, "Subsection",ExpressionUUID->"5d750807-e4e9-4839-b9c5-f60a785ca10b"],
Cell[CellGroupData[{
Cell[1257, 43, 203, 3, 1640, "Input",ExpressionUUID->"dc994d09-78a2-429d-8276-8a109d0e54cb"],
Cell[CellGroupData[{
Cell[1485, 50, 3736, 55, 70, "Print",ExpressionUUID->"f2605b0c-d34f-4a17-8546-2b9997726d60"],
Cell[5224, 107, 4008, 63, 70, "Print",ExpressionUUID->"a4a71840-8597-4c2e-b07b-3c4cda1e74df"],
Cell[9235, 172, 3759, 55, 70, "Print",ExpressionUUID->"5a8e5136-b87e-4575-8d52-f6d05531979e"],
Cell[12997, 229, 3716, 54, 70, "Print",ExpressionUUID->"69f1e3cc-1cde-4ff3-9115-9fb0612d3a4a"],
Cell[16716, 285, 3697, 54, 70, "Print",ExpressionUUID->"54d83816-4bc4-4578-97b9-aba6ed1dbf2f"],
Cell[20416, 341, 3738, 55, 70, "Print",ExpressionUUID->"074b5618-28be-4f44-a466-ac319531bf9c"],
Cell[24157, 398, 4012, 63, 70, "Print",ExpressionUUID->"bfd8b203-e941-4cb6-a45e-4265b83bc53b"],
Cell[28172, 463, 3757, 55, 70, "Print",ExpressionUUID->"19e6b331-160a-46c3-a3ea-2e44e5eef9a7"],
Cell[31932, 520, 3736, 55, 70, "Print",ExpressionUUID->"cb2f2060-f033-4b45-b6f3-aff90369afad"],
Cell[35671, 577, 3891, 57, 70, "Print",ExpressionUUID->"5b869a7d-e3cc-4a9a-8134-32c6538c307d"],
Cell[39565, 636, 3736, 55, 70, "Print",ExpressionUUID->"c57a2263-c480-436e-87a6-6f2b9ad9b4a6"]
}, Open  ]]
}, Open  ]],
Cell[43328, 695, 108, 1, 1599, "Text",ExpressionUUID->"0d53dab7-2377-407f-9ac1-27cdfe85c6fe"],
Cell[43439, 698, 137, 2, 1640, "Input",ExpressionUUID->"9a72d7b7-2c57-4160-8154-ec0a844a0d80"],
Cell[43579, 702, 236, 4, 1640, "Input",ExpressionUUID->"e4b5f0b0-3a87-4ac0-ad40-d7298cfe6e69"],
Cell[43818, 708, 347, 8, 1640, "Input",ExpressionUUID->"7bfa232c-e3c2-4df9-8bce-30d021c3a3b2"],
Cell[44168, 718, 515, 13, 2706, "Input",ExpressionUUID->"48451fe8-6095-41fd-ad21-3afb51ea23a0"],
Cell[44686, 733, 431, 10, 1640, "Input",ExpressionUUID->"3e150d26-8cb6-41b9-b8e5-2b1eb93be9dc"],
Cell[45120, 745, 114, 1, 1599, "Text",ExpressionUUID->"a6dd9706-82b9-42c0-8359-13a316faedee"],
Cell[CellGroupData[{
Cell[45259, 750, 512, 11, 1640, "Input",ExpressionUUID->"c8ec8473-3c75-4044-879d-0bca28db54c1"],
Cell[CellGroupData[{
Cell[45796, 765, 2860, 46, 70, "Print",ExpressionUUID->"6e671b8d-a88b-48a4-8a6e-52fe6c5caec8"],
Cell[48659, 813, 2868, 46, 70, "Print",ExpressionUUID->"d5145841-9971-4868-8b1d-19e4d1e05b97"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[51588, 866, 177, 3, 55, "Subsection",ExpressionUUID->"da77d62d-89a5-4c3c-9194-3d664b4166ab"],
Cell[51768, 871, 316, 8, 90, "Text",ExpressionUUID->"1fb50071-907f-413f-b166-3a178dd4d707"],
Cell[CellGroupData[{
Cell[52109, 883, 707, 15, 47, "Input",ExpressionUUID->"2f8c3ff9-5d29-4ad4-b9d4-6ef829c08f23"],
Cell[CellGroupData[{
Cell[52841, 902, 4276, 68, 70, "Print",ExpressionUUID->"dc30dc5c-0bf6-4b62-b304-149fec67bf61"],
Cell[57120, 972, 4406, 70, 70, "Print",ExpressionUUID->"fc813357-29fc-49f5-889a-89067524462f"],
Cell[61529, 1044, 4381, 69, 70, "Print",ExpressionUUID->"0514a215-0b79-4734-9b83-b4715d94c0c6"],
Cell[65913, 1115, 4401, 69, 70, "Print",ExpressionUUID->"95464fd8-7924-45c0-8e65-bb4bf0070ae6"],
Cell[70317, 1186, 4172, 65, 70, "Print",ExpressionUUID->"3646c2a1-77f7-4707-9f3f-be2d9f897780"],
Cell[74492, 1253, 4316, 68, 70, "Print",ExpressionUUID->"74ec83f1-d50a-4368-9489-b689972cdee2"],
Cell[78811, 1323, 4334, 69, 70, "Print",ExpressionUUID->"3ecb1693-c671-421e-9b4c-986fdcd72ddf"],
Cell[83148, 1394, 4376, 69, 70, "Print",ExpressionUUID->"bdf71789-e7e4-4f6e-bf3f-8cce1bd300f6"],
Cell[87527, 1465, 4268, 68, 70, "Print",ExpressionUUID->"e85cacaa-fe78-4c3b-9cb5-ecc54c0615bb"],
Cell[91798, 1535, 3743, 54, 70, "Print",ExpressionUUID->"eabcc15d-7358-4de2-af00-8f7b598813d1"],
Cell[95544, 1591, 4121, 63, 70, "Print",ExpressionUUID->"bfe4e8d6-14bb-40dc-9bef-1bebec190ce0"],
Cell[99668, 1656, 3749, 54, 70, "Print",ExpressionUUID->"f6ade3dc-cbff-4ccd-9b45-6baaec2857b7"],
Cell[103420, 1712, 4284, 69, 70, "Print",ExpressionUUID->"ea20aa4e-82cb-48db-9161-91851c10d38e"],
Cell[107707, 1783, 4359, 68, 70, "Print",ExpressionUUID->"9f6a3bf0-32f1-43ba-bfde-e4a07bc23cda"],
Cell[112069, 1853, 4276, 68, 70, "Print",ExpressionUUID->"9df670b5-8c1d-4ee0-b0a4-56419006079e"],
Cell[116348, 1923, 4134, 63, 70, "Print",ExpressionUUID->"889e5724-8235-423a-a734-ff10e5e2c8eb"],
Cell[120485, 1988, 3878, 58, 70, "Print",ExpressionUUID->"777c904a-6d30-4bc5-ab23-4551c2f1ae1f"],
Cell[124366, 2048, 3872, 58, 70, "Print",ExpressionUUID->"2ca0a0e2-7104-4c9e-a123-63bae6c72c97"],
Cell[128241, 2108, 3882, 58, 70, "Print",ExpressionUUID->"0ea8008a-87f6-48b1-9cec-20bbffb405eb"],
Cell[132126, 2168, 4158, 63, 70, "Print",ExpressionUUID->"a2fdfa3e-c72c-4755-ad83-92b6b86464f2"]
}, Open  ]]
}, Open  ]],
Cell[136311, 2235, 373, 8, 105, "Input",ExpressionUUID->"5bac8434-1f9c-4b68-9f75-8f8ef168d053"]
}, Closed]],
Cell[CellGroupData[{
Cell[136721, 2248, 202, 3, 55, "Subsection",ExpressionUUID->"a984f6ef-5902-497f-a8b0-77a5e2008cf7"],
Cell[136926, 2253, 114, 1, 54, "Text",ExpressionUUID->"00f8efb6-9005-4800-aaab-4d1c2924b994"],
Cell[CellGroupData[{
Cell[137065, 2258, 851, 20, 51, "Input",ExpressionUUID->"0da9c0e1-b330-4d0c-9d87-f733bc2136eb"],
Cell[137919, 2280, 4022, 61, 32, "Message",ExpressionUUID->"f72f089a-e0d8-4bd7-875a-b03d22fc7538"],
Cell[CellGroupData[{
Cell[141966, 2345, 4212, 68, 36, "Print",ExpressionUUID->"43117b88-f6f4-44ee-89dd-72d058b168df"],
Cell[146181, 2415, 4202, 66, 36, "Print",ExpressionUUID->"221f231f-b087-4a7f-9abb-cce6269c4788"],
Cell[150386, 2483, 4344, 71, 36, "Print",ExpressionUUID->"2b81ce33-1cb4-4dee-8d8a-2b49e25a012d"],
Cell[154733, 2556, 4311, 68, 36, "Print",ExpressionUUID->"1d0afcfb-ffd0-456e-9a42-dacd505f3840"],
Cell[159047, 2626, 4333, 69, 36, "Print",ExpressionUUID->"73ebf311-9ee7-441c-a8d7-31176fe9d5e9"],
Cell[163383, 2697, 4120, 65, 36, "Print",ExpressionUUID->"f9bc11b4-5a83-4a5b-9e68-7378c6b12b1c"],
Cell[167506, 2764, 4262, 68, 36, "Print",ExpressionUUID->"0207ce22-308c-4380-aca7-31e009670257"],
Cell[171771, 2834, 4282, 69, 36, "Print",ExpressionUUID->"220292f5-b85a-47fb-9117-d038b2b1eb73"],
Cell[176056, 2905, 4330, 69, 36, "Print",ExpressionUUID->"835923ec-183e-49e6-8104-13996c8e4b3b"],
Cell[180389, 2976, 4384, 70, 70, "Print",ExpressionUUID->"6c8d84fd-c732-490b-a1ca-a35873510f0a"],
Cell[184776, 3048, 4216, 68, 70, "Print",ExpressionUUID->"be76a3d2-85d0-497e-b390-e0a4181a45a2"],
Cell[188995, 3118, 3680, 54, 70, "Print",ExpressionUUID->"b2e80b89-84e3-4507-bff0-dc39ec621229"],
Cell[192678, 3174, 4072, 63, 70, "Print",ExpressionUUID->"5f8a569f-0850-4a59-94cc-de89833ffec6"],
Cell[196753, 3239, 3685, 54, 70, "Print",ExpressionUUID->"69697171-b67d-46ca-80ac-f996df82929c"],
Cell[200441, 3295, 4230, 69, 70, "Print",ExpressionUUID->"d6fe61af-dfb6-4793-bc84-b35579e1c08f"],
Cell[204674, 3366, 4309, 68, 70, "Print",ExpressionUUID->"50c5f13c-b2fc-461b-b968-82324ed93664"],
Cell[208986, 3436, 4224, 68, 70, "Print",ExpressionUUID->"af50c2cf-708f-4b73-b9ed-073607e60abb"],
Cell[213213, 3506, 4082, 63, 70, "Print",ExpressionUUID->"1a7710a4-1d13-47f0-993b-0f872e0afca3"],
Cell[217298, 3571, 3818, 58, 70, "Print",ExpressionUUID->"d2611bc2-00be-41eb-b7e2-c6892e84ade4"],
Cell[221119, 3631, 3819, 58, 70, "Print",ExpressionUUID->"dd0bb2fe-8bc2-4b88-bec9-f9c7908a43d7"],
Cell[224941, 3691, 4089, 63, 70, "Print",ExpressionUUID->"f579e2b5-864b-4c37-b75e-87ff078054f2"]
}, Open  ]]
}, Open  ]],
Cell[229057, 3758, 377, 8, 105, "Input",ExpressionUUID->"a03c92cd-b0e3-4eaa-967d-51c901dba235"],
Cell[229437, 3768, 102, 1, 121, "Text",ExpressionUUID->"c7581485-9dca-4500-b025-14a757a9b460"],
Cell[CellGroupData[{
Cell[229564, 3773, 273, 5, 105, "Input",ExpressionUUID->"95cb4f76-dacf-4025-8e91-6d128bee8766"],
Cell[229840, 3780, 4038, 62, 70, "Print",ExpressionUUID->"5ea5dabb-e108-40e4-91b8-8f149cd4f1a0"]
}, Open  ]],
Cell[233893, 3845, 200, 4, 121, "Text",ExpressionUUID->"3fcb22af-4790-4e37-9244-ba1914bbff0c"],
Cell[CellGroupData[{
Cell[234118, 3853, 615, 16, 105, "Input",ExpressionUUID->"fed0d8f1-81ba-405b-9798-786440cb20e9"],
Cell[234736, 3871, 5856, 117, 70, "Output",ExpressionUUID->"07d72f42-ff5d-48ab-9818-90f12b0a6a39"]
}, Open  ]],
Cell[240607, 3991, 231, 4, 105, "Input",ExpressionUUID->"695276f9-66ef-47f0-9d8c-f2a6a4781dda"],
Cell[CellGroupData[{
Cell[240863, 3999, 551, 14, 105, "Input",ExpressionUUID->"0c9c8612-25dd-43bf-8085-eea86ecc83d6"],
Cell[241417, 4015, 5881, 116, 70, "Output",ExpressionUUID->"b19d2184-edc1-485e-b247-b465236831d0"]
}, Open  ]],
Cell[247313, 4134, 233, 4, 105, "Input",ExpressionUUID->"a8664868-d0f5-4fb0-a39f-c5c720f0555b"],
Cell[CellGroupData[{
Cell[247571, 4142, 425, 10, 105, "Input",ExpressionUUID->"468729c1-22a9-4adb-9185-bcd2bdf286bd"],
Cell[247999, 4154, 6902, 145, 70, "Output",ExpressionUUID->"2f03fcf6-1ec5-4396-8de3-3c29e69a07c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[254938, 4304, 534, 12, 105, "Input",ExpressionUUID->"501684fc-3c31-4a49-b98d-5728ae529044"],
Cell[255475, 4318, 5949, 118, 70, "Output",ExpressionUUID->"e93112ef-9779-431a-99b3-9b6adee71208"]
}, Open  ]],
Cell[261439, 4439, 232, 4, 105, "Input",ExpressionUUID->"d7eb8974-91f1-44ba-a5bc-9ce90421f5ab"],
Cell[261674, 4445, 410, 9, 105, "Input",ExpressionUUID->"c2298377-49f2-4c68-9410-4c456ad50559"],
Cell[CellGroupData[{
Cell[262109, 4458, 255, 4, 153, "Subsubsection",ExpressionUUID->"1b0a6568-d312-46fe-ac0e-12d9600ee6fc"],
Cell[262367, 4464, 112, 1, 92171, "Text",ExpressionUUID->"ae6ef62e-d45c-454f-9ce4-b32b8743ace8"],
Cell[CellGroupData[{
Cell[262504, 4469, 125, 1, 94479, "Input",ExpressionUUID->"8621ec99-6c06-48df-a7bf-24d924dde179"],
Cell[262632, 4472, 5966, 118, 70, "Output",ExpressionUUID->"381c7296-5ce8-463c-ad16-c25a8b8a1835"]
}, Open  ]],
Cell[268613, 4593, 216, 4, 92171, "Text",ExpressionUUID->"8a95f165-94f4-429f-abd4-140534a0e23b"],
Cell[CellGroupData[{
Cell[268854, 4601, 302, 6, 94479, "Input",ExpressionUUID->"3e0931f8-23d6-4e15-99bc-0e605c007dce"],
Cell[269159, 4609, 6745, 139, 70, "Output",ExpressionUUID->"72449daf-9eca-44d8-979b-335dba9ec714"]
}, Open  ]],
Cell[275919, 4751, 230, 5, 92171, "Text",ExpressionUUID->"780753f6-9587-4deb-9300-76951918fd48"],
Cell[CellGroupData[{
Cell[276174, 4760, 298, 7, 94479, "Input",ExpressionUUID->"6e9dad69-f5b6-480b-a5c0-34cab120d5de"],
Cell[276475, 4769, 3855, 60, 70, "Print",ExpressionUUID->"9a5ace94-a30b-4e40-92a7-7c500aa5608d"],
Cell[280333, 4831, 10781, 242, 70, "Output",ExpressionUUID->"1bf8430e-545a-4a82-b1aa-e7cf58f0b52b"]
}, Open  ]],
Cell[291129, 5076, 216, 4, 94479, "Input",ExpressionUUID->"d06c55dd-bbd9-401b-8bbe-901327f56933"],
Cell[291348, 5082, 113, 1, 92171, "Text",ExpressionUUID->"58186ddd-c27d-40eb-b151-20a199f3e25e"],
Cell[CellGroupData[{
Cell[291486, 5087, 725, 20, 94479, "Input",ExpressionUUID->"a8110672-a557-41c8-b1d1-2d638247315f"],
Cell[292214, 5109, 10757, 240, 70, "Output",ExpressionUUID->"13ea6c71-1417-491e-a5ec-9395729df526"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303008, 5354, 727, 20, 94479, "Input",ExpressionUUID->"1a7d09de-33d4-47fd-bb0d-0ea04105e37b"],
Cell[303738, 5376, 10736, 240, 70, "Output",ExpressionUUID->"063fe68c-e44f-4fd0-b530-e314a395d3ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314511, 5621, 327, 7, 94479, "Input",ExpressionUUID->"042cf40c-6974-4179-bcd8-b3c452ca7054"],
Cell[314841, 5630, 25059, 617, 70, "Output",ExpressionUUID->"2936e599-ab2c-4fc5-86e8-67728c34ed11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339937, 6252, 205, 3, 94479, "Input",ExpressionUUID->"24d75624-75ee-4fef-9545-6e92a04e2734"],
Cell[340145, 6257, 11171, 264, 70, "Output",ExpressionUUID->"8dd8353a-1341-4ca2-b287-fb7604adb477"]
}, Open  ]],
Cell[351331, 6524, 1441, 36, 98113, "Text",ExpressionUUID->"903e52ec-8ece-44bf-bced-7d0a177d6143"],
Cell[CellGroupData[{
Cell[352797, 6564, 463, 11, 94479, "Input",ExpressionUUID->"69ff68eb-7f2d-4b18-95b2-2f3c7e1f9cb3"],
Cell[353263, 6577, 12788, 298, 70, "Output",ExpressionUUID->"706f7f83-bfb5-4542-9f0d-1402d3186a87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[366088, 6880, 434, 10, 94479, "Input",ExpressionUUID->"604dbc80-22e7-4bc7-98f6-e1c5a49bf516"],
Cell[366525, 6892, 11228, 267, 70, "Output",ExpressionUUID->"3fe4988d-bab2-4b6b-8c74-0002a2697ca9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[377790, 7164, 237, 4, 94479, "Input",ExpressionUUID->"7ea025eb-f769-46f8-b53b-1cc2cd0bedec"],
Cell[378030, 7170, 11041, 260, 70, "Output",ExpressionUUID->"c62e58f3-93b1-40c7-94ce-0135d402bbc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[389108, 7435, 248, 4, 94479, "Input",ExpressionUUID->"fe9006ef-deff-4c95-807c-526a42046e37"],
Cell[389359, 7441, 10973, 259, 70, "Output",ExpressionUUID->"64a30688-8a18-47ef-bf0b-a2e32f00c783"]
}, Open  ]],
Cell[CellGroupData[{
Cell[400369, 7705, 298, 5, 94479, "Input",ExpressionUUID->"cbd4f334-b086-4ab4-ba72-49761e32e394"],
Cell[400670, 7712, 10983, 259, 70, "Output",ExpressionUUID->"9880e2a5-94e4-4dfe-9aa8-d089c5b622db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[411690, 7976, 548, 14, 216452, "Input",ExpressionUUID->"47a5891f-5c45-4f7b-af3f-8d01e371d524"],
Cell[412241, 7992, 10409, 240, 70, "Output",ExpressionUUID->"bed41197-8617-417e-9285-c25ce0b0fe95"]
}, Open  ]],
Cell[422665, 8235, 241, 4, 94479, "Input",ExpressionUUID->"7025a927-9445-411c-84c4-959eb27c5ac1"],
Cell[422909, 8241, 240, 5, 92171, "Text",ExpressionUUID->"cfb275e9-fda2-44ae-8348-83cbbcc396e3"],
Cell[CellGroupData[{
Cell[423174, 8250, 380, 9, 94479, "Input",ExpressionUUID->"3a71d72e-d353-4ae3-8e81-9b8f1a500492"],
Cell[423557, 8261, 3758, 59, 70, "Print",ExpressionUUID->"6113c624-7041-441c-b3a2-c4b775bae871"]
}, Open  ]],
Cell[427330, 8323, 256, 5, 149944, "Text",ExpressionUUID->"8dcd35a7-0aae-44e9-a770-71d784edf819"],
Cell[CellGroupData[{
Cell[427611, 8332, 1066, 23, 94479, "Input",ExpressionUUID->"086d8163-6e38-438f-960e-8716fbec08fd"],
Cell[428680, 8357, 13898, 329, 70, "Output",ExpressionUUID->"1c525f62-dd42-4fce-87fb-4a186225d026"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442615, 8691, 507, 13, 94479, "Input",ExpressionUUID->"5041ff3b-35f0-474e-822b-3f273835aaf1"],
Cell[443125, 8706, 13490, 313, 70, "Output",ExpressionUUID->"92cca81f-16fe-4826-bb89-10481f4891fb"]
}, Open  ]],
Cell[456630, 9022, 205, 4, 92171, "Text",ExpressionUUID->"6b685272-4478-4a81-889e-a73b1128ff4c"],
Cell[CellGroupData[{
Cell[456860, 9030, 233, 4, 94479, "Input",ExpressionUUID->"e4117457-d8e7-4a71-9873-13e1dc12204b"],
Cell[457096, 9036, 12335, 284, 70, "Output",ExpressionUUID->"c4900001-a406-41b1-872d-02936bef3fd3"]
}, Open  ]],
Cell[469446, 9323, 294, 5, 94479, "Input",ExpressionUUID->"a9605fb9-f7cd-4b51-9603-3f8ef48307a4"],
Cell[469743, 9330, 138, 1, 92171, "Text",ExpressionUUID->"2431a046-2480-49e8-a18d-774969567043"],
Cell[CellGroupData[{
Cell[469906, 9335, 870, 22, 156026, "Input",ExpressionUUID->"8f2db1fd-655c-4eb3-9e44-7ddfa727571c"],
Cell[470779, 9359, 3877, 60, 70, "Print",ExpressionUUID->"7c80ed61-9837-4d34-a7af-3483af04a52c"]
}, Open  ]],
Cell[474671, 9422, 97, 1, 92171, "Text",ExpressionUUID->"ef6f22c2-a64c-4963-8554-823e50f32274"],
Cell[CellGroupData[{
Cell[474793, 9427, 660, 14, 94479, "Input",ExpressionUUID->"fadb2852-69a0-4cb5-b440-d5a91eb616b9"],
Cell[475456, 9443, 11207, 257, 70, "Output",ExpressionUUID->"629eba13-7853-4618-a458-f74e8f758b7d"]
}, Open  ]],
Cell[486678, 9703, 255, 5, 94479, "Input",ExpressionUUID->"57d07c9c-75ed-4145-be2a-5dc90d7c154b"],
Cell[486936, 9710, 3546, 81, 98113, "Text",ExpressionUUID->"9ea7711c-8913-4600-ad84-1170ed238713"],
Cell[CellGroupData[{
Cell[490507, 9795, 325, 7, 94479, "Input",ExpressionUUID->"704b4a2f-e9c0-40af-a71e-ca714f6e150c"],
Cell[490835, 9804, 11362, 260, 70, "Output",ExpressionUUID->"f926a498-7000-444a-9777-81ad1674c963"]
}, Open  ]],
Cell[CellGroupData[{
Cell[502234, 10069, 411, 10, 94479, "Input",ExpressionUUID->"ec387a45-ee27-4e50-af15-4e8c4b96d44a"],
Cell[502648, 10081, 11464, 261, 70, "Output",ExpressionUUID->"55818a17-a0eb-41b7-83c7-33e7bfb2d849"]
}, Open  ]],
Cell[CellGroupData[{
Cell[514149, 10347, 228, 4, 94479, "Input",ExpressionUUID->"1c30366b-34e1-46fe-8da2-1c675e3c78ae"],
Cell[514380, 10353, 11245, 260, 70, "Output",ExpressionUUID->"a3b90548-1ef3-4ab4-8297-df0cd806b107"]
}, Open  ]],
Cell[CellGroupData[{
Cell[525662, 10618, 292, 7, 94479, "Input",ExpressionUUID->"24082216-49b9-47e4-834a-9c7d6dcfa8e2"],
Cell[525957, 10627, 10971, 254, 70, "Output",ExpressionUUID->"f0fc36bf-0788-437b-8fb7-71175298f460"]
}, Open  ]],
Cell[536943, 10884, 228, 4, 94479, "Input",ExpressionUUID->"d52269a0-268d-41f2-be80-ee0a04228630"],
Cell[537174, 10890, 156, 3, 92171, "Text",ExpressionUUID->"3d925ddf-6aa7-4e8b-91d2-554331129552"],
Cell[CellGroupData[{
Cell[537355, 10897, 270, 4, 94479, "Input",ExpressionUUID->"81ef2630-2d8d-49fe-8aed-abc5f14a763b"],
Cell[537628, 10903, 6429, 130, 70, "Output",ExpressionUUID->"402ad488-0246-44a3-be23-475d43e8a2ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[544094, 11038, 207, 3, 94479, "Input",ExpressionUUID->"dd2db046-51ee-4301-a145-2c9b77bc2b2a"],
Cell[544304, 11043, 6395, 130, 70, "Output",ExpressionUUID->"d7dd74c4-c869-46b7-8576-08be57f80efe"]
}, Open  ]],
Cell[550714, 11176, 216, 4, 94479, "Input",ExpressionUUID->"b184dcc2-96f7-4aa7-9161-c4d479345867"]
}, Closed]],
Cell[CellGroupData[{
Cell[550967, 11185, 204, 3, 121, "Subsubsection",ExpressionUUID->"896987da-610c-4593-8ee0-664ce68651cc"],
Cell[551174, 11190, 162, 3, 7972438, "Text",ExpressionUUID->"e63c0c2e-9c7c-43a9-a308-04391d1265f3"],
Cell[CellGroupData[{
Cell[551361, 11197, 690, 17, 13495707, "Input",ExpressionUUID->"83ebda50-9a70-44d1-80a1-414753ba30c5"],
Cell[552054, 11216, 13556, 314, 70, "Output",ExpressionUUID->"6d2788dd-d316-4d30-ac4d-a87e5477c052"]
}, Open  ]],
Cell[CellGroupData[{
Cell[565647, 11535, 349, 8, 8172139, "Input",ExpressionUUID->"11917740-6b6f-48a7-845d-27b0036150e2"],
Cell[565999, 11545, 18555, 444, 70, "Output",ExpressionUUID->"e40ff8d1-0222-4feb-9225-c9bba13cba32"]
}, Open  ]],
Cell[584569, 11992, 165, 3, 7972438, "Text",ExpressionUUID->"7f466edd-8102-4c21-9414-155a6ddc2ce0"],
Cell[CellGroupData[{
Cell[584759, 11999, 255, 4, 8172139, "Input",ExpressionUUID->"ec68e1c3-a5ed-4845-baf7-3118fc30c17a"],
Cell[585017, 12005, 84538, 2144, 70, "Output",ExpressionUUID->"1de99b33-a14b-4997-949b-e0482715b8e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[669592, 14154, 266, 5, 2147483647, "Input",ExpressionUUID->"915e0ebc-62f1-4fe3-8b85-673673a491a1"],
Cell[669861, 14161, 18667, 476, 70, "Output",ExpressionUUID->"0641295b-d664-4b3e-a4cc-d1ba198b432a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[688565, 14642, 208, 3, 2147483647, "Input",ExpressionUUID->"f97057b2-2bb5-4b3e-8c79-ae32cf9d1cad"],
Cell[688776, 14647, 18703, 476, 70, "Output",ExpressionUUID->"b4cee62a-633d-4baa-9e49-4e83033a149d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[707516, 15128, 205, 3, 2147483647, "Input",ExpressionUUID->"d304c9b9-c338-48e7-bd93-9dbcf2940c97"],
Cell[707724, 15133, 18691, 476, 70, "Output",ExpressionUUID->"4ae8a1be-0cf8-41b4-a66b-7cea1be2dbbb"]
}, Open  ]],
Cell[726430, 15612, 287, 5, 2147483647, "Input",ExpressionUUID->"e0e14963-0896-4739-a2e4-d8709dda77a9"],
Cell[726720, 15619, 181, 4, 2147483647, "Text",ExpressionUUID->"26402689-c54d-47fc-ac04-14786fc7730b"],
Cell[CellGroupData[{
Cell[726926, 15627, 365, 6, 2147483647, "Input",ExpressionUUID->"6a86a1bb-435a-4b00-a370-66788aac2559"],
Cell[727294, 15635, 11603, 282, 70, "Output",ExpressionUUID->"4cecb58f-162d-46e7-a58d-1797b38d14c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[738934, 15922, 200, 4, 2147483647, "Input",ExpressionUUID->"e1de4939-0770-4a54-973c-d36fdc96fab7"],
Cell[739137, 15928, 9875, 233, 70, "Output",ExpressionUUID->"e8862421-593d-426b-be5e-628316026aee"]
}, Open  ]],
Cell[749027, 16164, 235, 4, 8172139, "Input",ExpressionUUID->"822f1404-7f7b-43b5-a135-5fd4eeb9ca02"],
Cell[CellGroupData[{
Cell[749287, 16172, 483, 11, 8172139, "Input",ExpressionUUID->"b57d3c30-e5cb-4f80-a9c0-2421e8e9358f"],
Cell[749773, 16185, 12423, 300, 70, "Output",ExpressionUUID->"82d1bf17-11c2-40b5-9935-cb02b0b033e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[762233, 16490, 202, 3, 8172139, "Input",ExpressionUUID->"455d3b27-c97e-4462-bb0a-e0b58eed5499"],
Cell[762438, 16495, 13569, 337, 70, "Output",ExpressionUUID->"0e13d4b9-70a3-49ae-b6f9-08808e807ea5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[776044, 16837, 247, 4, 8172139, "Input",ExpressionUUID->"09692063-a686-45c0-a793-553e0dd5a6ba"],
Cell[776294, 16843, 6892, 156, 70, "Output",ExpressionUUID->"c3ea258d-d876-4ef8-9a49-e475957b790c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[783223, 17004, 315, 6, 8172139, "Input",ExpressionUUID->"f7b0903f-9e03-41fc-8a3d-2e05138e0603"],
Cell[783541, 17012, 5274, 111, 70, "Output",ExpressionUUID->"0def1662-850f-472a-8555-1505f8e50815"]
}, Open  ]],
Cell[CellGroupData[{
Cell[788852, 17128, 329, 8, 8172139, "Input",ExpressionUUID->"433509cb-aaf4-4fa3-ba64-8d07545d633a"],
Cell[789184, 17138, 5260, 110, 70, "Output",ExpressionUUID->"b693ee20-3056-4112-acd0-61f2f3cdd5f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[794481, 17253, 199, 3, 8172139, "Input",ExpressionUUID->"f4aeb77d-10dc-4bce-9146-51f2e23ff8c2"],
Cell[794683, 17258, 5308, 110, 70, "Output",ExpressionUUID->"dcc09535-b6a5-45d6-8a9e-e7959855e427"]
}, Open  ]],
Cell[800006, 17371, 246, 4, 8172139, "Input",ExpressionUUID->"a4825906-ddab-475f-81fc-caedd408e9a6"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[800301, 17381, 163, 3, 55, "Subsection",ExpressionUUID->"b8fa8e4e-2c15-489d-bc7f-606aef1d952e"],
Cell[800467, 17386, 116, 1, 54, "Text",ExpressionUUID->"dde842db-9e71-414b-86dc-9459b6dfa2eb"],
Cell[CellGroupData[{
Cell[800608, 17391, 346, 7, 47, "Input",ExpressionUUID->"c6b1a8b8-7917-4cc0-8609-19fcf674df45"],
Cell[800957, 17400, 4030, 62, 36, "Print",ExpressionUUID->"2388c70d-f351-4ce9-a9e0-92d76e4009ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[805024, 17467, 496, 12, 53, "Input",ExpressionUUID->"ccd4854f-0f3f-416e-b3fa-d2688f16028d"],
Cell[CellGroupData[{
Cell[805545, 17483, 4029, 64, 36, "Print",ExpressionUUID->"0c66481a-b7ad-4907-b953-5d7a7806311b"],
Cell[809577, 17549, 4171, 67, 36, "Print",ExpressionUUID->"6a20486d-0925-4afd-bffd-a003fe75fa1f"],
Cell[813751, 17618, 4190, 68, 36, "Print",ExpressionUUID->"2d0db28f-fb83-4660-af05-cbcd8f216024"],
Cell[817944, 17688, 4291, 69, 36, "Print",ExpressionUUID->"0e7382ff-f627-4b3b-adfe-afad8deaae88"],
Cell[822238, 17759, 4135, 67, 36, "Print",ExpressionUUID->"8c7ef1f9-cb29-4702-b429-920bb552f783"],
Cell[826376, 17828, 3594, 53, 36, "Print",ExpressionUUID->"af1c2272-281b-4a75-bdfd-8a2ce14d0081"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[830019, 17887, 733, 20, 47, "Input",ExpressionUUID->"342b47e7-dfde-4ede-b316-1e8921621bba"],
Cell[830755, 17909, 6763, 141, 58, "Output",ExpressionUUID->"63bfe2a2-807a-4681-a5de-bf7615fb3dd2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[837555, 18055, 198, 3, 68, "Subsubsection",ExpressionUUID->"2b9dc33b-cead-4de7-8683-a60a544ffdfd"],
Cell[837756, 18060, 261, 5, 2147483647, "Text",ExpressionUUID->"ea2325eb-a364-408f-a7fa-de0a834fd0c1"],
Cell[CellGroupData[{
Cell[838042, 18069, 363, 8, 2147483647, "Input",ExpressionUUID->"955bc56f-bb21-4bb2-9ecd-f690549777a2"],
Cell[838408, 18079, 4160, 65, 70, "Print",ExpressionUUID->"b18b5008-f901-4f49-a127-3d8fb1882674"],
Cell[842571, 18146, 10251, 232, 70, "Output",ExpressionUUID->"39cd2dfb-5398-447a-bf57-3f9a9ee05732"]
}, Open  ]],
Cell[852837, 18381, 216, 4, 2147483647, "Input",ExpressionUUID->"a698ff02-f428-46eb-b60a-ac617b221fc6"],
Cell[CellGroupData[{
Cell[853078, 18389, 725, 20, 2147483647, "Input",ExpressionUUID->"c85dfc2c-f22d-4000-9631-e651684b9847"],
Cell[853806, 18411, 10327, 234, 70, "Output",ExpressionUUID->"34741651-71e2-486f-b812-0916d0439860"]
}, Open  ]],
Cell[CellGroupData[{
Cell[864170, 18650, 727, 20, 2147483647, "Input",ExpressionUUID->"7c7309be-25b6-4921-bfa5-36f4d4cb8557"],
Cell[864900, 18672, 10303, 234, 70, "Output",ExpressionUUID->"55e891d8-3607-4b38-8bb3-8ce01ea8f7ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[875240, 18911, 501, 12, 2147483647, "Input",ExpressionUUID->"cf32313f-a3d2-41e7-a054-b1f1039a6ffc"],
Cell[875744, 18925, 23919, 599, 70, "Output",ExpressionUUID->"aa613a76-3c35-42cd-b196-ddf445702917"]
}, Open  ]],
Cell[CellGroupData[{
Cell[899700, 19529, 205, 3, 2147483647, "Input",ExpressionUUID->"0905bc44-4f62-4b4b-8d0e-424a02409f3b"],
Cell[899908, 19534, 12229, 287, 70, "Output",ExpressionUUID->"00f4ec77-5dde-461d-acd0-29a8fbaee74a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[912174, 19826, 306, 6, 2147483647, "Input",ExpressionUUID->"6368bea8-af55-472e-b86c-0239a6715552"],
Cell[912483, 19834, 11148, 257, 70, "Output",ExpressionUUID->"e9de062b-78f2-4059-9dcf-12ad9f7e94e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[923668, 20096, 568, 14, 2147483647, "Input",ExpressionUUID->"0feb7fdf-85f7-465e-bc7e-379c9db53b47"],
Cell[924239, 20112, 11419, 261, 70, "Output",ExpressionUUID->"65d4d6f9-052b-4f42-a8b7-34dd938a0abd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[935695, 20378, 965, 20, 2147483647, "Input",ExpressionUUID->"6204d2a6-4462-49f7-8a1b-67872d6c2e9c"],
Cell[936663, 20400, 13419, 314, 70, "Output",ExpressionUUID->"e555470d-d9b2-4a1f-9db4-c4fbc3b6c7c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[950119, 20719, 520, 12, 2147483647, "Input",ExpressionUUID->"a2feac5e-f934-4fe2-85f0-9249a9931b4f"],
Cell[950642, 20733, 14099, 339, 70, "Output",ExpressionUUID->"0d2164bd-c49d-4195-acce-27ff164e9e11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[964778, 21077, 488, 10, 2147483647, "Input",ExpressionUUID->"a364e3e6-cacd-4624-bb8a-2ebbad0989e2"],
Cell[965269, 21089, 12564, 287, 70, "Output",ExpressionUUID->"49c28b1a-b6f5-4307-b27b-ed07c6b37922"]
}, Open  ]],
Cell[977848, 21379, 115, 1, 2147483647, "Text",ExpressionUUID->"1e9f27ef-5409-4fd0-a072-e1e7e7306264"],
Cell[CellGroupData[{
Cell[977988, 21384, 233, 4, 2147483647, "Input",ExpressionUUID->"c63fe636-fb17-4830-be12-cd646ffd3dba"],
Cell[978224, 21390, 12579, 287, 70, "Output",ExpressionUUID->"367df128-d56c-43cf-8ffb-32b2e1b48c0c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[990840, 21682, 318, 5, 2147483647, "Input",ExpressionUUID->"2daf59c6-342b-4fc3-932d-75d232cf9ffb"],
Cell[991161, 21689, 6953, 142, 70, "Output",ExpressionUUID->"d9f19a13-4558-4d77-b141-2f1271f3f999"]
}, Open  ]],
Cell[998129, 21834, 239, 4, 2147483647, "Input",ExpressionUUID->"409dbd08-8a06-4088-bb59-dbacda7af720"]
}, Closed]],
Cell[CellGroupData[{
Cell[998405, 21843, 266, 5, 54, "Subsubsection",ExpressionUUID->"f1b0c9e6-dd4e-4e87-91e3-257543816f90"],
Cell[CellGroupData[{
Cell[998696, 21852, 741, 18, 2147483647, "Input",ExpressionUUID->"f35d037b-4945-4201-bab0-915100955702"],
Cell[999440, 21872, 13442, 311, 70, "Output",ExpressionUUID->"6a99a81c-4ac2-44fd-a21d-14a2e06b07b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1012919, 22188, 302, 5, 2147483647, "Input",ExpressionUUID->"2046e786-4795-49f9-b8bd-bca239cc2732"],
Cell[1013224, 22195, 23896, 590, 70, "Output",ExpressionUUID->"17b3df8b-c61c-4212-9482-373c9afc8d64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1037157, 22790, 243, 4, 2147483647, "Input",ExpressionUUID->"c86f7914-5784-421a-bcd1-5dbefa933a52"],
Cell[1037403, 22796, 54699, 1389, 70, "Output",ExpressionUUID->"436194f2-0929-4dd9-9066-3ad0b627526c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1092139, 24190, 266, 5, 2147483647, "Input",ExpressionUUID->"3c35b429-6866-4f3a-bfff-290fb98d6654"],
Cell[1092408, 24197, 40196, 1046, 70, "Output",ExpressionUUID->"ffb1f43c-7851-4a20-bf0b-84a2f0cd65cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1132641, 25248, 208, 3, 2147483647, "Input",ExpressionUUID->"4018d5d3-e295-4e7f-9505-c09dfb9c481e"],
Cell[1132852, 25253, 40187, 1046, 70, "Output",ExpressionUUID->"43ca90bd-9d43-468a-a3ec-5ff4dd73a0ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1173076, 26304, 205, 3, 2147483647, "Input",ExpressionUUID->"913e9a04-3534-414c-84b3-ebf02f80d54d"],
Cell[1173284, 26309, 40196, 1046, 70, "Output",ExpressionUUID->"37af77fa-d03a-4187-854a-1422e553f346"]
}, Open  ]],
Cell[1213495, 27358, 338, 6, 2147483647, "Input",ExpressionUUID->"5087bea7-a23a-4028-a8ba-0370bc67d4db"],
Cell[CellGroupData[{
Cell[1213858, 27368, 411, 6, 2147483647, "Input",ExpressionUUID->"af18ce3b-72e2-4a20-9336-7f7d59ed49cd"],
Cell[1214272, 27376, 20758, 525, 70, "Output",ExpressionUUID->"ba6a7072-4aab-41bd-8b46-52ace4d8093c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1235067, 27906, 200, 4, 2147483647, "Input",ExpressionUUID->"74b069dc-e927-489f-87a5-8707171be7ce"],
Cell[1235270, 27912, 15417, 379, 70, "Output",ExpressionUUID->"ada8487b-d8a9-4df1-a25e-b721fd6c721e"]
}, Open  ]],
Cell[1250702, 28294, 286, 5, 2147483647, "Input",ExpressionUUID->"7d048cea-dc89-4236-b40c-29aabf4bab85"],
Cell[CellGroupData[{
Cell[1251013, 28303, 326, 6, 2147483647, "Input",ExpressionUUID->"3a6a7890-a014-4909-bc18-ad36adcfe052"],
Cell[1251342, 28311, 12355, 298, 70, "Output",ExpressionUUID->"293c8b12-d533-4215-9f45-47f854ef6952"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1263734, 28614, 205, 3, 2147483647, "Input",ExpressionUUID->"ce6de810-2372-4773-89d1-66f533c31a86"],
Cell[1263942, 28619, 7944, 177, 70, "Output",ExpressionUUID->"05234a8c-aafa-4ed4-ae8e-0fbc6470444c"]
}, Open  ]],
Cell[1271901, 28799, 254, 5, 2147483647, "Input",ExpressionUUID->"05e3f44e-a220-468e-ae0c-4a642f8b8784"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1272204, 28810, 266, 4, 55, "Subsection",ExpressionUUID->"1806f347-2566-4baa-9f48-9c7b42af9c3b"],
Cell[CellGroupData[{
Cell[1272495, 28818, 120, 1, 68, "Subsubsection",ExpressionUUID->"9bd44810-d6d7-45ca-b93b-27fb89f5337d"],
Cell[CellGroupData[{
Cell[1272640, 28823, 605, 15, 2147483647, "Input",ExpressionUUID->"3a60c0c1-43d5-4732-8f48-40cfab7a4d09"],
Cell[1273248, 28840, 4062, 64, 70, "Print",ExpressionUUID->"8bd797c8-d7e1-49a7-9b90-c46feecdf5b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1277347, 28909, 960, 26, 2147483647, "Input",ExpressionUUID->"96c1d011-1c0e-440b-839e-ad8a25d6437a"],
Cell[1278310, 28937, 7171, 151, 70, "Output",ExpressionUUID->"d608e507-da28-4e2e-92b1-33df8c29c45d"]
}, Open  ]],
Cell[1285496, 29091, 231, 5, 2147483647, "Input",ExpressionUUID->"4e2542a1-6891-46be-b932-fceb4b6c3c76"],
Cell[CellGroupData[{
Cell[1285752, 29100, 548, 15, 2147483647, "Input",ExpressionUUID->"3406c14b-0a89-47df-8db7-af663b5527d3"],
Cell[1286303, 29117, 7173, 150, 70, "Output",ExpressionUUID->"d6958943-dba8-43df-8cd1-3fd3db399057"]
}, Open  ]],
Cell[1293491, 29270, 233, 5, 2147483647, "Input",ExpressionUUID->"0a88284a-04a1-454e-8539-742ae3e8b887"],
Cell[1293727, 29277, 225, 4, 2147483647, "Text",ExpressionUUID->"d25070af-c3ab-4db6-9127-710aca73f44a"],
Cell[CellGroupData[{
Cell[1293977, 29285, 723, 19, 2147483647, "Input",ExpressionUUID->"af175a8d-c1e2-4beb-9c0b-a6ee2e31e414"],
Cell[1294703, 29306, 19613, 483, 70, "Output",ExpressionUUID->"78696565-5e3a-46bc-97f7-b0914cd7bc5d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1314353, 29794, 247, 5, 2147483647, "Input",ExpressionUUID->"a169a77e-dc33-4a29-a255-fefb05122108"],
Cell[1314603, 29801, 25660, 649, 70, "Output",ExpressionUUID->"65fc63f8-b86b-41f4-a8a0-921098c0c3b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1340300, 30455, 209, 4, 2147483647, "Input",ExpressionUUID->"5053e8ca-f59d-4b0f-b799-95f469085290"],
Cell[1340512, 30461, 14378, 342, 70, "Output",ExpressionUUID->"8d345d7b-17d7-42c2-9493-2912fcef614e"]
}, Open  ]],
Cell[1354905, 30806, 244, 5, 2147483647, "Input",ExpressionUUID->"9d39fcf2-e79b-4472-af46-c72aa9ee1876"]
}, Closed]],
Cell[CellGroupData[{
Cell[1355186, 30816, 247, 5, 54, "Subsubsection",ExpressionUUID->"142df27f-4176-4894-a856-9b1aca26e9d4"],
Cell[1355436, 30823, 123, 1, 121, "Text",ExpressionUUID->"e7ee3fdb-45ab-4890-bb87-8c4ffec6927e"],
Cell[CellGroupData[{
Cell[1355584, 30828, 852, 23, 105, "Input",ExpressionUUID->"e3591b24-0d8a-4b60-bfef-540efc43a7ba"],
Cell[1356439, 30853, 7312, 150, 70, "Output",ExpressionUUID->"d0e40e01-aa8a-4d14-b761-209dbd527b6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1363788, 31008, 260, 5, 105, "Input",ExpressionUUID->"dea88655-c9b3-48f2-aef8-ac6b0d45ecf5"],
Cell[1364051, 31015, 34504, 884, 70, "Output",ExpressionUUID->"85a24f40-db66-4d5c-b9d6-5b536664cf35"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1398592, 31904, 209, 4, 105, "Input",ExpressionUUID->"2469fea5-6259-460a-85a3-2dfb48f70f29"],
Cell[1398804, 31910, 34492, 883, 70, "Output",ExpressionUUID->"ea9b8d29-d6ca-496e-8d8b-8a3fdeef32ce"]
}, Open  ]],
Cell[1433311, 32796, 242, 5, 105, "Input",ExpressionUUID->"8d8e583a-49ae-4fce-a92f-6e3040a005b9"],
Cell[CellGroupData[{
Cell[1433578, 32805, 342, 7, 105, "Input",ExpressionUUID->"2fa8f516-a961-447e-b305-05733c7ac517"],
Cell[1433923, 32814, 23038, 580, 70, "Output",ExpressionUUID->"be3c6e91-9434-4060-aeb2-3eb5a84626f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1456998, 33399, 270, 6, 105, "Input",ExpressionUUID->"72385fcd-aded-4e51-abce-02200915fa82"],
Cell[1457271, 33407, 16055, 391, 70, "Output",ExpressionUUID->"b8ca1ed4-42e6-4918-9b56-3d0cc13ff911"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1473363, 33803, 580, 16, 105, "Input",ExpressionUUID->"858551c3-c7c4-4a34-88ca-9e03c9a5acf6"],
Cell[1473946, 33821, 16393, 394, 70, "Output",ExpressionUUID->"8e128647-c7bd-4d4e-9ba0-34a71838c5c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1490376, 34220, 230, 5, 105, "Input",ExpressionUUID->"23e305a0-d9af-4636-b7ba-ce19854dc626"],
Cell[1490609, 34227, 16020, 393, 70, "Output",ExpressionUUID->"58c9b4bd-31c0-415a-a1e5-1a68c0971802"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1506666, 34625, 217, 4, 105, "Input",ExpressionUUID->"5dd69be0-9936-456a-8820-842e9e171bef"],
Cell[1506886, 34631, 16017, 393, 70, "Output",ExpressionUUID->"5738335d-e703-4742-9715-9f534e2d55cf"]
}, Open  ]],
Cell[1522918, 35027, 195, 4, 121, "Text",ExpressionUUID->"9c467c29-35e1-4096-8e5b-a2432e184320"],
Cell[CellGroupData[{
Cell[1523138, 35035, 311, 7, 105, "Input",ExpressionUUID->"cd0528c3-4148-4b9a-a096-ccc385dbba70"],
Cell[1523452, 35044, 12760, 304, 70, "Output",ExpressionUUID->"382fe033-fd7b-4580-97ea-ced26c826a6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1536249, 35353, 271, 6, 105, "Input",ExpressionUUID->"1d21486a-3fd1-40c8-87c1-e21cdeda1429"],
Cell[1536523, 35361, 5860, 118, 70, "Output",ExpressionUUID->"edf70555-ef06-4bca-a272-3c0710219e58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1542420, 35484, 538, 15, 105, "Input",ExpressionUUID->"dd04a04f-1505-4a23-82da-dbeaaa291125"],
Cell[1542961, 35501, 5601, 111, 70, "Output",ExpressionUUID->"78d9292e-ea1a-4487-bd21-488fbf3df2f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1548599, 35617, 203, 4, 105, "Input",ExpressionUUID->"e159284b-b43d-4b4b-9fe9-9b23c6345cd1"],
Cell[1548805, 35623, 5587, 111, 70, "Output",ExpressionUUID->"b42c0d8e-2a0a-4ad1-a26d-ec42c547fe37"]
}, Open  ]],
Cell[1554407, 35737, 118, 1, 121, "Text",ExpressionUUID->"eee9be3e-f186-4623-a863-6a5c467d66b5"],
Cell[CellGroupData[{
Cell[1554550, 35742, 328, 7, 105, "Input",ExpressionUUID->"cc8ac4ea-d9f0-4408-947e-f3c7a02449bd"],
Cell[1554881, 35751, 3717, 58, 70, "Print",ExpressionUUID->"a6d27c35-3f1e-4d86-ba6c-9f2a8e85b2a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1558635, 35814, 274, 5, 105, "Input",ExpressionUUID->"62defd74-c940-4bda-acc6-77ddda4583e8"],
Cell[1558912, 35821, 6980, 147, 70, "Output",ExpressionUUID->"d28cf67d-ac44-4a65-8ea0-6d4eede32d6f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1565941, 35974, 115, 1, 54, "Subsubsection",ExpressionUUID->"78381983-d95b-4922-a623-938e747c3b76"],
Cell[CellGroupData[{
Cell[1566081, 35979, 745, 19, 4302, "Input",ExpressionUUID->"a19c76dc-86d1-480c-97ca-c1e9840dcd85"],
Cell[1566829, 36000, 4061, 64, 70, "Print",ExpressionUUID->"d91c4c2f-73a4-415b-a46d-8b08b6cb03fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1570927, 36069, 1013, 27, 6088, "Input",ExpressionUUID->"7c910212-5027-48dd-bccd-4d9aa8676ffd"],
Cell[1571943, 36098, 7288, 156, 70, "Output",ExpressionUUID->"a20caca9-8e87-4a7c-b6c5-e33d81f20eea"]
}, Open  ]],
Cell[1579246, 36257, 229, 5, 3687, "Input",ExpressionUUID->"fa1a7363-813b-458e-9a10-2e954213fe74"],
Cell[CellGroupData[{
Cell[1579500, 36266, 499, 13, 3687, "Input",ExpressionUUID->"83117099-f6de-4449-8fef-7dfc76ed2089"],
Cell[1580002, 36281, 7355, 157, 70, "Output",ExpressionUUID->"71a3b538-d10f-4cbb-a8be-883188563ed5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1587394, 36443, 230, 5, 3687, "Input",ExpressionUUID->"10eb0462-3433-4d24-8ad9-05d93bda1825"],
Cell[1587627, 36450, 7179, 153, 70, "Output",ExpressionUUID->"05acb52f-fbb4-4c28-aa55-40ecfd353bd8"]
}, Open  ]],
Cell[1594821, 36606, 244, 5, 3687, "Input",ExpressionUUID->"0ec889f9-fd10-4b03-a3f2-0e162c10ae08"]
}, Closed]],
Cell[CellGroupData[{
Cell[1595102, 36616, 171, 2, 54, "Subsubsection",ExpressionUUID->"15aff5ee-1c90-4e6c-9a6f-05541a3d59d7"],
Cell[CellGroupData[{
Cell[1595298, 36622, 637, 15, 2147483647, "Input",ExpressionUUID->"dabcd0a8-7a82-4b70-9da8-4684ac37d767"],
Cell[1595938, 36639, 4064, 65, 70, "Print",ExpressionUUID->"ff1cc10c-3fad-4fb5-b89e-c930cf91cdf3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1600039, 36709, 1955, 51, 2147483647, "Input",ExpressionUUID->"463eb608-7de7-4ea4-a83b-400ff3adb764"],
Cell[1601997, 36762, 12424, 284, 70, "Output",ExpressionUUID->"f6bc5a24-904a-43f2-aac9-434951b2b16b"]
}, Open  ]],
Cell[1614436, 37049, 282, 6, 2147483647, "Input",ExpressionUUID->"24b3cc57-c9ab-45b1-b1c9-400d8f741699"],
Cell[CellGroupData[{
Cell[1614743, 37059, 546, 13, 2147483647, "Input",ExpressionUUID->"5afaaa2e-2a2b-43ef-967f-37be95488a22"],
Cell[1615292, 37074, 9604, 212, 70, "Output",ExpressionUUID->"1b844d17-bc07-4268-b73e-a914c82ccedd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1624933, 37291, 230, 5, 2147483647, "Input",ExpressionUUID->"8008ee9e-f3ed-43a0-8234-880a124e36b3"],
Cell[1625166, 37298, 9363, 205, 70, "Output",ExpressionUUID->"dfd2dc9d-2004-40d6-951a-a731b35f0bc9"]
}, Open  ]],
Cell[1634544, 37506, 289, 6, 2147483647, "Input",ExpressionUUID->"ff2898b4-874c-475b-a907-9494cf30dd52"]
}, Closed]],
Cell[CellGroupData[{
Cell[1634870, 37517, 177, 3, 54, "Subsubsection",ExpressionUUID->"1340cdec-4930-4997-b87b-22ccab793299"],
Cell[CellGroupData[{
Cell[1635072, 37524, 121, 2, 2147483647, "Input",ExpressionUUID->"fd3369b3-e757-4e0f-a3e8-5e3626a29dcd"],
Cell[1635196, 37528, 12182, 280, 70, "Output",ExpressionUUID->"8a1f76d6-fd97-48f3-a5bc-e5cffec7e48c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1647415, 37813, 252, 5, 2147483647, "Input",ExpressionUUID->"9b80fdd9-32b4-4ea3-b212-cabfb582a0f4"],
Cell[1647670, 37820, 44670, 1083, 70, "Output",ExpressionUUID->"82326510-c403-4ba8-925a-f7f8820fc88d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1692377, 38908, 271, 6, 2147483647, "Input",ExpressionUUID->"240d0e7a-1569-4726-bdd2-42f3f50d3b02"],
Cell[1692651, 38916, 47450, 1153, 70, "Output",ExpressionUUID->"b7a60166-e7b7-414d-a39f-ea964c00ae3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1740138, 40074, 248, 5, 2147483647, "Input",ExpressionUUID->"930cf42b-3554-4055-8beb-d761515750ff"],
Cell[1740389, 40081, 54571, 1331, 70, "Output",ExpressionUUID->"17016df9-d537-47ca-a1ee-05bc3de8bac9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1794997, 41417, 210, 4, 2147483647, "Input",ExpressionUUID->"a5c5b14b-556c-4064-851e-ffab78fc2852"],
Cell[1795210, 41423, 11825, 282, 70, "Output",ExpressionUUID->"c3c9fb90-9dfd-44eb-9d77-adb0187a451e"]
}, Open  ]],
Cell[1807050, 41708, 246, 5, 2147483647, "Input",ExpressionUUID->"8b659ce1-8167-4c08-a450-347ad9db2fa9"],
Cell[CellGroupData[{
Cell[1807321, 41717, 467, 12, 2147483647, "Input",ExpressionUUID->"16f8efc2-272b-4d06-b081-feb94fe61516"],
Cell[1807791, 41731, 12509, 292, 70, "Output",ExpressionUUID->"7d66ee04-2e98-4be1-bdc0-6c70739d0d09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1820337, 42028, 232, 5, 2147483647, "Input",ExpressionUUID->"32881e74-8271-4c17-b25d-f2fd5d83be06"],
Cell[1820572, 42035, 12162, 283, 70, "Output",ExpressionUUID->"cca40201-f4af-4cd5-9b97-f817e174a669"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1832771, 42323, 300, 8, 2147483647, "Input",ExpressionUUID->"3087ed27-7f25-4a94-b513-bf95ef0f3359"],
Cell[1833074, 42333, 14947, 351, 70, "Output",ExpressionUUID->"8ed791df-17f9-424a-9767-d09521c2f862"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1848058, 42689, 257, 5, 2147483647, "Input",ExpressionUUID->"80d7b76d-bcc1-4967-914c-d2c16859337c"],
Cell[1848318, 42696, 15977, 375, 70, "Output",ExpressionUUID->"281fc29c-b7b6-4682-84c8-c056f8b000ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1864332, 43076, 209, 4, 2147483647, "Input",ExpressionUUID->"f5b9898e-5e4c-4d2c-81e0-d58a8e2bc021"],
Cell[1864544, 43082, 14800, 365, 70, "Output",ExpressionUUID->"f8f2c102-2101-4ff8-a909-7b78be90fb05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1879381, 43452, 245, 5, 2147483647, "Input",ExpressionUUID->"a6c1f99e-3510-436c-9dc8-a20256cef309"],
Cell[1879629, 43459, 20495, 518, 70, "Output",ExpressionUUID->"e37a59e1-1d08-437d-8dec-8b33c3a4aac5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1900161, 43982, 269, 6, 2147483647, "Input",ExpressionUUID->"9034d22e-02b0-4002-987a-c1570089aa7e"],
Cell[1900433, 43990, 11363, 276, 70, "Output",ExpressionUUID->"f694a3a4-c7bc-42b7-8c43-33d7755b8bf2"]
}, Open  ]],
Cell[1911811, 44269, 297, 6, 2147483647, "Input",ExpressionUUID->"3e3c65c4-1598-4be3-a7a6-fbafdc11e20e"],
Cell[CellGroupData[{
Cell[1912133, 44279, 598, 14, 2147483647, "Input",ExpressionUUID->"355a4c4d-5db3-432d-9549-ee7e8f2f5f5e"],
Cell[1912734, 44295, 12378, 291, 70, "Output",ExpressionUUID->"caaa6553-fea6-4bf1-9fcb-a7c192c7c9d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1925149, 44591, 232, 5, 2147483647, "Input",ExpressionUUID->"ab83f876-2995-4108-96c6-83992e1480c7"],
Cell[1925384, 44598, 11971, 281, 70, "Output",ExpressionUUID->"8700dcb9-6313-41e7-97db-a5eab42c7d29"]
}, Open  ]],
Cell[1937370, 44882, 231, 5, 2147483647, "Input",ExpressionUUID->"b8dc83e8-9ae4-4104-808f-7e7173afdad3"]
}, Closed]],
Cell[CellGroupData[{
Cell[1937638, 44892, 283, 6, 54, "Subsubsection",ExpressionUUID->"073249f4-e833-49e9-aa84-4917bf565e2e"],
Cell[CellGroupData[{
Cell[1937946, 44902, 191, 3, 105, "Input",ExpressionUUID->"13ee29fe-2860-447c-a249-41acf4322857"],
Cell[1938140, 44907, 7149, 151, 70, "Output",ExpressionUUID->"2f1e6315-6521-4d20-b759-905fd82970de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1945326, 45063, 303, 6, 105, "Input",ExpressionUUID->"d85c25eb-2812-4961-92eb-b7ae649076f8"],
Cell[1945632, 45071, 11623, 277, 70, "Output",ExpressionUUID->"da1377d6-ac65-4e52-885d-c5bc854e17d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1957292, 45353, 318, 7, 105, "Input",ExpressionUUID->"7f60aef9-dfac-4765-a9e4-2ba33079bd06"],
Cell[1957613, 45362, 13372, 327, 70, "Output",ExpressionUUID->"0ecf4d1f-c385-4b37-a470-5619a21b2169"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1971022, 45694, 308, 6, 105, "Input",ExpressionUUID->"d908296a-5611-44fa-ab1e-2a027d36960e"],
Cell[1971333, 45702, 15057, 369, 70, "Output",ExpressionUUID->"049aa9ea-1f25-4ea2-ba89-14fdf793911d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1986427, 46076, 555, 13, 105, "Input",ExpressionUUID->"93e8b6be-2028-4a6f-8405-279cf8e1f3fd"],
Cell[1986985, 46091, 11113, 273, 70, "Output",ExpressionUUID->"e40cbb19-afe6-420a-a346-64db30ee3279"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1998135, 46369, 184, 4, 105, "Input",ExpressionUUID->"df5201f5-6e1f-4a3e-a364-5bb9a06e6766"],
Cell[1998322, 46375, 7768, 181, 70, "Output",ExpressionUUID->"361a05e2-500a-4847-a009-905cac609aa4"]
}, Open  ]],
Cell[2006105, 46559, 301, 7, 105, "Input",ExpressionUUID->"5c8dfc82-0ad3-45a8-980a-0373a3afd460"]
}, Closed]],
Cell[CellGroupData[{
Cell[2006443, 46571, 175, 3, 54, "Subsubsection",ExpressionUUID->"14140dd5-e99d-4188-8bc8-518a8ea5351b"],
Cell[2006621, 46576, 182, 2, 2147483647, "Text",ExpressionUUID->"75023e59-4c6b-4016-b65c-9642d8f2bc24"],
Cell[CellGroupData[{
Cell[2006828, 46582, 369, 8, 2147483647, "Input",ExpressionUUID->"06d697c6-1ce6-4fe7-b28a-dada21de3728"],
Cell[2007200, 46592, 3196, 50, 70, "Print",ExpressionUUID->"a5a15e07-161c-453b-a23e-7e06f75f845d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2010433, 46647, 641, 17, 2147483647, "Input",ExpressionUUID->"0ec6e4bd-2c1c-4d35-98f3-55dd67994a00"],
Cell[2011077, 46666, 5175, 114, 70, "Output",ExpressionUUID->"3f7faf9d-88f1-46c0-a2f5-5395a52a9b54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2016289, 46785, 302, 8, 2147483647, "Input",ExpressionUUID->"4197f29f-6d79-4cc6-be94-c8fc413f31d0"],
Cell[2016594, 46795, 5164, 114, 70, "Output",ExpressionUUID->"353f24c8-c286-48e8-9320-2e9e9e3d77c8"]
}, Open  ]],
Cell[2021773, 46912, 279, 6, 2147483647, "Input",ExpressionUUID->"3ad25507-e4b9-493c-93d6-a6b0dd812cde"],
Cell[CellGroupData[{
Cell[2022077, 46922, 388, 9, 2147483647, "Input",ExpressionUUID->"12bc8811-baf4-4d85-b0da-d66cfdc5a3e5"],
Cell[2022468, 46933, 5576, 123, 70, "Output",ExpressionUUID->"89be4f4b-1179-4f28-9bbc-ab013912049d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2028081, 47061, 232, 5, 2147483647, "Input",ExpressionUUID->"c58fd81a-cb4e-4165-a817-28a2a257451b"],
Cell[2028316, 47068, 5451, 122, 70, "Output",ExpressionUUID->"5ee77b72-dfe8-4a5c-9f49-8e6ff2751c4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2033804, 47195, 212, 4, 2147483647, "Input",ExpressionUUID->"d69c3d82-ef74-4404-8f7f-969fb2b6ef11"],
Cell[2034019, 47201, 5436, 122, 70, "Output",ExpressionUUID->"2e63b786-319d-4e29-8dbb-133afe7d2d8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2039492, 47328, 141, 2, 2147483647, "Input",ExpressionUUID->"e32fa9e4-61f7-4174-8203-dc65a0bae246"],
Cell[2039636, 47332, 11252, 274, 70, "Output",ExpressionUUID->"42435bc8-3049-42e6-9dc3-129322841652"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2050925, 47611, 270, 6, 2147483647, "Input",ExpressionUUID->"c7631477-811f-4a31-8f4b-0f1a77f71436"],
Cell[2051198, 47619, 13846, 352, 70, "Output",ExpressionUUID->"9a348090-0ba8-41ee-81cb-1eeee4e83785"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2065081, 47976, 304, 8, 2147483647, "Input",ExpressionUUID->"65a36173-6df4-4a9d-a2d2-e796643622ac"],
Cell[2065388, 47986, 15734, 403, 70, "Output",ExpressionUUID->"8b79037d-8235-4d39-9fcb-d109383b751e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2081159, 48394, 255, 5, 2147483647, "Input",ExpressionUUID->"bead1207-258c-41d3-ae74-d2f7c032edd9"],
Cell[2081417, 48401, 16736, 428, 70, "Output",ExpressionUUID->"b22d4858-4e18-483c-a19b-6515f72de783"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2098190, 48834, 297, 6, 2147483647, "Input",ExpressionUUID->"9a67b78b-592e-40a2-b738-da0a13fcc740"],
Cell[2098490, 48842, 22906, 580, 70, "Output",ExpressionUUID->"0591391d-eefe-45e6-88b0-9714827f387f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2121433, 49427, 481, 13, 2147483647, "Input",ExpressionUUID->"0a36483d-e1ec-4644-bf44-1c392ea29e84"],
Cell[2121917, 49442, 23642, 601, 70, "Output",ExpressionUUID->"fd70cbe8-1376-40bc-a189-60603cab4ec4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2145596, 50048, 232, 5, 2147483647, "Input",ExpressionUUID->"9391e877-407e-4250-938a-a285094e4ed2"],
Cell[2145831, 50055, 22934, 585, 70, "Output",ExpressionUUID->"da04a751-8af3-4cbe-9308-d7cc37e312f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2168802, 50645, 368, 8, 2147483647, "Input",ExpressionUUID->"54437017-6c32-4aa2-bac9-a579877f3fc5"],
Cell[2169173, 50655, 2865, 45, 70, "Message",ExpressionUUID->"a8ac4fc7-aa41-484c-a513-6a4cb73df2db"],
Cell[2172041, 50702, 20136, 533, 70, "Output",ExpressionUUID->"91ee36c1-aa6d-4ad5-ac1d-21f7296e5910"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2192214, 51240, 244, 5, 2147483647, "Input",ExpressionUUID->"20882019-9712-4b78-aa58-9716f8a180b1"],
Cell[2192461, 51247, 24919, 676, 70, "Output",ExpressionUUID->"08aae928-56db-41ac-9a67-35f49cb2a7b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2217417, 51928, 333, 6, 2147483647, "Input",ExpressionUUID->"aa75644b-c4ce-472c-9133-193d32b1faa5"],
Cell[2217753, 51936, 2872, 45, 70, "Message",ExpressionUUID->"898c28e2-01a2-4008-acde-fb267ddf9aaf"],
Cell[2220628, 51983, 11277, 278, 70, "Output",ExpressionUUID->"fc9863b9-40cd-457a-933f-973a06dfc23d"]
}, Open  ]],
Cell[2231920, 52264, 247, 5, 2147483647, "Input",ExpressionUUID->"9dbd8a55-0fea-486f-a4b2-ff0f9942f164"]
}, Closed]],
Cell[CellGroupData[{
Cell[2232204, 52274, 165, 3, 54, "Subsubsection",ExpressionUUID->"b932d6bb-4980-4845-a676-ca920bcfaed4"],
Cell[CellGroupData[{
Cell[2232394, 52281, 376, 9, 1076168, "Input",ExpressionUUID->"79e119cb-6e4a-48b3-8763-7f97437db8ee"],
Cell[2232773, 52292, 56019, 1443, 70, "Output",ExpressionUUID->"1cd0f56c-a3ae-4435-a94e-27e21b1d78aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2288829, 53740, 257, 5, 1076168, "Input",ExpressionUUID->"a18d7316-2484-4bcc-9385-71aaa5663627"],
Cell[2289089, 53747, 61975, 1597, 70, "Output",ExpressionUUID->"b5f78ea4-830c-4689-8f43-47ce948f9751"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2351101, 55349, 250, 5, 1076168, "Input",ExpressionUUID->"36c484ab-8e29-482d-8bc7-8e5b5734f595"],
Cell[2351354, 55356, 100957, 2565, 70, "Output",ExpressionUUID->"45fbb841-76f9-4275-859e-739fa077aa2a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2452348, 57926, 272, 6, 2147483647, "Input",ExpressionUUID->"8f3fa20f-861b-4683-8356-944f1e6be181"],
Cell[2452623, 57934, 40389, 1049, 70, "Output",ExpressionUUID->"63e5bc19-7233-40f8-8571-cbc5da54560e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2493049, 58988, 603, 15, 2147483647, "Input",ExpressionUUID->"f010e437-71b3-45d1-92f3-af701f62e998"],
Cell[2493655, 59005, 57238, 1484, 70, "Output",ExpressionUUID->"3217c9bb-4758-4e7a-b143-4c2b8a449c24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2550930, 60494, 273, 6, 2147483647, "Input",ExpressionUUID->"76bc6da1-a9e0-447e-b123-da9afeeac53b"],
Cell[2551206, 60502, 54280, 1411, 70, "Output",ExpressionUUID->"bd301ddb-7ca1-41ba-9611-38e6a270a628"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2605523, 61918, 272, 6, 1076168, "Input",ExpressionUUID->"a6d0e738-e014-4ef0-be3c-e6ed0a58e10d"],
Cell[2605798, 61926, 447, 10, 70, "Message",ExpressionUUID->"d3737bad-aa7f-4ad9-85ea-b59d78cf0366"],
Cell[2606248, 61938, 449, 10, 70, "Message",ExpressionUUID->"2ce749b6-77fa-4694-8026-5d2c0581656d"],
Cell[2606700, 61950, 53859, 1407, 70, "Output",ExpressionUUID->"a869ff6c-3fa2-459e-82bb-5ab774439996"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2660596, 63362, 272, 6, 1076168, "Input",ExpressionUUID->"c30eb62f-13b7-4520-bd62-0a8b0bafbffe"],
Cell[2660871, 63370, 81570, 2124, 70, "Output",ExpressionUUID->"b9d34cab-f32a-48c9-9a8d-b6ec3d6efd1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2742478, 65499, 270, 6, 1076168, "Input",ExpressionUUID->"1b840fe0-cab6-4987-a0d6-aa977b24e7d1"],
Cell[2742751, 65507, 51256, 1338, 70, "Output",ExpressionUUID->"e2a380ae-dca2-42c7-bc6c-19eb1b62d5e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2794044, 66850, 350, 10, 1076168, "Input",ExpressionUUID->"eff8fae7-b4f1-4322-8c76-1f3612a6ec04"],
Cell[2794397, 66862, 41942, 1055, 70, "Output",ExpressionUUID->"420a58f4-22ab-494f-99c3-4b5c4076bc1e"]
}, Open  ]],
Cell[2836354, 67920, 326, 7, 1076168, "Input",ExpressionUUID->"861661f7-7397-477f-8f70-3ed69cc7c9b7"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2836729, 67933, 229, 4, 55, "Subsection",ExpressionUUID->"f7f0e7fd-af22-4af4-abb5-5352e265d644"],
Cell[2836961, 67939, 168, 2, 54, "Text",ExpressionUUID->"2456cee9-6b2d-42e0-a8db-407670c4bca2"],
Cell[CellGroupData[{
Cell[2837154, 67945, 628, 17, 47, "Input",ExpressionUUID->"89caa878-d816-4d5b-8899-dcdf1c898669"],
Cell[2837785, 67964, 5696, 117, 97, "Output",ExpressionUUID->"ff90d3e8-5ccd-4218-8f55-e554c9fa508e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2843518, 68086, 4078, 115, 71, "Subsubsection",ExpressionUUID->"ea4c90a4-1622-4448-93c5-03eca9e95745"],
Cell[2847599, 68203, 105, 1, 7972438, "Text",ExpressionUUID->"f38d29c5-1d09-44e1-9d15-6281cd3c5539"],
Cell[CellGroupData[{
Cell[2847729, 68208, 211, 3, 8172139, "Input",ExpressionUUID->"35fab6a8-f44b-4182-97ac-6e4468219633"],
Cell[2847943, 68213, 8018, 184, 70, "Output",ExpressionUUID->"bc93bf87-5b1b-494d-80eb-c119c2eeeede"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2855998, 68402, 612, 17, 8172139, "Input",ExpressionUUID->"348b5091-6b99-44aa-815a-5dc223fb2ee3"],
Cell[2856613, 68421, 8353, 193, 70, "Output",ExpressionUUID->"15e48676-27a9-4872-a8ae-3f76b2ea2448"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2865003, 68619, 203, 4, 2147483647, "Input",ExpressionUUID->"5ae11d3b-5504-4658-864c-15cf26ae3532"],
Cell[2865209, 68625, 8366, 193, 70, "Output",ExpressionUUID->"5791826e-385c-4e6f-8612-1fa08bb3795d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2873612, 68823, 243, 5, 2147483647, "Input",ExpressionUUID->"f55d3729-26ca-429e-8837-6a487a46e738"],
Cell[2873858, 68830, 10104, 239, 70, "Output",ExpressionUUID->"5cdf1750-4aab-4db0-9048-47ba09f4a89f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2883999, 69074, 209, 4, 2147483647, "Input",ExpressionUUID->"34326726-7f45-4f67-8019-ba604c1f3158"],
Cell[2884211, 69080, 9859, 238, 70, "Output",ExpressionUUID->"06683259-ca36-4e43-b8de-be6dd66bbf33"]
}, Open  ]],
Cell[2894085, 69321, 131, 1, 2147483647, "Text",ExpressionUUID->"a2d3790c-f183-4f73-8338-2a9ed836827c"],
Cell[CellGroupData[{
Cell[2894241, 69326, 243, 5, 2147483647, "Input",ExpressionUUID->"004903b9-c1a0-4f61-a836-5e6204eb6409"],
Cell[2894487, 69333, 8464, 200, 70, "Output",ExpressionUUID->"4263d408-e522-4005-8bd2-b49ea5334eb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2902988, 69538, 436, 9, 2147483647, "Input",ExpressionUUID->"5f7e6ab2-07d9-4211-8678-bb69902fd388"],
Cell[2903427, 69549, 10101, 248, 70, "Output",ExpressionUUID->"5e412382-0b53-4abb-a60c-01ca15f164cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2913565, 69802, 184, 4, 2147483647, "Input",ExpressionUUID->"90cfe4a4-bec2-4e12-b8b5-6bf6cc61ef74"],
Cell[2913752, 69808, 9909, 244, 70, "Output",ExpressionUUID->"12f9c2e1-26e6-4720-b0d7-250823a3c45e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2923698, 70057, 269, 6, 2147483647, "Input",ExpressionUUID->"d6036f41-8834-4577-b085-13ce7a17d601"],
Cell[2923970, 70065, 7913, 181, 70, "Output",ExpressionUUID->"dfd1b709-2442-421b-b1ca-754f07cecc31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2931920, 70251, 456, 13, 2147483647, "Input",ExpressionUUID->"6cf0fd60-770f-467b-9dd4-0ca3b520336b"],
Cell[2932379, 70266, 6980, 155, 70, "Output",ExpressionUUID->"3337cddd-e2e9-4aa1-ae94-f7c0d8986514"]
}, Open  ]],
Cell[2939374, 70424, 227, 5, 2147483647, "Input",ExpressionUUID->"1be1f48b-2b96-419a-8e7e-6b627daee41a"],
Cell[2939604, 70431, 158, 2, 7972438, "Text",ExpressionUUID->"c4eadf9b-b251-4b49-8b0f-d4fa3c681640"],
Cell[CellGroupData[{
Cell[2939787, 70437, 754, 17, 13495707, "Input",ExpressionUUID->"7e577c36-7d27-4f7d-a4b4-5bd853cdc62a"],
Cell[CellGroupData[{
Cell[2940566, 70458, 3717, 58, 70, "Print",ExpressionUUID->"54dc2128-ce0b-449b-9a10-e5d2b5fa5962"],
Cell[2944286, 70518, 3799, 59, 70, "Print",ExpressionUUID->"fb513d19-bdc8-47b4-b623-5fd1d6aa3ca0"]
}, Open  ]]
}, Open  ]],
Cell[2948112, 70581, 95, 1, 7972438, "Text",ExpressionUUID->"04636955-dc84-4ec0-bc28-dabbd48d2c6c"],
Cell[CellGroupData[{
Cell[2948232, 70586, 448, 12, 8172139, "Input",ExpressionUUID->"8c187a9b-f631-4a6e-96c5-2bc342734f3a"],
Cell[2948683, 70600, 4279, 82, 70, "Output",ExpressionUUID->"b091e8f0-37a0-43a3-b815-e1912550c8d8"]
}, Open  ]],
Cell[2952977, 70685, 228, 5, 8172139, "Input",ExpressionUUID->"39464948-bc41-4b76-a587-8ac01a837bb1"],
Cell[CellGroupData[{
Cell[2953230, 70694, 493, 12, 8172139, "Input",ExpressionUUID->"9e7d2d0d-ce5f-43fd-bee4-6cd1048dc607"],
Cell[2953726, 70708, 4552, 85, 70, "Output",ExpressionUUID->"9ce12644-5c08-4a71-a8bf-c92032a92b6d"]
}, Open  ]],
Cell[2958293, 70796, 182, 5, 8172139, "Text",ExpressionUUID->"601d6a82-b620-4f85-8493-2fc6a59e801f"],
Cell[CellGroupData[{
Cell[2958500, 70805, 447, 10, 8172139, "Input",ExpressionUUID->"42503dde-3919-427a-add2-c7ab1191e6a9"],
Cell[2958950, 70817, 9629, 221, 70, "Output",ExpressionUUID->"e101699e-06c4-4244-b606-9f0e5f12f81b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2968616, 71043, 209, 4, 8172139, "Input",ExpressionUUID->"51e44693-0e9c-46c5-aed0-842900139fd9"],
Cell[2968828, 71049, 6877, 150, 70, "Output",ExpressionUUID->"3add8467-f8ae-4379-9e2b-0c7b60ce1b31"]
}, Open  ]],
Cell[2975720, 71202, 220, 5, 8172139, "Input",ExpressionUUID->"a4cce602-ce8c-4576-aee7-e165a46e8738"]
}, Closed]],
Cell[CellGroupData[{
Cell[2975977, 71212, 2650, 76, 57, "Subsubsection",ExpressionUUID->"5b2a408d-8b44-46f4-b57e-2de0a28ffd26"],
Cell[2978630, 71290, 175, 4, 2147483647, "Text",ExpressionUUID->"e15f1725-d580-4ca0-8a9e-ffc0230103d1"],
Cell[CellGroupData[{
Cell[2978830, 71298, 579, 16, 2147483647, "Input",ExpressionUUID->"9fc184b8-8c5b-49f6-b6e7-22b1a70d7f19"],
Cell[2979412, 71316, 5274, 111, 70, "Output",ExpressionUUID->"545a2647-415d-4913-97ac-2db92e75623b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2984723, 71432, 207, 4, 2147483647, "Input",ExpressionUUID->"a311fd9a-e757-4d65-bf1c-9387d60677c6"],
Cell[2984933, 71438, 6826, 154, 70, "Output",ExpressionUUID->"4b726633-3578-4ac8-a24c-24147f5e87bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2991796, 71597, 246, 5, 2147483647, "Input",ExpressionUUID->"c35ce327-c2dd-447d-817e-5548354c2105"],
Cell[2992045, 71604, 9380, 215, 70, "Output",ExpressionUUID->"8f54570a-cbc1-409d-a43b-31bdab79a45a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3001462, 71824, 236, 5, 2147483647, "Input",ExpressionUUID->"dfd9ad93-f05b-43b4-b5f3-22d09dd4b457"],
Cell[3001701, 71831, 11307, 268, 70, "Output",ExpressionUUID->"4e596322-4d42-4272-8538-5028a36ea3f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3013045, 72104, 246, 5, 2147483647, "Input",ExpressionUUID->"eb17cd8a-3cea-43ab-a5fc-e3f3544f40d0"],
Cell[3013294, 72111, 12144, 290, 70, "Output",ExpressionUUID->"f8354acf-3bfe-46ab-894e-d9293024278a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3025475, 72406, 209, 4, 2147483647, "Input",ExpressionUUID->"bd0fad18-5b0a-458a-94c6-be4f2bf045e3"],
Cell[3025687, 72412, 11399, 281, 70, "Output",ExpressionUUID->"9758039c-cd8e-4b27-96c7-506fd3c42035"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3037123, 72698, 432, 11, 2147483647, "Input",ExpressionUUID->"6fa2e387-d392-4963-a6ad-18337ffbf54a"],
Cell[3037558, 72711, 11740, 274, 70, "Output",ExpressionUUID->"c96714d5-fe11-4c1c-bd7b-f2e5abb0541e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3049335, 72990, 230, 5, 2147483647, "Input",ExpressionUUID->"08289768-5c21-4cea-bad5-b1f7656c889c"],
Cell[3049568, 72997, 11454, 268, 70, "Output",ExpressionUUID->"2fd31bb6-29d2-44aa-857d-fe955a084219"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3061059, 73270, 245, 5, 2147483647, "Input",ExpressionUUID->"21d1fa0c-e695-435b-83f6-67dae0b31c0e"],
Cell[3061307, 73277, 11152, 256, 70, "Output",ExpressionUUID->"5022e1ad-69b8-4322-bb11-ab240ef34cbc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3072496, 73538, 272, 6, 2147483647, "Input",ExpressionUUID->"0b303c6f-323f-417a-9bda-b887b32e56a7"],
Cell[3072771, 73546, 7058, 155, 70, "Output",ExpressionUUID->"4ff0e2e2-3907-4c73-8ff2-b3a296cbb889"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3079866, 73706, 247, 5, 2147483647, "Input",ExpressionUUID->"52e486e5-cbd9-4b59-b200-17501f2983c4"],
Cell[3080116, 73713, 8585, 197, 70, "Output",ExpressionUUID->"c70c0b20-5dfc-436c-aa6f-e152e6079121"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3088738, 73915, 270, 6, 2147483647, "Input",ExpressionUUID->"4a9729cb-970c-4f9b-b581-3ce2fec86669"],
Cell[3089011, 73923, 5642, 115, 70, "Output",ExpressionUUID->"816cd52d-95ee-460e-85ef-845c6753bb24"]
}, Open  ]],
Cell[3094668, 74041, 227, 5, 2147483647, "Input",ExpressionUUID->"26feb78f-b99e-431e-8add-ed20d0af4d58"]
}, Closed]],
Cell[CellGroupData[{
Cell[3094932, 74051, 8528, 241, 57, "Subsubsection",ExpressionUUID->"ee47afd9-57d3-445a-803f-0f63014115d2"],
Cell[3103463, 74294, 158, 2, 2147483647, "Text",ExpressionUUID->"8438814d-3d8d-475d-9b65-5983276a7fb6"],
Cell[CellGroupData[{
Cell[3103646, 74300, 1394, 42, 2147483647, "Input",ExpressionUUID->"1d51c678-7a20-4d9b-a35c-45c8c6209661"],
Cell[3105043, 74344, 8048, 176, 70, "Output",ExpressionUUID->"b9b1095f-9a3f-4e38-83ce-86e4769544e3"]
}, Open  ]],
Cell[3113106, 74523, 1127, 30, 2147483647, "Text",ExpressionUUID->"d5004812-f697-4f48-8922-f053feb25bfb"],
Cell[CellGroupData[{
Cell[3114258, 74557, 236, 5, 2147483647, "Input",ExpressionUUID->"603c0cff-dbc9-4aa1-a120-8ef18f6f9593"],
Cell[3114497, 74564, 13671, 338, 70, "Output",ExpressionUUID->"eec54ba6-5d67-4dbe-88f9-936a6ad0b462"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3128205, 74907, 246, 5, 2147483647, "Input",ExpressionUUID->"5030f7d7-fb86-4dc0-9902-de45474ff72c"],
Cell[3128454, 74914, 15144, 376, 70, "Output",ExpressionUUID->"1e96329f-0a79-4705-aa03-b78c1e9a33e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3143635, 75295, 236, 5, 2147483647, "Input",ExpressionUUID->"26d5597c-3d25-4757-b1a7-7d98cd1cd2f3"],
Cell[3143874, 75302, 15174, 376, 70, "Output",ExpressionUUID->"37f9b293-b705-4a69-80b2-21b10135f116"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3159085, 75683, 241, 5, 2147483647, "Input",ExpressionUUID->"92550b5c-d942-4bb4-8f4d-aa944c5f4f7b"],
Cell[3159329, 75690, 18831, 470, 70, "Output",ExpressionUUID->"1a2e9c01-7d92-436e-8a50-3aa8f4f89883"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3178197, 76165, 211, 4, 2147483647, "Input",ExpressionUUID->"1ea907db-fa7b-4be5-8739-256f5fe06701"],
Cell[3178411, 76171, 18892, 471, 70, "Output",ExpressionUUID->"d3492e85-6ae4-4a2f-8b3e-f28e30a8bad3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3197340, 76647, 215, 4, 2147483647, "Input",ExpressionUUID->"dfcdc8d8-4926-4400-9b6c-c0e2b799ba18"],
Cell[3197558, 76653, 33785, 861, 70, "Output",ExpressionUUID->"e2f3e9c5-baeb-4664-843b-15d3c5b2bbb8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3231380, 77519, 181, 4, 2147483647, "Input",ExpressionUUID->"a4b00c70-ad21-4abf-861c-dee9e505d3d4"],
Cell[3231564, 77525, 40536, 1036, 70, "Output",ExpressionUUID->"5f115d69-05a2-4f5d-92bd-706a60211fe5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3272137, 78566, 274, 6, 2147483647, "Input",ExpressionUUID->"dbbbb4ff-b31f-4040-99c8-d11d0ab13e27"],
Cell[3272414, 78574, 29514, 755, 70, "Output",ExpressionUUID->"b5423297-0a06-44d5-ba9a-9c85dd248956"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3301965, 79334, 283, 7, 2147483647, "Input",ExpressionUUID->"4117c901-e094-4c9f-88d1-cfc5b9f35ce4"],
Cell[3302251, 79343, 8293, 186, 70, "Output",ExpressionUUID->"d99f55a1-e567-464c-be75-7e67b9853045"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3310581, 79534, 211, 4, 2147483647, "Input",ExpressionUUID->"39756eea-6804-48d3-8889-8fd96951bf86"],
Cell[3310795, 79540, 8294, 186, 70, "Output",ExpressionUUID->"eac9abba-0b64-4d22-bba8-50cffb2b601c"]
}, Open  ]],
Cell[3319104, 79729, 219, 5, 2147483647, "Input",ExpressionUUID->"a44ec5b1-6eac-4dcd-bd58-35058b2852c7"],
Cell[3319326, 79736, 154, 3, 2147483647, "Text",ExpressionUUID->"bc821cb4-b427-4bc2-bacd-d384a17981d1"],
Cell[CellGroupData[{
Cell[3319505, 79743, 769, 20, 2147483647, "Input",ExpressionUUID->"7ffe0955-7ac2-48c8-8abd-04e19668310b"],
Cell[3320277, 79765, 3917, 63, 70, "Print",ExpressionUUID->"400b1e79-5a25-41e6-83b3-2a3c2bc3716e"]
}, Open  ]],
Cell[3324209, 79831, 98, 1, 2147483647, "Text",ExpressionUUID->"4b6329b4-1344-4b8e-9543-8b7afb7424ca"],
Cell[CellGroupData[{
Cell[3324332, 79836, 752, 20, 2147483647, "Input",ExpressionUUID->"a88df8b5-326a-4d0e-86ee-8095bec8f31e"],
Cell[3325087, 79858, 5678, 113, 70, "Output",ExpressionUUID->"99176c93-70e8-4177-be95-e48c56e4956f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3330802, 79976, 530, 14, 2147483647, "Input",ExpressionUUID->"f3912017-ae66-4345-9f48-48743abf52aa"],
Cell[3331335, 79992, 5781, 114, 70, "Output",ExpressionUUID->"37e53f2d-3f16-4054-a6e8-f03ffb5bace9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3337153, 80111, 232, 5, 2147483647, "Input",ExpressionUUID->"f84e1667-acb4-4e1f-b487-dbb6bda00a37"],
Cell[3337388, 80118, 5668, 114, 70, "Output",ExpressionUUID->"5d51a6bc-5874-427b-a1f9-3b01f0e121ca"]
}, Open  ]],
Cell[3343071, 80235, 239, 5, 2147483647, "Input",ExpressionUUID->"25f5d9c4-8233-4f34-baed-c05fb39c10d1"],
Cell[3343313, 80242, 1185, 31, 2147483647, "Text",ExpressionUUID->"da5ef4d4-f84a-495a-85e7-e8f97db119bf"],
Cell[CellGroupData[{
Cell[3344523, 80277, 627, 15, 2147483647, "Input",ExpressionUUID->"dbc904cb-5d05-4f09-a7a6-0fed4c1cb096"],
Cell[3345153, 80294, 3609, 57, 70, "Print",ExpressionUUID->"e5b4458c-482b-4a41-9ced-ed25641441dd"]
}, Open  ]],
Cell[3348777, 80354, 137, 1, 2147483647, "Text",ExpressionUUID->"21354c5f-4b75-4760-bb20-5e74fc5a310a"],
Cell[CellGroupData[{
Cell[3348939, 80359, 354, 7, 2147483647, "Input",ExpressionUUID->"3c76da63-bb72-4b51-a5c5-9f50322e538c"],
Cell[3349296, 80368, 8492, 192, 70, "Output",ExpressionUUID->"ebd5e820-95a1-416a-924e-f88ef26bd285"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3357825, 80565, 345, 10, 2147483647, "Input",ExpressionUUID->"3b8bc1ef-3715-4829-b5ca-d8232ceae143"],
Cell[3358173, 80577, 8766, 198, 70, "Output",ExpressionUUID->"a400cdc0-3224-4a84-985a-877646026804"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3366976, 80780, 204, 4, 2147483647, "Input",ExpressionUUID->"e6bce6bc-459c-4356-85f3-4adfd2247aeb"],
Cell[3367183, 80786, 7801, 169, 70, "Output",ExpressionUUID->"5589b3ac-2e92-4e2f-843c-38b0152ffee7"]
}, Open  ]],
Cell[3374999, 80958, 220, 5, 2147483647, "Input",ExpressionUUID->"ed1cc53d-f314-4ea2-a829-d10b006244cc"],
Cell[3375222, 80965, 187, 2, 2147483647, "Text",ExpressionUUID->"5ced5c54-42e2-4262-9387-fb70657f2d9d"],
Cell[CellGroupData[{
Cell[3375434, 80971, 816, 23, 2147483647, "Input",ExpressionUUID->"15a07126-58e1-4775-be2b-5dbffd66869a"],
Cell[3376253, 80996, 7895, 172, 70, "Output",ExpressionUUID->"a3d106c0-7030-4f5c-8918-89ab3c8271d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3384185, 81173, 418, 11, 2147483647, "Input",ExpressionUUID->"c452eea8-1778-499b-9d74-f5ec7424666f"],
Cell[3384606, 81186, 7937, 172, 70, "Output",ExpressionUUID->"ca930467-7200-4cfb-88d3-3e451c166187"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3392580, 81363, 232, 5, 2147483647, "Input",ExpressionUUID->"2e15768a-9dca-4051-923b-02c435f9ee91"],
Cell[3392815, 81370, 7770, 171, 70, "Output",ExpressionUUID->"adb464f2-01ff-4569-89ad-ee368a046a34"]
}, Open  ]],
Cell[3400600, 81544, 222, 5, 2147483647, "Input",ExpressionUUID->"82408dab-85b4-488e-a99b-0a7dfad50b5d"],
Cell[3400825, 81551, 211, 4, 2147483647, "Text",ExpressionUUID->"6a67a888-f73e-479d-ae51-d93fc1f2c1aa"],
Cell[CellGroupData[{
Cell[3401061, 81559, 876, 24, 2147483647, "Input",ExpressionUUID->"8e9fa4f3-94b6-41a1-ab57-2c472b608f6d"],
Cell[3401940, 81585, 7823, 171, 70, "Output",ExpressionUUID->"ebe78a05-dc2f-44d4-90b8-4668c6323f60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3409800, 81761, 253, 5, 2147483647, "Input",ExpressionUUID->"d6657fc8-b9e5-4140-b263-6a5bee1e65a7"],
Cell[3410056, 81768, 8895, 199, 70, "Output",ExpressionUUID->"a4823ad2-6660-4ddf-a9d3-c18e7353eee4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3418988, 81972, 254, 5, 2147483647, "Input",ExpressionUUID->"f68768ac-fe22-4f1a-b887-31a41895af34"],
Cell[3419245, 81979, 8840, 198, 70, "Output",ExpressionUUID->"102f1932-14c8-432e-9fab-0dee80203863"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3428122, 82182, 298, 6, 2147483647, "Input",ExpressionUUID->"302f223e-851c-449c-8a1a-6d3396f941f1"],
Cell[3428423, 82190, 9647, 216, 70, "Output",ExpressionUUID->"7c67c92a-9043-4886-84ff-6bbcae1bbe86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3438107, 82411, 236, 5, 2147483647, "Input",ExpressionUUID->"2615e7f0-dd12-4d68-bdca-1404c4304e6f"],
Cell[3438346, 82418, 9827, 225, 70, "Output",ExpressionUUID->"947e2b9f-3892-4d57-87ac-e82d628ba8e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3448210, 82648, 209, 4, 2147483647, "Input",ExpressionUUID->"443418fa-e104-47f8-b051-04c39787ed18"],
Cell[3448422, 82654, 4436, 79, 70, "Output",ExpressionUUID->"0b2ba483-ec48-4d64-87db-83bd2a51f1e0"]
}, Open  ]],
Cell[3452873, 82736, 220, 5, 2147483647, "Input",ExpressionUUID->"119baa12-2336-44ea-9a41-d69c00babe48"]
}, Closed]],
Cell[CellGroupData[{
Cell[3453130, 82746, 2849, 78, 57, "Subsubsection",ExpressionUUID->"c1eb7165-8ec6-46a2-96de-b8341b3591c7"],
Cell[3455982, 82826, 570, 17, 2147483647, "Text",ExpressionUUID->"6231096d-a1df-4da9-a1ed-c13881d32d77"],
Cell[CellGroupData[{
Cell[3456577, 82847, 753, 22, 2147483647, "Input",ExpressionUUID->"7c17e230-5d22-49f6-82d7-3d3fa609deae"],
Cell[3457333, 82871, 8145, 182, 70, "Output",ExpressionUUID->"ff422597-97e4-443b-9981-3b45b3651560"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3465515, 83058, 290, 6, 2147483647, "Input",ExpressionUUID->"3c565dfc-f0d4-4c3e-a2b2-3606a8c7d766"],
Cell[3465808, 83066, 12279, 292, 70, "Output",ExpressionUUID->"2e9fe5fc-b197-49e7-9be2-d136955042e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3478124, 83363, 236, 5, 2147483647, "Input",ExpressionUUID->"b808507f-3455-4425-87fc-657119b6bceb"],
Cell[3478363, 83370, 15363, 376, 70, "Output",ExpressionUUID->"d6130288-b8c4-4d8c-8e1c-577792c576fa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3493763, 83751, 211, 4, 2147483647, "Input",ExpressionUUID->"724d8bb5-17ca-4260-9d0b-3aa9737677b4"],
Cell[3493977, 83757, 7711, 170, 70, "Output",ExpressionUUID->"9bf31716-6dfd-4b1c-80fc-a025a9852902"]
}, Open  ]],
Cell[3501703, 83930, 229, 5, 2147483647, "Text",ExpressionUUID->"bbc4f22f-9eae-482c-9f7d-aee19d155b2a"],
Cell[CellGroupData[{
Cell[3501957, 83939, 389, 10, 2147483647, "Input",ExpressionUUID->"1d0f77eb-9de8-4ef9-a56b-5bfb5980289b"],
Cell[3502349, 83951, 9042, 198, 70, "Output",ExpressionUUID->"fb61422d-4a87-4fbf-be0a-5d9a405bbbac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3511428, 84154, 209, 4, 2147483647, "Input",ExpressionUUID->"bcef7114-00cc-4591-b912-21da5c20a6d8"],
Cell[3511640, 84160, 7712, 170, 70, "Output",ExpressionUUID->"fc153bf6-4e0a-47fb-b0b2-5c3278464f0b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[3519401, 84336, 249, 3, 54, "Subsubsection",ExpressionUUID->"bfd4b6c2-defd-43ac-9e01-69eab80bed9d"],
Cell[3519653, 84341, 111, 1, 1599, "Text",ExpressionUUID->"f8c2da36-0fc2-4f91-afab-c3ebfcf2cdab"],
Cell[CellGroupData[{
Cell[3519789, 84346, 309, 6, 1640, "Input",ExpressionUUID->"3acc42fb-7697-4c07-9159-15d2c06c2133"],
Cell[3520101, 84354, 14236, 343, 70, "Output",ExpressionUUID->"c18c6f04-99b6-42ef-b876-afb51afb1c20"]
}, Open  ]],
Cell[3534352, 84700, 141, 1, 1599, "Text",ExpressionUUID->"a8ccc7be-04ac-47a4-aa4f-3e16564b4b5b"],
Cell[CellGroupData[{
Cell[3534518, 84705, 506, 10, 1640, "Input",ExpressionUUID->"baeb3e29-0c1d-4703-866f-27af8ad94e03"],
Cell[3535027, 84717, 28708, 713, 70, "Output",ExpressionUUID->"ed12ea19-b679-4e81-a3d7-96800069b87f"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[3563796, 85437, 186, 3, 55, "Subsection",ExpressionUUID->"58986b10-2d12-48f7-aa8c-1893e8221ff3"],
Cell[3563985, 85442, 292, 5, 90, "Text",ExpressionUUID->"154cde64-86b4-4415-9e43-76581c6270cb"],
Cell[CellGroupData[{
Cell[3564302, 85451, 141, 2, 47, "Input",ExpressionUUID->"438cd96b-897f-495e-9a78-f04b44a6effe"],
Cell[3564446, 85455, 41777, 1053, 199, "Output",ExpressionUUID->"e5ed12eb-877f-4254-b824-7615944d9a13"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3606260, 86513, 267, 5, 47, "Input",ExpressionUUID->"8c90777a-4ce2-4e52-ad00-64c52f461ad1"],
Cell[3606530, 86520, 50716, 1291, 199, "Output",ExpressionUUID->"32570309-cf19-450a-bc03-184fb3d7e06a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3657283, 87816, 211, 4, 47, "Input",ExpressionUUID->"9bda6ada-e96d-4d4d-94f5-4d41609f6b65"],
Cell[3657497, 87822, 51420, 1344, 177, "Output",ExpressionUUID->"d0fce82a-f55a-440e-beb9-6ee621845d39"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3708954, 89171, 475, 13, 47, "Input",ExpressionUUID->"0175d895-3c95-4534-af90-d1e9b9ae0490"],
Cell[3709432, 89186, 41997, 1059, 179, "Output",ExpressionUUID->"38bbb1f0-a3a2-4dcf-8835-5bc4abf58106"]
}, Open  ]],
Cell[3751444, 90248, 224, 5, 47, "Input",ExpressionUUID->"2e245b94-f60d-4e2b-8501-9465718bedad"],
Cell[CellGroupData[{
Cell[3751693, 90257, 1658, 46, 71, "Subsubsection",ExpressionUUID->"0e6492db-9bb2-4dbc-a5cf-a2ccc1a269fa"],
Cell[CellGroupData[{
Cell[3753376, 90307, 343, 9, 2147483647, "Input",ExpressionUUID->"e75cc9a8-8dfe-4ffb-b997-0167a03d5b61"],
Cell[3753722, 90318, 4484, 84, 70, "Output",ExpressionUUID->"0a779b39-022b-479d-9fd2-ddc209bc723f"]
}, Open  ]],
Cell[3758221, 90405, 275, 6, 2147483647, "Input",ExpressionUUID->"bda43598-199e-46de-8d7e-fe549342903f"]
}, Closed]],
Cell[CellGroupData[{
Cell[3758533, 90416, 10514, 291, 57, "Subsubsection",ExpressionUUID->"7241299e-276d-4560-ae90-6f9584554a8b"],
Cell[CellGroupData[{
Cell[3769072, 90711, 249, 5, 2147483647, "Input",ExpressionUUID->"feb784da-7ee9-4fb4-a248-820da264d6ee"],
Cell[3769324, 90718, 6729, 148, 70, "Output",ExpressionUUID->"1be6650c-0a62-4577-829a-56da899d714d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3776090, 90871, 276, 8, 2147483647, "Input",ExpressionUUID->"cecabbc5-92f7-4e78-b3ae-8e1b5e7fa191"],
Cell[3776369, 90881, 9170, 213, 70, "Output",ExpressionUUID->"810ec48c-2aa8-4605-8523-ed99dd67aa5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3785576, 91099, 257, 5, 2147483647, "Input",ExpressionUUID->"cb3dc926-f3c9-41f8-9944-acff365730d0"],
Cell[3785836, 91106, 10029, 236, 70, "Output",ExpressionUUID->"71dcde67-a4fa-42c2-bef8-e1d46df1c224"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3795902, 91347, 286, 6, 2147483647, "Input",ExpressionUUID->"7dcbf4ed-20ae-4730-b942-494bc62bda38"],
Cell[3796191, 91355, 17181, 422, 70, "Output",ExpressionUUID->"30a85f42-e46b-44dc-9af1-14c2be05076e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3813409, 91782, 531, 14, 2147483647, "Input",ExpressionUUID->"b7f35771-876e-47cf-8c72-133ca63f90a5"],
Cell[3813943, 91798, 18411, 447, 70, "Output",ExpressionUUID->"6d9f643d-c13c-49b1-84d9-1ac38ee2cc7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3832391, 92250, 232, 5, 2147483647, "Input",ExpressionUUID->"2e04bf8e-bacf-46e2-a7e8-64e74a429fcc"],
Cell[3832626, 92257, 17827, 434, 70, "Output",ExpressionUUID->"0260f93f-b2b5-45f9-b5e4-a7e6e7b4cf14"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3850490, 92696, 210, 4, 2147483647, "Input",ExpressionUUID->"bd913faf-0929-4349-8f45-2a0d4b73d08c"],
Cell[3850703, 92702, 16998, 431, 70, "Output",ExpressionUUID->"1604448f-317d-4f81-aea9-cee8c7b1b3b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3867738, 93138, 250, 5, 2147483647, "Input",ExpressionUUID->"2c7d6052-07f3-44e3-9f24-613da2f29883"],
Cell[3867991, 93145, 22894, 586, 70, "Output",ExpressionUUID->"366dcd38-e559-4b3b-8695-de5e288916ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3890922, 93736, 272, 6, 2147483647, "Input",ExpressionUUID->"6611f575-6f93-4329-bc6f-a8d851c8544e"],
Cell[3891197, 93744, 21069, 543, 70, "Output",ExpressionUUID->"6bf3861d-fc18-4b35-964d-579219c77d87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3912303, 94292, 212, 4, 2147483647, "Input",ExpressionUUID->"d96a5d9c-0c32-4441-8ed1-012ba5f0f6a0"],
Cell[3912518, 94298, 19462, 495, 70, "Output",ExpressionUUID->"174ac09a-deed-43f6-a7f1-c0d343ecbc60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3932017, 94798, 246, 5, 2147483647, "Input",ExpressionUUID->"84fa4d51-a3ed-4af4-9f04-fcb2dbab53be"],
Cell[3932266, 94805, 26403, 674, 70, "Output",ExpressionUUID->"c3be7e44-19b9-4331-97bf-d4b7a04da6d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3958706, 95484, 272, 6, 2147483647, "Input",ExpressionUUID->"fea259df-e0ed-4cdf-aaa3-8cdb1bedd142"],
Cell[3958981, 95492, 14014, 347, 70, "Output",ExpressionUUID->"0d810900-f04a-4ff3-8889-cb54459ba9fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3973032, 95844, 214, 4, 2147483647, "Input",ExpressionUUID->"9d713dc3-85ce-4101-a1c0-6689af6b8fb4"],
Cell[3973249, 95850, 13283, 325, 70, "Output",ExpressionUUID->"9900cf70-4764-4abe-95a5-63d8944f84a3"]
}, Open  ]],
Cell[3986547, 96178, 226, 5, 2147483647, "Input",ExpressionUUID->"a9d4c4d6-d44d-4d76-9e2f-e4bf67fac343"]
}, Closed]],
Cell[CellGroupData[{
Cell[3986810, 96188, 2921, 81, 57, "Subsubsection",ExpressionUUID->"0dd80261-b2f2-40b6-b565-79dca32f2c57"],
Cell[CellGroupData[{
Cell[3989756, 96273, 251, 5, 2147483647, "Input",ExpressionUUID->"a10d3593-51ed-489e-b9eb-b5d90362335c"],
Cell[3990010, 96280, 5511, 113, 70, "Output",ExpressionUUID->"faab510c-6c6c-4311-9e22-5a51cf35ea5d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3995558, 96398, 300, 8, 2147483647, "Input",ExpressionUUID->"04696e92-3190-496e-9866-f2733efcf772"],
Cell[3995861, 96408, 5509, 114, 70, "Output",ExpressionUUID->"1ac6659c-b784-4616-aa85-b30e32cade1e"]
}, Open  ]],
Cell[4001385, 96525, 231, 5, 2147483647, "Input",ExpressionUUID->"1b1b9b48-9947-4571-ad02-95727a79747f"]
}, Closed]],
Cell[CellGroupData[{
Cell[4001653, 96535, 7229, 201, 57, "Subsubsection",ExpressionUUID->"b8b20066-ccdc-4d2c-b913-a9f5a20126c8"],
Cell[CellGroupData[{
Cell[4008907, 96740, 251, 5, 2147483647, "Input",ExpressionUUID->"831d0887-9f53-41c1-bcce-b2697a73dd84"],
Cell[4009161, 96747, 7660, 166, 70, "Output",ExpressionUUID->"beeeacc0-fb34-471c-b95b-f8c3cc138bdc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4016858, 96918, 304, 8, 2147483647, "Input",ExpressionUUID->"d7f1bce8-b675-4786-8a55-17028fec2473"],
Cell[4017165, 96928, 16903, 412, 70, "Output",ExpressionUUID->"1a731752-577f-4485-b03e-a55054f07c20"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4034105, 97345, 257, 5, 2147483647, "Input",ExpressionUUID->"feb740c8-4148-4bf9-93ee-5ce0909c1edf"],
Cell[4034365, 97352, 20824, 513, 70, "Output",ExpressionUUID->"73dcb972-3d32-4736-9783-9ed252645658"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4055226, 97870, 250, 5, 2147483647, "Input",ExpressionUUID->"51d94f08-b3df-4afb-b128-bacb5fbd40b3"],
Cell[4055479, 97877, 44520, 1130, 70, "Output",ExpressionUUID->"fdbb3d64-f1f0-480d-ae8e-9e74ca63dfe8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4100036, 99012, 272, 6, 2147483647, "Input",ExpressionUUID->"195ae5fd-8412-4857-b46b-9d195c6de273"],
Cell[4100311, 99020, 18199, 452, 70, "Output",ExpressionUUID->"5dd76e97-fd51-4847-9d2b-c2ab102e445e"]
}, Open  ]],
Cell[4118525, 99475, 217, 5, 2147483647, "Input",ExpressionUUID->"072fb12c-3e8b-4d5e-8ce4-6570b75c2580"],
Cell[CellGroupData[{
Cell[4118767, 99484, 625, 17, 2147483647, "Input",ExpressionUUID->"1abb98f7-3542-4db0-ba74-bc78a0c8d453"],
Cell[4119395, 99503, 18657, 467, 70, "Output",ExpressionUUID->"ec23ee8c-b96f-4410-926f-ded353f4e9c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4138089, 99975, 230, 5, 2147483647, "Input",ExpressionUUID->"9ace7f3a-0104-45bd-bdb3-60231e762ad3"],
Cell[4138322, 99982, 18040, 452, 70, "Output",ExpressionUUID->"2455802b-e15d-45f3-92fd-762e7c00e299"]
}, Open  ]],
Cell[4156377, 100437, 229, 5, 2147483647, "Input",ExpressionUUID->"91678d11-938b-485a-848e-56ae08eb5dca"],
Cell[CellGroupData[{
Cell[4156631, 100446, 316, 6, 2147483647, "Input",ExpressionUUID->"d21ac0bb-8e40-40da-9027-3ab4939dd290"],
Cell[4156950, 100454, 79420, 2042, 70, "Output",ExpressionUUID->"cf770780-ec38-4faf-8a8d-29e3b8f4e09d"]
}, Open  ]],
Cell[4236385, 102499, 295, 7, 2147483647, "Input",ExpressionUUID->"2633e782-8427-4289-bec6-9c4e508f430d"],
Cell[4236683, 102508, 655, 17, 2147483647, "Input",ExpressionUUID->"4e9fc9f5-6482-4c21-8921-e60146966948"],
Cell[4237341, 102527, 314, 7, 2147483647, "Input",ExpressionUUID->"7774956f-6d72-4840-8fa4-ffa70326686c"],
Cell[CellGroupData[{
Cell[4237680, 102538, 272, 6, 2147483647, "Input",ExpressionUUID->"4957a8a2-f970-4974-a1d4-fbc324fa5a0b"],
Cell[4237955, 102546, 43636, 1138, 70, "Output",ExpressionUUID->"0011a52b-c673-4113-81e4-fdd36ae4ce3e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4281628, 103689, 207, 4, 2147483647, "Input",ExpressionUUID->"364715f9-185e-43ee-8a59-d328a7fc53b4"],
Cell[4281838, 103695, 45615, 1194, 70, "Output",ExpressionUUID->"2519fff9-35f8-474a-9070-ddf2d258cc97"]
}, Open  ]],
Cell[4327468, 104892, 259, 6, 2147483647, "Input",ExpressionUUID->"f7837fed-83e2-443a-830c-dba24d75dbdc"],
Cell[4327730, 104900, 293, 7, 2147483647, "Input",ExpressionUUID->"98533298-efb8-49ba-9d35-9105c1d3a5a0"],
Cell[4328026, 104909, 632, 17, 2147483647, "Input",ExpressionUUID->"af0bc295-c78a-46da-ab0d-47d23875ef79"],
Cell[4328661, 104928, 268, 6, 2147483647, "Input",ExpressionUUID->"f9c26b70-a6ea-45fa-adc9-34676db970d4"],
Cell[4328932, 104936, 293, 7, 2147483647, "Input",ExpressionUUID->"23e1f11f-80c0-443b-8092-027db1f1d59f"],
Cell[CellGroupData[{
Cell[4329250, 104947, 270, 6, 2147483647, "Input",ExpressionUUID->"7b608c28-7d56-4cde-8828-1b209d36b5ba"],
Cell[4329523, 104955, 27395, 696, 70, "Output",ExpressionUUID->"2613742e-cd2b-45f9-83fb-08418ff3da98"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4356955, 105656, 338, 9, 2147483647, "Input",ExpressionUUID->"0033caa5-8845-4ec5-80be-0b4ab35d777f"],
Cell[4357296, 105667, 22869, 569, 70, "Output",ExpressionUUID->"ad338d26-0981-4325-9869-ae70e8cdb1a9"]
}, Open  ]],
Cell[4380180, 106239, 222, 5, 2147483647, "Input",ExpressionUUID->"044a933f-0b30-44d7-be96-150a870efaae"]
}, Closed]],
Cell[CellGroupData[{
Cell[4380439, 106249, 6673, 142, 57, "Subsubsection",ExpressionUUID->"0135a171-0c46-4ab6-91b1-6646dd9ce894"],
Cell[CellGroupData[{
Cell[4387137, 106395, 114, 2, 231, "Input",ExpressionUUID->"ec442664-7405-4af1-ac09-15e0c0e1520d"],
Cell[4387254, 106399, 4290, 77, 70, "Output",ExpressionUUID->"06a12e23-b5c7-4531-aff8-00c16b00062a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4391581, 106481, 304, 8, 231, "Input",ExpressionUUID->"e76e02c7-9b9b-410c-9b77-087c066d48f0"],
Cell[4391888, 106491, 14085, 328, 70, "Output",ExpressionUUID->"3fa582ec-366c-4d97-a3ab-d1e4f1920d85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4406010, 106824, 257, 5, 231, "Input",ExpressionUUID->"5130d36a-af13-4d17-8073-39045b5c613d"],
Cell[4406270, 106831, 17954, 430, 70, "Output",ExpressionUUID->"ca469f39-f9f9-4773-a85f-267afc5b6a3e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4424261, 107266, 250, 5, 231, "Input",ExpressionUUID->"6b2ff62e-e810-4e55-b085-b35a3c761269"],
Cell[4424514, 107273, 34448, 862, 70, "Output",ExpressionUUID->"2039fe0d-87d6-4f97-9315-350568562098"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4458999, 108140, 272, 6, 263, "Input",ExpressionUUID->"6fb5d75a-02ea-4020-8798-86f66e6d229d"],
Cell[4459274, 108148, 8773, 196, 70, "Output",ExpressionUUID->"8c00af35-96aa-4660-bf67-b5c2283463d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4468084, 108349, 974, 27, 231, "Input",ExpressionUUID->"0314f48e-d223-4c2e-85ea-0c40354b60c8"],
Cell[4469061, 108378, 10078, 229, 70, "Output",ExpressionUUID->"49bd2223-54e3-4b7e-b28f-3a1c900c0f1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4479176, 108612, 209, 4, 231, "Input",ExpressionUUID->"5f2b6583-110d-4ba7-a61a-23946286d973"],
Cell[4479388, 108618, 6471, 136, 70, "Output",ExpressionUUID->"19372f96-0bd2-4c62-89c2-73d9d85a1f86"]
}, Open  ]],
Cell[4485874, 108757, 226, 5, 231, "Input",ExpressionUUID->"1a67118f-dfe1-4b21-a0a7-8ec3b2d80b0f"]
}, Closed]],
Cell[CellGroupData[{
Cell[4486137, 108767, 98, 1, 54, "Subsubsection",ExpressionUUID->"65791a47-2067-4b5b-b619-aba5b4c298e8"],
Cell[CellGroupData[{
Cell[4486260, 108772, 522, 10, 47, "Input",ExpressionUUID->"fcefe51c-4df3-4a81-949d-d29049cf1556"],
Cell[4486785, 108784, 52260, 1308, 185, "Output",ExpressionUUID->"73e787da-7afe-4e45-930b-85921d118770"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4539094, 110098, 1421, 36, 57, "Subsubsection",ExpressionUUID->"8b0d186f-861a-482b-b7a1-94769f76e15e"],
Cell[4540518, 110136, 132, 1, 2147483647, "Text",ExpressionUUID->"ecc571ca-85bd-4ba8-81a6-2408ea4e154a"],
Cell[CellGroupData[{
Cell[4540675, 110141, 532, 11, 2147483647, "Input",ExpressionUUID->"0cb359c6-4c68-4fcf-bf68-609140a422c4"],
Cell[4541210, 110154, 3477, 54, 70, "Print",ExpressionUUID->"1d8598fe-f8bb-4e32-acf6-092bb2539b33"]
}, Open  ]],
Cell[4544702, 110211, 97, 1, 2147483647, "Text",ExpressionUUID->"5d5eb8de-3828-42f8-b86a-f4d13f37a7b0"],
Cell[CellGroupData[{
Cell[4544824, 110216, 827, 18, 2147483647, "Input",ExpressionUUID->"dae4da3f-b912-43bd-b9bc-33526b2ec7fe"],
Cell[4545654, 110236, 6257, 137, 70, "Output",ExpressionUUID->"fe0e1e84-e529-40bb-98eb-a3a618951d41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4551948, 110378, 430, 11, 2147483647, "Input",ExpressionUUID->"46b25126-6fe0-46d0-8556-52b13de7f72f"],
Cell[4552381, 110391, 6277, 138, 70, "Output",ExpressionUUID->"b65f5bd8-f484-4da0-baae-dc3589398c9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4558695, 110534, 229, 5, 2147483647, "Input",ExpressionUUID->"e6b657c1-539c-4d43-b587-5690c850bae0"],
Cell[4558927, 110541, 6169, 136, 70, "Output",ExpressionUUID->"70bc1592-4e68-4197-a653-f4e831fbabed"]
}, Open  ]],
Cell[4565111, 110680, 374, 7, 2147483647, "Input",ExpressionUUID->"a73d5acf-1987-4d7e-b4ab-2901920aa3b7"],
Cell[CellGroupData[{
Cell[4565510, 110691, 296, 7, 2147483647, "Input",ExpressionUUID->"d762ee4c-66a9-428d-bed0-9b74db6e65f1"],
Cell[4565809, 110700, 5431, 117, 70, "Output",ExpressionUUID->"44d1886e-adc2-4ac5-9042-cabd6fcecbda"]
}, Open  ]],
Cell[4571255, 110820, 262, 6, 2147483647, "Input",ExpressionUUID->"8ae12e9e-2efe-415b-98f6-1ca49d56e003"],
Cell[CellGroupData[{
Cell[4571542, 110830, 491, 9, 2147483647, "Input",ExpressionUUID->"5793b79a-4fa0-44c6-81db-c3a2b25108af"],
Cell[4572036, 110841, 8122, 189, 70, "Output",ExpressionUUID->"3683a63d-a15d-4452-9c96-98dcbb41f91b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4580195, 111035, 236, 5, 2147483647, "Input",ExpressionUUID->"da88b312-8c1a-4315-9079-b040ce5ae7dc"],
Cell[4580434, 111042, 8824, 206, 70, "Output",ExpressionUUID->"ec97b721-49b9-49af-94f8-077271a9046b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4589295, 111253, 248, 5, 2147483647, "Input",ExpressionUUID->"bebdf23b-7a26-49d3-9551-13d57d19a20a"],
Cell[4589546, 111260, 15728, 386, 70, "Output",ExpressionUUID->"b1f3328f-5114-4c4a-b56c-b5048a7024a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4605311, 111651, 239, 5, 2147483647, "Input",ExpressionUUID->"9b8833f3-c2fe-4006-b55a-73134462dd6d"],
Cell[4605553, 111658, 19429, 487, 70, "Output",ExpressionUUID->"592162a2-8e4e-4bfa-a535-ffe3e1b6d67b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4625019, 112150, 246, 5, 2147483647, "Input",ExpressionUUID->"f09f7c44-dc40-40ac-8ee4-a98ad069a570"],
Cell[4625268, 112157, 17461, 448, 70, "Output",ExpressionUUID->"e598a776-1529-46ad-af2d-8a8955c68c07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4642766, 112610, 386, 8, 2147483647, "Input",ExpressionUUID->"4213d367-4a21-49f9-b906-458d6095b487"],
Cell[4643155, 112620, 20262, 524, 70, "Output",ExpressionUUID->"fb4e967a-f102-4d88-8f34-e3a05900b4e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4663454, 113149, 272, 6, 2147483647, "Input",ExpressionUUID->"80a31df0-2d4a-4b73-9133-09d7b4e5dbe2"],
Cell[4663729, 113157, 15132, 385, 70, "Output",ExpressionUUID->"c8b12997-c624-4ef0-bd2f-714ded14b444"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4678898, 113547, 221, 4, 2147483647, "Input",ExpressionUUID->"0da6f67f-326a-4cad-a6ae-eb9c36d2d3d5"],
Cell[4679122, 113553, 15120, 385, 70, "Output",ExpressionUUID->"519b2367-dbfd-47ea-aa07-aa58f491260f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4694279, 113943, 599, 15, 2147483647, "Input",ExpressionUUID->"49e1e53f-5d7f-4ece-9503-2c593048faa8"],
Cell[4694881, 113960, 15173, 384, 70, "Output",ExpressionUUID->"a653d288-50f1-49d1-b0ed-1705a3357e78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4710091, 114349, 821, 20, 2147483647, "Input",ExpressionUUID->"733bca07-4fc3-4be1-83c1-13d5002b81f1"],
Cell[4710915, 114371, 16262, 413, 70, "Output",ExpressionUUID->"09eaf352-2f1f-4eda-909c-f8e0a8b8807c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4727214, 114789, 219, 4, 2147483647, "Input",ExpressionUUID->"d07dc6d9-84d9-4d09-8601-2ef2aa216c27"],
Cell[4727436, 114795, 16162, 412, 70, "Output",ExpressionUUID->"832afecc-c730-48e5-902b-6997529bf70f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4743635, 115212, 430, 11, 2147483647, "Input",ExpressionUUID->"898626f6-5944-4a5a-b826-3a34c181aac3"],
Cell[4744068, 115225, 15702, 393, 70, "Output",ExpressionUUID->"bb75538e-2b3b-4626-8180-563b128e1386"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4759807, 115623, 241, 5, 2147483647, "Input",ExpressionUUID->"ab625b5e-39e6-4e3f-9d94-d1999940c080"],
Cell[4760051, 115630, 15610, 393, 70, "Output",ExpressionUUID->"c15e73bd-ff17-475f-a9bc-6d1b5e5f23d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4775698, 116028, 123, 2, 2147483647, "Input",ExpressionUUID->"9ec23cd3-adb2-4b2a-9cbd-b56ecff9c73c"],
Cell[4775824, 116032, 5340, 112, 70, "Output",ExpressionUUID->"2837af44-252c-41b1-840b-f6ecd2aa2e9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4781201, 116149, 292, 7, 2147483647, "Input",ExpressionUUID->"49c9eb43-66e2-42cc-bee0-93ca3368e34f"],
Cell[4781496, 116158, 6700, 150, 70, "Output",ExpressionUUID->"014c9620-3a36-48d5-aba2-442fbc371e75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4788233, 116313, 653, 17, 2147483647, "Input",ExpressionUUID->"1cd7413a-aa68-4917-944a-7357d1cd47f9"],
Cell[4788889, 116332, 13663, 329, 70, "Output",ExpressionUUID->"859bb83a-c310-4060-ae27-bd5c9e072547"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4802589, 116666, 270, 6, 2147483647, "Input",ExpressionUUID->"d1fb9bd3-c107-40cf-bc10-5908f098fc0f"],
Cell[4802862, 116674, 21931, 571, 70, "Output",ExpressionUUID->"c7811a29-845a-46c9-964d-53b9249073c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4824830, 117250, 213, 4, 2147483647, "Input",ExpressionUUID->"d8c0572e-3adc-405b-8d4d-b674e8e822bc"],
Cell[4825046, 117256, 21479, 517, 70, "Output",ExpressionUUID->"508695ae-4608-467a-8036-4245271b7d47"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4846562, 117778, 210, 4, 2147483647, "Input",ExpressionUUID->"fceb2509-ecb1-42a8-a56a-9adae8e18582"],
Cell[4846775, 117784, 17732, 441, 70, "Output",ExpressionUUID->"8acb7af8-83c2-4111-abd4-fe5dfcd1068b"]
}, Open  ]],
Cell[4864522, 118228, 267, 6, 2147483647, "Input",ExpressionUUID->"e5bd4729-ca77-433c-9ebb-feb2f835c69c"],
Cell[CellGroupData[{
Cell[4864814, 118238, 344, 7, 2147483647, "Input",ExpressionUUID->"46de32f1-cc30-4007-9b5a-23b1c1cb5bdf"],
Cell[4865161, 118247, 21489, 532, 70, "Output",ExpressionUUID->"7c76645e-4b22-4f2d-a857-76182a232081"]
}, Open  ]],
Cell[4886665, 118782, 263, 6, 2147483647, "Input",ExpressionUUID->"9f463d17-1143-4ee7-9e6d-102228bf4100"],
Cell[CellGroupData[{
Cell[4886953, 118792, 611, 11, 2147483647, "Input",ExpressionUUID->"582e1f49-882a-4020-9cb4-933262492ac5"],
Cell[4887567, 118805, 58060, 1460, 70, "Output",ExpressionUUID->"6e290842-f6ed-4a2d-9518-2af9e05ae0f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4945664, 120270, 373, 8, 2147483647, "Input",ExpressionUUID->"ebcf44dd-0969-4798-97d3-a7bbd2405cc4"],
Cell[4946040, 120280, 55929, 1402, 70, "Output",ExpressionUUID->"2b393679-bad6-44d7-945b-8e39a55f28a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5002006, 121687, 197, 3, 2147483647, "Input",ExpressionUUID->"346beafd-51a9-4804-9d0a-37457ba46ea7"],
Cell[5002206, 121692, 52015, 1305, 70, "Output",ExpressionUUID->"42d98d97-e285-4b04-9886-8811d7a36bcf"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[5054270, 123003, 5133, 143, 57, "Subsubsection",ExpressionUUID->"25d11787-27ae-4ccb-9d5d-27a568972396"],
Cell[5059406, 123148, 114, 1, 54, "Text",ExpressionUUID->"fef844af-daff-4320-90d0-c09f5e98f316"],
Cell[CellGroupData[{
Cell[5059545, 123153, 647, 18, 47, "Input",ExpressionUUID->"b976e7b7-87ed-460c-9135-23d38d8c7f1b"],
Cell[5060195, 123173, 6616, 159, 81, "Output",ExpressionUUID->"2a87ccdf-eb07-4740-8cd9-6fddb8fbffe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5066848, 123337, 241, 5, 47, "Input",ExpressionUUID->"b3b00c2d-2cd0-4a89-b9d4-908b88c88df3"],
Cell[5067092, 123344, 7774, 187, 102, "Output",ExpressionUUID->"c459c959-f0f4-4b41-91bb-25672ab22a6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5074903, 123536, 254, 5, 47, "Input",ExpressionUUID->"1144fab7-cb1d-4d96-9be8-d9a0a8f2bd95"],
Cell[5075160, 123543, 9759, 237, 99, "Output",ExpressionUUID->"679cd72d-bf4b-4add-a639-79bac7283f86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5084956, 123785, 257, 5, 47, "Input",ExpressionUUID->"088e09e8-e8e6-4f5b-97e6-11e71dfbf43e"],
Cell[5085216, 123792, 10846, 263, 99, "Output",ExpressionUUID->"ada5fd13-3d39-45f4-8aaa-ecb7c0ab8a5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5096099, 124060, 248, 5, 47, "Input",ExpressionUUID->"34151e5a-8055-4783-9080-c8d3267cce14"],
Cell[5096350, 124067, 9540, 233, 99, "Output",ExpressionUUID->"53297989-b7cc-47c7-a378-2a192a6a8f31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5105927, 124305, 341, 8, 47, "Input",ExpressionUUID->"5cca4059-b9c1-4f20-be2d-0697a6e8d4ca"],
Cell[5106271, 124315, 20610, 497, 212, "Output",ExpressionUUID->"b322446c-ad78-4423-80b4-b8287ec95a02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5126918, 124817, 303, 6, 47, "Input",ExpressionUUID->"7a9fff85-4354-4ee1-9c9e-e810c815080b"],
Cell[5127224, 124825, 31879, 763, 236, "Output",ExpressionUUID->"58b114eb-c252-41b6-a2e2-32147cf195c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5159140, 125593, 258, 5, 47, "Input",ExpressionUUID->"821dbbef-eff8-4914-a280-e5b13bd6205b"],
Cell[5159401, 125600, 44069, 1081, 310, "Output",ExpressionUUID->"7514e71f-e449-4674-a10f-93ab4d13f3a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5203507, 126686, 352, 7, 47, "Input",ExpressionUUID->"b10de15f-6da6-4007-9906-3303b1dc6027"],
Cell[5203862, 126695, 68145, 1628, 558, "Output",ExpressionUUID->"e5aead72-39a3-4b3e-aeab-0e299fddfcc6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5272044, 128328, 257, 5, 47, "Input",ExpressionUUID->"cae0abfd-aba3-4acd-bbdf-8bbdc3fbc2e7"],
Cell[5272304, 128335, 77850, 1853, 547, "Output",ExpressionUUID->"20fc7472-2471-4c2c-966e-f2a6d2909557"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5350191, 130193, 248, 5, 47, "Input",ExpressionUUID->"cc27e2aa-104e-4fe5-aa42-d48a229624e4"],
Cell[5350442, 130200, 224656, 5302, 994, "Output",ExpressionUUID->"213fa9cc-604c-4198-957d-b9c319b9f276"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5575135, 135507, 259, 5, 47, "Input",ExpressionUUID->"2702c3fc-11e2-4850-bf41-210310e3835a"],
Cell[5575397, 135514, 2711, 43, 32, "Message",ExpressionUUID->"43f30b55-f8ad-43a0-9e97-e14e1eb5d0b0"],
Cell[5578111, 135559, 2713, 43, 32, "Message",ExpressionUUID->"12319330-ed32-4857-99be-e4c6a86f784e"],
Cell[5580827, 135604, 18665, 503, 166, "Output",ExpressionUUID->"e49d71b3-d2a6-4e76-8c24-db1afd51338a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5599529, 136112, 248, 5, 47, "Input",ExpressionUUID->"c2a5a81b-f804-4773-9048-4376bceca4d8"],
Cell[5599780, 136119, 14668, 392, 108, "Output",ExpressionUUID->"7bad949f-c0c7-4bb5-acfb-983f8a58af94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5614485, 136516, 1350, 38, 116, "Input",ExpressionUUID->"824c115f-34d5-4103-9f64-78cb2979f108"],
Cell[5615838, 136556, 14731, 394, 108, "Output",ExpressionUUID->"630506e2-aeff-4608-b5f6-4518f15636cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5630606, 136955, 248, 5, 47, "Input",ExpressionUUID->"239db190-d9b0-45f7-bfea-0b8bbaf874a4"],
Cell[5630857, 136962, 14653, 393, 108, "Output",ExpressionUUID->"3652349d-47bf-4623-87d4-7bc05758c7e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5645547, 137360, 243, 5, 47, "Input",ExpressionUUID->"a7f3eda8-b9c6-4c36-950e-14087ee1f936"],
Cell[5645793, 137367, 14856, 400, 108, "Output",ExpressionUUID->"823f44d6-44d9-4f37-843e-c3690a394697"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5660686, 137772, 249, 5, 47, "Input",ExpressionUUID->"9e495e24-f25d-456f-baf9-cefc40104d94"],
Cell[5660938, 137779, 12744, 343, 108, "Output",ExpressionUUID->"6153c5d9-bbba-427f-8df1-e26ec5282b69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5673719, 138127, 211, 4, 47, "Input",ExpressionUUID->"84d94306-7334-4c4c-b3af-785e20f786ee"],
Cell[5673933, 138133, 10778, 283, 106, "Output",ExpressionUUID->"7a6a4362-9ca8-4d8a-9b44-65dc05f6790c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5684748, 138421, 306, 6, 47, "Input",ExpressionUUID->"13a41867-118d-42e9-b1a0-e840b5dcd521"],
Cell[5685057, 138429, 2731, 43, 32, "Message",ExpressionUUID->"19bb7f34-7908-4033-ad63-26b4d9462cc1"],
Cell[5687791, 138474, 2731, 43, 32, "Message",ExpressionUUID->"66ee9688-2543-4aa1-9777-851792135ae4"],
Cell[5690525, 138519, 7997, 203, 106, "Output",ExpressionUUID->"6917040e-0f99-4ea4-a488-67e89b6f1a24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5698559, 138727, 449, 9, 47, "Input",ExpressionUUID->"373cf96b-5b1d-4042-8d25-47e0856e2f68"],
Cell[5699011, 138738, 2077, 32, 36, "Print",ExpressionUUID->"136de0a2-dad2-4ca0-a30b-e6e6dc14fd26"],
Cell[5701091, 138772, 12319, 314, 106, "Output",ExpressionUUID->"59a84206-d0e8-438f-a4e9-95c33767ba90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5713447, 139091, 178, 4, 47, "Input",ExpressionUUID->"635b4a66-6a97-4d1f-8cb5-fe89b64891d2"],
Cell[5713628, 139097, 7348, 180, 106, "Output",ExpressionUUID->"f3e25b3d-d974-4bc3-9beb-c14e0f48421f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5721013, 139282, 353, 6, 47, "Input",ExpressionUUID->"4d7b9028-c6eb-4ef2-83f5-4e77bc7740f3"],
Cell[5721369, 139290, 12220, 314, 106, "Output",ExpressionUUID->"ab6575a0-33cc-4ea6-85dc-76f7637c6837"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5733626, 139609, 263, 5, 47, "Input",ExpressionUUID->"d1377c6e-ff3e-4b02-a739-5b7577a8ba8e"],
Cell[5733892, 139616, 11881, 309, 106, "Output",ExpressionUUID->"76774268-aafd-4c55-8eb2-382cb006b99e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5745810, 139930, 331, 9, 47, "Input",ExpressionUUID->"d7da77e8-f199-414b-b073-4fb73b36eb4f"],
Cell[5746144, 139941, 9151, 220, 107, "Output",ExpressionUUID->"c07b4e75-7ba3-4821-80c8-7ded9975743d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5755332, 140166, 230, 5, 47, "Input",ExpressionUUID->"99690e05-d1d2-45c4-ba65-d463f35a13b9"],
Cell[5755565, 140173, 8983, 222, 107, "Output",ExpressionUUID->"64c99ccd-cc1c-4cf9-a24c-edc348880408"]
}, Open  ]],
Cell[5764563, 140398, 233, 5, 47, "Input",ExpressionUUID->"e63d1c8b-4070-4912-be76-a86ee6f326e9"],
Cell[CellGroupData[{
Cell[5764821, 140407, 350, 9, 47, "Input",ExpressionUUID->"12c4c5f1-49df-437b-afeb-701f78c922b2"],
Cell[5765174, 140418, 8396, 212, 81, "Output",ExpressionUUID->"77d14026-397f-461b-8580-b004efe4c32a"]
}, Open  ]],
Cell[5773585, 140633, 191, 4, 54, "Text",ExpressionUUID->"22bb4ff9-3263-49bd-bb89-a7cb5d741f98"],
Cell[CellGroupData[{
Cell[5773801, 140641, 266, 6, 47, "Input",ExpressionUUID->"b557cfd7-ed8d-430c-bba8-c925973dfe75"],
Cell[5774070, 140649, 4345, 97, 81, "Output",ExpressionUUID->"0e8dd887-71ce-49dd-ab7f-a755d50cac3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5778452, 140751, 376, 10, 47, "Input",ExpressionUUID->"58e996e8-9b31-4aac-9632-aae0d9486851"],
Cell[5778831, 140763, 4397, 96, 81, "Output",ExpressionUUID->"b8f3aeea-6fdd-4d56-a2e2-ef03209beb28"]
}, Open  ]],
Cell[5783243, 140862, 1493, 38, 94, "Text",ExpressionUUID->"166127b4-25bf-4024-86e6-bbf5243fcbf9"]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)